Views 1056
Visitors 629

Dialog (102)

 Home 
| Top Page | Threads |
Previous  Next

Objective

Transaction Code

SE38 - ABAP Editor

Support

Video

 

Creating Dialog

1.Open SE38
3.Select All Object

abp0018

4.Change Program "YPRACTICE_DIALOG_102"
5.Open Goto > Attributes, and change Title with "102 - Create Button, Text Box and Label"
6.Modified Report Declaration

Before

REPORT  ypractice_dialog_101                    .

 

After

REPORT  ypractice_dialog_102                    .

 

7.Click "ar0015"
8.Double click "abp0008" to open screen 2000
9.Click "ar0018" to start design layout (Screen Painter)
10.Click "abp0019" and then click to screen
11.Set Label (Text Field) Name with "GV_LABEL" and Text with "Label_cannot_change_at_runtime,_but_TextBox_can." like this bellow

abp0020

 

12.Click "abp0021" and then click to screen
13.Set TextBox (Input/Output Field) name with "GV_TEXT" with length "30" like this bellow

abp0022

 

14.Double click "abp0029" and set uppercase/lowercase

abp0030

 

15.Click "abp0023" and then click to screen
16.Set Button (PushButton) name with "GV_BUTTON" like this bellow

abp0024

 

17.Double click "abp0025" and set Function Code with "CHANGE"

abp0026

 

18.After that the button color changed to gray like this "abp0027"
19.Click "abap_tutorial0019" to save the screen and then close the screen painter
20.Back to source code
21.Modified global variable

Before

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

*GLOBAL VARIABLE DECRALATION

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

DATA : ok_code LIKE sy-ucomm,

       save_ok LIKE sy-ucomm.

 

After

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

*GLOBAL VARIABLE DECRALATION

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

DATA : ok_code LIKE sy-ucomm,

       save_ok LIKE sy-ucomm.

 

DATA : gv_text(30) value 'TextBox'.

 

22.Modified module "USER_COMMAND_2000 input"

Before

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

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

 

After

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

*&      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.Click "abap_tutorial0019" and click "abap_tutorial0031"
24.Select "REPS" and "DYNP"

abp0028

25.Click "abap_tutorial0025" to activate the program
26.Test and Run program
28.Finished

 

Result

▪Screen 2000

abp0031

 

▪After button clicked

abp0032

 

User Threads | New Thread ( Only for Donators )
Threads Last Post Replies Views