-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path3.ödev.abap
163 lines (125 loc) · 2.94 KB
/
3.ödev.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
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
REPORT zga_odev_3.
TABLES sscrfields.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS:
kare RADIOBUTTON GROUP g1 USER-COMMAND cmd1 DEFAULT 'X',
kareknr TYPE i MODIF ID A.
PARAMETERS:
ucgen RADIOBUTTON GROUP g1,
ucgenknr TYPE i MODIF ID B.
PARAMETERS:
dikdort RADIOBUTTON GROUP g1,
kısaknr TYPE i MODIF ID C,
uzunknr TYPE i MODIF ID C.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.
PARAMETERS:
alan AS CHECKBOX ,
cevre AS CHECKBOX .
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE TEXT-003.
PARAMETERS:
alan_h TYPE i,
cevre_h TYPE i.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN:
PUSHBUTTON /2(40) button1 USER-COMMAND but1.
INITIALIZATION.
button1 = 'Temizle'.
AT SELECTION-SCREEN OUTPUT.
IF kare = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'B'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
IF screen-group1 = 'C'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSEIF ucgen = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'A'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
IF screen-group1 = 'C'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT SCREEN.
IF screen-group1 = 'A'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
IF screen-group1 = 'B'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
AT SELECTION-SCREEN .
IF alan EQ 'X'.
IF kare = 'X'.
PERFORM kare_alan.
ELSEIF ucgen = 'X'.
PERFORM ucgen_alan.
ELSEIF dikdort = 'X'.
PERFORM dikdort_alan.
ENDIF.
ENDIF.
IF cevre EQ 'X'.
IF kare = 'X'.
PERFORM kare_cevre.
ELSEIF ucgen = 'X'.
PERFORM ucgen_cevre.
ELSEIF dikdort = 'X'.
PERFORM dikdort_cevre.
ENDIF.
ENDIF.
END-OF-SELECTION.
FORM kare_alan.
IF alan_h IS INITIAL.
alan_h = kareknr * kareknr .
ELSE.
CLEAR: alan_h.
ENDIF.
ENDFORM.
FORM ucgen_alan.
IF alan_h IS INITIAL.
alan_h = ucgenknr * ucgenknr / 2 .
ELSE.
CLEAR: alan_h.
ENDIF.
ENDFORM.
FORM dikdort_alan.
IF alan_h IS INITIAL.
alan_h = kısaknr * uzunknr .
ELSE.
CLEAR: alan_h.
ENDIF.
ENDFORM.
FORM kare_cevre.
IF cevre_h IS INITIAL.
cevre_h = kareknr * 4 .
ELSE.
CLEAR: cevre_h.
ENDIF.
ENDFORM.
FORM ucgen_cevre.
IF cevre_h IS INITIAL.
cevre_h = ucgenknr * 3 .
ELSE.
CLEAR: cevre_h.
ENDIF.
ENDFORM.
FORM dikdort_cevre.
IF cevre_h IS INITIAL.
cevre_h = ( kısaknr * 2 ) + ( uzunknr * 2 ) .
ELSE.
CLEAR: cevre_h.
ENDIF.
ENDFORM.