At end of and sum key word is not working properly

Question

Hi All,
I have a requirement in that I have to calculate at the end of each fiscal year.
I am using this section of code, But in my output its only showing me the value of the last record, its not summing up at the end of fiscal year.
This is my section of code.
SORT IT_BSEG BY GJAHR.
LOOP AT IT_BSEG INTO WA_BSEG.
AT END OF GJAHR.
SUM.
        LOOP AT IT_ITAB INTO WA_ITAB WHERE GJAHR = WA_BSEG-GJAHR. " AND SPART = WA_VBRK-SPART.
          WA_ITAB-PRICE = WA_BSEG-DUE_AMT.
   MODIFY IT_ITAB FROM WA_ITAB TRANSPORTING PRICE SPART.
   clear wa_itab.
ENDLOOP.
ENDAT.
ENDLOOP.
Can any body let me know where is the mistake.

Answer 1

Hi Madhukar,
              As per my last thread the issue got resolved but now the challenge in front of me is to calcuclate the over due amount into if it lies in 0 to 30 days, 31 to 60 days, 61 to 90 days, 91 to 120 days and above 120 days.
I used this logic but could not able to get the desired result. Please need u r help.
Here I am posting the section of code which i am using to get the desired result.
" 1 means 0 to 30 days
    " 2 means 31 to 60 days
    " 3 means 61 to 90 days
    " 4 means 91 to 120 days
    " 5 means above 121 days
    IF WA_BSEG-DAYS_NO GE 0 AND WA_BSEG-DAYS_NO LE 30.
      WA_BSEG-DUER1 = '1'.
    ELSEIF WA_BSEG-DAYS_NO GE 31 AND WA_BSEG-DAYS_NO LE 60.
      WA_BSEG-DUER1 = '2'.
    ELSEIF WA_BSEG-DAYS_NO GE 61 AND WA_BSEG-DAYS_NO LE 90.
      WA_BSEG-DUER1 = '3'.
    ELSEIF WA_BSEG-DAYS_NO GE 91 AND WA_BSEG-DAYS_NO LE 120.
      WA_BSEG-DUER1 = '4'.
    ELSE. " means it is greater than 120
      WA_BSEG-DUER1 = '5'.
    ENDIF.
SORT IT_BSEG BY GJAHR DUER1.
LOOP AT IT_BSEG INTO WA_BSEG.
AT END OF GJAHR.
SUM.
        LOOP AT IT_ITAB INTO WA_ITAB WHERE GJAHR = WA_BSEG-GJAHR.
          WA_ITAB-PRICE = WA_BSEG-DUE_AMT.
IF WA_BSEG-AMTCAL = 'O'.
AT LAST.
ON CHANGE OF WA_BSEG-DUER1.
SUM.
          WA_ITAB-PRICE = WA_BSEG-DUE_AMT.
ENDON.
ENDAT.
ELSE.
AT LAST.
    WA_BSEG-AMTCAL = 'D'.
ON CHANGE OF WA_BSEG-DUER1.
SUM.
          WA_ITAB-PRICE = WA_BSEG-DUE_AMT.
ENDON.
ENDAT.
ENDIF.
   MODIFY IT_ITAB FROM WA_ITAB TRANSPORTING PRICE SPART.
   clear wa_itab.
ENDLOOP.
Thanks in Advance