c weather the my code is right regarding screen programming

Former Member — Wed, 04 Jun 2008 09:36:35 GMT

&----

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

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.

ENDLOOP.

Re: c weather the my code is right regarding screen programming

Former Member — Wed, 04 Jun 2008 11:44:05 GMT

hi,

there are number of codes which you was wrote in your module pool is meaning less.

here i am going to explain one of that.

if you want to any operation according than it will be in PAI for certain tasks.

you cannot set any status bar and gui title for ur screen in PAI.

it is meaning less.

there is another code :

o LOOP AT SCREEN.

o IF SCREEN-NAME = LEO_N0.

o SCREEN-INPUT = 2.

o SCREEN-ACTIVE = 2.

o ENDIF.

o MODIFY SCREEN.

o ENDLOOP.

you can't assign value screen-input = 2

there is only 0 and 1.

screen-input = 0 for disable field

screen-input = 1 for enable field

and same for screen-active , you can use only value 0 and 1.

Still any help require than reply me.

regards,

Vipul.

Edited by: VipulKumar Darji on Jun 4, 2008 5:16 PM

topic c weather the my code is right regarding screen programming in Application Development and Automation Discussions

c weather the my code is right regarding screen programming

Re: c weather the my code is right regarding screen programming