<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1543" name=GENERATOR></HEAD>
<BODY style="MARGIN: 4px 4px 1px; FONT: 10pt Tahoma">
<DIV>Charlie,</DIV>
<DIV>I got a similar program already. </DIV>
<DIV>I see these "exits" but not sure which one fits the requirement. </DIV>
<DIV> </DIV>
<DIV>Sounds simple, after user reverses orig doc in FB09, </DIV>
<DIV>get all the other subsequent documents and do an auto reversal </DIV>
<DIV>on the these subsequent documents. i.e. if user reverses the org </DIV>
<DIV>document, go ahead and reverse the subsequent docs for them.</DIV>
<DIV> </DIV>
<DIV>Just not sure which exit to use...</DIV>
<DIV> </DIV>
<DIV>Thanks!</DIV>
<DIV>Rick </DIV>
<DIV> </DIV>
<DIV>
<DIV>4.6c</DIV></DIV>
<DIV><BR><BR>>>> charlie.zhang@siemens.com 4/13/2006 12:24:44 >>><BR>Hi Workflowers, <BR>I have a very simple ABAP program to find the user exit by Tcode and<BR>please check it out.<BR>Charlie of Siemens.<BR>************************************************************************<BR>****************<BR>REPORT z_find_user_exit<BR>NO STANDARD PAGE HEADING.<BR>TABLES : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.<BR>TABLES : tstct.<BR>DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.<BR>DATA : field1(30).<BR>DATA : v_devclass LIKE tadir-devclass.<BR>PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.<BR><BR>SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.<BR>IF sy-subrc EQ 0.<BR>SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR'<BR>AND object = 'PROG'<BR>AND obj_name = tstc-pgmna.<BR>MOVE : tadir-devclass TO v_devclass.<BR>IF sy-subrc NE 0.<BR>SELECT SINGLE * FROM trdir WHERE name = tstc-pgmna.<BR>IF trdir-subc EQ 'F'.<BR>SELECT SINGLE * FROM tfdir WHERE pname = tstc-pgmna.<BR>SELECT SINGLE * FROM enlfdir WHERE funcname =<BR>tfdir-funcname.<BR>SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR'<BR>AND object = 'FUGR'<BR>AND obj_name EQ enlfdir-area.<BR><BR>MOVE : tadir-devclass TO v_devclass.<BR>ENDIF.<BR>ENDIF.<BR>SELECT * FROM tadir INTO TABLE jtab<BR>WHERE pgmid = 'R3TR'<BR>AND object = 'SMOD'<BR>AND devclass = v_devclass.<BR>SELECT SINGLE * FROM tstct WHERE sprsl EQ sy-langu AND<BR>tcode EQ p_tcode.<BR>FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.<BR>WRITE:/(19) 'Transaction Code - ',<BR>20(20) p_tcode,<BR>45(50) tstct-ttext.<BR>SKIP.<BR>IF NOT jtab[] IS INITIAL.<BR>WRITE:/(95) sy-uline.<BR>FORMAT COLOR COL_HEADING INTENSIFIED ON.<BR>WRITE:/1 sy-vline,<BR>2 'Exit Name',<BR>21 sy-vline ,<BR>22 'Description',<BR>95 sy-vline.<BR>WRITE:/(95) sy-uline.<BR>LOOP AT jtab.<BR>SELECT SINGLE * FROM modsapt<BR>WHERE sprsl = sy-langu AND<BR>name = jtab-obj_name.<BR>FORMAT COLOR COL_NORMAL INTENSIFIED OFF.<BR>WRITE:/1 sy-vline,<BR>2 jtab-obj_name HOTSPOT ON,<BR>21 sy-vline ,<BR>22 modsapt-modtext,<BR>95 sy-vline.<BR>ENDLOOP.<BR>WRITE:/(95) sy-uline.<BR>DESCRIBE TABLE jtab.<BR>SKIP.<BR>FORMAT COLOR COL_TOTAL INTENSIFIED ON.<BR>WRITE:/ 'No of Exits:' , sy-tfill.<BR>ELSE.<BR>FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.<BR>WRITE:/(95) 'No User Exit exists'.<BR>ENDIF.<BR>ELSE.<BR>FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.<BR>WRITE:/(95) 'Transaction Code Does Not Exist'.<BR>ENDIF.<BR><BR>AT LINE-SELECTION.<BR>GET CURSOR FIELD field1.<BR>CHECK field1(4) EQ 'JTAB'.<BR>SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).<BR>CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.<BR><BR><BR>************************************************************************<BR>*********************************************<BR><BR>-----Original Message-----<BR>From: <U><A href="mailto:sap-wug-bounces@mit.edu">sap-wug-bounces@mit.edu</A></U> <U><A href="mailto:[mailto:sap-wug-bounces@mit.edu]">[mailto:sap-wug-bounces@mit.edu]</A></U> On Behalf<BR>Of Susan R. Keohan<BR>Sent: Thursday, April 13, 2006 11:15 AM<BR>To: SAP Workflow Users' Group<BR>Subject: Re: User Exit for FB09?<BR><BR>F050S001 FIDCMT, FIDCC1, FIDCC2: Edit user-defined IDoc<BR>segment<BR>F050S002 FIDCC1: Change IDoc/do not send<BR>F050S003 FIDCC2: Change IDoc/do not send<BR>F050S004 FIDCMT, FIDCC1, FIDCC2: Change outbound IDoc/do not<BR>send<BR>F050S005 FIDCMT, FIDCC1, FIDCC2 Inbound IDoc: Change FI<BR>document<BR>F050S006 FI Outgoing IDoc: Reset Clearing in FI Document<BR>F050S007 FIDCCH Outbound: Influence on IDoc for Document<BR>Change<BR>F180A001 Balance Sheet Adjustment<BR>FARC0002 Additional Checks for Archiving MM Vendor Master<BR>Data<BR>RFAVIS01 Customer Exit for Changing Payment Advice Segment<BR>Text<BR>RFEPOS00 Line item display: Checking of selection conditions<BR>RFKORIEX Automatic Correspondence<BR>SAPLF051 Workflow for FI (Pre-Capture, Release for Payment)<BR>FEDI0001 Function exits for EDI in FI<BR><BR><BR>Rick Sample wrote:<BR><BR>> I need an user exit for this t-code. <BR>> Creating a new task to Cancel Invoice, reverse docs, etc...<BR>> <BR>> Please and Thanks,<BR>> Rick<BR>> <BR>> _______________________________________________<BR>> SAP-WUG mailing list<BR>> <U><A href="mailto:SAP-WUG@mit.edu">SAP-WUG@mit.edu</A></U> <BR>> <U><A href="http://mailman.mit.edu/mailman/listinfo/sap-wug">http://mailman.mit.edu/mailman/listinfo/sap-wug</A></U> <BR>> <BR><BR>-- <BR>Susan R. Keohan<BR>SAP Workflow Developer<BR>MIT Lincoln Laboratory<BR>244 Wood Street<BR>LI-200<BR>Lexington, MA. 02420<BR>781-981-3561<BR><U><A href="mailto:keohan@ll.mit.edu">keohan@ll.mit.edu</A></U> <BR>_______________________________________________<BR>SAP-WUG mailing list<BR><U><A href="mailto:SAP-WUG@mit.edu">SAP-WUG@mit.edu</A></U> <BR><U><A href="http://mailman.mit.edu/mailman/listinfo/sap-wug">http://mailman.mit.edu/mailman/listinfo/sap-wug</A></U> <BR><BR>_______________________________________________<BR>SAP-WUG mailing list<BR><U><A href="mailto:SAP-WUG@mit.edu">SAP-WUG@mit.edu</A></U> <BR><U><A href="http://mailman.mit.edu/mailman/listinfo/sap-wug">http://mailman.mit.edu/mailman/listinfo/sap-wug</A></U> <BR><BR></DIV></BODY></HTML>