1. Acıklama
Kademeli olarak
1.Checkbox
2.radio button
3.Listbox
kulanımı anlatacağim öncelikle bilinmesei gereken en önemli faktor eklenen paramiterlere
user-command
yazılması ve group ismi verilmesi System herzaman ilk verdiniz group ustunden işlem yapar
1. Örneğimiz Checkbox kullanarak paramiterimizin yazıma acık veya kapalı yapmak
tables mara.
select-options s_mara for mara-MANDT no intervals no-extension
modif id prc .
"modify idmızı herhangı birşey verebiliriz ben burda prc olarak belırledim
parameters cbox as checkbox user-command screen-group1.
checkbox umuza usercommand ve group ısmı verıyoruz
at selection-screen output.
IF not cbox is initial.
" Eğer checkbox seçilmiş ise işlem yapacakdir
loop at screen.
CASE screen-group1. "
gordunuz gibi yukarida belırledimiz group ismımızı case içine alıp degerlendiriyoruz Loop at screen de oldu ıcın Sureklı bı dongu ıcınde olmaktadir
WHEN 'PRC'.
" modif id prc "1. aşamamız yukarida select-options tanımlarken modify id vermiştik when 'PRC' diyerek tanımladımız select-options ıcın istedımızı yapabılırız
ps: Cok onemli bir husus eyer case kısmına 'prc' kucuk harflerle yazarsanız otomatik olarak system buyuk harfe cevirdi için koşul tutmayıp when kısmını gercekleştırmeycekdir herzaman buyuk harf kulanmanızı tavsiye ederım
0 deactive edmek ıcın kulanılır
1 ise aktive edmek ıcın yani
ornek olarak screen-invisible = '1'. dedınız zaman textbox gozukur eyer * screen-invisible = '0'. derseniz gozukmez
screen-input = '0'. "
* screen-output = '0'. "
* screen-invisible = '1'. "
modify screen.
ENDCASE.
endloop.
ENDIF.
gördunuz gibi checkbox tıklandı zaman yazım engeleniyor
2.radio button kulanarak user command
TABLES mara.
SELECT-OPTIONS s_1 FOR mara-mandt NO INTERVALS NO-EXTENSION2
MODIF ID mi1.
SELECT-OPTIONS s_2 FOR mara-mandt NO INTERVALS NO-EXTENSION
MODIF ID mi2.
"radio button için 2 cı user-command group umuzu belırt memıze gerek yok eğer belirtirseniz hata msg alırsınız
PARAMETERS rb1 RADIOBUTTON GROUP rg1 USER-COMMAND screen-group1.
PARAMETERS rb2 RADIOBUTTON GROUP rg1.2
AT SELECTION-SCREEN OUTPUT.
"PS 1. : AT SELECTION SCREEN UNUTMUYORUZ
IF rb1 NE space .
" eğer 1 cı ratio buttonumuz secildi ise yapılması gereken işlem
LOOP AT SCREEN.
PS 2. : LOOP AT SCREEN ICINE ALMAYI UNUTMUYORUZ UNUTULMASI DURUMUNDA EKRANDA GOZUKMEYCEKDIR DEĞİŞİLKLIKLER
CASE screen-group1.
WHEN 'MI1'.
screen-input = '0'.
* screen-output = '0'. "
* screen-invisible = '1'. "
MODIFY SCREEN.
" PS 3. : MODIFY SCREEN UNUTULURSA EKRANDA İŞLEM GOZUK MEYCEKTİR BU 3 PS DIKATEDİLMESİ LAZIM
WHEN 'MI2'.
screen-input = '1'.
screen-output = '1'.
screen-invisible = '0'.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ENDIF.
IF rb2 is not initial.
" 1 CI IF KISMINDA NE(NOT EQUAL) SPACE KUNLANILMIŞTIR GORDUNUZ GIBI FARKLI OLMASI ICIN IS NOT INITIAL KULANDIM 2 SIDE "AYNI İŞLEMI YAPMAKTADIR EĞER DEGER VERILMIŞ İŞLEM YAPILMIŞ İSE DONGU DOGRULANMIŞ OLUR
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'MI1'.
screen-input = '0'.
screen-output = '0'.
screen-invisible = '1'. "
MODIFY SCREEN.
WHEN 'MI2'.
screen-input = '1'.
screen-output = '1'.
screen-invisible = '0'. "
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ENDIF.2
ekran goruntumuz bole olacaktır
1. button
2.button
Kademeli olarak
1.Checkbox
2.radio button
3.Listbox
kulanımı anlatacağim öncelikle bilinmesei gereken en önemli faktor eklenen paramiterlere
user-command
yazılması ve group ismi verilmesi System herzaman ilk verdiniz group ustunden işlem yapar
1. Örneğimiz Checkbox kullanarak paramiterimizin yazıma acık veya kapalı yapmak
tables mara.
select-options s_mara for mara-MANDT no intervals no-extension
modif id prc .
"modify idmızı herhangı birşey verebiliriz ben burda prc olarak belırledim
parameters cbox as checkbox user-command screen-group1.
checkbox umuza usercommand ve group ısmı verıyoruz
at selection-screen output.
IF not cbox is initial.
" Eğer checkbox seçilmiş ise işlem yapacakdir
loop at screen.
CASE screen-group1. "
gordunuz gibi yukarida belırledimiz group ismımızı case içine alıp degerlendiriyoruz Loop at screen de oldu ıcın Sureklı bı dongu ıcınde olmaktadir
WHEN 'PRC'.
" modif id prc "1. aşamamız yukarida select-options tanımlarken modify id vermiştik when 'PRC' diyerek tanımladımız select-options ıcın istedımızı yapabılırız
ps: Cok onemli bir husus eyer case kısmına 'prc' kucuk harflerle yazarsanız otomatik olarak system buyuk harfe cevirdi için koşul tutmayıp when kısmını gercekleştırmeycekdir herzaman buyuk harf kulanmanızı tavsiye ederım
0 deactive edmek ıcın kulanılır
1 ise aktive edmek ıcın yani
ornek olarak screen-invisible = '1'. dedınız zaman textbox gozukur eyer * screen-invisible = '0'. derseniz gozukmez
screen-input = '0'. "
* screen-output = '0'. "
* screen-invisible = '1'. "
modify screen.
ENDCASE.
endloop.
ENDIF.
gördunuz gibi checkbox tıklandı zaman yazım engeleniyor
2.radio button kulanarak user command
TABLES mara.
SELECT-OPTIONS s_1 FOR mara-mandt NO INTERVALS NO-EXTENSION2
MODIF ID mi1.
SELECT-OPTIONS s_2 FOR mara-mandt NO INTERVALS NO-EXTENSION
MODIF ID mi2.
"radio button için 2 cı user-command group umuzu belırt memıze gerek yok eğer belirtirseniz hata msg alırsınız
PARAMETERS rb1 RADIOBUTTON GROUP rg1 USER-COMMAND screen-group1.
PARAMETERS rb2 RADIOBUTTON GROUP rg1.2
AT SELECTION-SCREEN OUTPUT.
"PS 1. : AT SELECTION SCREEN UNUTMUYORUZ
IF rb1 NE space .
" eğer 1 cı ratio buttonumuz secildi ise yapılması gereken işlem
LOOP AT SCREEN.
PS 2. : LOOP AT SCREEN ICINE ALMAYI UNUTMUYORUZ UNUTULMASI DURUMUNDA EKRANDA GOZUKMEYCEKDIR DEĞİŞİLKLIKLER
CASE screen-group1.
WHEN 'MI1'.
screen-input = '0'.
* screen-output = '0'. "
* screen-invisible = '1'. "
MODIFY SCREEN.
" PS 3. : MODIFY SCREEN UNUTULURSA EKRANDA İŞLEM GOZUK MEYCEKTİR BU 3 PS DIKATEDİLMESİ LAZIM
WHEN 'MI2'.
screen-input = '1'.
screen-output = '1'.
screen-invisible = '0'.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ENDIF.
IF rb2 is not initial.
" 1 CI IF KISMINDA NE(NOT EQUAL) SPACE KUNLANILMIŞTIR GORDUNUZ GIBI FARKLI OLMASI ICIN IS NOT INITIAL KULANDIM 2 SIDE "AYNI İŞLEMI YAPMAKTADIR EĞER DEGER VERILMIŞ İŞLEM YAPILMIŞ İSE DONGU DOGRULANMIŞ OLUR
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'MI1'.
screen-input = '0'.
screen-output = '0'.
screen-invisible = '1'. "
MODIFY SCREEN.
WHEN 'MI2'.
screen-input = '1'.
screen-output = '1'.
screen-invisible = '0'. "
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ENDIF.2
ekran goruntumuz bole olacaktır
1. button
2.button