Skip to Content
avatar image
Former Member

Enhancement for F-02 T.Code

Hi all,

Can any one help me with a enhancment. i want a enhancment for the t.code F-02.or Any user exit.

Thanks.

Add comment
10|10000 characters needed characters exceeded

  • Follow
  • Get RSS Feed

3 Answers

  • Best Answer
    Oct 06, 2007 at 09:03 AM

    hi

    execute this report

    report zbadi_find .

    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.

    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.

    regards

    Nagesh.Paruchuri

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Oct 06, 2007 at 09:14 AM

    hai paruchuri,

    thanks for the quick response. i need a enhancment other than those in the list below.

    please go through..

    Enhancement/ Business Add-in

    Enhancement

    SAPLF051

    RFKORIEX

    RFEPOS00

    RFAVIS01

    FARC0002

    F180A001

    F050S007

    F050S001

    F050S002

    F050S003

    F050S004

    F050S005

    F050S006

    Business Add-in

    FI_RES_ITEM_CURRENCY

    FI_TRANS_DATE_DERIVE

    FVFZ

    AC_QUANTITY_GET

    ADJUST_NET_DAYS

    INVOIC_FI_INBOUND

    BADI_F040_SCREEN_600

    BADI_FDCB_SUBBAS01

    BADI_FDCB_SUBBAS02

    BADI_FDCB_SUBBAS03

    BADI_FDCB_SUBBAS04

    BADI_FDCB_SUBBAS05

    BADI_PRKNG_NO_UPDATE

    BADI_BRNCH_TO_BUDAT

    BADI_ENJ_ALT_ADR

    RFESR000_BADI_001

    F050S008

    FBAS_CIN_LTAX1F02

    FBAS_CIN_MF05AFA0

    FISPLIT

    FI_AUTHORITY_ITEM

    FI_DOC_DISP_LI

    FI_FB08_SUBST_BUDAT

    FI_GET_INV_PYMT_AMT

    FI_HEADER_SUB_1300

    FI_PAYREF_BADI_010

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Oct 08, 2007 at 02:55 AM

    Transaction Code - F-02 Enter G/L Account Posting

    Exit Name Description

    RFAVIS01 Customer Exit for Changing Payment Advice Segment Text

    RFEPOS00 Line item display: Checking of selection conditions

    RFKORIEX Automatic correspondence

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

    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

    F180A001 Balance Sheet Adjustment

    FARC0002 Additional Checks for Archiving MM Vendor Master Data

    FEDI0001 Function Exits for EDI in FI

    No of Exits: 14

    USER EXIT

    http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm

    http://www.sapgenie.com/abap/code/abap26.htm

    http://www.sap-img.com/abap/what-is-user-exits.htm

    http://wiki.ittoolbox.com/index.php/HOWTO:Implement_a_screen_exit_to_a_standard_SAP_transaction

    http://www.easymarketplace.de/userexit.php

    http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm

    http://www.sappoint.com/abap/userexit.pdfUser-Exit

    http://www.sap-img.com/ab038.htm

    http://help.sap.com/saphelp_46c/helpdata/en/64/72369adc56d11195100060b03c6b76/frameset.htm

    http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm

    http://www.sap-img.com/abap/what-is-user-exits.htm

    http://expertanswercenter.techtarget.com/eac/knowledgebaseAnswer/0,295199,sid63_gci982756,00.html

    Rewards if useful.........

    Minal

    Add comment
    10|10000 characters needed characters exceeded