Problem in Batch Export Report

Question

Hi all,
I have developed a report in PP module for Batch exports.
Here iam providing the input as plant, material no & batch and the output will  be Orderwise material no, batch, mat desc, density and Quantity.
While executing the report the output is coming exactly for the first order while for the second order the values are not fetching correctly.
Pls suggest me.
*& Report  ZPP_EXPORTBATCH
REPORT  ZPP_EXPORTBATCH.
TABLES: MSEG,MKPF,AUFK,AFPO. "
TYPE-POOLS SLIS.
DATA: IT_EVENTS TYPE SLIS_T_EVENT,
      WA_EVENTS TYPE SLIS_ALV_EVENT,
      IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      LIST_LAYOUT TYPE SLIS_LAYOUT_ALV,                     "#EC *
      GS_KEYINFO TYPE SLIS_KEYINFO_ALV,                     "#EC *
      W_PROG TYPE SY-REPID,
      P_RS_LINEINFO TYPE SLIS_LINEINFO.
Internal Tables**********************************
TYPES: TY_SCLASS TYPE STANDARD TABLE OF SCLASS.
TYPES: TY_OBJECTDATA TYPE STANDARD TABLE OF CLOBJDAT.
TYPES: BEGIN OF T_MSEG,
       BWART LIKE MSEG-BWART,
       MATNR LIKE MSEG-MATNR,
       MAKTX LIKE MAKT-MAKTX,
       CHARG LIKE MSEG-CHARG,
       MENGE LIKE MSEG-MENGE,
       ERFME LIKE MSEG-ERFME,
       AUFNR LIKE MSEG-AUFNR,
       AUSP1 LIKE CLOBJDAT-AUSP1,
       ERROR(30),
       END OF T_MSEG.
TYPES: INT_MSEG_FINAL TYPE STANDARD TABLE OF T_MSEG .
TYPES: BEGIN OF TY_MENGE1,
         MATNR TYPE MSEG-MATNR,
         CHARG TYPE MSEG-CHARG,
         MENGE TYPE MSEG-MENGE,
         ERFME TYPE MSEG-ERFME,
         MBLNR TYPE MSEG-MBLNR,
         ZEILE TYPE MSEG-ZEILE,
       END OF TY_MENGE1.
TYPES: TY_MENGE TYPE STANDARD TABLE OF TY_MENGE1.
DATA : LENGTH     TYPE     I,
DIFFERENCE     TYPE     I,
IT_CLASS     TYPE     TY_SCLASS,
IT_OBJECTDATA     TYPE     TY_OBJECTDATA,
WA_CLASS     TYPE     SCLASS,
WA_OBJECTDATA     TYPE     CLOBJDAT,
L_MATNR     TYPE     MATNR,
INT_MSEG_FINAL     TYPE     INT_MSEG_FINAL,
WA_MSEG_FINAL     TYPE     T_MSEG,
WA_MSEG     TYPE     MSEG,
WA_WEMNG     TYPE     AFPO-WEMNG,
WA_PSMNG     TYPE     AFPO-PSMNG,
WA_AMEIN     TYPE     AFPO-AMEIN,
BAL_QTY     TYPE     AFPO-WEMNG,
INT_MSEG_TEMP1     TYPE     INT_MSEG_FINAL,
WA_CALCULATED1     TYPE     AFPO-WEMNG,
IT_MENGE     TYPE     TY_MENGE,
WA_MENGE1     TYPE     TY_MENGE1,
WA_MAKTX     TYPE     MAKT-MAKTX,
WA_HSDAT     TYPE     MCH1-HSDAT,
WA_MAKTX_MAIN     TYPE     MAKT-MAKTX,
MAIN_DEN     TYPE     STRING,
DENSITY     TYPE     STRING,
MDENSITY     TYPE     STRING,
IDENSITY     TYPE     STRING.
data : tqty like mseg-menge.
data:INT_MSEG_TEMP2   LIKE MSEG OCCURS 0 WITH HEADER LINE.
data:INT_MSEG_TEMP3   LIKE MSEG OCCURS 0 WITH HEADER LINE.
**************Initialization********************************************
INITIALIZATION.
**************Input Parameters List*************************************
  SELECTION-SCREEN SKIP 3.
  SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT-T01 . "#EC
      SELECT-OPTIONS : S_WERKS FOR MSEG-WERKS OBLIGATORY, "PLANT
                       S_MATNR FOR MSEG-MATNR OBLIGATORY, "MATERIAL NUMBER
                       S_CHARG FOR MSEG-CHARG,            "BATCH
                       S_BUDAT FOR MKPF-BUDAT.            "POSTING DATE
  SELECTION-SCREEN END OF BLOCK BLOCK1.
START-OF-SELECTION.
  PERFORM READ_DATA.
  PERFORM SUB_PREPARE_FIELDCATALOG.
  PERFORM FILL_EVENTS_TABLE.
END-OF-SELECTION.
  PERFORM DISPLAY_DATA_USING_GRID.
*&      Form  READ_DATA
      text
-->  p1        text
<--  p2        text
FORM READ_DATA .
DATA :INT_AFPO LIKE AFPO OCCURS 0 WITH HEADER LINE.
DATA :INT_MSEG        LIKE MSEG OCCURS 0 WITH HEADER LINE,
INT_MSEG_TEMP   LIKE MSEG OCCURS 0 WITH HEADER LINE.
SELECT SINGLE MAKTX
  INTO WA_MAKTX_MAIN
  FROM MAKT
  WHERE MATNR IN S_MATNR.
DATA : WA_MENGE LIKE MSEG-MENGE.
SELECT  SINGLE *
FROM  AFPO
INTO  INT_AFPO
WHERE MATNR IN S_MATNR
AND   CHARG IN S_CHARG
AND   DWERK IN S_WERKS.
MOVE INT_AFPO-WEMNG TO WA_WEMNG.
MOVE INT_AFPO-PSMNG TO WA_PSMNG.
MOVE INT_AFPO-AMEIN TO WA_AMEIN.
SELECT *
INTO TABLE INT_MSEG
FROM  MSEG
WHERE AUFNR = INT_AFPO-AUFNR
AND  BWART IN ('261' , '262' )
AND  WERKS IN S_WERKS.
REFRESH INT_AFPO.
int_mseg_temp3[] = int_mseg[].
LOOP AT INT_MSEG.
  clear tqty.
    loop at int_mseg_temp3 WHERE MATNR = INT_MSEG-MATNR
                             and charg = int_mseg-charg
                             AND AUFNR = INT_MSEG-AUFNR
          if int_mseg_temp3-bwart = '261' .
               tqty = tqty + int_mseg_temp3-menge.
          elseif int_mseg_temp3-bwart = '262'.
               tqty = tqty - int_mseg_temp3-menge.
          endif.
     endloop.
    int_mseg-menge = tqty.
  SELECT  SINGLE *
  FROM  AFPO
  INTO  INT_AFPO
  WHERE MATNR = INT_MSEG-MATNR
  AND   CHARG = INT_MSEG-CHARG
  AND   DWERK IN S_WERKS.
IF SY-SUBRC EQ 0 AND INT_AFPO-AUFNR <> ' '.
    SELECT * FROM MSEG
    INTO    TABLE INT_MSEG_TEMP
    WHERE  AUFNR = INT_AFPO-AUFNR
    AND    BWART IN ('261' , '262' )
    AND    WERKS IN S_WERKS.
    LOOP AT INT_MSEG_TEMP.
      WA_CALCULATED1 = ( INT_MSEG_TEMP-MENGE / INT_AFPO-WEMNG ) * INT_MSEG-MENGE.
      WA_MENGE1-MENGE = WA_CALCULATED1.
      WA_MENGE1-MATNR = INT_MSEG_TEMP-MATNR.
      WA_MENGE1-CHARG = INT_MSEG_TEMP-CHARG.
      WA_MENGE1-ERFME = INT_MSEG_TEMP-ERFME.
      WA_MENGE1-MBLNR = INT_MSEG_TEMP-MBLNR.
      WA_MENGE1-ZEILE = INT_MSEG_TEMP-ZEILE.
      APPEND WA_MENGE1 TO IT_MENGE.
      CLEAR: WA_CALCULATED1, WA_MENGE1.
    ENDLOOP.
    SORT IT_MENGE BY MBLNR ZEILE MATNR CHARG.
     ENDLOOP.
    CLEAR  INT_MSEG.
    MODIFY  TABLE INT_MSEG  FROM INT_MSEG_TEMP.
    LOOP AT INT_MSEG_TEMP.
      MOVE-CORRESPONDING INT_MSEG_TEMP TO INT_MSEG.
      READ TABLE IT_MENGE INTO WA_MENGE1
      WITH KEY MATNR = INT_MSEG_TEMP-MATNR
               CHARG = INT_MSEG_TEMP-CHARG
               MBLNR = INT_MSEG_TEMP-MBLNR
               ZEILE = INT_MSEG_TEMP-ZEILE.
      INT_MSEG-MENGE = WA_MENGE1-MENGE.
      APPEND INT_MSEG.
      CLEAR  INT_MSEG.
*Added for Changes given by anup ART:09MAR08
     CLEAR WA_MENGE1-MENGE.
*End of for Changes given by anup ART:09MAR08
    ENDLOOP.
    REFRESH INT_MSEG_TEMP.
    CLEAR INT_AFPO.
  ELSE.
   MOVE:  INT_MSEG-MATNR TO   WA_MSEG_FINAL-MATNR,
    INT_MSEG-CHARG  TO WA_MSEG_FINAL-CHARG,
    INT_MSEG-MENGE  TO WA_MSEG_FINAL-MENGE,
    INT_MSEG-ERFME  TO WA_MSEG_FINAL-ERFME,
    INT_MSEG-BWART  TO WA_MSEG_FINAL-BWART .
    APPEND WA_MSEG_FINAL TO INT_MSEG_FINAL.
    CLEAR WA_MSEG_FINAL.
    CLEAR INT_AFPO.
  ENDIF.
ENDLOOP.
INT_MSEG_TEMP1[] = INT_MSEG_FINAL[].
REFRESH INT_MSEG_FINAL.
SORT INT_MSEG_TEMP1 BY MATNR CHARG.
LOOP AT INT_MSEG_TEMP1 INTO WA_MSEG_FINAL.
  ON CHANGE OF WA_MSEG_FINAL-MATNR
  OR WA_MSEG_FINAL-CHARG.
    IF WA_MSEG_FINAL-BWART = '261'.
      WA_MENGE = WA_MENGE + WA_MSEG_FINAL-MENGE.
    ELSEIF WA_MSEG_FINAL-BWART = '262'.
      WA_MENGE = WA_MENGE - WA_MSEG_FINAL-MENGE.
    ENDIF.
    WA_MSEG_FINAL-MENGE = WA_MENGE.
    CLEAR WA_MENGE.
    APPEND WA_MSEG_FINAL TO INT_MSEG_FINAL.
    CLEAR WA_MSEG_FINAL.
  ENDON.
ENDLOOP.
LOOP AT INT_MSEG_FINAL INTO WA_MSEG_FINAL.
  SELECT SINGLE MAKTX
    INTO WA_MAKTX
    FROM MAKT
    WHERE MATNR = WA_MSEG_FINAL-MATNR.
  WA_MSEG_FINAL-MAKTX = WA_MAKTX.
  MODIFY INT_MSEG_FINAL FROM WA_MSEG_FINAL TRANSPORTING MAKTX.
  CLEAR WA_MAKTX.
****************CHGS BY MURALI.C FOR
DATA: WA_OBJECT(50) TYPE C.
LENGTH = STRLEN( WA_MSEG_FINAL-MATNR ).
IF LENGTH LT 18.
DIFFERENCE = 18 - LENGTH.
DO DIFFERENCE TIMES.
CONCATENATE WA_MSEG_FINAL-MATNR SPACE INTO L_MATNR.
ENDDO.
ENDIF.
CONCATENATE L_MATNR WA_MSEG_FINAL-CHARG INTO WA_OBJECT RESPECTING
BLANKS.
CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
EXPORTING
  CLASS                      = ' '
  CLASSTEXT                  = 'X'
CLASSTYPE                  = '023'
  CLINT                      = 0
  FEATURES                   = 'X'
  LANGUAGE                   = SY-LANGU
OBJECT                     = WA_OBJECT
OBJECTTABLE                = 'MCH1'
  KEY_DATE                   = SY-DATUM
  INITIAL_CHARACT            = 'X'
  NO_VALUE_DESCRIPT          = NO_VALUE_DESCRIPT
  CHANGE_SERVICE_CLF         = 'X'
  INHERITED_CHAR             = ' '
  CHANGE_NUMBER              = ' '
TABLES
T_CLASS                    = IT_CLASS
T_OBJECTDATA               = IT_OBJECTDATA
  I_SEL_CHARACTERISTIC       = I_SEL_CHARACTERISTIC
  T_NO_AUTH_CHARACT          = T_NO_AUTH_CHARACT
EXCEPTIONS
NO_CLASSIFICATION          = 1
NO_CLASSTYPES              = 2
INVALID_CLASS_TYPE         = 3
OTHERS                     = 4
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
read TABLE IT_OBJECTDATA INTO wa_objectdata
with KEY SMBEZ = 'Density'.
if wa_objectdata-ausp1 <> '?'.
perform density_calc using wa_objectdata-ausp1 changing idensity.
WA_MSEG_FINAL-AUSP1 = idensity.
else.
WA_MSEG_FINAL-ERROR = 'classification value missing'.
endif.
MODIFY INT_MSEG_FINAL FROM WA_MSEG_FINAL TRANSPORTING AUSP1 ERROR.
CLEAR :WA_MSEG_FINAL-MATNR,WA_MSEG_FINAL-CHARG,WA_MSEG_FINAL-AUSP1,WA_OBJECT,WA_OBJECTDATA-AUSP1.
ENDLOOP.
ENDFORM.                    " READ_DATA
*&      Form  SUB_PREPARE_FIELDCATALOG
      text
-->  p1        text
<--  p2        text
FORM SUB_PREPARE_FIELDCATALOG .
  X_FIELDCAT-FIELDNAME = 'MATNR'.
  X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
  X_FIELDCAT-SELTEXT_M = 'MATERIAL NUMBER'. "#EC NOTEXT
  X_FIELDCAT-JUST = 'C'.
  X_FIELDCAT-OUTPUTLEN = 10.
  X_FIELDCAT-KEY = 'X'.
  X_FIELDCAT-KEY_SEL = 'X'.
  APPEND X_FIELDCAT TO IT_FIELDCAT.
  CLEAR X_FIELDCAT.
  X_FIELDCAT-FIELDNAME = 'MAKTX'.
  X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
  X_FIELDCAT-SELTEXT_M = 'MATERIAL DESCRIPTION'. "#EC NOTEXT
  X_FIELDCAT-JUST = 'C'.
  X_FIELDCAT-OUTPUTLEN = 17.
  APPEND X_FIELDCAT TO IT_FIELDCAT.
  CLEAR X_FIELDCAT.
  X_FIELDCAT-FIELDNAME = 'CHARG'.
  X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
  X_FIELDCAT-SELTEXT_M = 'BATCH'. "#EC NOTEXT
  X_FIELDCAT-JUST = 'C'.
  X_FIELDCAT-OUTPUTLEN = 10.
  APPEND X_FIELDCAT TO IT_FIELDCAT.
  CLEAR X_FIELDCAT.
  X_FIELDCAT-FIELDNAME = 'AUSP1'.
  X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
  X_FIELDCAT-SELTEXT_M = 'DENSITY'. "#EC NOTEXT
  X_FIELDCAT-JUST = 'C'.
  X_FIELDCAT-OUTPUTLEN = 6.
  APPEND X_FIELDCAT TO IT_FIELDCAT.
  CLEAR X_FIELDCAT.
  X_FIELDCAT-FIELDNAME = 'MENGE'.
  X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
  X_FIELDCAT-SELTEXT_M = 'QUANTITY'. "#EC NOTEXT
  X_FIELDCAT-JUST = 'C'.
  X_FIELDCAT-OUTPUTLEN = 9.
  APPEND X_FIELDCAT TO IT_FIELDCAT.
  CLEAR X_FIELDCAT.
  X_FIELDCAT-FIELDNAME = 'ERFME'.
  X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
  X_FIELDCAT-SELTEXT_M = 'UOM'. "#EC NOTEXT
  X_FIELDCAT-JUST = 'C'.
  X_FIELDCAT-OUTPUTLEN = 9.
  APPEND X_FIELDCAT TO IT_FIELDCAT.
  CLEAR X_FIELDCAT.
*X_FIELDCAT-FIELDNAME = 'EDATU1'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'CONFIRMED QUANTITY DATED'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 9.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'ETENR1'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'CONFIRM SL NO'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 9.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'LFIMG'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'DELIVERED QUANTITY'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 18.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'ERDAT'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'DELIVERED DATE'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 18.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
ENDFORM.                    " SUB_PREPARE_FIELDCATALOG
*&      Form  FILL_EVENTS_TABLE
      text
-->  p1        text
<--  p2        text
FORM FILL_EVENTS_TABLE .
   WA_EVENTS-NAME = 'TOP_OF_PAGE'.
   WA_EVENTS-FORM = 'PRINT_HEADING'.
   APPEND WA_EVENTS TO IT_EVENTS.
ENDFORM.                    " FILL_EVENTS_TABLE
FORM PRINT_HEADING. "#EC CALLED
  DATA IT_HEADINGS TYPE SLIS_T_LISTHEADER.
  DATA WA_HEADINGS LIKE LINE OF IT_HEADINGS.
  CLEAR WA_HEADINGS.
  WA_HEADINGS-TYP = 'H'.
  WA_HEADINGS-INFO = '                                          '.
  WA_HEADINGS-TYP = 'H'.
  WA_HEADINGS-INFO = ' BATCH EXPORT DETAILS REPORT '.
  APPEND WA_HEADINGS TO IT_HEADINGS.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY       = IT_HEADINGS
      I_LOGO                   =  'APARLOGO' .
ENDFORM.                    "PRINT_HEADING
*&      Form  DISPLAY_DATA_USING_GRID
      text
-->  p1        text
<--  p2        text
FORM DISPLAY_DATA_USING_GRID .
   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
   I_BYPASSING_BUFFER                = 'X'
   I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = SY-CPROG
   IT_FIELDCAT                       = IT_FIELDCAT
   I_SAVE                            = 'A'
   IT_EVENTS                         = IT_EVENTS
   TABLES
   T_OUTTAB                          = INT_MSEG_FINAL
  IF SY-SUBRC <> 0. "#EC *
   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " DISPLAY_DATA_USING_GRID
*&      Form  density_calc
      text
     -->P_WA_OBJECTDATA_AUSP1  text
     <--P_IDENSITY  text
FORM density_calc  USING    WA_OBJECTDATA_AUSP1
                   CHANGING DENSITY.
data: den type float,density1(8).
density1(8) = wa_objectdata-ausp1.
call function 'CHAR_FLTP_CONVERSION'
exporting
  DYFLD                    = ' '
  MASKN                    = ' '
  MAXDEC                   = '16'
  MAXEXP                   = '59+'
  MINEXP                   = '60-'
string                   = density1
  MSGTYP_DECIM             = 'W'
importing
  DECIM                    =
  EXPON                    =
flstr                    = den
  IVALU                    =
EXCEPTIONS
  EXPONENT_TOO_BIG         = 1
  EXPONENT_TOO_SMALL       = 2
  STRING_NOT_FLTP          = 3
  TOO_MANY_DECIM           = 4
  OTHERS                   = 5
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
if den gt 0.
density = 1 / den.
density = density(5).
density = density / 10.
den = strlen( density ).
if den ge 6.
  density = density(6).
  clear: den.
  den = strlen( density ).
elseif den lt 6.
   density = density.
   clear: den.
   den = strlen( density ).
endif.
else.
density = '0.000'.
endif.
den = strlen( density ).
data: den3(5) type c.
if den gt 3.
  case den.
    when '6'.
              clear: den3.
              compute den3 = 10000 * ( density(6) - density(5) ).
              if den3 between 6 and 9.
                clear: den3.
                compute den3(2) = 10000 * ( density(5) - density(4) ).
                compute den3 = den3(1) + 1.
                compute den3 = den3 / 1000.
                compute density = density(4) + den3.
              endif.
    when '5'.
              clear: den3.
              compute den3 = 1000 * ( density(5) - density(4) ).
              if den3 between 6 and 9.
                clear: den3.
                compute den3(2) = 1000 * ( density(4) - density(3) ).
                compute den3 = den3(1) + 1.
                compute den3 = den3 / 100.
                compute density = density(3) + den3.
              endif.
  endcase.
endif.
density = density(5).
ENDFORM.                    " density_calc

Answer 1

Hello,
I haven't checked the code but from the symptom you describe it could be possible that some fields used to calculate valeus are not getting cleared between calculations.  This could result in some values from order the first order one being used in the calculation for values in the second order.
Regards,
Steve.