Regarding abap reporting

Question

hi all
i had written one code to display outstanding credit notes(payments) from our customers.when i chk display this proram in dev server it runs perfectly but on production it shows recieved payments a otstanding nd outstanding as recieved. why this has happened n now will i correct it?
secondly when i write a statement to delete a duplication of records, in production it fetches very less data even though its not duplicate, any reason behind it?
rewards will b given
thanks in advance 2 all
gaurav

Answer 1

here is my code 
chk form process whre all the logical steps are there.
*& Report  YMS_ZOUT1                                                   *
REPORT  YGAU_ZOUT1 NO STANDARD PAGE HEADING LINE-SIZE 240.
TABLES: VBAK,  "ORDER HEADER
        VBAP,  "ORDER DETAIL
        BSAD,  "CUSTOMER PAYMENTS
        VBRP,  "BILLING HEADER
        KNA1,  "CUSTOMER MASTER
        BSEG,  "A/c Document Segment
        bsid,  "A/c: Secondary Index for Customers
        VBRK.  "Billing Document
DATA   : t_aubel(70), MEXT(70), MPART(10) TYPE c.
DATA  : s_tdid LIKE thead-tdid ,
        s_tdobject LIKE thead-tdobject ,
        zline LIKE tline OCCURS 0 WITH HEADER LINE.
DATA   DELI(1) TYPE C VALUE 'I'.
DATA : LIFEX3(35), S_ACK TYPE C.
DATA : TXT1(4) TYPE C.
DATA : TXT2(10) TYPE C.
DATA : BEGIN OF ITAB OCCURS 0,
       VKBUR LIKE VBAK-VKBUR,  "SALES OFFICE
       LIFEX LIKE LIKP-LIFEX,
       EXTDEL LIKE LIKP-VBELN,  "Extended Outbound Delivery
       VBELN LIKE VBAK-VBELN, "BILLING DOCU NO.
       AUDAT LIKE VBAK-AUDAT,
       KUNNR LIKE VBAK-KUNNR,
       VKORG LIKE VBAK-VKORG,
       FKART LIKE VBRK-FKART, " BILLING TYPE
       VBELN1 LIKE VBRK-VBELN, " BILLING DOCU. NO.
       NETWR LIKE VBRK-NETWR,
       NETWR1 LIKE VBRK-NETWR,
       NAME1 LIKE KNA1-NAME1,
       NAME2 LIKE KNA1-NAME1,
       KURRF LIKE VBRK-KURRF,
       WAERK LIKE VBRK-WAERK,
       KUNRG LIKE VBRK-KUNRG,
       FKDAT LIKE VBRK-FKDAT,  "Billing Date
       WRBTR LIKE BSID-WRBTR,
       BELNR LIKE BSID-BELNR,
       BLART LIKE BSID-BLART,
       DMBTR LIKE BSID-DMBTR,
       WAERS LIKE BSID-WAERS,
       NEBTR LIKE BSEG-NEBTR,
       WAERK1 LIKE VBRK-WAERK,
       VGBEL LIKE VBRP-VGBEL,
       BSTKD LIKE VBKD-BSTKD,
       BSTDK LIKE VBKD-BSTDK,
          tdack LIKE tline-tdline,
          tdprno LIKE tline-tdline,
          tdprdt LIKE tline-tdline,
          tdcrno LIKE tline-tdline,
          tdcrva LIKE tline-tdline,
       TPRNCP LIKE tline-tdline,
       TPRNIN LIKE tline-tdline,
       CUSTCODE LIKE VBRK-KUNRG, "PAYER
      OUT TYPE P DECIMALS 2,
      OUTINR TYPE P DECIMALS 2,
       END OF ITAB.
DATA:   OUT1 TYPE P DECIMALS 2.
DATA:   wrbtr1 TYPE P DECIMALS 2.
DATA:   DMbtr1 TYPE P DECIMALS 2.
DATA:   D TYPE D.
DATA:  JTAB LIKE itab OCCURS 0 WITH HEADER LINE .
DATA:  PTAB LIKE itab OCCURS 0 WITH HEADER LINE .
DATA:  PATH LIKE RLGRAP-FILENAME,
        PATH_AND_FILE LIKE RLGRAP-FILENAME.
  DATA: BEGIN OF FLDNAMES OCCURS 0,
          FIELDNAME(10),
        END OF FLDNAMES.
FIELD-SYMBOLS <FN> LIKE ITAB.
TYPE-POOLS : SLIS .
DATA : GM_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA : GS_PRINT            TYPE SLIS_PRINT_ALV,
       GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
       GT_EVENTS           TYPE SLIS_T_EVENT.
DATA : g_variant LIKE disvariant,
       gx_variant LIKE disvariant.
DATA: gs_variant LIKE disvariant,
      g_save,
      g_exit.
DATA:
    ls_fieldcat TYPE slis_fieldcat_alv,
    lt_sort     TYPE slis_t_sortinfo_alv,
    ls_sort     TYPE slis_sortinfo_alv,
    ls_layout   TYPE slis_layout_alv.
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE T1 .
  SELECT-OPTIONS :  S_VBELN FOR VBAK-VBELN.
  SELECT-OPTIONS : S_VBELN1 FOR VBRK-VBELN .
SELECTION-SCREEN : END OF BLOCK B1.
SELECTION-SCREEN : BEGIN OF BLOCK B2 WITH FRAME TITLE T2 .
  SELECT-OPTIONS :  S_KUNNR FOR VBAK-KUNNR.
  SELECT-OPTIONS : S_KUNRG FOR VBRK-KUNRG .
SELECTION-SCREEN : END OF BLOCK B2.
SELECTION-SCREEN : BEGIN OF BLOCK B4 WITH FRAME TITLE T4.
SELECTION-SCREEN : BEGIN OF LINE,COMMENT 5(27) T5 FOR FIELD ZFOR_O.
  PARAMETERS ZFOR_O RADIOBUTTON GROUP RADI DEFAULT 'X'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN : BEGIN OF LINE,COMMENT 5(27) T6 FOR FIELD ZCUS_O.
  PARAMETERS ZCUS_O RADIOBUTTON GROUP RADI  .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN : END OF BLOCK B4.
data :   repname like sy-repid.
INITIALIZATION .
T1 = 'DOCUMENT DATA'.
T2 = 'CUSTOMER SELECTION'.
T4 = 'DOCUMENT TYPE'.
T5 = 'ZFOR'.
T6 = 'ZCUS'.
repname = sy-repid.
AT SELECTION-SCREEN .
START-OF-SELECTION .
PERFORM FETCH .
CLEAR ITAB.
MPART =  '000010'.
PERFORM GTEXT.
PERFORM read_crdt_no.
PERFORM read_crdt_val.
END-OF-SELECTION.
PERFORM PROCESS.
PERFORM DISPLAY.
*&      Form  FETCH
      text
-->  p1        text
<--  p2        text
form FETCH .
IF ZFOR_O = 'X'.
  TXT1 = 'ZFOR'.
ELSE.
  TXT1 = 'ZCUS'.
ENDIF.
ASSIGN ITAB TO <FN>.
TXT2 = 'NE'.
PERFORM GETDATA.
ASSIGN PTAB TO <FN>.
TXT2 = 'EQ'.
PERFORM GETDATA.
CLEAR ITAB.
CLEAR PTAB.
loop at itab.
loop at Ptab WHERE VBELN EQ ITAB-VBELN.
  DELETE PTAB.
endloop.
clear itab.
endloop.
APPEND LINES OF PTAB TO ITAB .
SORT itab BY VBELN  VBELN1 .
endform.                    " FETCH
*&      Form  GETDATA
      text
-->  p1        text
<--  p2        text
form GETDATA .
  SELECT VBELN VKBUR AUDAT KUNNR VKORG FROM VBAK INTO CORRESPONDING FIELDS
  OF <FN>
  WHERE VBELN IN S_VBELN AND AUDAT <= sy-datum AND
  KUNNR IN S_KUNNR and VKORG = '2000' AND AUART = TXT1.
  SELECT VBELN NETWR WAERK KURRF KUNRG FKDAT FROM VBRK INTO (<FN>-VBELN1,
  <FN>-NETWR, <FN>-WAERK, <FN>-KURRF, <FN>-KUNRG, <FN>-FKDAT) WHERE
  XBLNR = <FN>-VBELN AND VBELN IN S_VBELN1 AND KUNRG IN S_KUNRG .
  SELECT BSTKD BSTDK FROM VBKD INTO CORRESPONDING FIELDS OF <FN> WHERE
  VBELN = <FN>-VBELN .
  SELECT single VGBEL FROM VBRP INTO <FN>-vgbel WHERE
  VBELN = <FN>-VBELN1 .
  SELECT LIFEX VBELN FROM LIKP INTO (<FN>-LIFEX, <FN>-EXTDEL) WHERE
  VBELN = <FN>-VGBEL.
    LIFEX3 = <FN>-LIFEX.
      split lifex3 at DELI into <FN>-TPRNCP <FN>-TPRNIN.
  SELECT single NAME1 FROM KNA1 INTO CORRESPONDING FIELDS OF <FN> WHERE
  KUNNR = <FN>-KUNNR .
  SELECT single NAME1 FROM KNA1 INTO <FN>-NAME2 WHERE
  KUNNR = <FN>-KUNRG.
  IF TXT2 = 'NE'.
    SELECT WRBTR BLART BELNR DMBTR WAERS FROM BSID INTO CORRESPONDING FIELDS
    OF ITAB
    WHERE VBELN = ITAB-VBELN1 AND BLART <> 'RV'.
    APPEND ITAB.
    ENDSELECT.
  ENDIF.
  IF TXT2 = 'EQ'.
    SELECT WRBTR BLART BELNR DMBTR WAERS FROM BSID INTO CORRESPONDING FIELDS
    OF PTAB
    WHERE VBELN = PTAB-VBELN1 AND BLART <> 'RV'  .
    ptab-wrbtr = 0 .
    ptab-dmbtr = 0 .
    APPEND PTAB.
    ENDSELECT.
  ENDIF.
  CLEAR <FN>-TPRNCP.
  CLEAR <FN>-TPRNIN.
  LIFEX3 = ''.
  ENDSELECT.
  ENDSELECT.
  ENDSELECT.
  ENDSELECT.
endform.                    " GETDATA
*&      Form  PROCESS
      text
-->  p1        text
<--  p2        text
form PROCESS .
SORT ITAB BY  VKBUR VBELN VBELN1 BELNR .
OUT1 = 0.
wrbtr1 = 0.
DMbtr1 = 0.
CLEAR ITAB.
jtab[] = itab[].
LOOP AT ITAB .
LOOP AT JTAB .
IF ITAB-VBELN1 = JTAB-VBELN1.
OUT1   = OUT1 + JTAB-WRBTR .
WRBTR1 = WRBTR1 + JTAB-WRBTR .
DMBTR1 = DMBTR1 + JTAB-DMBTR.
ENDIF.
ENDLOOP.
ITAB-WRBTR = WRBTR1 .
ITAB-DMBTR = DMBTR1 .
   IF OUT1 = '0'.
   ITAB-OUT = ITAB-NETWR.
ELSE.
    ITAB-OUT = ITAB-NETWR - OUT1.
ENDIF.
  IF ITAB-WAERS <> ITAB-WAERK.
   ITAB-NETWR1 = ITAB-NETWR * ITAB-KURRF.
   ITAB-OUT = ITAB-NETWR1 - ITAB-DMBTR.
   ITAB-OUTINR = ITAB-OUT.
   ITAB-WAERK1 = 'INR'.
  ELSE.
   ITAB-NETWR1 = ITAB-NETWR.
   ITAB-OUT = ITAB-NETWR - ITAB-WRBTR.
   ITAB-WAERK1 = ITAB-WAERK.
   ITAB-OUTINR = ITAB-OUT.
  ENDIF.
  IF ITAB-WAERS <> 'INR'.
   ITAB-NETWR1  = ITAB-NETWR * ITAB-KURRF.
   ITAB-OUTINR = ITAB-OUT * ITAB-KURRF.
  ENDIF.
MODIFY ITAB.
OUT1 = 0.
WRBTR1 = 0.
DMBTR1 = 0.
ENDLOOP.
LOOP AT ITAB.
  IF ITAB-NETWR1 < ITAB-DMBTR.
   ITAB-OUT = '0'.
   ITAB-OUTINR = '0'.
  ENDIF.
MODIFY ITAB.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM ITAB COMPARING VBELN1.
endform.                    " PROCESS
*&      Form  DISPLAY
      text
-->  p1        text
<--  p2        text
form DISPLAY .
SORT ITAB BY  VKBUR VBELN VBELN1 .
PERFORM INIT_FIELDCAT USING GM_FIELDCAT[] .
PERFORM EVENTTAB_BUILD CHANGING GT_EVENTS.
PERFORM COMMENT_BUILD  CHANGING GT_LIST_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = repname
   is_layout   = ls_layout
I_STRUCTURE_NAME = 'ITAB'
   IT_FIELDCAT                       = GM_FIELDCAT[]
   it_sort     = lt_sort
    IT_EVENTS = GT_EVENTS[]
     IS_PRINT    = GS_PRINT
      I_DEFAULT                         = 'X'
   I_SAVE                            = 'A'
   IS_VARIANT                        = G_VARIANT
  TABLES
    t_outtab                          = ITAB
IF sy-subrc <> 0.
ENDIF.
endform.                    " DISPLAY
*&      Form  INIT_FIELDCAT
      text
     -->P_GM_FIELDCAT[]  text
form INIT_FIELDCAT USING E01_LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV .
  DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
CLEAR FLDNAMES.
CLEAR LS_FIELDCAT.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'VBELN'.
FLDNAMES-FIELDNAME    = 'VBELN'.
  LS_FIELDCAT-COL_POS      = 1.
  LS_FIELDCAT-KEY          = 'X'.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = ' S. O. No. '.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'AUDAT'.
FLDNAMES-FIELDNAME    = 'AUDAT'.
  LS_FIELDCAT-COL_POS      = 2.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'DOC DATE'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'KUNNR'.
FLDNAMES-FIELDNAME    = 'KUNNR'.
  LS_FIELDCAT-COL_POS      = 3.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'SOLD-TO-PARTY'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'NAME1'.
FLDNAMES-FIELDNAME    = 'NAME1'.
  LS_FIELDCAT-COL_POS      = 4.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'NAME OF SOLD-TO-PARTY'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'BSTKD'.
FLDNAMES-FIELDNAME    = 'BSTKD'.
  LS_FIELDCAT-COL_POS      = 5.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'P.O. NO'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'BSTDK'.
FLDNAMES-FIELDNAME    = 'BSTDK'.
  LS_FIELDCAT-COL_POS      = 6.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'P.O. DATE'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'TPRNCP'.
FLDNAMES-FIELDNAME    = 'TPRNCP'.
  LS_FIELDCAT-COL_POS      = 7.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'PRNCP ACK No'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'TPRNIN'.
FLDNAMES-FIELDNAME    = 'TPRNIN'.
  LS_FIELDCAT-COL_POS      = 8.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'PRNCP INV No'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'KUNRG'.
FLDNAMES-FIELDNAME    = 'KUNRG'.
  LS_FIELDCAT-COL_POS      = 9.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'PRINCIPAL'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'NAME2'.
FLDNAMES-FIELDNAME    = 'NAME2'.
  LS_FIELDCAT-COL_POS      = 10.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'PRINCIPAL NAME'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'VBELN1'.
FLDNAMES-FIELDNAME    = 'VBELN1'.
  LS_FIELDCAT-COL_POS      = 11.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'INVOICE No.'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'FKDAT'.
FLDNAMES-FIELDNAME    = 'FKDAT'.
  LS_FIELDCAT-COL_POS      = 12.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'INVOICE DATE'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'NETWR'.
FLDNAMES-FIELDNAME    = 'NETWR'.
  LS_FIELDCAT-COL_POS      = 13.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'INVOICE AMOUNT'.
  LS_FIELDCAT-datatype     = 'CURR'.
  LS_FIELDCAT-DO_SUM       = 'X'.
  LS_FIELDCAT-cfieldname     = 'WAERK'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'WAERK'.
FLDNAMES-FIELDNAME    = 'WAERK'.
  LS_FIELDCAT-COL_POS      = 14.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'INV CURR'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'KURRF'.
FLDNAMES-FIELDNAME    = 'KURRF'.
  LS_FIELDCAT-COL_POS      = 15.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'EX. RATE'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'NETWR1'.
FLDNAMES-FIELDNAME    = 'NETWR1'.
  LS_FIELDCAT-COL_POS      = 16.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'INV.AMT.IN INR'.
  LS_FIELDCAT-DO_SUM       = 'X'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
LS_FIELDCAT-TABNAME      = 'ITAB_VBMTV'.
  LS_FIELDCAT-FIELDNAME    = 'TDCRNO'.
  LS_FIELDCAT-COL_POS      = 17.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'CREDIT NOTE NO'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME      = 'ITAB_VBMTV'.
  LS_FIELDCAT-FIELDNAME    = 'TDCRVA'.
  LS_FIELDCAT-COL_POS      = 18.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'AMT OF CREDIT NOTE'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'WRBTR'.
FLDNAMES-FIELDNAME    = 'WRBTR'.
  LS_FIELDCAT-COL_POS      = 19.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'REC. AMOUNT'.
  LS_FIELDCAT-datatype     = 'CURR'.
  LS_FIELDCAT-DO_SUM       = 'X'.
  LS_FIELDCAT-cfieldname     = 'WAERS'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'WAERS'.
FLDNAMES-FIELDNAME    = 'WAERS'.
  LS_FIELDCAT-COL_POS      = 20.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'REC. AMOUNT CURR'.
  LS_FIELDCAT-DO_SUM       = 'X'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'DMBTR'.
FLDNAMES-FIELDNAME    = 'DMBTR'.
  LS_FIELDCAT-COL_POS      = 21.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'REC. AMT IN INR'.
  LS_FIELDCAT-DO_SUM       = 'X'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB'.
  LS_FIELDCAT-FIELDNAME    = 'OUT'.
FLDNAMES-FIELDNAME    = 'OUT'.
  LS_FIELDCAT-COL_POS      = 22.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'OUTSTANDING AMOUNT'.
  LS_FIELDCAT-datatype     = 'CURR'.
  LS_FIELDCAT-DO_SUM       = 'X'.
  LS_FIELDCAT-cfieldname     = 'WAERK1'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
*APPEND FLDNAMES.
*CLEAR FLDNAMES.
  LS_FIELDCAT-TABNAME      = 'ITAB_VBMTV'.
  LS_FIELDCAT-FIELDNAME    = 'WAERK1'.
  LS_FIELDCAT-COL_POS      = 23.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'OUT. CURR'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME      = 'ITAB_VBMTV'.
  LS_FIELDCAT-FIELDNAME    = 'OUTINR'.
  LS_FIELDCAT-COL_POS      = 24.
  LS_FIELDCAT-KEY          = ''.
  LS_FIELDCAT-KEY_SEL      = 'X'.
  LS_FIELDCAT-SELTEXT_L    = 'OUT IN INR'.
  LS_FIELDCAT-DO_SUM       = 'X'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT  .
  CLEAR LS_FIELDCAT.
  DEFINE m_sort.
   add 1 to ls_sort-spos.
   LS_SORT-TABNAME = 'ITAB'.
    ls_sort-fieldname = &1.
    ls_sort-up        = 'X'.
    ls_sort-subtot    = &2.
    append ls_sort to lt_sort.
  END-OF-DEFINITION.
  m_sort 'VBELN' 'X'.                  " Sort by vkorg and subtotal
  ls_layout-cell_merge = 'X'.
endform.                    " INIT_FIELDCAT
*&      Form  BUILD_COMMENT
      text
     -->P_HEADING[]  text
form BUILD_COMMENT  using p_heading TYPE SLIS_T_LISTHEADER.
DATA: HLINE TYPE SLIS_LISTHEADER,
        TEXT(60) TYPE C,
        SEP(20) TYPE C.
  CLEAR: HLINE, TEXT.
  HLINE-TYP  = 'H'.
  WRITE: TEXT-101 TO TEXT+23.
  HLINE-INFO = TEXT.
  APPEND HLINE TO P_HEADING.
  CLEAR TEXT.
  WRITE: 'User: ' TO TEXT,
         SY-UNAME TO TEXT+6,
         'Date: ' TO TEXT+25,
         SY-DATUM TO TEXT+31,
         'Page: ' TO TEXT+50,
         SY-PAGNO TO TEXT+56.
  HLINE-INFO = TEXT.
  APPEND HLINE TO P_HEADING.
endform.                    " BUILD_COMMENT
*&      Form  EVENTTAB_BUILD
      text
     <--P_GT_EVENTS  text
form EVENTTAB_BUILD  changing LT_EVENTS TYPE SLIS_T_EVENT.
CONSTANTS:
GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
  DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE = 0
       IMPORTING
            ET_EVENTS   = LT_EVENTS.
  READ TABLE LT_EVENTS WITH KEY NAME =  SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
  IF SY-SUBRC = 0.
    MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO LT_EVENTS.
  ENDIF.
ENDFORM.                    " EVENTTAB_BUILD
*&      Form  COMMENT_BUILD
      text
     <--P_GT_LIST_TOP_OF_PAGE  text
form COMMENT_BUILD  changing GT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
  DATA: GS_LINE TYPE SLIS_LISTHEADER.
  CLEAR GS_LINE.
  GS_LINE-TYP  = 'S'.
  IF ZFOR_O = 'X'.
  GS_LINE-INFO = 'OUTSTANDING IN ZFOR'.
  ELSEIF ZCUS_O = 'X'.
  GS_LINE-INFO = 'OUTSTANDING IN ZCUS'.
  ENDIF.
  APPEND GS_LINE TO GT_TOP_OF_PAGE.
  CLEAR GS_LINE.
endform.                    " COMMENT_BUILD
FORM TOP_OF_PAGE.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
  WRITE: SY-DATUM, 'Page No', SY-PAGNO LEFT-JUSTIFIED.
ENDFORM.
FORM END_OF_PAGE.
  WRITE at (sy-linsz) sy-pagno CENTERED.
ENDFORM.
*&      Form  read_princ_no
      text
-->  p1        text
<--  p2        text
form read_crdt_no .
  s_tdid = 'ZCRN'.
  s_tdobject = 'VBBK'.
  LOOP AT itab.
    t_aubel = itab-vbeln1.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
  CLIENT                        = SY-MANDT
        id                            = s_tdid
        language                      = sy-langu
        name                          = t_aubel
        object                        = s_tdobject
  ARCHIVE_HANDLE                = 0
  LOCAL_CAT                     = ' '
IMPORTING
  HEADER                        =
      TABLES
        lines                         = zline
     EXCEPTIONS
       id                            = 1
       language                      = 2
       name                          = 3
       not_found                     = 4
       object                        = 5
       reference_check               = 6
       wrong_access_to_archive       = 7
       OTHERS                        = 8.
    IF NOT zline[] IS INITIAL.
      READ TABLE zline INDEX 1.
      itab-tdcrno = zline-tdline.
      CLEAR zline.
      REFRESH zline.
      MODIFY itab.
      CLEAR ITAB.
    ENDIF.
  ENDLOOP.
endform.                    " read_princ_no
form read_crdt_val .
  s_tdid = 'ZCRV'.
  s_tdobject = 'VBBK'.
  LOOP AT itab.
    t_aubel = itab-vbeln1.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
  CLIENT                        = SY-MANDT
        id                            = s_tdid
        language                      = sy-langu
        name                          = t_aubel
        object                        = s_tdobject
  ARCHIVE_HANDLE                = 0
  LOCAL_CAT                     = ' '
IMPORTING
  HEADER                        =
      TABLES
        lines                         = zline
     EXCEPTIONS
       id                            = 1
       language                      = 2
       name                          = 3
       not_found                     = 4
       object                        = 5
       reference_check               = 6
       wrong_access_to_archive       = 7
       OTHERS                        = 8.
    IF NOT zline[] IS INITIAL.
      READ TABLE zline INDEX 1.
      itab-tdcrva = zline-tdline.
      CLEAR zline.
      REFRESH zline.
      MODIFY itab.
      CLEAR ITAB.
    ENDIF.
  ENDLOOP.
endform.                    " read_crdt_val
*&      Form  GTEXT
      text
-->  p1        text
<--  p2        text
form GTEXT .
LOOP AT ITAB.
    CONCATENATE ITAB-EXTDEL MPART INTO T_AUBEL.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
      CLIENT                        = SY-MANDT
        id                            = 'ZPIN'        "S_TDID
        language                      = SY-LANGU
        name                          = T_AUBEL
        object                        = 'VBBP'        "S_TDOBJECT
      ARCHIVE_HANDLE                = 0
      LOCAL_CAT                     = ' '
    IMPORTING
      HEADER                        =
      tables
        lines                         = ZLINE
     EXCEPTIONS
       ID                            = 1
       LANGUAGE                      = 2
       NAME                          = 3
       NOT_FOUND                     = 4
       OBJECT                        = 5
       REFERENCE_CHECK               = 6
       WRONG_ACCESS_TO_ARCHIVE       = 7
       OTHERS                        = 8.
    IF NOT ZLINE[] IS INITIAL.
      READ TABLE ZLINE INDEX 1.
      ITAB-TPRNIN = ZLINE-TDLINE.
      CLEAR zline.
      REFRESH zline.
      MODIFY itab.
      CLEAR ITAB.
    ENDIF.
  ENDLOOP.
endform.                    " GTEXT