Grand total is not working...please help

Question

Hi, here is my code
SORT S_ENDT BY LIFNR.
  LOOP AT S_ENDT WHERE BUDAT IN P_BUDAT.
    WRITE:          1  S_ENDT-BKTXT,
                    11 S_ENDT-BUKRS,
                    16 S_ENDT-LIFNR,
                    24 S_ENDT-NAME1,
                    49 S_ENDT-BLART,
                    53 S_ENDT-BELNR,
                    64 S_ENDT-AUGBL,
                    75 S_ENDT-AUGDT,
                    86 S_ENDT-BUDAT,
                    97 S_ENDT-WRBTR,
                    113 S_ENDT-WAERS,
                    117 S_ENDT-XBLNR,
                    130 S_ENDT-ZUONR.
    AT END OF BKTXT.                         " Subtotal by Draft #
      ULINE.
      SUM.
      WRITE: 20 'Total of draft', 37 S_ENDT-BKTXT, 97 S_ENDT-WRBTR.
    ENDAT.
    AT LAST.                                 " Grand total
      SUM.
      SKIP.
      WRITE: 20 'Grand Total', 97 S_ENDT-WRBTR.
    ENDAT.
    SKIP.
  ENDLOOP.
EXIT.
ENDIF.
I am not getting the right total..I am getting it for all LIFNR and not the value in P_LIFNR only (which is what I want).
please help
thanks
Brian

Answer 1

Hi,
try this coding.
SORT S_ENDT BY LIFNR.
*data : gt(16) type p decimals 2.*
LOOP AT S_ENDT WHERE BUDAT IN P_BUDAT.
*gt = gt + S_ENDT-WRBTR.*
WRITE: 1 S_ENDT-BKTXT,
11 S_ENDT-BUKRS,
16 S_ENDT-LIFNR,
24 S_ENDT-NAME1,
49 S_ENDT-BLART,
53 S_ENDT-BELNR,
64 S_ENDT-AUGBL,
75 S_ENDT-AUGDT,
86 S_ENDT-BUDAT,
97 S_ENDT-WRBTR,
113 S_ENDT-WAERS,
117 S_ENDT-XBLNR,
130 S_ENDT-ZUONR.
AT END OF BKTXT. " Subtotal by Draft #
ULINE.
SUM.
WRITE: 20 'Total of draft', 37 S_ENDT-BKTXT, 97 *gt*.
ENDAT.
AT LAST. " Grand total
SUM.
SKIP.
WRITE: 20 'Grand Total', 97 S_ENDT-WRBTR.
ENDAT.
SKIP.
ENDLOOP.
EXIT.
ENDIF.
U are using where condition in a Loop ,while executing last record may or may not get executed becoz of restiction.Better declare a variable and SUM under such scenarios.
Regards,
Ballack.
Reward Points if helpful.