Fetching Invoice details from BSEG

Question

Hi experts,
                I  fetched  details like BUZEI BUZEI KOART SHKZG MWSKZ DMBTR PSWBT PSWSL HWBAS KTOSL HKONT KUNNR MATNR TXJCD from Bseg . program execute  well in development server but very slow  in production server. Coding is given below , kindly provide solution for this.
input.
1.MANDT
2.BUKRS
3.VKORG
4.FKDAT
First i fetch invoices based on input from vbrk and vbrp table and  passed  in bseg.
SELECT VBRKMANDT VBRKVBELN VBRKVKORG VBRKFKDAT VBRKBUKRS VBRPGSBER
  INTO TABLE ITAB
  FROM VBRK
  INNER JOIN VBRP ON VBRKVBELN = VBRPVBELN
  WHERE
   VBRK~MANDT IN S_MANDT AND
        VBRK~BUKRS IN S_BUKRS AND
        VBRK~VKORG IN S_VKORG AND
        VBRK~FKDAT IN S_FKDAT.
  RANGES : R_VBELN FOR VBRK-VBELN.
  LOOP AT ITAB.
    R_VBELN-SIGN = 'I'.
    R_VBELN-OPTION = 'EQ'.
    R_VBELN-LOW = ITAB-VBELN.
    APPEND R_VBELN.
  ENDLOOP.
  LOOP AT ITAB.
    ITAB-FYEAR = ITAB-FKDAT+0(4).
    MODIFY ITAB INDEX SY-TABIX.
  ENDLOOP.
  DATA : BELNR LIKE BSEG-BELNR.
  SELECT BELNR GJAHR BUZEI KOART SHKZG MWSKZ DMBTR PSWBT PSWSL HWBAS KTOSL HKONT KUNNR MATNR TXJCD
  FROM BSEG INTO TABLE GTAB FOR ALL ENTRIES IN ITAB
  WHERE BUKRS IN S_BUKRS AND
        BELNR IN R_VBELN AND      
        GJAHR = ITAB-FYEAR .
Thanks & regards
G.Vendhan

Answer 1

Hi Vendhan,
SELECT VBRK~MANDT VBRK~VBELN VBRK~VKORG VBRK~FKDAT VBRK~BUKRS VBRP~GSBER
INTO TABLE ITAB
FROM VBRK
INNER JOIN VBRP ON VBRK~VBELN = VBRP~VBELN
WHERE
VBRK~MANDT IN S_MANDT AND " Not required so comment it...
VBRK~BUKRS IN S_BUKRS AND
VBRK~VKORG IN S_VKORG AND
VBRK~FKDAT IN S_FKDAT.
RANGES : R_VBELN FOR VBRK-VBELN.
LOOP AT ITAB.
R_VBELN-SIGN = 'I'.
R_VBELN-OPTION = 'EQ'.
R_VBELN-LOW = ITAB-VBELN.
APPEND R_VBELN.
ENDLOOP.
LOOP AT ITAB.
ITAB-FYEAR = ITAB-FKDAT+0(4).
MODIFY ITAB INDEX SY-TABIX.
ENDLOOP.
DATA : BELNR LIKE BSEG-BELNR.
As you are interesed to get the data for the billing document only select data from vbrk only...
and use that internal table in for all entries with BSEG rather then join of vbrk and vbrp while
IF ITAB[] IS NOT INITIAL[]. " Check this condition before using For all Entries alwayse...
SELECT BELNR GJAHR BUZEI KOART SHKZG MWSKZ DMBTR PSWBT PSWSL HWBAS KTOSL HKONT KUNNR MATNR TXJCD
FROM BSEG INTO TABLE GTAB FOR ALL ENTRIES IN ITAB
WHERE BUKRS IN S_BUKRS AND
BELNR IN R_VBELN AND  " Wrong... You are supposed to pass vbrk-VBELN to BSEG-VBELN as BELNR and VBELN are different and contains diff data as well..
GJAHR = ITAB-FYEAR
AND KOART =  'D'. " Include it for customers
ENDIF.
Also I would like to suggest you if you can use below tables if possible...
BSAD                           secondary Index for Customers (Cleared Items)
BSID                             secondary Index for Customers
So you need to change the logic to get correct data first...
Hope it will solve your problem..
Thanks & Regards
ilesh 24x7
ilesh Nandaniya