topic Re: User Exit in Application Development and Automation Discussions

User Exit

Former Member — Tue, 24 Jul 2007 08:35:12 GMT

hi experts

I need to insert a new custom field in FB03 transaction and should be able to change it according to the Change mode.

Please let me know if there are any user exits are BADI's for solving this requirement. Please give me the correct exit / badi.

<b>points for sure for correct solution</b>.

regards

pratyusha

Re: User Exit

Former Member — Tue, 24 Jul 2007 11:33:20 GMT

Hi, to find user exits and badis for the particular transaction copy the below code and execute, and give the transaction code in the selection screen,you will get all the user exits and badis for that particular transaction. If you did not find any exits then you have to create a field exit.

TABLES : tstc,

tadir,

modsapt,

modact,

trdir,

tfdir,

enlfdir,

sxs_attrt ,

tstct.

DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.

DATA : field1(30).

DATA : v_devclass LIKE tadir-devclass.

PARAMETERS : p_tcode LIKE tstc-tcode,

p_pgmna LIKE tstc-pgmna .

DATA wa_tadir TYPE tadir.

START-OF-SELECTION.

IF NOT p_tcode IS INITIAL.

SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.

ELSEIF NOT p_pgmna IS INITIAL.

tstc-pgmna = p_pgmna.

ENDIF.

IF sy-subrc EQ 0.

SELECT SINGLE * FROM tadir

WHERE pgmid = 'R3TR'

AND object = 'PROG'

AND obj_name = tstc-pgmna.

MOVE : tadir-devclass TO v_devclass.

IF sy-subrc NE 0.

SELECT SINGLE * FROM trdir

WHERE name = tstc-pgmna.

IF trdir-subc EQ 'F'.

SELECT SINGLE * FROM tfdir

WHERE pname = tstc-pgmna.

SELECT SINGLE * FROM enlfdir

WHERE funcname = tfdir-funcname.

SELECT SINGLE * FROM tadir

WHERE pgmid = 'R3TR'

AND object = 'FUGR'

AND obj_name EQ enlfdir-area.

MOVE : tadir-devclass TO v_devclass.

ENDIF.

SELECT * FROM tadir INTO TABLE jtab

WHERE pgmid = 'R3TR'

AND object IN ('SMOD', 'SXSD')

AND devclass = v_devclass.

SELECT SINGLE * FROM tstct

WHERE sprsl EQ sy-langu

AND tcode EQ p_tcode.

FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.

WRITE:/(19) 'Transaction Code - ',

20(20) p_tcode,

45(50) tstct-ttext.

SKIP.

IF NOT jtab[] IS INITIAL.

WRITE:/(105) sy-uline.

FORMAT COLOR COL_HEADING INTENSIFIED ON.

Sorting the internal Table

SORT jtab BY object.

DATA : wf_txt(60) TYPE c,

wf_smod TYPE i ,

wf_badi TYPE i ,

wf_object2(30) TYPE c.

CLEAR : wf_smod, wf_badi , wf_object2.

Get the total SMOD.

LOOP AT jtab INTO wa_tadir.

AT FIRST.

FORMAT COLOR COL_HEADING INTENSIFIED ON.

WRITE:/1 sy-vline,

2 'Enhancement/ Business Add-in',

41 sy-vline ,

42 'Description',

105 sy-vline.

WRITE:/(105) sy-uline.

ENDAT.

CLEAR wf_txt.

AT NEW object.

IF wa_tadir-object = 'SMOD'.

wf_object2 = 'Enhancement' .

ELSEIF wa_tadir-object = 'SXSD'.

wf_object2 = ' Business Add-in'.

ENDIF.

FORMAT COLOR COL_GROUP INTENSIFIED ON.

WRITE:/1 sy-vline,

2 wf_object2,

105 sy-vline.

ENDAT.

CASE wa_tadir-object.

WHEN 'SMOD'.

wf_smod = wf_smod + 1.

SELECT SINGLE modtext INTO wf_txt

FROM modsapt

WHERE sprsl = sy-langu

AND name = wa_tadir-obj_name.

FORMAT COLOR COL_NORMAL INTENSIFIED OFF.

WHEN 'SXSD'.

For BADis

wf_badi = wf_badi + 1 .

SELECT SINGLE text INTO wf_txt

FROM sxs_attrt

WHERE sprsl = sy-langu

AND exit_name = wa_tadir-obj_name.

FORMAT COLOR COL_NORMAL INTENSIFIED ON.

ENDCASE.

WRITE:/1 sy-vline,

2 wa_tadir-obj_name HOTSPOT ON,

41 sy-vline ,

42 wf_txt,

105 sy-vline.

AT END OF object.

WRITE : /(105) sy-uline.

ENDAT.

ENDLOOP.

WRITE:/(105) sy-uline.

SKIP.

FORMAT COLOR COL_TOTAL INTENSIFIED ON.

WRITE:/ 'No.of Exits:' , wf_smod.

WRITE:/ 'No.of BADis:' , wf_badi.

ELSE.

FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.

WRITE:/(105) 'No userexits or BADis exist'.

ENDIF.

ELSE.

FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.

WRITE:/(105) 'Transaction does not exist'.

ENDIF.

AT LINE-SELECTION.

DATA : wf_object TYPE tadir-object.

CLEAR wf_object.

GET CURSOR FIELD field1.

CHECK field1(8) EQ 'WA_TADIR'.

READ TABLE jtab WITH KEY obj_name = sy-lisel+1(20).

MOVE jtab-object TO wf_object.

CASE wf_object.

WHEN 'SMOD'.

SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).

CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.

WHEN 'SXSD'.

SET PARAMETER ID 'EXN' FIELD sy-lisel+1(20).

CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.

ENDCASE.

Re: User Exit

Former Member — Tue, 24 Jul 2007 12:47:46 GMT

Check the following Exits and BADI's related to FB02/03 tcode

Enhancement

SAPLF051 Workflow for FI (pre-capture, release for payment)

RFKORIEX Automatic correspondence

RFEPOS00 Line item display: Checking of selection conditions

RFAVIS01 Customer Exit for Changing Payment Advice Segment Text

FEDI0001 Function Exits for EDI in FI

FARC0002 Additional Checks for Archiving MM Vendor Master Data

F180A001 Balance Sheet Adjustment

F050S001 FIDCMT, FIDCC1, FIDCC2: Edit user-defined IDoc segment

F050S002 FIDCC1: Change IDoc/do not send

F050S003 FIDCC2: Change IDoc/do not send

F050S004 FIDCMT, FIDCC1, FIDCC2: Change outbound IDoc/do not send

F050S005 FIDCMT, FIDCC1, FIDCC2 Inbound IDoc: Change FI document

F050S006 FI Outgoing IDoc: Reset Clearing in FI Document

F050S007 FIDCCH Outbound: Influence on IDoc for Document Change

Business Add-in

FISPLIT Online Split: Cash Discount, Exchange Rate Differences

FI_AUTHORITY_ITEM Extended Authorization Check for Document Display (FB03)

FI_DOC_DISP_LI Diversion to Document Items (FB03)

FI_FB08_SUBST_BUDAT FB08: Check Posting Date for Reversal of FI Doc. with FB0

FI_GET_INV_PYMT_AMT BAdI for determining the payment amount for an invoice

FI_HEADER_SUB_1300 Screen Enhancement for Document Header SAPMF05A

FI_PAYREF_BADI_010 BAdI: Payment Reference Number

FI_RES_ITEM_CURRENCY Document of Residual Item with Invoice Currency

FI_TRANS_DATE_DERIVE Derive BKPF-WWERT from Other Document Header Data

BADI_MIRO_SPLT_ADD Append additional fields of ACCVS to ACCIT

BADI_PRKNG_NO_UPDATE BAdI for Deactivating Update of Parked Documents

RFESR000_BADI_001 BAdI for Own Processing of POR Item

FVFZ Replacement for Function Modules of Function Group FVFZ

AC_QUANTITY_GET Transfer of Quantities to Accounting - Customer Exit

ADJUST_NET_DAYS Change to Net Due Date

INVOIC_FI_INBOUND BADIs for Inbound IDoc INVOIC FI (Vendor Invoice)

F050S008 FIDCC1, FIDCC2 Inbound IDoc: Update Comparison Ledger

FBAS_CIN_LTAX1F02 Tax interface

FBAS_CIN_MF05AFA0 EWT - Downpayment Clearing - Tax transfer for CIN

BADI_ENJ_ALT_ADR Go to alternative vendor/customer data

BADI_F040_SCREEN_600 Screen Enhancement on F040 0600 Document Header

BADI_FDCB_SUBBAS01 Screen Enhancement 1 on FDCB Basic Data Screen (010, 510)

BADI_FDCB_SUBBAS02 Screen Enhancement 2 on FDCB Basic Data Screen (010, 510)

BADI_FDCB_SUBBAS03 Screen Enhancement 3 on FDCB Basic Data Screen (010, 510)

BADI_FDCB_SUBBAS04 Screen Enhancement 4 on FDCB Basic Data Screen (010, 510)

BADI_FDCB_SUBBAS05 Screen Enhancement 5 on FDCB Basic Data Screen (010, 510)

<b>Reward points for useful Answers</b>

Regards

Anji