topic Re: Modification in Tcode f.19 in Application Development and Automation Discussions

Modification in Tcode f.19

Former Member — Mon, 02 Mar 2009 08:03:05 GMT

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

Re: Modification in Tcode f.19

former_member242255 — Mon, 02 Mar 2009 08:10:12 GMT

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

Re: Modification in Tcode f.19

Former Member — Mon, 02 Mar 2009 08:15:39 GMT

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

Re: Modification in Tcode f.19

Former Member — Mon, 02 Mar 2009 08:17:17 GMT

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

Re: Modification in Tcode f.19

Former Member — Mon, 02 Mar 2009 08:31:34 GMT

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

Re: Modification in Tcode f.19

Former Member — Mon, 02 Mar 2009 08:47:09 GMT

Hi Sukriti,

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

Thanks

Karthik