Enterprise Resource Planning Blogs by Members
Gain new perspectives and knowledge about enterprise resource planning in blog posts from community members. Share your own comments and ERP insights today!
cancel
Showing results for 
Search instead for 
Did you mean: 
former_member221213
Participant

Vendor code addition in FBL3N report using Business Transaction Events (BTE)


 


Requirement - Business requirement is to display vendor code in FBL3N report for GR-IR clearing a/c on each line item. 


 

You can add additional field to FBL3N reports with using BTE exit.


To find a BTE, Go to transaction FIBF and follow the below path.


 



 


 

Use the Documentation button to see the documentation for the BTE.


 

Click on sample function module to see the function module for BET.



 

Copy the function module and create new with Z.



 

Implementing the BTE



Go back to transaction FIBF


Create a new product for BET active the same



 


 

Then go to below path to attached the product to Z function module which is created.


 


 





Now edit existing structure RFPOS and add the new fields as shown in screen shot.



 

Then add the same fields in structure RFPOSX.


 


 

 

After that run the program RFPOSXEXTEND from SE38.


After this you can see vendor code and names column in FBL3N.


 


 


 


Then write the code as per your requirement.


 


FUNCTION ZSAMPLE_INTERFACE_00001650.


*"----------------------------------------------------------------------


*"*"Local Interface:


*"  IMPORTING


*" VALUE(I_POSTAB) LIKE  RFPOS STRUCTURE  RFPOS


*"  EXPORTING


*" VALUE(E_POSTAB) LIKE  RFPOS STRUCTURE  RFPOS


*"----------------------------------------------------------------------



*-------------- Initialize Output by using the following line ----------

e_postab = i_postab.



  TABLES : BSEG, LFA1.



  DATA: w_name1 TYPE lfa1-name1,


        w_lifnr TYPE lfa1-lifnr,


        w_ebeln TYPE ekko-ebeln.



  IF e_postab-blart EQ 'WE'.     "For MIGO documents



    SELECT SINGLE ebeln


           INTO w_ebeln


           FROM bseg


           WHERE belnr = e_postab-belnr


             AND bukrs = e_postab-bukrs


             AND gjahr = e_postab-gjahr


             AND hkont = e_postab-hkont.


    IF sy-subrc = 0.


      SELECT SINGLE lfa1~name1


lfa1~lifnr


            INTO   (w_name1, w_lifnr)


            FROM ekko INNER JOIN lfa1 ON ekko~lifnr = lfa1~lifnr


            WHERE ekko~ebeln = w_ebeln.


      IF sy-subrc = 0.


        e_postab-zname  = w_name1.


        e_postab-zlifnr = w_lifnr.


CLEAR:w_name1,w_lifnr.


      ENDIF.


    ENDIF.





  ELSE.                           "For other than MIGO doc i.e. Vendor Invoice




    SELECT SINGLE lifnr


          FROM    bseg


          INTO  (e_postab-zlifnr,


e_postab-zaugbl)


     WHERE  bukrs = i_postab-bukrs


        AND gjahr = i_postab-gjahr


        AND belnr = i_postab-belnr


        AND bschl IN ('31','21')


        AND koart = 'K'.



* Fetching Vendor Name



    SELECT SINGLE name1


           FROM lfa1


           INTO e_postab-zname


           WHERE lifnr = e_postab-zlifnr.



  ENDIF.



ENDFUNCTION.

 

 

Result : Vendor code and name is appearing in FBL3N.

 



 

Same way you can add more fields base on your requirement.


 

Regards,

Rohidas Shinde.


11 Comments
Labels in this area