Modification in Tcode f.19

[Former Member]

Hi Experts,

I am doing modification on f.19 ( just to add vendor name ).

Note: I have copied the entire program and doing it in zprogram with out disturbing the original

Please advice.

Thanks

Karthik

[Former Member]

Hi Dude,

For Finance related transaction codes please work on the BTE concepts....

Tcode is FIBF.

Please go through the below link you may get basic idea about BTE

http://help.sap.com/erp2005_ehp_04/helpdata/DE/42/fc86e86af51a77e10000000a422035/frameset.htm

https://www.sdn.sap.com/irj/scn/advancedsearch?query=enhancement+framework&cat=sdn_all

Hope it may helps for your requirement

Thanks & Regards

Ramakrishna Pathi

[former_member242255]

hi karthik,

for adding a field you can go thru some exit or BADI approach rather than copying the whole standatrd program and doing the modifications.

Regards,

Sravan

[Former Member]

Hi Dude,

For Finance related transaction codes please work on the BTE concepts....

Tcode is FIBF.

Please go through the below link you may get basic idea about BTE

http://help.sap.com/erp2005_ehp_04/helpdata/DE/42/fc86e86af51a77e10000000a422035/frameset.htm

https://www.sdn.sap.com/irj/scn/advancedsearch?query=enhancement+framework&cat=sdn_all

Hope it may helps for your requirement

Thanks & Regards

Ramakrishna Pathi

[Former Member]

Hi,

Did you check for Screen exit? It is not suggestible to copy the standard program and customize it unless there is no alternative.

Regards,

Satya

[Former Member]

1..

* narrow table, because it may be a lot of items
DATA: BEGIN OF list_item OCCURS 100,
      bukrs  LIKE bseg-bukrs,
      hkont  LIKE bsis-hkont,
      ebeln  LIKE bseg-ebeln,
* Log 001
      ernam  LIKE  ekko-ernam,
* Log 001
      ebelp  LIKE bseg-ebelp,
      ktosl LIKE t030u-ktosl,   "used for posting
* hier kommen die Belege
      waers LIKE ekko-waers,    "bestellwaerhugn
      blart LIKE bkpf-blart,
      belnr LIKE bseg-belnr,
* Log 001
      usnam  LIKE bkpf-usnam,
* Log 001
      buzei LIKE bseg-buzei,
*
      wrbtr(12) TYPE p,
      dmbtr(12) TYPE p,
      mwsts(12) TYPE p,
      mwskz LIKE bseg-mwskz,
      gjahr LIKE bkpf-gjahr,
      vbund  LIKE lfa1-vbund,
      lifnr LIKE bseg-lifnr,
* Log 001
      name1 LIKE lfa1-name1,
* Log 001
      akont LIKE lfb1-akont,
      budat LIKE bkpf-budat,
      gsber LIKE bseg-gsber.
* variabler teil
*       INCLUDE STRUCTURE RFSBEW_INCL.
        INCLUDE STRUCTURE sl_incl.
DATA:
      hwaer      LIKE tcurd-hwaer,
      dmbe2(12) TYPE p,
      hwae2   LIKE x001-hwae2,
      dmbe3(12) TYPE p,
      hwae3   LIKE x001-hwae3,
      selkey      LIKE sy-tabix,
  END OF list_item.

2..

END-OF-SELECTION.
* perform log_time using text-004.
*--------------------------------------------------------------
  IF p_aqtax = 'X'.
    PERFORM aqtax00.
  ENDIF.
  PERFORM gr_ir_main.
* Log 001
  PERFORM fetch_reqd.
* Log 001
  PERFORM posting.
* perform log_time using text-005.
  PERFORM schedman_start_stop USING 'STOP'.
  PERFORM liste.
*  perform log_time using 'LISTE'.
  SET PF-STATUS '     '.

3..

*&---------------------------------------------------------------------*
*&      Form  FETCH_REQD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM fetch_reqd .
  SORT list_item BY ebeln.
  LOOP AT list_item.
    ON CHANGE OF list_item-ebeln.
      SELECT SINGLE * FROM ekko WHERE ebeln = list_item-ebeln.
      IF sy-subrc EQ 0.
        list_item-ernam = ekko-ernam.
      ENDIF.
      SELECT SINGLE * FROM lfa1 WHERE lifnr = list_item-lifnr.
      IF sy-subrc EQ 0.
        list_item-name1 = lfa1-name1.
      ENDIF.
    ENDON.
    list_item-ernam = ekko-ernam.
    list_item-name1 = lfa1-name1.

    SELECT SINGLE * FROM bkpf WHERE bukrs = list_item-bukrs
                                AND belnr = list_item-belnr
                                AND gjahr = list_item-gjahr.
    IF sy-subrc EQ 0.
      list_item-usnam = bkpf-usnam.
    ENDIF.
    MODIFY list_item.
  ENDLOOP.
ENDFORM.                    " FETCH_REQD

[Former Member]

Hi Sukriti,

You are genius, thanks a lot for your kind help !! My problem has been solved.

Thanks

Karthik