topic sum data in table in Application Development and Automation Discussions

sum data in table

Former Member — Tue, 28 Oct 2008 05:51:22 GMT

Hi,

I want to loop at table and sum all the amount by the field LGART.

lgart is not the first field on the table so AT END AT NEW wont help here.

is there any idea about how to do it.??

if the lgart was first field i would do ;


LOOP AT  i_zl INTO wa_zl.
    MOVE wa_zl TO l_wa_zl.
    AT NEW lgart.
      CLEAR: sum_anzhl.
    ENDAT.
    sum_anzhl = sum_anzhl + l_wa_zl-anzhl.
    AT END OF lgart.
      wa_zl-anzhl = sum_anzhl.
      MODIFY i_zl FROM wa_zl TRANSPORTING anzhl
      WHERE lgart = l_wa_zl-lgart.
    ENDAT.
  ENDLOOP.
  DELETE ADJACENT DUPLICATES FROM i_zl COMPARING lgart.

Thanks in advanced.

Re: sum data in table

Former Member — Tue, 28 Oct 2008 05:53:50 GMT

Hi Gil,

Use ON CHANGE OF<field>.

Re: sum data in table

Former Member — Tue, 28 Oct 2008 06:12:17 GMT

Thanks.

it's really solve the problem.

but in the first enter of the loop it's go to ON CHANGE OF

i's there something to bypass it like at new??

thanks.

Re: sum data in table

Former Member — Tue, 28 Oct 2008 06:18:50 GMT

Hi,

in order to bypass first loop make use of flag..

say for example

data : flag.

on change of.

if flag = 'X'. // for the first time flag is space so it does not enter ...

....

endif.

flag = 'X'.

endon.

Hope this is helpful...

Rgds.,

subash

Re: sum data in table

Former Member — Tue, 28 Oct 2008 08:29:54 GMT

HI,

use this.



Data: l_lgart_old type lgart,
         l_lgart_ney type lgart.

sort itab by lgart.

Loop at itab.
clear l_flag.
l_lgart_new = itab-lgart.

itab2-amt = itab2-amt + itab-amt. 

if l_lgart_old is not initial and l_lgart_old <> l_lgart_new.
 l_flag = 'X'
  append itab2.
  clear  itab2.

endif.

l_lgart_old = l_lgart_new.

at last.
if l_flag is initial.
append itab2.
endif.
endata.
Endloop.

Regards,

Jey