Re:Dialog programming:URGENT

Former Member — Thu, 19 Jul 2007 11:41:37 GMT

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.

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.

GET PARAMETER ID 'PK' FIELD T_PACKERID.

CASE OKCODE.

Leave Program

WHEN 'BACK' OR 'CANC'.

LEAVE PROGRAM.

WHEN 'EXIT'.

LEAVE PROGRAM.

Un pack DO

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

Re: Re:Dialog programming:URGENT

former_member491305 — Thu, 19 Jul 2007 11:48:03 GMT

Hi ,

In PBO Module,

Module status output.

data itab like table of sy-ucom.

If sy-uname = 'Admin'.

Set pf-status 'GUI_300'.

elseif sy-uname = 'Oper'.

refresh itab.

append 'UNPA' to itab.

append 'DO' to itab.

set pf-status 'GUI_300' excluding itab.

Endif.

Endmodule.

Re: Re:Dialog programming:URGENT

Former Member — Fri, 20 Jul 2007 00:59:44 GMT

Hi Vigneswaran,

Thank u so much , my problem got solved

topic Re: Re:Dialog programming:URGENT in Application Development and Automation Discussions

Re:Dialog programming:URGENT

Re: Re:Dialog programming:URGENT

Re: Re:Dialog programming:URGENT