topic Re: Collect Statement.. in Application Development and Automation Discussions

Collect Statement..

Former Member — Tue, 18 Sep 2007 12:25:57 GMT

Haii..All

I am writing down some code of my program here..the problem is that when i run the program i should get all the linetems combined..for example i have just two records in the development system where values of DMBTR are 12,57 and 80,00 resp. for a documenting no 243000044, so in the final list i should get only one record for this document no with dmbtr as 82,57. i am using the collect statement but i get only the record with 80,00 as dmbtr.

FORM get_data_nolineitems CHANGING P_ITAB P_jTAB.

select belnr bukrs hkont zuonr waers dmbtr budat bldat shkzg into itab

from bsis

where bukrs in x_bukrs

and hkont in x_hkont

and budat in x_budat

and bldat in x_bldat

and zuonr in x_zuonr.

move-corresponding itab to jtab.

*collect jtab.

if itab-shkzg = 'H'.

<fs_dmbtr> = itab-dmbtr * ( -1 ).

move <fs_dmbtr> to jtab-dmbtr.

<fs_vbeln> = itab-zuonr+0(9).

concatenate '0' <fs_vbeln> into <fs_vbeln>.

move <fs_vbeln> to jtab-vbeln.

modify jtab INDEX sy-tabix transporting dmbtr vbeln.

else.

<fs_dmbtr> = itab-dmbtr.

move <fs_dmbtr> to jtab-dmbtr.

<fs_vbeln> = itab-zuonr+0(9).

concatenate '0' <fs_vbeln> into <fs_vbeln>.

move <fs_vbeln> to jtab-vbeln.

modify jtab INDEX sy-tabix transporting dmbtr vbeln.

endif.

select single * into <fs_vbak> from vbak where vbeln = <fs_vbeln>.

if sy-subrc = 0.

move <fs_vbak>-kunnr to x_kunnr.

move <fs_vbak>-erdat to jtab-erdat.

move <fs_vbak>-ernam to jtab-ernam.

modify jtab INDEX sy-tabix transporting erdat ernam.

select single * into <fs_kna1> from kna1 where kunnr = x_kunnr.

move <fs_kna1>-name1 to jtab-name1.

modify jtab INDEX sy-tabix transporting name1.

endif.

collect jtab.

endselect.

ENDFORM. " get_data_nolineitems

Structure of jtab is:

belnr----~~-belnr_d~~-bsis

bukrs----~~bukrs~~---bsis

hkont----~~hkont~~--bsis

vbeln----~~dzuonr~~-bsis

waers--~~waers~~--bsis

dmbtr--~~-dmbtr~~--bsis

budat--~~-budat~~-bsis

bldat----~~bldat~~--bsis

name1--~~name1_gp~~-kna1

erdat----~~erdat_rf~~--vbak

ernam--~~-ernam_rf~~---vbak.

Re: Collect Statement..

seshatalpasai_madala — Tue, 18 Sep 2007 12:34:54 GMT

Hi,

Did you make Documenting Number as the KEY of the internal table JTAB?

Make this as the KEY of the internal table and then use COLLECT.

COLLECT will sum up all the numeric fields where the value of KEY is same.

Regards,

Sesh

Re: Collect Statement..

varma_narayana — Tue, 18 Sep 2007 12:39:05 GMT

Hi Ramakrishna...

You cannot use COLLECT in this case bcoz it will compare all the Non Numeric fields.

So try this code .. it should work.. Little changes may be required as per ur need.

Declare a Separate internal table with the Same structure as ITAB named ITAB_TEMP.

Code:

SELECT

BSIS_{belnr BSIS}bukrs BSIS_{hkont BSIS}dzuonr

BSIS_{waers BSIS}dmbtr BSIS_{budat BSIS}bldat BSIS~shkzg

vbak_{erdat vbak}ernam

KNA1~NAME1

from bsis

inner Join VBAK

on BSIS_{dzuonr = VBAK}VBELN

INNER JOIN KNA1

ON VBAK_{KUNNR = KNA1}KUNNR

INTO TABLE ITAB

where <Conditions>.

DATA: WA LIKE LINE OF ITAB.

LOOP AT ITAB.

WA = ITAB.

AT END OF BELNR.

SUM.

WA-DMBTR = ITAB-DMBTR.

APPEND WA TO ITAB_TEMP.

ENDAT.

ENDLOOP.

Message was edited by:

Alvaro Tejada Galindo

Re: Collect Statement..

Former Member — Wed, 19 Sep 2007 07:43:35 GMT

haii..this select statement doesnt work because bsis-zuonr and vbak-vbeln are not the same...actually the first 9 digits of zuonr is equal to vbak-vbeln.

and how can i give vbeln as a key for my internal table jtab.

i have declared jtab as follows:

data: begin of jtab occurs 0.

include structure ystr1_wrkpanz.

data: end of jtab.