Hi ,
The below is my code if sy-uname = operator then he should not have access to unpack delivery but for and sy-uname = admin he should enable the UNPA DO button
UNPA DO-----This button on GUI tool bar should b disabled for operator
delivery -
>634003456
I am not knowing where to change the code. Pl z help me
Screen-300 looks like this.
userid -
abcdef
password------XXXX
screen-100 looks like this
UNPA DO (Button on GUI toolbar)
-
Delivery 603244567 i/o
-
Flow logic for screen -300
PROCESS BEFORE OUTPUT.
MODULE STATUS_0300.
FIELD:ITAB1-ZPACKER,
ITAB1-PASS MODULE CHECK_USER.
PROCESS AFTER INPUT.
FIELD:ITAB1-ZPACKER,
ITAB1-PASS MODULE CHECK_USER.
MODULE USER_COMMAND_0300
MODULE CHECK_USER INPUT.
DATA: V_ODSNAME(30) TYPE C.
DATA: ZPACKER(6) TYPE C.
IF OKCODE = 'ENTR'.
IF SY-UNAME = 'OPERATOR' OR SY-UNAME = 'ADMIN'
IF ITAB1-ZPACKER IS INITIAL.
MESSAGE E398(00) WITH ' Please enter a valid USER ID ' .
ELSE.
select single * from zyl01main into corresponding fields of ITAB1
where ZPACKER = ITAB1-ZPACKER and PASS = ITAB1-PASS.
IF SY-SUBRC = 0.
LEAVE TO SCREEN 100.
ELSEIF zpacker IS INITIAL.
MESSAGE E398(00) WITH ' Please enter valid PASSWORD' .
ENDIF.
ENDIF.
ELSE.
LEAVE TO SCREEN 100.
ENDIF.
ELSEIF OKCODE = 'BACK'.
LEAVE TO SCREEN 0.
ELSE.
leave to screen 300.
ENDIF.
Flow logic for screen-100.
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
PROCESS AFTER INPUT.
FIELD : LIKP-VBELN MODULE CHECK_DELIVERY.
MODULE STATUS_0100 OUTPUT.
AUTHORITY-CHECK OBJECT 'Z_AUTH_OBJ'
ID 'TCD' FIELD SY-TCODE
ID 'ACTVT' FIELD '*'.
IF SY-SUBRC = 0.
SET PF-STATUS 'STAT_100' .
ELSE.
SET PF-STATUS 'STAT_100' EXCLUDING 'UNPA'.
ENDIF.
SET TITLEBAR '100' WITH '- User:' V_USER.
CLEAR LIKP-VBELN.
IF ( OKCODE = 'UNPA' ).
CLEAR LIKP-VBELN.
ENDIF.
ENDMODULE.
MODULE USER_COMMAND_0100.
MODULE USER_COMMAND_0100 INPUT.
CLEAR ZSDPACKINFO_V1.
GET PARAMETER ID 'VL' FIELD T_VBELN.
CASE OKCODE.
WHEN 'BACK' OR 'CANC'.
LEAVE PROGRAM.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'UNPA'.
PERFORM LOCK_DO.
PERFORM UNPACK_DO.
CLEAR ZSDPACKINFO_V1-Z_TOT_WT.
Still lot of code is there but how to modify within this code
Bluesky
