BADI or USER EXIT for Tcode CO01 & IW21

Former Member — Thu, 03 Jan 2008 06:45:40 GMT

Hi friends,

Pls help me out the below issue.

My client reuirements are.

In both TCode's CO01 and IW21...User profile has to be given to click the FLAG icon.i.e, Approval or the respective user has only able to release the order.

(ex: if 5 user's in PP and PM dept..but the user1 of both dept only has the rights to release the flag).

Just advise me,how to fix this.Is there any way to fix it by functional ppl itself or it relates to technical ppl(abapper)then pls let me know the exact USER EXIT or BADI for T.Code's

1) CO01

2) IW21.

thanks & regards.

Sankar.

Re: BADI or USER EXIT for Tcode CO01 & IW21

Former Member — Thu, 03 Jan 2008 07:14:39 GMT

Hi,

To find exits you can use the fillowing code by giving tranasaction code as input.

REPORT zrmexitfinder .

TABLES: modsap, modact, tstc.

PARAMETERS: input1 LIKE tstc-tcode DEFAULT ' ',

input2 LIKE modsap-typ DEFAULT ' '.

DATA: search1(6),

search2(3),

search3 LIKE modsap-member.

DATA : first_row VALUE 'Y'.

CONCATENATE: '%' input1 '%' INTO search1,

'%' input2 INTO search2.

SELECT * FROM tstc WHERE tcode LIKE search1.

first_row = 'Y'.

CHECK tstc-pgmna NE space.

CONCATENATE '%' tstc-pgmna '%' INTO search3.

SELECT * FROM modsap WHERE typ LIKE search2

AND member LIKE search3.

SELECT SINGLE * FROM modact WHERE member = modsap-name.

IF first_row EQ 'Y'.

WRITE: /0 tstc-tcode, 6 tstc-pgmna, 16 modsap-name, 32 modsap-typ,

45 modsap-member, 70 modact-name.

first_row = 'N'.

ELSE.

WRITE: /16 modsap-name, 32 modsap-typ, 45 modsap-member, 70 modact-name.

ENDIF.

CLEAR : modsap, modact.

ENDSELECT.

IF sy-subrc NE 0.

WRITE : /0 tstc-tcode, 6 tstc-pgmna, 30 'No exits found'.

ENDIF.

CLEAR tstc.

ENDSELECT.

END-OF-SELECTION.

CLEAR: search1, search2, search3.

Regards,

Renjith Michael.

topic BADI or USER EXIT for Tcode CO01 & IW21 in Application Development and Automation Discussions

BADI or USER EXIT for Tcode CO01 & IW21

Re: BADI or USER EXIT for Tcode CO01 & IW21