PDS Attachment Opening Error in ECC6

Question

Hello,
           We are having problem with below report sending PDF Email Attachment.I'm able to send emails, but the PDF file wont open. I'm getting a message "Adobe reader could not attachement the file has been damaged".This report works in our old version 4.6c but we just upgrade to ecc6.  Please Please  help.
Thanks,
Jose
REPORT zrfi_customer_statement_new
                  NO STANDARD PAGE HEADING
                  MESSAGE-ID zm_load
                  LINE-SIZE  325
                  LINE-COUNT 65(3).
Tables                                                               *
TABLES:
  bsid,  bsad, knb1,    kna1,  knkk,  t001,  t014,   t179t,
  t052,   fplt,   vbap,   veda,  vbrk,     vbpa,  vbkd,   knvk,
  cepct, tvzbt, vbak,   bsik,   tsp01,   usr21,adr6, tsp03l.
Internal tables                                                      *
DATA: i_bsid LIKE bsid OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF i_bukrs OCCURS 0,
      bukrs LIKE bsid-bukrs,
      waers LIKE bsid-waers,
      END OF i_bukrs.
DATA:
  BEGIN OF i_temp_data OCCURS 0,
    bukrs LIKE bsid-bukrs,      " Company code
    kunnr LIKE bsid-kunnr,      " Customer
    belnr LIKE bsid-belnr,      " Invoice
    gjahr LIKE bsid-gjahr,      " Fiscal year
    waers LIKE bsid-waers,      " Currency
    rebzg LIKE bsid-rebzg,
    bldat LIKE bsid-bldat,      " Posting date
    shkzg LIKE bsid-shkzg,      " Debit/Credit
    zfbdt LIKE bsid-zfbdt,      " Baseline date
    zterm LIKE bsid-zterm,      " Terms of payment key
    dmbtr LIKE bsid-dmbtr,      " company currency
    dmbe2 LIKE bsid-dmbe2,      " Amount in Group    Currency
    days  LIKE rfposxext-verzn, " No of Arrear Days
    kidno LIKE bsid-kidno,      " Payment reference number
    kunnr_c  LIKE  vbak-kunnr,  " Partner Number
    name_c(50),                 " Partner Last name
    matnr      LIKE  vbap-matnr,  " Material no
   arktx      LIKE  vbap-arktx,  " material description
    vbeln      LIKE  vbap-vbeln,  " Contract/Order no
    inv_date   LIKE  vbrk-fkdat,
    xblnr      LIKE  bsid-xblnr,
   xblnr      LIKE  bsid-zuonr,
    vtext      LIKE  vbap-arktx,  "material description
    sgtxt      LIKE  bsid-sgtxt,
    plant      LIKE t001w-name1,
    zzihrez_e  LIKE vbap-zzihrez_e,
    vvtext     LIKE tvzbt-vtext,
    blart      LIKE  bsid-blart,
    zuonr      LIKE bsid-zuonr,
    END OF i_temp_data.
DATA:
  BEGIN OF itab  OCCURS 0,
    kunnr      LIKE  bsid-kunnr,  " Customer
    bukrs      LIKE  bsid-bukrs,  " Company code
    kunnr_c    LIKE  vbak-kunnr,  " Partner Number
    name_c(50),                   " Partner Last name
    matnr      LIKE  vbap-matnr,  " Material no
    kidno      LIKE  bseg-kidno,  " Payment reference
    name1      LIKE  kna1-name1,  " Customer name
    belnr      LIKE  bsid-belnr,  " Invoice
    waers      LIKE  bsid-waers,  " Currency ( Document )
    gjahr      LIKE  bsid-gjahr,  " Fiscal year
    zfbdt      LIKE  bsid-zfbdt,  " Baseline date
    zterm      LIKE  bsid-zterm,  " Terms of payment key
    amt00_30   TYPE netwr_ak,  " 000 - 030 Days
    amt31_60   TYPE netwr_ak,  " 031 - 060 Days
    amt61_90   TYPE netwr_ak,  " 061 - 090 Days
    amt91_120  TYPE netwr_ak,  " 090 - 120 Days
    amt120pls  TYPE netwr_ak,  " 120+      Days
    total      TYPE netwr_ak,  " Row Total
    inv_date   LIKE  vbrk-fkdat,
    rebzg      LIKE  bsid-rebzg,
    xblnr      LIKE  bsid-xblnr,
   xblnr      LIKE  bsid-zuonr,
    sgtxt      LIKE  bsid-sgtxt,
    days(5)  , " No of Arrear Days
    inv_chk    LIKE bsid-xblnr,   " invoice/check/wire transfer no
    vtext      LIKE  t179t-vtext,
    zzihrez_e  LIKE vbap-zzihrez_e,
    plant      LIKE t001w-name1,
    vvtext     LIKE tvzbt-vtext,
    bldat      LIKE bsid-bldat,
    blart      LIKE bsid-blart,
    zuonr      LIKE bsid-zuonr,
END OF  itab.
DATA: BEGIN OF i_final OCCURS 0,
    inv_chk    LIKE bsid-xblnr,   " invoice/check/wire transfer no
    bldat      LIKE bsid-bldat,
    xblnr      LIKE bsid-xblnr,
    inv_date   LIKE   vbrk-fkdat,
    name_c(50),                   " Partner Last name
    vtext      LIKE  t179t-vtext,
    zzihrez_e  LIKE vbap-zzihrez_e,
    plant      LIKE t001w-name1,
    vvtext     LIKE tvzbt-vtext,
    total      TYPE netwr_ak,  " Row Total
    days(5)  , " No of Arrear Days
    waers      LIKE  bsid-waers,
    blart      LIKE bsid-blart,
    zuonr      LIKE bsid-zuonr,
END OF i_final.
DATA: BEGIN OF i_last OCCURS 0,
    kunnr      LIKE vbak-kunnr,
    inv_chk    LIKE bsid-xblnr,   " invoice/check/wire transfer no
    bldat      LIKE bsid-bldat,
    xblnr      LIKE bsid-xblnr,
    inv_date   LIKE   vbrk-fkdat,
    name_c(50),                   " Partner Last name
    vtext      LIKE  t179t-vtext,
    zzihrez_e  LIKE vbap-zzihrez_e,
    plant      LIKE t001w-name1,
    vvtext     LIKE tvzbt-vtext,
    total      TYPE netwr_ak,  " Row Total
    days(5)  , " No of Arrear Days
    waers      LIKE  bsid-waers,
    blart      LIKE  bsid-blart,
    zuonr      LIKE bsid-zuonr,
    END OF i_last.
DATA: i_bsik LIKE bsik OCCURS 0 WITH HEADER LINE.
DATA: itab_temp LIKE itab OCCURS 100 WITH HEADER LINE.
DATA:
BEGIN OF itab_details  OCCURS 0,
  bukrs      LIKE  bsid-bukrs,  " Company code
  xblnr      LIKE  bsid-xblnr,
  gjahr      LIKE  bsid-gjahr,
  belnr      LIKE  bsid-belnr,
  kunnr      LIKE  bsid-kunnr,
END OF  itab_details.
DATA: BEGIN OF x_kna1 OCCURS 0,
        kunnr LIKE kna1-kunnr,
        name1 LIKE kna1-name1,
        name2 LIKE kna1-name2,
        ptext LIKE tpfkt-vtext,
        street LIKE adrc-street,
        ort01 LIKE kna1-ort01,
        regio LIKE kna1-regio,
        pstlz LIKE kna1-pstlz,
        landx LIKE t005t-landx,
        agdate LIKE sy-datum,    " aging date
      END OF x_kna1.
DATA: BEGIN OF i_total OCCURS 0,
       waers LIKE bsid-waers,
       00_30     TYPE netwr_ak,
       31_60     TYPE netwr_ak,
       61_90     TYPE netwr_ak,
       91_120    TYPE netwr_ak,
       120pls    TYPE netwr_ak,
       total     TYPE netwr_ak,
    END OF i_total.
DATA: i_ssfcrescl TYPE ssfcrescl.
DATA: i_otf_final TYPE itcoo OCCURS 0 WITH HEADER LINE.
DATA: i_ssfctrlop LIKE ssfctrlop OCCURS 0 WITH HEADER LINE.
DATA: v_itcpo LIKE  itcpo.
DATA: BEGIN OF itab_vender  OCCURS 0,
      vender LIKE kna1-kunnr,
      END OF itab_vender.
DATA: BEGIN OF ioutput OCCURS 0,
kunnr LIKE vbrk-kunrg,
kname(50),
email(50),
error(1),
END OF ioutput.
DATA: vv_text(90).
Structures                                                           *
DATA: x_item  LIKE  rfposxext.
DATA: x_t001 LIKE t001.
DATA: x_bsegp LIKE bsegp.
Variables                                                            *
DATA: v_count TYPE i.
DATA: v_dialog TYPE c VALUE 'X'.
DATA: v_name1 LIKE kna1-name1,
      v_name2 LIKE kna1-name2,
      v_print LIKE tsp03l-padest,
      v_formname(20),
      v_flag.
DATA: f_recap_report(1) TYPE c. " Flag for recap report
DATA:
  BEGIN OF x_amt,
    amt00_ls  LIKE  bsid-wrbtr,
    00_30     LIKE  bsid-wrbtr,
    31_60     LIKE  bsid-wrbtr,
    61_90     LIKE  bsid-wrbtr,
    91_120    LIKE  bsid-wrbtr,
    120pls    LIKE  bsid-wrbtr,
  END OF x_amt.
DATA: BEGIN OF itab_bill OCCURS 0,
       vbeln LIKE vbfa-vbeln,
       fplnr LIKE vbfa-fplnr,
       fpltr LIKE vbfa-fpltr,
       END OF itab_bill.
DATA:  v_sdate LIKE vbrk-fkdat,
       v_edate LIKE vbrk-fkdat,
       v_order(10) TYPE n.
DATA: v_eddate(10), v_stdate(10).
DATA: v_num TYPE i,
      v_stat,
     v_bill_prd(24),
      v_counter TYPE c.
DATA: v_matnr LIKE vbrp-matnr,
      v_arktx LIKE vbrp-arktx,
      v_vbeln LIKE vbrp-vbeln,
      v_vvtext LIKE t176t-vtext,
      v_posnr LIKE vbap-posnr,
      v_kunnr_c LIKE vbak-kunnr,
      v_name_c(50),
      v_inv_date LIKE vbrk-fkdat,
      v_vdatu LIKE vbak-vdatu,
      v_auart LIKE vbak-auart,
      v_prctr LIKE vbap-prctr,
      v_zzihrez LIKE vbap-zzihrez_e,
      v_plant LIKE t001w-name1,
      p_form   TYPE tdsfname,
      fm_name TYPE rs38l_fnam.
DATA: i_ssfcompop TYPE ssfcompop OCCURS 0." WITH HEADER LINE.
DATA: addr_no LIKE kna1-adrnr,
      last_name LIKE kna1-name1,
      first_name LIKE kna1-name1,
      pafkt LIKE knvk-pafkt,
      lang LIKE knvk-parla,
      v_land LIKE adrc-country,
      v_lines TYPE i.
DATA: v_tabix LIKE sy-tabix, v_gjahr LIKE bsid-gjahr,
      v_kunnr LIKE vbak-kunnr, v_prodh LIKE vbap-prodh,
      v_vtext LIKE t179t-vtext.
DATA:  spno LIKE tsp01-rqident,
       mi_bytecount TYPE i,
         mstr_print_parms LIKE pri_params,
         downfile(128) VALUE 'c:\customer.pdf',
         mtab_pdf    LIKE tline OCCURS 0 WITH HEADER LINE.
DATA: packing_list  TYPE TABLE OF sopcklsti1 WITH HEADER LINE,
      contents_txt  TYPE TABLE OF solisti1   WITH HEADER LINE,
      v_email LIKE adr6-smtp_addr,
      v_returncode,
      contents_hex  TYPE TABLE OF solix,"  WITH HEADER LINE,
      w_contents_hex TYPE solix  ,
      receivers     TYPE TABLE OF somlreci1  WITH HEADER LINE.
DATA: att_pos TYPE i.
DATA: document_data LIKE sodocchgi1.
DATA: esubject      LIKE sood1-objdes.            "subject line
DATA: emsgs     TYPE TABLE OF solisti1 WITH HEADER LINE.
DATA: pdf       TYPE TABLE OF tline    WITH HEADER LINE.
DATA: BEGIN OF itext OCCURS 200,
        text(132),
      END OF itext.
DATA: i_fields LIKE sval OCCURS 0 WITH HEADER LINE.
DATA: v_ccemail LIKE adr6-smtp_addr,
      v_check,
      v_kname(50).
DATA: otf_data1 LIKE itcoo OCCURS 0 WITH HEADER LINE,
      i_itcpp LIKE itcpp.
*FIELD-GROUPS: HEADER, ...
FIELD-GROUPS: header,
              details.
Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK a10 WITH FRAME TITLE text-sa1.
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-sa1.
PARAMETERS     : p_ex_ic AS CHECKBOX DEFAULT 'X'.           "R3DK906903
SELECTION-SCREEN END OF BLOCK a1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-s01.
SELECT-OPTIONS : s_kunnr  FOR  bsid-kunnr,
                 s_bukrs  FOR  t001-bukrs  OBLIGATORY.
PARAMETERS     : p_bdate  LIKE sy-datum    OBLIGATORY.
PARAMETERS: p_vender AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-s11.
PARAMETERS : r_group  RADIOBUTTON GROUP r1,
             r_comp   RADIOBUTTON GROUP r1.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-s13.
PARAMETERS: p_print LIKE tsp03l-lname   MATCHCODE OBJECT  prin
OBLIGATORY DEFAULT 'locl'.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-s14.
PARAMETERS: v_immed AS CHECKBOX DEFAULT 'X',
            v_dele  AS CHECKBOX DEFAULT 'X',
            ch_email AS CHECKBOX.
*PARAMETERS:ch_down AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b4.
SELECTION-SCREEN END OF BLOCK a10.
AT SELECTION-SCREEN.
Selection Screen Validation.
  PERFORM validate_selection_screen.
INITIALIZATION.
INITIALIZATION.
  IF sy-sysid NE 'R3P'.
    v_email = .
  ENDIF.
START-OF-SELECTION.
START-OF-SELECTION.
  IF p_vender = 'X'.
Fetch data from BSIK .
    PERFORM fetch_data_vender.
Get Arrear Days
    PERFORM get_arrear_days_vender.
  ENDIF.
Fetch data from BSID and BSAD.
  PERFORM fetch_data_from_bsid.
Get Arrear Days
  PERFORM get_arrear_days.
Format Data as per selection.
  PERFORM format_final_data.
Print sapscript
  SORT i_last BY kunnr days DESCENDING.
  LOOP AT i_last.
    AT NEW kunnr.
      CLEAR: i_final, x_kna1.
      REFRESH: i_final, x_kna1.
      PERFORM get_address.
      PERFORM get_total.
    ENDAT.
    MOVE-CORRESPONDING i_last TO i_final.
    i_final-xblnr = i_final-zuonr.
    APPEND i_final.
    CLEAR i_final.
    AT END OF kunnr.
      SORT i_final BY days DESCENDING  inv_chk total DESCENDING.
      PERFORM smart_from.
    ENDAT.
  ENDLOOP.
END-OF-SELECTION.
END-OF-SELECTION.
*&      Form  FETCH_DATA_FROM_BSID
      text
FORM fetch_data_from_bsid.
fetch data from BSID into Internal table I_BSID.
  SELECT *
    FROM bsid
    INTO TABLE i_bsid
    WHERE bukrs IN s_bukrs AND
          kunnr IN s_kunnr  AND
          budat LE p_bdate ."AND
        BELNR in ('0090000231','1400000131').
Fetch data from BSAD into Internal table I_BSID.
  SELECT *
    FROM bsad               
    APPENDING TABLE i_bsid
    WHERE bukrs IN s_bukrs AND
          kunnr IN s_kunnr  AND
          budat LE p_bdate  AND
          augdt GT p_bdate." AND
  DELETE i_bsid WHERE ( bukrs = '1500'  OR bukrs = '3000' OR
                        bukrs = '1400' ) AND
                     ( umsks = 'E' OR umskz = 'E' ).
*Exclude intercompany customers
  IF p_ex_ic = 'X'.
    DELETE i_bsid WHERE kunnr+0(2) EQ 'IC'.
  ENDIF.
  CLEAR sy-tfill.
  DESCRIBE TABLE i_bsid LINES sy-tfill.
  IF sy-tfill = 0.
    MESSAGE i999 WITH ' No data selected for the selection Condition'.
    STOP.
  ENDIF.
ENDFORM.                    " FETCH_DATA_FROM_BSID
*&      Form  Get_Arrear_Days
      text
FORM get_arrear_days.
  SORT i_bsid BY  bukrs belnr.
  LOOP AT i_bsid.
for company code 1500 and 3000
    IF i_bsid-bukrs EQ '1500' OR i_bsid-bukrs EQ  '3000'.
      MOVE i_bsid-xblnr TO i_bsid-belnr.
    ENDIF.
    MOVE i_bsid-bukrs TO itab_details-bukrs.
    MOVE i_bsid-xblnr TO itab_details-xblnr.
    MOVE i_bsid-belnr TO itab_details-belnr.
    MOVE i_bsid-gjahr TO itab_details-gjahr.
    MOVE i_bsid-kunnr TO itab_details-kunnr.
    APPEND itab_details.
    CLEAR itab_details.
    CLEAR x_item.
    AT NEW bukrs.
      READ TABLE i_bsid INDEX sy-tabix.
      CLEAR x_t001.
      SELECT SINGLE * FROM t001
      INTO x_t001
      WHERE bukrs = i_bsid-bukrs.
    ENDAT.
for company code 1500 and 3000  .
    IF i_bsid-bukrs EQ '1500' OR i_bsid-bukrs EQ  '3000'.
      MOVE i_bsid-xblnr TO i_bsid-belnr.
    ENDIF.
    MOVE-CORRESPONDING i_bsid TO x_item.
    x_item-koart = 'D'.          " Debitor - Customer Indicator
    x_item-konto = bsid-kunnr.   " Debitor - Customer Number
    x_item-dmshb = bsid-dmbtr.
    x_item-wrshb = bsid-wrbtr.
Function module to get ARREAR  days.
    CALL FUNCTION 'ITEM_DERIVE_FIELDS'
      EXPORTING
        s_t001    = x_t001
        s_bsegp   = x_bsegp
        key_date  = p_bdate
      CHANGING
        s_item    = x_item
      EXCEPTIONS
        bad_input = 1
        OTHERS    = 2.
    IF sy-subrc =  0.
Populate I_TEMP_DATA for further processing.
      i_temp_data-bukrs   =  i_bsid-bukrs.
      i_temp_data-kunnr   =  i_bsid-kunnr.
      i_temp_data-belnr   =  i_bsid-belnr.
      i_temp_data-bldat   =  i_bsid-bldat.
      i_temp_data-shkzg   =  i_bsid-shkzg.
      i_temp_data-zfbdt   =  i_bsid-zfbdt.
      i_temp_data-zterm   =  i_bsid-zterm.
      i_temp_data-vbeln   =  i_bsid-vbeln.
      i_temp_data-waers   =  i_bsid-waers.
      IF x_item-verzn < 0.
        x_item-verzn = 0.
      ENDIF.
      i_temp_data-zuonr   = i_bsid-zuonr.
      i_temp_data-days    =  x_item-verzn.
      i_temp_data-gjahr   =  i_bsid-gjahr.
      i_temp_data-kidno   =  i_bsid-kidno.
      i_temp_data-rebzg   =  i_bsid-rebzg.
      i_temp_data-xblnr   =  i_bsid-xblnr.
      i_temp_data-sgtxt   =  i_bsid-sgtxt.
Changing the Sign
      IF i_bsid-shkzg = 'H'.
        i_temp_data-dmbe2   = i_temp_data-dmbe2 + ( -1 * i_bsid-dmbe2 ).
        i_temp_data-dmbtr   = i_temp_data-dmbtr + ( -1 * i_bsid-dmbtr ).
      ELSE.
        i_temp_data-dmbe2   =  i_temp_data-dmbe2 +  i_bsid-dmbe2.
        i_temp_data-dmbtr   =  i_temp_data-dmbtr + i_bsid-dmbtr.
      ENDIF.
      i_temp_data-blart = i_bsid-blart.
*for doc type DR
      IF  i_bsid-blart = 'DR' AND i_bsid-bschl = '01'.
        IF i_bsid-sgtxt IS INITIAL.
*Changed our phone number to
          MOVE 'Contact Flightsafety' TO i_temp_data-vtext.
        ELSE.
          MOVE i_bsid-sgtxt TO i_temp_data-vtext.
          MOVE 'Financial Invoice' TO i_temp_data-vvtext.
        ENDIF.
      ENDIF.
*for doc type AB
      IF  i_bsid-blart = 'AB' AND
      ( i_bsid-bschl GE '01' AND i_bsid-bschl LE '19' ).
        i_temp_data-bldat = i_bsid-zfbdt.
        i_temp_data-xblnr = i_bsid-vbeln.
        IF NOT i_bsid-sgtxt IS INITIAL.
*Changed our phone nuber to
         MOVE 'Contact Flightsafety' TO i_temp_data-vtext.
          MOVE i_bsid-sgtxt TO i_temp_data-vtext.
          MOVE 'Financial Doc' TO i_temp_data-vvtext.
        ELSE.
         MOVE i_bsid-sgtxt TO i_temp_data-vtext.
          MOVE 'Financial Doc' TO i_temp_data-vvtext.
        ENDIF.
      ENDIF.
*for doc type DG
      IF  i_bsid-blart = 'DG' AND
      ( i_bsid-bschl GE '01' AND i_bsid-bschl LE '19' ).
        i_temp_data-bldat = i_bsid-zfbdt.
        i_temp_data-xblnr = i_bsid-vbeln.
        IF i_bsid-sgtxt IS INITIAL.
*Changed our phone nuber to
          MOVE 'Contact Flightsafety' TO i_temp_data-vtext.
        ELSE.
          MOVE i_bsid-sgtxt TO i_temp_data-vtext.
         MOVE 'Financial Doc' TO i_temp_data-vvtext.
        ENDIF.
      ENDIF.
*To display Debit memo and credit memo.
      IF  i_bsid-blart = 'DG'.
        IF ( i_bsid-bschl GE '11' AND i_bsid-bschl LE '19' ).
          MOVE 'Credit Memo' TO i_temp_data-vvtext.
        ELSEIF ( i_bsid-bschl GE '01' AND i_bsid-bschl LE '09' ).
          MOVE 'Debit Memo' TO i_temp_data-vvtext.
        ENDIF.
      ENDIF.
*for doc type DZ
      IF  i_bsid-blart = 'DZ' AND
      ( i_bsid-bschl GE '01' AND i_bsid-bschl LE '19' ).
        IF i_bsid-sgtxt IS INITIAL.
*changed our phone number to
          MOVE 'Contact Flightsafety' TO i_temp_data-vtext.
        ELSE.
          MOVE i_bsid-sgtxt TO i_temp_data-vtext.
          MOVE 'Cust Pmt' TO i_temp_data-vvtext.
        ENDIF.
      ENDIF.
*Document type DZ and posting key 15
      IF  i_bsid-blart = 'DZ' AND
            i_bsid-bschl EQ '15'.
        MOVE 'Cust Pmt' TO i_temp_data-vvtext.
      ENDIF.
*Document type DZ and posting key 06.
      IF  i_bsid-blart = 'DZ' AND
             i_bsid-bschl EQ '06'.
        MOVE 'Debit' TO i_temp_data-vvtext.
      ENDIF.
*Document type DA and posting key 04, 14.
      IF  i_bsid-blart = 'DA' AND
            i_bsid-bschl EQ '04' OR
            i_bsid-bschl EQ '14'.
        MOVE 'Cust Pmt' TO i_temp_data-vvtext.
        MOVE i_bsid-sgtxt TO i_temp_data-vtext.
        IF i_bsid-sgtxt IS INITIAL.
          MOVE 'Contact Flightsafety' TO i_temp_data-vtext.
        ENDIF.
      ENDIF.
    ENDIF.
*billing period
    IF i_bsid-blart = 'RV' AND i_bsid-bschl = '01'.
      PERFORM billing_period USING i_temp_data-belnr
                                   i_temp_data-vbeln.
    ENDIF.
    AT END OF belnr.
   at end of zuonr.
      APPEND i_temp_data.
      CLEAR  i_temp_data.
    ENDAT.
  ENDLOOP.
  PERFORM material_details.
ENDFORM.                    " Get_Arrear_Days
*&      Form  FORMAT_FINAL_DATA
      text
FORM format_final_data.
  PERFORM pop_format_grp_curr_detail.
  CLEAR:   itab_temp, i_total.
  REFRESH: itab_temp, i_total.
  itab_temp[] = itab[].
  CLEAR   itab.
  REFRESH itab.
  LOOP AT itab_temp.
    CLEAR itab.
    itab = itab_temp.
    CLEAR: itab-matnr.
    IF itab-belnr+0(2) = '14'.
*Adding two 00 for the left alignment.
      CONCATENATE '00' itab-xblnr
                  INTO itab-inv_chk.
      CONDENSE itab-inv_chk NO-GAPS.
     itab-inv_chk = itab-xblnr.
      itab-xblnr   = itab-belnr.
    ELSE.
      itab-inv_chk = itab-belnr.
    ENDIF.
    COLLECT itab.
  ENDLOOP.
  CLEAR v_stat.
  SORT itab BY days inv_chk total DESCENDING.
  LOOP AT itab.
*To display Aging totals in usd (if v_stat ne f) for
*company code 1100,1300,2000.
    IF itab-bukrs NE '1100' AND
       itab-bukrs NE '1300' AND
       itab-bukrs NE '2000'.
      v_stat = 'F'.
    ENDIF.
    CLEAR: i_last-vvtext, tvzbt.
    MOVE-CORRESPONDING itab TO i_last.
    APPEND i_last.
    CLEAR i_last.
  ENDLOOP.
ENDFORM.                    " FORMAT_FINAL_DATA
*&      Form  POP_FORMAT_grp_CURR_DETAIL
      text
FORM pop_format_grp_curr_detail.
Populating the Final Internal table for report by Group Currency.
  CLEAR x_amt.
  SORT  i_temp_data.
  LOOP AT i_temp_data.
    CLEAR: v_count.
    IF  i_temp_data-sgtxt+0(10) = 'Spcfy in p'.
         i_temp_data-sgtxt =  i_temp_data-sgtxt+32(18).
      MOVE i_temp_data-sgtxt TO i_temp_data-vtext.
      MODIFY i_temp_data.
    ENDIF.
IF r_comp = 'X'.
      IF         i_temp_data-days  LT 0.
        x_amt-amt00_ls = x_amt-amt00_ls + i_temp_data-dmbtr.
If between 1 and 30 Days.
      ELSEIF     i_temp_data-days GE 0  AND i_temp_data-days LE 30.
        x_amt-00_30  =  x_amt-00_30 + i_temp_data-dmbtr.
If between 31 and 60 Days.
      ELSEIF i_temp_data-days GE 31 AND i_temp_data-days LE 60.
        x_amt-31_60  =  x_amt-31_60 + i_temp_data-dmbtr.
if between 61 and  90
      ELSEIF i_temp_data-days GE 61 AND i_temp_data-days LE 90.
        x_amt-61_90  =  x_amt-61_90 + i_temp_data-dmbtr.
if between 91 and  120
      ELSEIF i_temp_data-days GE 91 AND i_temp_data-days LE 120.
        x_amt-91_120  =  x_amt-91_120 + i_temp_data-dmbtr.
if >  120
      ELSEIF                       i_temp_data-days GT 120.
        x_amt-120pls  =  x_amt-120pls + i_temp_data-dmbtr.
      ENDIF.
    ELSE.
if the group currency is selected
      IF         i_temp_data-days  LT 0.
        x_amt-amt00_ls = x_amt-amt00_ls + i_temp_data-dmbe2.
If between 1 and 30 Days.
      ELSEIF     i_temp_data-days GE 0  AND i_temp_data-days LE 30.
        x_amt-00_30  =  x_amt-00_30 + i_temp_data-dmbe2.
If between 31 and 60 Days.
      ELSEIF i_temp_data-days GE 31 AND i_temp_data-days LE 60.
        x_amt-31_60  =  x_amt-31_60 + i_temp_data-dmbe2.
if between 61 and  90
      ELSEIF i_temp_data-days GE 61 AND i_temp_data-days LE 90.
        x_amt-61_90  =  x_amt-61_90 + i_temp_data-dmbe2.
if between 91 and  120
      ELSEIF i_temp_data-days GE 91 AND i_temp_data-days LE 120.
        x_amt-91_120  =  x_amt-91_120 + i_temp_data-dmbe2.
if >  120
      ELSEIF                       i_temp_data-days GT 120.
        x_amt-120pls  =  x_amt-120pls + i_temp_data-dmbe2.
      ENDIF.
    ENDIF.
Get Customer Name.
    SELECT SINGLE name1
      INTO itab-name1
      FROM  kna1
    WHERE  kunnr  =  i_temp_data-kunnr.
Invoice and year
    AT END OF rebzg.
      READ TABLE i_temp_data INDEX sy-tabix.
      itab-zuonr        = i_temp_data-zuonr.
      itab-bukrs        =   i_temp_data-bukrs.
      itab-kunnr        =   i_temp_data-kunnr.
      itab-belnr        =   i_temp_data-belnr.
      itab-gjahr        =   i_temp_data-gjahr.
      IF r_comp EQ 'X'.
        itab-waers        =   i_temp_data-waers.
      ELSE.
        itab-waers        =   'USD'.
      ENDIF.
      itab-zfbdt        =   i_temp_data-zfbdt.
      itab-zterm        =   i_temp_data-zterm.
      itab-amt00_30     =   x_amt-amt00_ls + x_amt-00_30.
      itab-amt31_60     =   x_amt-31_60.
      itab-amt61_90     =   x_amt-61_90.
      itab-amt91_120    =   x_amt-91_120.
      itab-amt120pls    =   x_amt-120pls.
      itab-total        =   x_amt-amt00_ls  +  x_amt-00_30  +
                            x_amt-31_60     +  x_amt-61_90  +
                            x_amt-91_120    +  x_amt-120pls.
      itab-kunnr_c      =   i_temp_data-kunnr_c.
      itab-name_c       =   i_temp_data-name_c.
      itab-kidno        =   i_temp_data-kidno.
      itab-matnr        =   i_temp_data-matnr.
      itab-inv_date     =   i_temp_data-inv_date.
      itab-rebzg        =   i_temp_data-rebzg.
      itab-xblnr        =   i_temp_data-xblnr.
      itab-vtext        =   i_temp_data-vtext.
      itab-sgtxt        =   i_temp_data-sgtxt.
      itab-days         =   i_temp_data-days.
      itab-bldat        =   i_temp_data-bldat.
      itab-vvtext       =   i_temp_data-vvtext.
      itab-zzihrez_e    =   i_temp_data-zzihrez_e.
      itab-blart        =   i_temp_data-blart.
      itab-plant        =   i_temp_data-plant.
Populating table.
      APPEND: itab.
      CLEAR : itab,
              x_amt.
      v_count = 1.
    ENDAT.
    IF v_count NE 1.
      itab-zuonr        = i_temp_data-zuonr.
      itab-bukrs        =   i_temp_data-bukrs.
      itab-kunnr        =   i_temp_data-kunnr.
      itab-belnr        =   i_temp_data-belnr.
      itab-gjahr        =   i_temp_data-gjahr.
      itab-bldat        =   i_temp_data-bldat.
      IF r_comp EQ 'X'.
        itab-waers        =   i_temp_data-waers.
      ELSE.
        itab-waers        =   'USD'.
      ENDIF.
      itab-zfbdt        =   i_temp_data-zfbdt.
      itab-zterm        =   i_temp_data-zterm.
      itab-kunnr_c      =   i_temp_data-kunnr_c.
      itab-name_c       =   i_temp_data-name_c.
      itab-kidno        =   i_temp_data-kidno.
      itab-matnr        =   i_temp_data-matnr.
      itab-inv_date     =   i_temp_data-inv_date.
      itab-rebzg        =   i_temp_data-rebzg.
      itab-xblnr        =   i_temp_data-xblnr.
      itab-vtext        =   i_temp_data-vtext.
      itab-sgtxt        =   i_temp_data-sgtxt.
      itab-days         =   i_temp_data-days.
      itab-zzihrez_e    =   i_temp_data-zzihrez_e.
      itab-plant        =   i_temp_data-plant.
      itab-vvtext       =   i_temp_data-vvtext.
      itab-blart        =   i_temp_data-blart.
      IF itab-matnr NE space.
        APPEND itab.
        CLEAR itab-plant.
      ELSE.
        ON CHANGE OF i_temp_data-kidno.
          READ TABLE i_temp_data INDEX sy-tabix.
          itab-zuonr        = i_temp_data-zuonr.
          itab-bukrs        =   i_temp_data-bukrs.
          itab-kunnr        =   i_temp_data-kunnr.
          itab-belnr        =   i_temp_data-belnr.
          itab-gjahr        =   i_temp_data-gjahr.
          itab-bldat        =   i_temp_data-bldat.
          IF r_comp EQ 'X'.
            itab-waers        =   i_temp_data-waers.
          ELSE.
            itab-waers        =   'USD'.
          ENDIF.
          itab-zfbdt        =   i_temp_data-zfbdt.
          itab-zterm        =   i_temp_data-zterm.
          itab-amt00_30     =   x_amt-amt00_ls + x_amt-00_30.
          itab-amt31_60     =   x_amt-31_60.
          itab-amt61_90     =   x_amt-61_90.
          itab-amt91_120    =   x_amt-91_120.
          itab-amt120pls    =   x_amt-120pls.
          itab-total        =   x_amt-amt00_ls  +  x_amt-00_30  +
                                x_amt-31_60     +  x_amt-61_90  +
                                x_amt-91_120    +  x_amt-120pls.
          itab-kunnr_c      =   i_temp_data-kunnr_c.
          itab-name_c       =   i_temp_data-name_c.
          itab-kidno        =   i_temp_data-kidno.
          itab-matnr        =   i_temp_data-matnr.
          itab-inv_date     =   i_temp_data-inv_date.
          itab-rebzg        =   i_temp_data-rebzg.
          itab-xblnr        =   i_temp_data-xblnr.
          itab-vtext        =   i_temp_data-vtext.
          itab-sgtxt        =   i_temp_data-sgtxt.
          itab-days         =   i_temp_data-days.
          itab-zzihrez_e    =   i_temp_data-zzihrez_e.
          itab-vvtext       =   i_temp_data-vvtext.
          itab-plant        =   i_temp_data-plant.
          APPEND itab.
          CLEAR: x_amt-amt00_ls, x_amt-00_30, x_amt-31_60,
                 x_amt-61_90,  x_amt-91_120 , x_amt-120pls.
        ENDON.
      ENDIF.
      CLEAR: itab.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " POP_FORMAT_grp_CURR_DETAIL
*&      Form  material_details
      text
-->  p1        text
<--  p2        text
FORM material_details.
  SORT itab_details.
  DELETE ADJACENT DUPLICATES FROM itab_details.
  LOOP AT itab_details.
    CLEAR: v_counter, v_gjahr, v_kunnr, v_prodh, v_vbeln,
    v_vvtext, v_vtext.
    v_gjahr = itab_details-gjahr.
    v_kunnr = itab_details-kunnr.
*Invoice Date/Billing date
    SELECT SINGLE fkdat FROM vbrk INTO v_inv_date
     WHERE vbeln = itab_details-xblnr.
*material number, description and product hierarchy
    SELECT matnr arktx prodh FROM vbrp
     INTO (v_matnr, v_arktx, v_prodh)
     WHERE vbeln = itab_details-xblnr AND
           uepos = '00000'.
      CLEAR: v_vdatu, v_posnr, v_auart, v_prctr, v_zzihrez,
             v_kunnr_c, v_name1, v_name2, v_vtext, v_vvtext.
*Find the contract/order no
      SELECT SINGLE vbelv posnv FROM vbfa INTO (v_vbeln, v_posnr)
           WHERE vbeln = itab_details-xblnr
           AND vbtyp_v IN ('C','G').
*delivery date, document type, plant and reservation no
      SELECT  SINGLE vbakvdatu vbakauart vbapprctr vbapzzihrez_e
          INTO (v_vdatu, v_auart, v_prctr, v_zzihrez)
          FROM vbak INNER JOIN vbap ON vbakvbeln = vbapvbeln
       WHERE vbap~vbeln = v_vbeln AND
             vbap~posnr = v_posnr AND
             vbap~abgru = space.
*billing type
      SELECT SINGLE * FROM vbkd WHERE vbeln = v_vbeln.
      IF vbkd-bsark NE 'ZG01' OR  vbkd-bsark NE 'ZO02'.
        SELECT SINGLE vtext FROM t176t INTO v_vvtext
               WHERE bsark = vbkd-bsark
               AND spras EQ sy-langu.
      ELSE.
        MOVE 'One Time' TO v_vvtext.
      ENDIF.
*getting only the reservation number (no text)
      IF vbkd-ihrez_e+0(11) CO
         '0123456789'.
      ELSE.
        v_zzihrez = space.
      ENDIF.
*location
      CONCATENATE '000000' v_zzihrez+0(4) INTO v_prctr.
*plant name
      CLEAR v_plant.
      SELECT SINGLE ktext FROM cepct INTO v_plant WHERE
      prctr = v_prctr AND
      spras = sy-langu.
*client no and name
      SELECT SINGLE vbpakunnr kna1name1 kna1~name2
           INTO (v_kunnr_c, v_name1, v_name2)
           FROM vbpa INNER JOIN kna1 ON
           vbpakunnr = kna1kunnr
        WHERE vbpa~vbeln = v_vbeln AND
              vbpa~parvw = 'Z3'.
      CONCATENATE v_name1 v_name2 INTO v_name_c
               SEPARATED BY space.
      READ TABLE i_temp_data WITH KEY bukrs = itab_details-bukrs
                                      belnr = itab_details-belnr
                                      gjahr = itab_details-gjahr.
      IF sy-subrc = 0.
        CLEAR: v_tabix.
        v_tabix = sy-tabix.
        IF  v_counter IS INITIAL.
          MOVE v_plant TO i_temp_data-plant.
          MOVE v_zzihrez TO i_temp_data-zzihrez_e.
          MOVE v_kunnr_c TO i_temp_data-kunnr_c.
          MOVE v_name_c TO  i_temp_data-name_c.
          MOVE v_gjahr TO i_temp_data-gjahr.
          MOVE v_kunnr TO i_temp_data-kunnr.
          IF v_auart EQ 'ZOTO' AND i_temp_data-inv_date IS INITIAL.
            MOVE v_inv_date TO i_temp_data-inv_date.
          ELSEIF i_temp_data-inv_date IS INITIAL.
            MOVE v_vdatu TO i_temp_data-inv_date.
          ENDIF.
          IF i_temp_data-vtext IS INITIAL.
            MOVE v_arktx TO i_temp_data-vtext.
          ENDIF.
          IF i_temp_data-vvtext IS INITIAL.
            MOVE v_vvtext TO i_temp_data-vvtext.
          ENDIF.
          MODIFY i_temp_data INDEX v_tabix.
          CLEAR i_temp_data.
          v_counter = 'T'.
          CLEAR: v_matnr,v_arktx,v_vbeln,v_name_c,v_vtext, v_prodh,
                 v_kunnr_c, v_name1,v_name2, v_vdatu, v_vvtext.
        ELSE.
         CLEAR:i_temp_data-dmbe2, i_temp_data-dmbtr. " i_temp_data-wrbtr
          MOVE v_matnr TO i_temp_data-matnr.
          MOVE v_plant TO i_temp_data-plant.
          MOVE v_zzihrez TO i_temp_data-zzihrez_e.
          MOVE v_kunnr_c TO i_temp_data-kunnr_c.
          MOVE v_name_c TO  i_temp_data-name_c.
          MOVE v_gjahr TO i_temp_data-gjahr.
          MOVE v_kunnr TO i_temp_data-kunnr.
          IF v_auart EQ 'ZOTO' AND i_temp_data-inv_date IS INITIAL.
            MOVE v_inv_date TO i_temp_data-inv_date.
          ELSEIF i_temp_data-inv_date IS INITIAL.
            MOVE v_vdatu TO i_temp_data-inv_date.
          ENDIF.
          MOVE v_arktx TO i_temp_data-vtext.
          APPEND i_temp_data.
          CLEAR i_temp_data.
        ENDIF.
      ENDIF.
    ENDSELECT.
    CLEAR:
    i_temp_data-kunnr_c,
    i_temp_data-name_c,i_temp_data-inv_date,
    i_temp_data-vtext.
    CLEAR: v_matnr,v_arktx,v_vbeln,v_name_c,
           v_kunnr_c, v_name1,v_name2,v_inv_date, v_vdatu,
           v_vtext, v_prodh.
  ENDLOOP.
ENDFORM.                    " material_details
*&      Form  get_address
      text
FORM get_address.
Get Address
  CLEAR: kna1, x_kna1, first_name, last_name,pafkt, lang, v_land.
  SELECT SINGLE * FROM kna1 INTO kna1 WHERE kunnr = i_last-kunnr.
  SELECT SINGLE name1 namev  pafkt parla FROM knvk
  INTO (last_name, first_name, pafkt, lang)
          WHERE kunnr = i_last-kunnr
          AND abtnr = '0003'. "financial department
  IF sy-subrc NE 0.
    SELECT SINGLE name1 namev  pafkt parla FROM knvk
    INTO (last_name, first_name, pafkt, lang)
            WHERE kunnr = i_last-kunnr.
  ENDIF.
  IF lang =  ' '.
    lang = 'E'.
  ENDIF.
  SELECT SINGLE vtext FROM tpfkt INTO x_kna1-ptext
         WHERE pafkt = pafkt
         AND spras = lang.
  SELECT SINGLE name1 name2  street  country FROM
     adrc   INTO (x_kna1-name1, x_kna1-name2,
     x_kna1-street, v_land)
  WHERE addrnumber = kna1-adrnr.
  SELECT SINGLE landx FROM t005t INTO x_kna1-landx WHERE land1 = v_land
                                                  AND spras = lang.
  TRANSLATE x_kna1-landx  TO UPPER CASE.  "#EC SYNTCHAR added by sony
  MOVE kna1-kunnr TO x_kna1-kunnr.
  MOVE kna1-ort01 TO x_kna1-ort01.
  MOVE kna1-regio TO x_kna1-regio.
  MOVE kna1-pstlz TO x_kna1-pstlz.
  MOVE p_bdate TO x_kna1-agdate.
  APPEND x_kna1.
  CLEAR: x_kna1.
ENDFORM.                    " get_addres
*&      Form  fetch_data_vender
      text
-->  p1        text
<--  p2        text
FORM fetch_data_vender.
  SELECT lifnr FROM kna1 INTO TABLE itab_vender
    WHERE kunnr IN s_kunnr.
  LOOP AT itab_vender.
Fetch data from BSIK into Internal table I_BSIK.
    SELECT *
      FROM bsik
      APPENDING TABLE i_bsik
      WHERE bukrs IN s_bukrs  AND
            lifnr EQ itab_vender-vender  AND
            budat LE p_bdate AND
            blart IN ('KA', 'KG', 'KR', 'KZ', 'KF').
Fetch data from BSAK into Internal table I_BSAK.
    SELECT *
      FROM bsak      "#EC ENHOK "added by sony 06/05/08
      APPENDING TABLE i_bsik
      WHERE bukrs IN s_bukrs  AND
            lifnr EQ itab_vender-vender  AND
            budat LE p_bdate  AND
            augdt GT p_bdate AND
            blart IN ('KA', 'KG', 'KR', 'KZ', 'KF').
  ENDLOOP.
  DELETE i_bsik WHERE ( bukrs = '1500' OR bukrs = '3000' ) AND
                      ( umsks = 'E' OR umskz = 'E' ).
ENDFORM.                    " fetch_data_vender
*&      Form  GET_ARREAR_DAYS_vender
      text
-->  p1        text
<--  p2        text
FORM get_arrear_days_vender.
  SORT i_bsik BY mandt bukrs belnr.
  CLEAR: v_tabix.
  LOOP AT i_bsik.
    v_tabix = sy-tabix.
    SELECT SINGLE * FROM kna1 WHERE lifnr = i_bsik-lifnr.
    MOVE i_bsik-bukrs TO itab_details-bukrs.
    MOVE i_bsik-xblnr TO itab_details-xblnr.
    MOVE i_bsik-belnr TO itab_details-belnr.
    MOVE i_bsik-gjahr TO itab_details-gjahr.
    MOVE kna1-kunnr   TO itab_details-kunnr.
    APPEND itab_details.
    CLEAR itab_details.
    CLEAR x_item.
    AT NEW bukrs.
*company code details
      READ TABLE i_bsik INDEX sy-tabix.
      CLEAR x_t001.
      SELECT SINGLE * FROM t001
      INTO x_t001
      WHERE bukrs = i_bsik-bukrs.
    ENDAT.
    MOVE-CORRESPONDING i_bsik TO x_item.
    x_item-koart = 'D'.          " Debitor - Customer Indicator
    x_item-konto = kna1-kunnr.   " Debitor - Customer Number
    x_item-dmshb = bsik-dmbtr.
    x_item-wrshb = bsik-wrbtr.
Function module to get ARREAR  days.
    CALL FUNCTION 'ITEM_DERIVE_FIELDS'
      EXPORTING
        s_t001    = x_t001
        s_bsegp   = x_bsegp
        key_date  = p_bdate
      CHANGING
        s_item    = x_item
      EXCEPTIONS
        bad_input = 1
        OTHERS    = 2.
    IF sy-subrc =  0.
Populate I_TEMP_DATA for further processing.
      i_temp_data-bukrs   =  i_bsik-bukrs.
      i_temp_data-kunnr   =  kna1-kunnr.
      i_temp_data-belnr   =  i_bsik-belnr.
      i_temp_data-bldat   =  i_bsik-bldat.  "Document date in document
      i_temp_data-shkzg   =  i_bsik-shkzg.
      i_temp_data-zfbdt   =  i_bsik-zfbdt.  " Base line date
      i_temp_data-zterm   =  i_bsik-zterm.  "Terms of payment key
      i_temp_data-waers   =  i_bsik-waers.
      i_temp_data-days    =  x_item-verzn.  " days in arrs
      i_temp_data-gjahr   =  i_bsik-gjahr.  " year
      i_temp_data-kidno   =  i_bsik-kidno.  " Payment Reference
      i_temp_data-rebzg   =  i_bsik-rebzg.  " Number of the Invoice the
      "Transaction Belongs to
      i_temp_data-xblnr   =  i_bsik-xblnr.
      i_temp_data-sgtxt   =  i_bsik-sgtxt.  " Item Text
Changing the Sign
      IF i_bsik-shkzg = 'H'.
        i_temp_data-dmbe2   = -1 * i_bsik-dmbe2.
        i_temp_data-dmbtr   = -1 * i_bsik-dmbtr.
      ELSE.
        i_temp_data-dmbe2   =  i_bsik-dmbe2.
        i_temp_data-dmbtr   =  i_bsik-dmbtr.
      ENDIF.
    ENDIF.
    APPEND i_temp_data.
    CLEAR  i_temp_data.
  ENDLOOP.

Answer 1

Hi
Looks like BASIS issue.
Pls check the OSS Note - Note 787418 - Sent documents are not readable after upgrade
Pls contact your BASIS person
Regards
MD