ABAP Code to Select Invoices from VBRP

Question

Hi
I have the following code to summrise the invoice total by
Z_VBRP_NETWR_TOT =
IF Z_VBRP = 'X'.
select sum( NETWR ) sum( FKIMG ) from VBRP
into (Z_VBRP_NETWR_TOT, Z_VBRP_FKIMG_TOT)
where
AUBEL = VBAP-VBELN
and
AUPOS = VBAP-POSNR
and
SHKZG = ' '.
ENDIF.
The problem I have is when a proforma invoice and normal invoice is issued then the values are doubled, we just want to report on 1 invoice and not both, I checked the VBRK table and the difference between the 2 is field VGTYP. Therefore I added in the a AND statement before the ENDIF statement : and VGTYP = ‘J’.
This is ok when there are 2 invoices eg field VGTYP = "C" or "J" but when there is only 1 type "C" I want the program to sum all the as per the above code, is there ELSE statement I should use?
thanks
Joe

Answer 1

Hi Joe,
try to do the following steps:
*1 First of all define a internal table and structure with the following four fields:
TYPES: BEGIN OF TYPE TY_INV_DAT,
               AUBEL TYPE VBRP-AUBEL,
               AUPOS TYPE VBRP-AUPOS,
               NETWR TYPE VBRP-NETWR,
               FKIMG TYPE VBRP-FKIMG
             END OF TYPE LT_INV_DATA,
             TY_T_INV_DAT TYPE STANDARD TABLE OF TY_INV_DAT.
DATA: LT_INV_DATA TYPE TY_T_INV_DAT,
          LS_INV_DATA TYPE TY_INV_DAT.
*2. Select and store the data in the internal table.(I think that this kind of selection will improver also the performance of your coding)
select AUBEL AUPOS NETWR  FKIMG  from VBRP
into table lt_inv_data
where  AUBEL = VBAP-VBELN
    and  AUPOS = VBAP-POSNR
    and  SHKZG = space.
if sy-subrc  = 0.
*3 proceed to delete the duplicate entries.
SORT LT_INV_DATA BY AUBEL ASCENDING AUPOS ASCENDING.
DELETE ADJACENT DUPLICATES FROM LT_INV_DATA COMPARING AUBEL AUPOS.
*  summarize table amounts/quantities.
  clear:  Z_VBRP_NETWR_TOT, Z_VBRP_FKIMG_TOT.
  loop at lt_inv_data into ls_inv_data.
   add ls_inv_data-NETWR to Z_VBRP_NETWR_TOT.
   add ls_inv_data-FKIMG to Z_VBRP_FKIMG_TOT.
  endloop.
endif.
Regards,
Marc.