Membuat Form

1. Buat Form Baru

Nama Form                : YFO_PRACTICE_101

Meaning                : Form List of Master Material

2. Klik dua kali pada menu "Form Interface"

3. Buka Tab "Import" dan tambahkan parameter import seperti gambar dibawah

4. Buka Tab "Tables" dan tambahkan parameter tables seperti gambar dibawah

Cara membuat : YST_HEADER_101, YST_RANGE_MATKL, YST_RANGE_MATNR

5. Klik dua kali pada menu "Global Definition"

6. Buka Tab "Global Data" dan tambahkan parameter seperti gambar dibawah

7. Klik dua kali pada menu "Main"

8. Buka Tab "Output Options" dan atur nilai "Possition and Size" seperti gambar dibawah

9. Klik kanan pada menu "Main" dan klik "Create > Table" untuk membuat Table (List Data)

10. Klik tombol "" pada Tab "Table" untuk mendefinisikan kolom-kolom yang akan ditampilkan

11. Isi value seperti gambar dibawah

Catatan : Total nilai pada semua kolom tidak boleh lebih dari "Table Width"

12. Tekan tombol "" untuk menambahkan kolom

13. Tambahkan nilai pada kolom nomer 6 dengan nilai seperti gambar dibawah

14. Tekan tombol "" untuk kembali ke menu awal

15. Tekan tombol "" untuk mengatur pola garis pada List Data

16. Tekan tombol ""

17. Pilih pattern ke dua dari kiri atas, agar semua kotak terisi pada setiap baris

18. Klik Tab "Data" dan masukkan nilai seperti gambar dibawah

19. Klik kanan pada menu "Header" dan klik "Create > Table Line" untuk membuat header pada List Data

20. Pilih Line Type "%LTYPE1" dan otomatis kolom (Cell) akan terbentuk

Catatan : 1 CELL mewakili 1 kolom

21. Klik kanan pada menu "%CELL1" dan klik "Create > Text" untuk membuat title header pada kolom

22. Buka Tab "General Attribute" dan isi text "Mat. Group" seperti gambar dibawah

23. Lakukan ulang langkah 15 dan 16 untuk "%CELL2" hingga "%CELL6" dengan text dibawah ini

"%CELL2" = Mat. No.

"%CELL3" = Description

"%CELL4" = Old Mat. No.

"%CELL5" = Base Unit of Measure

"%CELL6" = Measure

Catatan : Jangan lupa tekan tombol "" setiap satu proses panjang

24. Klik kanan pada menu "Main Area" dan klik "Create > Table Line" untuk membuat Baris Data

25. Pilih Line Type "%LTYPE1" dan otomatis kolom (Cell) akan terbentuk

26. Klik kanan pada menu "%CELL7" dan klik "Create > Text" untuk membuat baris data pada kolom

27. Buka Tab "General Attribute"

28. Klik menu " Utilities > Field List on/off" atau tekan "Ctrl + Shift + F4" untuk membuka List dari parameter-parameter yang di deklarasi pada langkah 3-7

29. Buka Field "Global Data > GW_HEADER"

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

31. Lakukan ulang langkah 21 dan 25 untuk "%CELL8" hingga "%CELL12" dengan text dibawah ini

"%CELL8"  = MATNR

"%CELL9"  = MAKTX

"%CELL10" = BISMT

"%CELL11" = MEINS

"%CELL12" = MSEHT

Catatan : Jangan lupa tekan tombol "" setiap satu proses panjang

32. Tekan tombol "" untuk melakukan Check sekaligus aktivasi Form

33. Tekan tombol "" untuk melakukan test running Form

34. Selesai

Membuat Report

Sebelum

REPORT  ypractice_101.

Setelah

REPORT  ypractice_601.

Sebelum

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

*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

Setelah

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

*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.

Sebelum

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

*Input Screen/Selection

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

SELECT-OPTIONS so_matkl FOR mara-matkl.

SELECT-OPTIONS so_matnr FOR mara-matnr.

Setelah

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

*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.

Sebelum

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

*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.

Sesudah

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

*MAIN PROGRAM

*Execute after Input Screen

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

START-OF-SELECTION.

  PERFORM fm_collect_data.

  PERFORM fm_process_data.

  PERFORM fm_display_data.

END-OF-SELECTION.

Sebelum

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

*&      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

Setelah

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

*&      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

Hasil