<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > Indonesia > ABAP Dialog Programming > Basic Knowledge > Dialog (102)

 

Membuat Dialog

1.Buka SE38

2.Salin Program "YPRACTICE_DIALOG_101" menjadi "YPRACTICE_DIALOG_102"

3.Seleksi Semua Objek

4.Ubah Program "YPRACTICE_DIALOG_102"

5.Buka Goto > Attributes, dan ubah "Title" dengan "102 - Create Button, Text Box and Label"

6.Modifikasi Deklarasi Report

Sebelum

REPORT  ypractice_dialog_101                    .

 

Setelah

REPORT  ypractice_dialog_102                    .

 

7.Klik ""

8.Klik ganda "" untuk membuka screen 2000

9.Klik "" untuk memulai layout desain(Screen Painter)

10.Klik "" dan kemudian Klik di screen/layar

11.Atur Nama Label (Text Field) dengan "GV_LABEL" dan Text with "Label_cannot_change_at_runtime,_but_TextBox_can." seperti dibawah

 

12.Klik "" dan kemudian Klik di screen/layar

13.Atur Nama TextBox (Input/Output Field) dengan "GV_TEXT" dengan length "32" seperti dibawah

 

14.Klik ganda "" dan atur uppercase/lowercase

 

15.Klik "" dan kemudian Klik di screen/layar

16.Atur Nama Button (PushButton) dengan "GV_BUTTON" seperti dibawah

 

17.Klik ganda "" dan atur Function Code dengan "CHANGE"

 

18.Setelah tombol, berubah warna menjadi abu-abu seperti berikut ""

19.Klik "" untuk menyimpan  screen dan kemudian tutup 'screen painter'

20.Kembali ke Kode Sintak

21.Modifikasi variabel global

Sebelum

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

*GLOBAL VARIABLE DECRALATION

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

DATA : ok_code LIKE sy-ucomm,

       save_ok LIKE sy-ucomm.

 

Setelah

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

*GLOBAL VARIABLE DECRALATION

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

DATA : ok_code LIKE sy-ucomm,

       save_ok LIKE sy-ucomm.

 

DATA : gv_text(30) value 'TextBox'.

 

22.Modifikasi module"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 'CHANGE'.

      IF gv_text = 'TextBox'.

        gv_text = 'www.sap-interface.com'.

      ELSE.

        gv_text = 'TextBox'.

      ENDIF.

    WHEN OTHERS.

 

  ENDCASE.

 

  CLEAR ok_code.

ENDMODULE.                 " USER_COMMAND_2000  INPUT

 

23.Klik "" dan Klik ""

24.Seleksi "REPS" dan "DYNP"

25.Kli "" untuk mengaktivasi program

26.Tes dan jalankan program

27.Buat T-Code "YPD102"

28.Selesai

 

Hasil

▪Screen 2000

 

▪Setelah Tombol di Klik