|
Membuat Dialog
| 4. | Ubah Program "YPRACTICE_DIALOG_103" |
| 5. | Buka Goto > Attributes, dan ubah "Title" dengan "103 - Table Control" |
| 6. | Modifikasi Deklarasi Report |
Sebelum
REPORT ypractice_dialog_101 .
Setelah
REPORT ypractice_dialog_103 .
Sebelum
*----------------------------------------------------------------------*
*GLOBAL VARIABLE DECRALATION
*----------------------------------------------------------------------*
DATA : ok_code LIKE sy-ucomm,
save_ok LIKE sy-ucomm.
DATA : gv_message1(100),
gv_message2(100).
*----------------------------------------------------------------------*
Setelah
*----------------------------------------------------------------------*
*GLOBAL VARIABLE DECRALATION
*----------------------------------------------------------------------*
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
Cek,
END OF ty_header.
* atau anda adapt menggunakan kode dibawah
*TYPES: BEGIN OF ty_header.
* INCLUDE STRUCTURE yta_header_101.
*TYPES: cek,
* END OF ty_header.
* Deklarasi Internal Table
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_matkl LIKE mara-matkl.
DATA : ok_code LIKE sy-ucomm,
save_ok LIKE sy-ucomm.
DATA : gv_message1(100),
gv_message2(100).
*----------------------------------------------------------------------*
| 8. | Klik " " dan klik " " |
| 9. | Seleksi "REPS", "CUAD" and "DYNP" |
| 10. | Klik " " untukk mengaktivas program |
| 11. | Klik " " |
| 12. | Klik ganda " " untuk membuka screen 2000 |
| 13. | Klik " " untuk memulai layout desain (Screen Painter) |
| 14. | Klik " " dan kemudian klik pada screen |
| 15. | Atur Nama Label (Text Field) dengan "GV_LABEL1" dan Text dengan "Material Group." seperti dibawah |
| 16. | Klik " " dan kemudian klik pada screen |
| 17. | Atur Nama TextBox (Input/Output Field) dengan "GV_MATKL" dengan length "10" seperti berikut |
| 18. | Klik Ganda " " dan atur Search help dengan "H_T023" |
| 19. | Setelah itu TextBox deiganti menjadi " " |
| 20. | Klik " " dan kemudian klik pada screen |
| 21. | Atur Nama (PushButton) dengan "GV_BUTTON" seperti berikut |
| 22. | Klik ganda " " dan atur Function Code dengan "DISPLAY" |
| 23. | Setelah warna tombol berubah menjadi abu-abu seperti berikut " " |
| 24. | Klik "" untuk menyimpan screen |
| 25. | Klik " " kemudian drag di screen painter |
| 26. | Setelah itu Table Control Wizard akan dieksekusi |
| 27. | Klik " " ikuti langkah-langkah berikut |
Tampilkan Langkah-langkahnya
| ▪ | Isikan Nama kontrol tabel dengan "ZTC_HEADER" kemudian Klik "" |
| ▪ | Seleksi Internal Tabel "Internal program table" dan isi dengan "GI_HEADER" kemudian klik "" |
| ▪ | Seleksi Field seperti dibawah dan kemudian klik "" |
| ▪ | Ceklis "List selection col" dan isikan dengan "CEK" seperti dibawah "" |
| ▪ | Ceklis "Scroll" dan kemudian klik "" |
| ▪ | Isikan semua Text Box dengan "YPRACTICE_DIALOG_103_HEADER" dan kemudian klik "" |
| ▪ | klik " " untuk menyelesaikan wizard dan menggenerate kode sintak dan objek dialog . |
|
Hasil dari Wizard
| 28. | Klik "" untuk menyimpan screen dan kemudian tutup screen painter |
| 29. | Kembali ke kode sintak |
| 30. | Modifikasi modul "USER_COMMAND_2000 input" |
Sebelum
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_2000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module USER_COMMAND_2000 input.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN OTHERS.
ENDCASE.
CLEAR ok_code.
endmodule. " USER_COMMAND_2000 INPUT
Setelah
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_2000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_2000 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'DISPLAY'.
CALL FUNCTION 'YFM_RFC_PRACTICE_101'
EXPORTING
gv_matkl = gv_matkl
* GV_MATNR =
gv_max_row = 0
TABLES
gi_header = gi_header
.
WHEN OTHERS.
ENDCASE.
CLEAR ok_code.
ENDMODULE. " USER_COMMAND_2000 INPUT
| 31. | Klik "" dan klik "" |
| 32. | Seleksi "REPS", "REPS" and "DYNP" |
| 33. | Klik "" untuk mengaktifkan program |
| 34. | Tes dan Jalankan program |
Result
| ▪ | Setelah di Klik tombol "Display" |
Flow Logic
PROCESS BEFORE OUTPUT.
*&spwizard: pbo flow logic for tablecontrol 'ZTC_HEADER'
module ZTC_HEADER_change_tc_attr.
*&spwizard: module ZTC_HEADER_change_col_attr.
loop at GI_HEADER
with control ZTC_HEADER
cursor ZTC_HEADER-current_line.
module ZTC_HEADER_get_lines.
*&spwizard: module ZTC_HEADER_change_field_attr
endloop.
MODULE STATUS_2000.
*
PROCESS AFTER INPUT.
*&spwizard: pai flow logic for tablecontrol 'ZTC_HEADER'
loop at GI_HEADER.
chain.
field GI_HEADER-MATKL.
field GI_HEADER-MATNR.
field GI_HEADER-MAKTX.
field GI_HEADER-BISMT.
field GI_HEADER-MEINS.
field GI_HEADER-MSEHT.
endchain.
field GI_HEADER-CEK
module ZTC_HEADER_mark on request.
endloop.
module ZTC_HEADER_user_command.
*&spwizard: module ZTC_HEADER_change_tc_attr.
*&spwizard: module ZTC_HEADER_change_col_attr.
MODULE USER_COMMAND_2000.
|
| 