User Exit - Status

Former Member — Mon, 05 Feb 2007 21:11:46 GMT

I am working on User Exit... I want the user exit to be in active status for me and couple more people and inactive to rest of guys... how to acheive it....

Re: User Exit - Status

Former Member — Mon, 05 Feb 2007 21:20:40 GMT

Just check for sy-uname in the code for the list of user's need access

& for rest it will skip the logic

Re: User Exit - Status

Former Member — Mon, 05 Feb 2007 21:38:07 GMT

So is this a valid code

IF SY-TCODE = 'MM01'

IF SY-UNAME = 'ABC' OR 'XYZ'.

CODE.

ENDIF

ENDIF.

Re: User Exit - Status

Former Member — Mon, 05 Feb 2007 21:41:04 GMT

Hi,

Yes..Check the sy-uname for the users that you want the user exit to execute..

IF SY-TCODE = 'MM01'.

IF SY-UNAME = 'ABC' OR SY-UNAME = 'XYZ'.

CODE.

ENDIF

ENDIF.

Thanks,

Naren

Re: User Exit - Status

Former Member — Mon, 05 Feb 2007 21:52:48 GMT

I DEVELOPED THE BELOW CODE FOR VALIDATING SERIAL NUMBER IN MB31.

TO CHECK WHETHER ENTERED SERIAL NUMBER CONTAINS ANY ALPHABETS

IF SERNR CA SY-ABCDE.

MESSAGE E398(00) WITH 'ENTER A VALID SERIAL NUMBER WITH NO ALPHABETS'.

ENDIF.

DATA: I_EQUI LIKE EQUI.

DATA: I_SERNR LIKE EQUI-SERNR.

DATA: I_LENGTH TYPE I.

I_SERNR = SERNR.

SHIFT I_SERNR LEFT DELETING LEADING '0'.

CHECKING THE LENGTH OF ENTERED SERIAL NUMBER

I_LENGTH = STRLEN( I_SERNR ).

I_LENGTH GT 9 OR I_LENGTH LT 9.

MESSAGE E398(00) WITH 'INVALID LENGTH'.

EXIT.

ENDIF.

DATA: SERNR LIKE EQUI-SERNR.
DATA: MATNR TYPE MATNR.
TO CHECK THERE ARE NO DUPLICATE SERIAL EXISTS

IF SY-TCODE = 'MB31'.

SELECT SINGLE * FROM EQUI INTO I_EQUI

WHERE EQTYP = 'S'

AND MATNR = MATNR

AND SERNR = SERNR.

IF SY-SUBRC EQ 0.

MESSAGE E398(00) WITH 'SERIAL NUMBER ALREADY EXISTS'.

ELSE.

CHECKING THE FORMAT OF THE ENTERED SERIAL NUMBER COMPLIES WITH TELEFLEX STANDARDS

IF I_SERNR0(1) = '2' OR I_SERNR0(1) = '3' OR I_SERNR+0(1) = '6'.

DATA : I_MONTH(2),

: I_YEAR(2).

CLEAR: I_MONTH,

I_YEAR.

I_YEAR = sy-datum+2(2) - 1.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = I_YEAR

IMPORTING

OUTPUT = I_YEAR.

IF I_SERNR1(2) = sy-datum2(2) OR I_SERNR+1(2) = I_YEAR.

IF I_SERNR1(2) = I_YEAR AND I_SERNR3(2) NE '12'.

MESSAGE E398(00) WITH 'INVALID YEAR/MONTH'.

ENDIF.

IF ( ( SY-DATUM4(2) = '01' ) AND ( I_SERNR1(2) = SY-DATUM+2(2) ) ).

I_MONTH = '12'.

ELSE.

I_MONTH = sy-datum+4(2) - 1.

ENDIF.

SY-DATUM4(2) = '01' AND I_SERNR1(2) = I_YEAR.

I_MONTH = '12'.

ELSE.

I_MONTH = sy-datum+4(2) - 1.

ENDIF.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = I_MONTH

IMPORTING

OUTPUT = I_MONTH.

IF I_SERNR3(2) = sy-datum4(2) OR I_SERNR+3(2) = I_MONTH.

IF I_SERNR5(4) GT '0000' AND I_SERNR5(4) LT '9999'.

ELSE.

MESSAGE E398(00) WITH 'PLEASE ENTER RANGE WITHIN 0000 AND 9999'.

ENDIF.

ELSE.

MESSAGE E398(00) WITH 'INVALID YEAR/MONTH'.

ENDIF.

ELSE.

MESSAGE E398(00) WITH 'INVALID YEAR/MONTH'.

ENDIF.

ELSE.

MESSAGE E398(00) WITH 'INVALID MANUFACTURING SITE'.

ENDIF.

ELSE.

TO CHECK WHETHER USER ENTERS EXISTING SERIAL NUMBER.

SELECT SINGLE * FROM EQUI INTO I_EQUI

WHERE EQTYP = 'S'

AND MATNR = MATNR

AND SERNR = SERNR.

IF SY-SUBRC NE 0.

MESSAGE E398(00) WITH 'PLEASE ENTER A VALID SERIAL NUMBER'.

ENDIF.

NOW I NEED TO ADD COUPLE OF MORE LINES SUCH THAT IN TRANSACTION "MB1C" AND USER IS 'ABC' , 'XYZ' I HAVE TO ACCEPT THE ENTERED SERIAL NUMBER AND SKIP THE VALIDATION....

HOW CAN I ACHEIVE IT..

Re: User Exit - Status

Former Member — Mon, 05 Feb 2007 21:59:39 GMT

Hi,

Do this check marked in bold...

CHECK SY-TCODE <> 'MBC1' AND SY-NAME <> 'ABC'

AND SY-UNAME <> 'XYZ'.

DATA: I_EQUI LIKE EQUI.

DATA: I_SERNR LIKE EQUI-SERNR.

DATA: I_LENGTH TYPE I.

I_SERNR = SERNR.

SHIFT I_SERNR LEFT DELETING LEADING '0'.

CHECKING THE LENGTH OF ENTERED SERIAL NUMBER

I_LENGTH = STRLEN( I_SERNR ).

....

Thanks,

Naren

topic Re: User Exit - Status in Application Development and Automation Discussions

User Exit - Status

Re: User Exit - Status

Re: User Exit - Status

Re: User Exit - Status

Re: User Exit - Status

Re: User Exit - Status