Regarding report(urgent)

Question

Hi experts,
i need to add some fields to output of the report.
here i am giving the fields required to add and giving the code below please build the code
, we need to add the following data in the report output.
    > GR Document (RSEG-LFBNR)
    > GR date (MKPF-BLDAT)
    > Quantity (MSEG-ERFMG)
    > Amount in LC(MSEG-DMBTR)
    > GL Account (MSEG-SAKTO)
Logic in getting the record:
    > for each invoice no(RESG-BELNR) of a PO Line(EKKO-EBELN,EKPO-EBELP), get GR no (RSEG-LFBNR) and doc. year(RSEG-LFGJA),  
    > select the matching record in MSEG using the GR no and year  (RSEG-LFBNR = MKPF-MBLNR & RSEG-LFGJA=MKPF-MJAHR,                                                                               
EKKO-EBELN=RSEG- EBELN,EKPO-EBELP=RSEG-EBELP)
    > select the matching record in MKPF using the GR no and year (RSEG-LFBNR = MKPF-MBLNR & RSEG-LFGJA=MKPF-MJAHR)
here iam giving my code  we have to add thos fields into this code:
TABLES: ekko,   "Purchasing Document Header
        ekpo,   "Purchasing Document Item
        rbkp.   "Document Header: Invoice Receipt
Type-Pools
TYPE-POOLS : slis.   " Has to be declared to use ALVs
To hold ALV field catgory data
DATA : it_fieldcat TYPE slis_t_fieldcat_alv,
       wa_fieldcat LIKE LINE OF it_fieldcat.
Internal tables declarations
Internal table to hold Report data
DATA: BEGIN OF it_output OCCURS 0,
       dir_indir(9),
       bukrs LIKE ekko-bukrs,    "company code
       ebeln LIKE ekko-ebeln,    "Purchasing Document Number
       ebelp LIKE ekpo-ebelp,    "Item
       aedat LIKE ekko-aedat,    "Date on which the record was created
       belnr LIKE rseg-belnr,    "Accounting document number
       bldat LIKE rbkp-bldat,    "Document date in document
       budat LIKE rbkp-budat,    "Posting date in the document
       wrbtr LIKE rseg-wrbtr,    "Amount in document currency
       curr  LIKE t880-curr,     "Price unit (Local Curr)
       bednr LIKE ekpo-bednr,    "Requirement tracking number
       lifnr LIKE ekko-lifnr,    "Vendor's account number
       name1 LIKE lfa1-name1,                               "name1
       name2(30),                "preparer name
       name3(30),                "requester name
       gjahr LIKE rseg-gjahr,    "Fiscal year
       ernam LIKE ekko-ernam,    "Name of Person who Created the Object
       kursf LIKE rbkp-kursf,    "Exchange rate
       shkzg LIKE rseg-shkzg,    "Debit/credit indicator
       banfn LIKE ekpo-banfn,    "Purchase requisition number
        bnfpo like eban-bnfpo,
       knttp LIKE ekpo-knttp,    "account assignment category
      END OF it_output.
Selection Screen
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_bukrs LIKE ekko-bukrs OBLIGATORY.
Parameters: P_knttp like ekpo-knttp as checkbox default 'X'.
SELECT-OPTIONS: s_invdat FOR rbkp-bldat,    "Document date in document
                s_vendor FOR ekko-lifnr,    "Vendor's account number
                s_purcdo FOR ekko-ebeln,    "Purchasing Document no
                s_credat FOR ekko-aedat OBLIGATORY,"create date
                s_plant  FOR ekpo-werks,    "Plant
                s_doctyp FOR ekko-bsart,    "Purchasing document type
                s_purorg FOR ekko-ekorg,    "Purchasing organization
                s_trcnum FOR ekpo-bednr,    "Requirement tracking number
                s_knttp  FOR ekpo-knttp.    "account assignment category
SELECTION-SCREEN: END OF BLOCK b1.
DATA: count TYPE i VALUE 0.            " Used to count records
          INITIALIZATION                                             *
INITIALIZATION.
At Selection Screen
AT SELECTION-SCREEN.
Checking for the input values of selection screen fields.
  PERFORM validate_params.
Start Of Selection
START-OF-SELECTION.
if p_knttp = 'X'.
PERFORM get_data.
else.
skip.
*message e021 with 'no output'.
endif.
  PERFORM get_data.
End Of Selection
END-OF-SELECTION.
SUBROUTINE TO CALL THE FUNCTION MERGE TO ENSURE PROPER DISPLAY.
  PERFORM merge_fieldcatalog.
  PERFORM modify_fieldcat.
  PERFORM alv_report.
      FORM validate_params                                          *
FORM validate_params.
Validate company code
  SELECT SINGLE COUNT(*) FROM t001 WHERE bukrs = p_bukrs.
  IF sy-subrc <> 0.
    MESSAGE e021 WITH 'Please enter a valid Company code'.
  ENDIF.
*Validate Vendor.
  SELECT SINGLE COUNT(*) FROM lfa1 WHERE lifnr IN s_vendor.
  CASE sy-subrc.
    WHEN 0.
    WHEN OTHERS.
      MESSAGE e021 WITH 'Please enter a valid Vendor'.
  ENDCASE.
*Validate PO doc type
  SELECT SINGLE COUNT(*) FROM t161 WHERE bsart IN s_doctyp.
  CASE sy-subrc.
    WHEN 0.
    WHEN OTHERS.
      MESSAGE e021 WITH 'Please enter a valid PO Doc. Type'.
  ENDCASE.
*Validate plant
  SELECT SINGLE COUNT(*) FROM t001w WHERE werks IN s_plant.
  CASE sy-subrc.
    WHEN 0.
    WHEN OTHERS.
      MESSAGE e021 WITH 'Please enter a valid Plant. Type'.
  ENDCASE.
*Validate Purch. Org
  SELECT SINGLE COUNT(*) FROM t024e WHERE ekorg IN s_purorg.
  CASE sy-subrc.
    WHEN 0.
    WHEN OTHERS.
      MESSAGE e021 WITH 'Please enter a valid Purch. Org.'.
  ENDCASE.
ENDFORM.                               " PERFORM VALIDATE_PARAMS.
      FORM get_data                                                 *
FORM get_data.
  DATA: l_persnumber LIKE usr21-persnumber.
Get PO data
  SELECT a~bukrs a~ebeln b~ebelp a~aedat a~lifnr a~ernam
         b~knttp b~bednr b~banfn
         c~belnr c~wrbtr c~gjahr c~shkzg
         d~bldat d~budat d~kursf
         e~dir_indir
  INTO CORRESPONDING FIELDS OF TABLE it_output
  FROM ekko AS a
  JOIN ekpo AS b ON b~ebeln = a~ebeln
  JOIN rseg AS c ON c~ebeln = b~ebeln
                AND c~ebelp = b~ebelp
                AND c~bukrs = a~bukrs
  JOIN rbkp AS d ON d~belnr = c~belnr
                AND d~gjahr = c~gjahr
  LEFT JOIN zpo_dirindir AS e ON e~knttp = b~knttp
  WHERE a~bukrs = p_bukrs
    AND a~lifnr IN s_vendor
    AND a~ebeln IN s_purcdo
    AND a~bsart IN s_doctyp
    AND a~ekorg IN s_purorg
    AND a~aedat IN s_credat
    AND b~knttp IN s_knttp
    AND b~werks IN s_plant
    AND b~bednr IN s_trcnum.
  LOOP AT it_output.
  Get posting date, Doc. date & Curr. Key
    IF it_output-kursf > 0.
      it_output-wrbtr = it_output-wrbtr * it_output-kursf.
      else.
      if it_output-kursf < 0.
     it_output-wrbtr =   it_output-Wrbtr * ( 1 / it_output-kursf ).
       it_output-wrbtr = abs( it_output-wrbtr ).
      endif.
    ENDIF.
  get local currency
    SELECT SINGLE waers INTO it_output-curr FROM t001
             WHERE bukrs = it_output-bukrs.
  Get vendor name.
    SELECT SINGLE name1 FROM lfa1 INTO it_output-name1
    WHERE lifnr = it_output-lifnr.
  Get PO created person name
    SELECT SINGLE persnumber INTO l_persnumber FROM usr21
     WHERE bname = it_output-ernam.
    IF sy-subrc = 0.
      SELECT SINGLE name_text FROM adrp INTO it_output-name2
       WHERE persnumber = l_persnumber.
   ELSE.
      it_output-name2 = it_output-ernam.
    ENDIF.
  Get get requested by from Unloading point in PO
  else PR created by (If PR exists)
    CASE it_output-dir_indir.
      WHEN 'I'.
      Take requested by from Unloading point.
        SELECT SINGLE ablad INTO it_output-name3 FROM ekkn
         WHERE ebeln = it_output-ebeln
           AND ebelp = it_output-ebelp .
      WHEN 'D'.
       SELECT SINGLE ernam INTO it_output-name3 FROM eban
        WHERE banfn = it_output-banfn
                 AND ebelp = it_output-ebelp.
       IF sy-subrc <> 0.
         MOVE it_output-ernam TO it_output-name3.
       ENDIF.
       SELECT SINGLE persnumber INTO l_persnumber FROM usr21
           WHERE bname = it_output-name3.
       IF sy-subrc = 0.
         SELECT SINGLE name_text FROM adrp INTO it_output-name3
          WHERE persnumber = l_persnumber.
       ENDIF.
select single ernam into  it_output-name3 from eban where
     banfn = it_output-banfn and bnfpo = it_output-bnfpo.
             move it_output-name3 to it_output-name3.
            if sy-subrc = 0.
        SELECT SINGLE PERSNUMBER INTO L_PERSNUMBER FROM USR21
            WHERE BNAME = it_output-name3.
        IF SY-SUBRC = 0.
          SELECT SINGLE NAME_TEXT FROM ADRP INTO it_output-name3
           WHERE PERSNUMBER = L_PERSNUMBER.
        ELSE.          it_output-name3 = it_output-name3.
        endif.
      else.
        SELECT SINGLE PERSNUMBER INTO L_PERSNUMBER FROM USR21
                WHERE BNAME = it_output-ernam.
        IF SY-SUBRC = 0.
          SELECT SINGLE NAME_TEXT FROM ADRP INTO it_output-name3
           WHERE PERSNUMBER = L_PERSNUMBER.
        ELSE.
          it_output-name3 = it_output-ernam.
        endif.
      endif.
    ENDCASE.
  translate direction indicator to Indirect or Direct
    CASE it_output-dir_indir.
      WHEN 'I'. it_output-dir_indir = 'Indirect'.
      WHEN 'D'. it_output-dir_indir = 'Direct'.
    ENDCASE.
    MODIFY it_output.
  ENDLOOP.
ENDFORM.
FORM MERGE_FIELDCATALOG                                             *
FORM merge_fieldcatalog.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            i_program_name         = sy-cprog
            i_internal_tabname     = 'IT_OUTPUT'
            i_inclname             = sy-cprog
       CHANGING
            ct_fieldcat            = it_fieldcat[]
       EXCEPTIONS
            inconsistent_interface = 1
            program_error          = 2
            OTHERS                 = 3.
ENDFORM. " MERGE_FIELDCATALOG
      FORM modify_fieldcat                                          *
FORM modify_fieldcat.
  DATA: wa_fieldcat TYPE slis_fieldcat_alv.
  LOOP AT it_fieldcat INTO wa_fieldcat.
    CASE wa_fieldcat-fieldname.
      WHEN 'DIR_INDIR'.
        wa_fieldcat-seltext_m = 'Direct/Indirect'.
      WHEN 'NAME2'.
        wa_fieldcat-seltext_m = 'PREPARER NAME'.
      WHEN 'NAME3'.
        wa_fieldcat-seltext_m = 'REQUESTER NAME'.
      WHEN 'BEDNR'.
        wa_fieldcat-seltext_m = 'SSP PO'.
      WHEN 'AEDAT'.
        wa_fieldcat-seltext_m = 'PO DOCUMENT DATE'.
      WHEN 'BLDAT'.
        wa_fieldcat-seltext_m = 'INVOICE DOCU DATE'.
      WHEN 'BUDAT'.
        wa_fieldcat-seltext_m = 'POSTAGE DATE'.
      WHEN 'WRBTR'.
        wa_fieldcat-seltext_m = 'LOCAL AMOUNT'.
        wa_fieldcat-cfieldname = 'CURR'.
        wa_fieldcat-ctabname   =  wa_fieldcat-tabname.
      WHEN 'CURR'.
        wa_fieldcat-seltext_m = 'LOCAL CURR'.
      WHEN 'NAME1'.
        wa_fieldcat-seltext_m = 'VENDOR NAME'.
    ENDCASE.
    MODIFY it_fieldcat FROM wa_fieldcat.
  ENDLOOP.
ENDFORM.
      FORM ALV_REPORT                                               *
FORM alv_report.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program = sy-cprog
            it_fieldcat        = it_fieldcat[]
       TABLES
            t_outtab           = it_output[].
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

Answer 1

Very sorry to say this Venu ...
This is a forum to ask doubts .. "Not get your work done for Free"
Kindly try to do it yourself first & then if you are stuck somewhere fell free to shout for help
Best regards,
Gaurav