Join KONV und VBRK

Code: Alles auswählen.

REPORT ZCO_INV_KONDI.

TABLES: KONV, VBRK.

TYPES : BEGIN OF vbrk_htab,
         vbeln LIKE vbrk-vbeln,
         fkart LIKE vbrk-fkart,
         fkdat LIKE vbrk-fkdat,
         knumv LIKE vbrk-knumv,
         kunag LIKE vbrk-kunag,
         kunrg LIKE vbrk-kunrg,
         netwr LIKE vbrk-netwr,
         waerk LIKE vbrk-waerk,
         kschl LIKE konv-kschl,
        END OF vbrk_htab.

DATA: H_ITAB TYPE STANDARD TABLE OF vbrk_htab WITH HEADER LINE.


SELECTION-SCREEN BEGIN OF BLOCK ZCO WITH FRAME TITLE text-t01.
SELECT-OPTIONS : s_vbeln for vbrk-vbeln,
                 s_fkart for vbrk-fkart,
                 s_fkdat for vbrk-fkdat.
PARAMETERS:      s_kschl LIKE konv-kschl DEFAULT 'ZHR0'.
SELECTION-SCREEN END OF BLOCK ZCO.

SELECT vbeln fkdat knumv kunag kunrg netwr waerk fkart
  into corresponding fields of H_itab
 from vbrk
 where vbeln IN s_vbeln AND
       fkdat IN s_fkdat AND
       fkart IN s_fkart.
append h_itab.
ENDSELECT.

LOOP AT h_itab.
    SELECT kschl INTO h_itab-kschl FROM konv
           WHERE kschl = s_kschl AND
                 knumv = H_itab-knumv.

    MODIFY h_itab.
    endselect.
ENDLOOP.

Code: Alles auswählen.

INTO CORRESPONDING FIELDS OF TABLE h_itab