-
Notifications
You must be signed in to change notification settings - Fork 0
/
DENEME.abap
128 lines (100 loc) · 4.58 KB
/
DENEME.abap
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
1-include ile global değişken oluştur top,pbo,pai,frm.
2-çift tıkla oluştur.
3-screen olştur. flow logic oluştur üstekini seç pbo tıkla, alttakini seç pai tıkla.
4-pbo tıkla gui status oluştur(0100) $back yazalım.
5.gui status title oo alvyazdık başlık olarak.
6-paı case sy-ucomm. when &back, set screen0 yap.
7-start-of-selection altına call screen 0100 yaz.
-----screenn oluştu---------
8-layout aç en altın bir üstünde olacak cc_alv diye id verdik
/////////Top/////////
*&---------------------------------------------------------------------*
*& Include ZGK_ALV_OO_ALV_KULLANIM_TOP
*&---------------------------------------------------------------------*
"Alv
DATA: go_alv TYPE REF TO CL_GUI_ALV_GRID, "oo_alv yi tanımladık
go_container type REF TO CL_GUI_CUSTOM_CONTAINER. "alvyi tutcak bir de container ihtiyaç var onu da tanımladık
"Table data
DATA gt_scarr TYPE TABLE OF scarr.
////////PBO////////
*&---------------------------------------------------------------------*
*& Include ZGK_ALV_OO_ALV_KULLANIM_PBO
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '0100'.
PERFORM dispaly_alv. "Alvyi ekrana basma
ENDMODULE.
//////////PAI///////////
*&---------------------------------------------------------------------*
*& Include ZGK_ALV_OO_ALV_KULLANIM_PAI
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
CASE sy-ucomm.
WHEN '&BACK'.
SET SCREEN 0.
ENDCASE.
ENDMODULE.
///////////FRM/////////////
*&---------------------------------------------------------------------*
*& Include ZGK_ALV_OO_ALV_KULLANIM_FRM
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form DISPALY_ALV
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM DISPALY_ALV .
CREATE OBJECT GO_CONTAINER "bu kısımda da alv ye vercegimiz containırı oluşturuyoruz
exporting
CONTAINER_NAME = 'CC_ALV'."layout uzernde oluşturdugumuz custom container id si
CREATE OBJECT GO_ALV "Alvyi kullanmak için oluşturmamı gerekir
exporting
I_PARENT = go_container ."container id si verilcek ama once oluşturulack
"CL_GUI_CONTAINER=>SCREEN0 / da yazabilirdim hehrnagi bir contiane roluşturmadan da kullanabilirim
call METHOD GO_ALV->SET_TABLE_FOR_FIRST_DISPLAY "ekrana basmak için methodu çağırmamız gereklidir
exporting
I_STRUCTURE_NAME = 'SCARR' " Ekrana basılcak tablo tipi
changing
IT_OUTTAB = gt_scarr . "Veri bascagımız tablo.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_DATA .
SELECT * from scarr into TABLE gt_scarr.
ENDFORM.
//////////MAIN////////
*&---------------------------------------------------------------------*
*& Report ZGK_ALV_OO_ALV_KULLANIM
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZGK_ALV_OO_ALV_KULLANIM.
INCLUDE ZGK_ALV_OO_ALV_KULLANIM_TOP.
INCLUDE ZGK_ALV_OO_ALV_KULLANIM_PBO.
INCLUDE ZGK_ALV_OO_ALV_KULLANIM_PAI.
INCLUDE ZGK_ALV_OO_ALV_KULLANIM_FRM.
START-OF-SELECTION.
PERFORM get_data. "Tabloya veir çekme
CAll SCREEN 0100.
///////////////////////////////////////////////////////
OO alv genelde hem screen uzerinde hemde screensiz kullanıma sahiptir