-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathSAPABAP009
More file actions
42 lines (35 loc) · 1.64 KB
/
Copy pathSAPABAP009
File metadata and controls
42 lines (35 loc) · 1.64 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
*&---------------------------------------------------------------------*
*& Report ZBK_P009
*&---------------------------------------------------------------------*
*&Normal Screen-PBO ve PAI-GUI Title-GUI Status
*&---------------------------------------------------------------------*
REPORT zbk_p009.
* Screen olu#madan önce PBO(Process Before Output) bu yap#da ekran aç#lmadan önce yap#lmak istenen i#lemler gerçekle#ir.
* Screen ça##r#ld#ktan sonra ise PAI(Process After Input) yap#s#n# kullan#r#z.
*DATA: lv_num1 TYPE i. "Display Object List button or CTRL + SHITF + F5 --> FIELDS
START-OF-SELECTION. "Display Object List button or CTRL + SHITF + F5 --> EVENTS
*PERFORM form1.
*FORM form1 . "Display Object List button or CTRL + SHITF + F5 --> SUBROUTINES
*ENDFORM.
CALL SCREEN 0100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
*&Ekran aç#lmadan önce.
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'. "GUI statusleri yazaca##m#z alan.
SET TITLEBAR 'TITLE_0100'. "TITLE k#sm#n# yazaca##m#z alan.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*Ekran aç#ld#ktan sonra.
MODULE user_command_0100 INPUT.
IF sy-ucomm EQ '&BACK'.
LEAVE TO SCREEN 0.
ENDIF.
ENDMODULE.