REPORT ZSACHIN_ALV_DEEP27.
*----------------------------------------------------------------------*
* T A B L E S *
*----------------------------------------------------------------------*
tables: mara, skb1, BSEG.
*----------------------------------------------------------------------*
* S E L E C T I O N S C R E E N *
*----------------------------------------------------------------------*
selection-screen: Begin of block b1 with frame title text-001.
parameters : R1 radiobutton group g1 default 'X' user-command AA.
select-options : s_bukrs for skb1-bukrs MODIF ID AA.
parameters : p_GJAHR type bseg-GJAHR MODIF ID AA.
parameters : p_MONAT type bkpf-MONAT MODIF ID AA.
select-options : s_SEG for BSEG-SEGMENT MODIF ID AA.
parameters : R2 radiobutton group g1.
select-options: s1_bukrs for skb1-bukrs MODIF ID CC.
parameters: p1_GJAHR type bseg-GJAHR MODIF ID CC.
parameters: p1_MONAT type bkpf-MONAT MODIF ID CC.
select-options: s1_SEG for bseg-SEGMENT MODIF ID CC.
select-options: s1_PRCTR for bseg-PRCTR MODIF ID CC.
selection-screen: end of block b1.
*----------------------------------------------------------------------*
* AT S E L E C T I O N S C R E E N O U T P U T *
*----------------------------------------------------------------------*
At selection-screen output.
If R1 = 'X'.
loop at screen.
if screen-group1 = 'AA'.
screen-input = '1'.
modify screen.
endif.
if screen-group1 = 'CC'.
screen-input = '0'.
modify screen.
endif.
endloop.
elseif R2 = 'X'.
loop at screen.
if screen-group1 = 'AA'.
screen-input = '0'.
modify screen.
endif.
if screen-group1 = 'CC'.
screen-input = '1'.
modify screen.
endif.
endloop.
endif.
*----------------------------------------------------------------------*
* T A B L E S *
*----------------------------------------------------------------------*
tables: mara, skb1, BSEG.
*----------------------------------------------------------------------*
* S E L E C T I O N S C R E E N *
*----------------------------------------------------------------------*
selection-screen: Begin of block b1 with frame title text-001.
parameters : R1 radiobutton group g1 default 'X' user-command AA.
select-options : s_bukrs for skb1-bukrs MODIF ID AA.
parameters : p_GJAHR type bseg-GJAHR MODIF ID AA.
parameters : p_MONAT type bkpf-MONAT MODIF ID AA.
select-options : s_SEG for BSEG-SEGMENT MODIF ID AA.
parameters : R2 radiobutton group g1.
select-options: s1_bukrs for skb1-bukrs MODIF ID CC.
parameters: p1_GJAHR type bseg-GJAHR MODIF ID CC.
parameters: p1_MONAT type bkpf-MONAT MODIF ID CC.
select-options: s1_SEG for bseg-SEGMENT MODIF ID CC.
select-options: s1_PRCTR for bseg-PRCTR MODIF ID CC.
selection-screen: end of block b1.
*----------------------------------------------------------------------*
* AT S E L E C T I O N S C R E E N O U T P U T *
*----------------------------------------------------------------------*
At selection-screen output.
If R1 = 'X'.
loop at screen.
if screen-group1 = 'AA'.
screen-input = '1'.
modify screen.
endif.
if screen-group1 = 'CC'.
screen-input = '0'.
modify screen.
endif.
endloop.
elseif R2 = 'X'.
loop at screen.
if screen-group1 = 'AA'.
screen-input = '0'.
modify screen.
endif.
if screen-group1 = 'CC'.
screen-input = '1'.
modify screen.
endif.
endloop.
endif.
No comments:
Post a Comment