Membuat Form

1. Create New Form

Name of the form                : YFO_PRACTICE_101

Meaning                        : Form List of Master Material

2. Double-click on the menu "Form Interface"

3. Open the tab "Import" and add the import parameters, like the image below

4. Open the tab "Tables" and add the parameter tables, like the image below

How to make: YST_HEADER_101, YST_RANGE_MATKL, YST_RANGE_MATNR

5. Double-click on the menu "Global Definition"

6. Open the tab "Global Data" and add the parameters like the image below

7. Double-click on the menu "Main"

8. Open the tab "Output Options" and set the value "Possition and Size" as shown below

9. Right-click on the menu "Main" and click on "Create> Table" to create a Table (List data)

10. Click "" on the Tab "Table" to define the columns to be displayed

11. Fill in value as the image below

Note: The total value of all columns must be no more than"Table Width"

12. Press "" to add a column

13. Add the value in column number 6 with values like image below

14. Press "" to return to the initial menu

15. Press "" to set the pattern of lines on the List Data

16. Press ""

17. Select a pattern to the second from the top left, so that all boxes are filled in each row

18. Click Tab "Data" and enter the values as shown below

19. Right-click on the menu "Header" and click on "Create> Table Line" to make a header on the List Data

20. Select Line Type "%LTYPE1" and automatically column (Cell) will be formed

Note : 1 CELL represents a 1 column.

21. Right-click on the menu "%CELL1" and Click "Create > Text" to create the column header title

22. Open Tab "General Attribute" and content of text "Mat. Group" like the picture below.

23. Re doing steps 15 and 16 for "%CELL2" until "%CELL6" with the following text

"%CELL2" = Mat. No.

"%CELL3" = Description

"%CELL4" = Old Mat. No.

"%CELL5" = Base Unit of Measure

"%CELL6" = Measure

Note : Do not forget to press the button "" every single long process

24. Right-click on the menu "Main Area" and click "Create > Table Line" to make Line Data

25. Select line type "%LTYPE1" and automatically column (Cell) will be formed

26. Right-click on the menu "%CELL7" and click "Create > Text" to create a row of data in column

27. Open Tab "General Attribute"

28. Click " Utilities > Field List on/off" or press "Ctrl + Shift + F4" to open the List of parameters in the declaration on steps 3-7

29. Open Field "Global Data > GW_HEADER"

30. Drag and Drop "MATKL" into Tab "General Attributes"

31. Do it again, step 21 dan 25 for "%CELL8" until "%CELL12" with the following text

"%CELL8"  = MATNR

"%CELL9"  = MAKTX

"%CELL10" = BISMT

"%CELL11" = MEINS

"%CELL12" = MSEHT

Note : don not forget to press the button "" every single long process

32. Press "" for activation and check form

33. Press "" to test running Form

34. Finished

Membuat Report

Before

REPORT  ypractice_101.

After

REPORT  ypractice_601.

Before

*----------------------------------------------------------------------*

*GLOBAL VARIABLE DECRALATION

*----------------------------------------------------------------------*

DEFINE macro_data_possition.

  if &1 = 'HEADER'.

    write :  /'|' no-gap,(9)  &2 centered,

              '|' no-gap,(18) &3 centered,

              '|' no-gap,(40) &4 centered,

              '|' no-gap,(18) &5 centered,

              '|' no-gap,(5)  &6 centered,

              '|' no-gap,(10) &7 centered,

              '|' no-gap.

  else.

    write :  /'|' no-gap,(9)  &2 centered,

              '|' no-gap,(18) &3 ,

              '|' no-gap,(40) &4 ,

              '|' no-gap,(18) &5 ,

              '|' no-gap,(5)  &6 ,

              '|' no-gap,(10) &7 ,

              '|' no-gap.

  endif.

END-OF-DEFINITION.

TYPES: BEGIN OF ty_header,

        matkl LIKE mara-matkl,  " Material Group

        matnr LIKE mara-matnr,  " Material Number

        maktx LIKE makt-maktx,  " Material Description

        bismt LIKE mara-bismt,  " Old material number

        meins LIKE mara-meins,  " Base Unit of Measure

        mseht LIKE t006a-mseht, " Unit of Measurement Text

      END OF ty_header.

DATA: gi_header TYPE STANDARD TABLE OF ty_header WITH HEADER LINE,

      gi_makt  LIKE STANDARD TABLE OF makt WITH HEADER LINE,

      gi_t006a LIKE STANDARD TABLE OF t006a WITH HEADER LINE.

DATA: gv_width TYPE i.  " Width of list

After

*----------------------------------------------------------------------*

*GLOBAL VARIABLE DECRALATION

*----------------------------------------------------------------------*

DATA: gi_header LIKE STANDARD TABLE OF yst_header_101 WITH HEADER LINE,

      gi_makt  LIKE STANDARD TABLE OF makt WITH HEADER LINE,

      gi_t006a LIKE STANDARD TABLE OF t006a WITH HEADER LINE.

Before

*----------------------------------------------------------------------*

*Input Screen/Selection

*----------------------------------------------------------------------*

SELECT-OPTIONS so_matkl FOR mara-matkl.

SELECT-OPTIONS so_matnr FOR mara-matnr.

After

*----------------------------------------------------------------------*

*Input Screen/Selection

*----------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK groupbox1 WITH FRAME TITLE text_101. "Declare Group Box 1

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_102 FOR FIELD so_matkl.

SELECT-OPTIONS so_matkl FOR mara-matkl.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_103 FOR FIELD so_matnr.

SELECT-OPTIONS so_matnr FOR mara-matnr.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK groupbox1.                              "End Group Box 1

SELECTION-SCREEN BEGIN OF BLOCK groupbox2 WITH FRAME TITLE text_201. "Declare Group Box 2

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_202 FOR FIELD p_mrow.

PARAMETERS p_mrow TYPE i DEFAULT 1000 LENGTH 5.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK groupbox2.                              "End Group Box 2

*----------------------------------------------------------------------*

*EVENT

*----------------------------------------------------------------------*

AT SELECTION-SCREEN OUTPUT.

  text_101 = 'Selection Parameter'.

  text_102 = 'Material Group'.

  text_103 = 'Material Number'.

  text_201 = 'Page Setup'.

  text_202 = 'Max. Row'.

*----------------------------------------------------------------------*

*INITIALIZATION

*----------------------------------------------------------------------*

INITIALIZATION.

Before

*======================================================================*

*MAIN PROGRAM

*Execute after Input Screen

*======================================================================*

START-OF-SELECTION.

  gv_width = 113.

  PERFORM fm_collect_data.

  PERFORM fm_process_data.

  PERFORM fm_display_data.

END-OF-SELECTION.

After

*======================================================================*

*MAIN PROGRAM

*Execute after Input Screen

*======================================================================*

START-OF-SELECTION.

  PERFORM fm_collect_data.

  PERFORM fm_process_data.

  PERFORM fm_display_data.

END-OF-SELECTION.

Before

*&--------------------------------------------------------------------*

*&      Form  fm_display_data

*&--------------------------------------------------------------------*

*       text

*---------------------------------------------------------------------*

FORM fm_display_data.

*  Membuat Teks header

  ULINE AT (gv_width).                    " Upper frame border

  FORMAT COLOR COL_HEADING INTENSIFIED.   " Title color

  macro_data_possition : 'HEADER' 'Mat. Group' 'Mat. No.' 'Description' 'Old Mat. No.' 'Base Unit' 'Measure'.

  WRITE: AT gv_width sy-vline.            " Right border

  ULINE AT (gv_width).                    " Line below titles

  FORMAT COLOR OFF.

*  Menampilkan Data ke Screen

  LOOP AT gi_header.

    macro_data_possition : 'CONTENT'

                           gi_header-matkl

                           gi_header-matnr

                           gi_header-maktx

                           gi_header-bismt

                           gi_header-meins

                           gi_header-mseht.

  ENDLOOP.

*  Akhir dari Line

  ULINE AT (gv_width).                    " Line below last data

ENDFORM.                    "fm_display_data

After

*&--------------------------------------------------------------------*

*&      Form  fm_display_data

*&--------------------------------------------------------------------*

*       text

*---------------------------------------------------------------------*

FORM fm_display_data.

  DATA: lv_fmname TYPE rs38l_fnam,

        lw_options TYPE ssfcompop,

        lw_control TYPE ssfctrlop,

        lw_tdbool TYPE tdbool.

*  Get Function Module name base on SmartForms name

  lv_fmname = 'YFO_PRACTICE_101'.

  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

    EXPORTING

      formname           = lv_fmname

    IMPORTING

      fm_name            = lv_fmname

    EXCEPTIONS

      no_form            = 1

      no_function_module = 2

      OTHERS             = 3.

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

*  Set Properties of Printer

  lw_tdbool = space.

  lw_control-no_dialog = ''.

  lw_control-preview = 'X'.

*  lw_options-tddest = nast-ldest.

  lw_options-tdimmed = 'X'.

  lw_options-tddelete = 'X'.

*  Call and Run SmartForms

  CALL FUNCTION lv_fmname

    EXPORTING

      control_parameters = lw_control

      output_options     = lw_options

      user_settings      = lw_tdbool

      gv_max_row         = p_mrow    "--User Define Form Interface

    TABLES

      gi_header          = gi_header "--User Define Form Interface

      gr_matkl           = so_matkl  "--User Define Form Interface

      gr_matnr           = so_matnr  "--User Define Form Interface

    EXCEPTIONS

      formatting_error   = 1     

      internal_error     = 2

      send_error         = 3

      user_canceled      = 4

      OTHERS             = 5.

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

ENDFORM.                    "fm_display_data

Result