&----
*& Module Pool ZTIMSINVOICEM
*&
&----
*&
*&
&----
include ztop.
DATA: ok_code(4). " like sy-ucomm.
DATA: rb1,rb2,rb3. " three radio buttons.
*DATA: V_MODE(10) VALUE 'LEO_NO'.
&----
*& Module USER_COMMAND_0100 INPUT
&----
text.****PF STATUS FOR SCREEN 100.
----
MODULE USER_COMMAND_0100 INPUT.
case sy-ucomm.
when 'BACK'.
CLEAR OK_CODE.
LEAVE TO SCREEN 99.
when 'EXIT'.
CLEAR OK_CODE.
LEAVE TO SCREEN 0.
when 'CANCEL'.
CLEAR OK_CODE.
LEAVE TO SCREEN 0.
endcase.
ENDMODULE. " USER_COMMAND_0100 INPUT
&----
*& Module STATUS_0100 OUTPUT
&----
text****PF STATUS FOR SCREEN 100.
----
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'ZPFSTATUS'.
SET TITLEBAR 'ZTL'.
ENDMODULE. " STATUS_0100 OUTPUT
&----
*& Module USER_COMMAND_0099 INPUT
&----
text
----
MODULE USER_COMMAND_0099 INPUT.
SET PF-STATUS 'ZPFSTATUS1'.
*if ok_code = 'EXE'.
if rb1 = 'X'.
call screen 100.
LOOP AT SCREEN.
IF SCREEN-NAME = LEO_N0.
SCREEN-INPUT = 2.
SCREEN-ACTIVE = 2.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
*
elseif rb2 = 'X'.
call screen 100.
elseif rb3 = 'X'.
call screen 100.
endif.
*endif.
SET PF-STATUS 'ZPFSTATUS1'.
SET TITLEBAR 'ZTL1'.
case sy-ucomm.
when 'EXE'.
call screen 100.
when 'BACK'.
CLEAR SY-UCOMM.
leave to SCREEN 0.
when 'EXIT'.
CLEAR SY-UCOMM.
LEAVE TO SCREEN 0.
when 'CANCEL'.
CLEAR SY-UCOMM.
LEAVE TO SCREEN 0.
endcase.
IF OK_CODE = 'TOGL'.
IF V_MODE = 'LEO_NO'.
V_MODE = 'SB_NO'.
ELSEIF V_MODE = 'SB_NO'.
V_MODE = 'LEO_NO'.
ENDIF.
ENDIF.
ENDMODULE. " USER_COMMAND_0099 INPUT
&----
*& Module STATUS_0099 OUTPUT
&----
text
----
MODULE STATUS_0099 OUTPUT.
SET TITLEBAR 'ZTL1'.
SET PF-STATUS 'ZPFSTATUS1'.
ENDMODULE. " STATUS_0099 OUTPUT
*
&----
*& Module MODIFY_SCREEN_99 OUTPUT
&----
text
----
MODULE MODIFY_SCREEN_99 OUTPUT.
**if ok_code = 'EXE'.
if rb1 = 'X'.
call screen 100.
LOOP AT SCREEN.
CASE 'X'.
WHEN rb1.
CASE SCREEN-NAME.
WHEN 'LEO_N0'.
SCREEN-INPUT = 0.
SCREEN-INVISIBLE = 0.
*
MODIFY SCREEN.
ENDCASE.
ENDCASE.
ENDLOOP.
*
elseif rb2 = 'X'.
call screen 100.
elseif rb3 = 'X'.
call screen 100.
endif.
**endif.
case V_MODE.
wHEN RB1.
case screen-group1.
when 'LEO_NO'.
LOOP AT SCREEN.
IF SCREEN-NAME = 'LEO_NO'.
SCREEN-INVISIBLE = 2.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDCASE.
MODIFY SCREEN.
LOOP AT SCREEN.
CASE 'X'.
WHEN rb1.
CASE SCREEN-NAME.
WHEN 'LEO_N0'.
SCREEN-INPUT = 0.
SCREEN-INVISIBLE = 0.
MODIFY SCREEN.
ENDCASE.
ENDCASE.
ENDLOOP.
.
ENDMODULE. " MODIFY_SCREEN_99 OUTPUT
&----
*& Module MODIFY_SCREEN_100 OUTPUT
&----
text
----
MODULE MODIFY_SCREEN_100 OUTPUT.
LOOP AT SCREEN.
CASE 'X'.
WHEN rb1.
CASE screen-NAME.
WHEN 'LEO_N0'.
SCREEN-INPUT = 0.
SCREEN-INVISIBLE = 0.
MODIFY SCREEN.
ENDCASE.
ENDCASE.
ENDLOOP.