Skip to Content
0
Former Member
Jun 04, 2008 at 09:36 AM

c weather the my code is right regarding screen programming

20 Views

&----


*& 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.