Select wenn X

Code: Alles auswählen.

TOP-OF-PAGE.

  Data: gs_bsis type skb1.

  SELECT-OPTIONS: bukrs FOR gs_bsis.
  SELECT-OPTIONS: sachk FOR gs_bsis .
  SELECT-OPTIONS: gjahr FOR gs_bsis.
  SELECT-OPTIONS: bdtm FOR gs_bsis.

START-OF-SELECTION.

  TYPES: BEGIN OF gt_tab1.
  TYPES: opost TYPE bsis-dmbtr,
         belnr TYPE bsis-belnr,
         bukrs TYPE bsis-bukrs,
         bldat TYPE bsis-bldat,
         budat TYPE bsis-budat,
         gjahr TYPE bsis-gjahr,
         xkres type skb1-xkres,
        saknr type skb1-saknr
         END OF gt_tab1.

  Data: gt_tabverarbeitung type table of gt_tab1.

  SELECT xkres saknr
    INTO CORRESPONDING FIELDS OF TABLE gt_tabverarbeitung
    FROM skb1.

  IF gt_tabverarbeitung-xkres = 'X'.
    WRITE: 'Fehler!'.
  ELSE.
  SELECT dmbtr
         hkont
         belnr
         bukrs
         bldat
         budat
         gjahr
         bukrs
        INTO CORRESPONDING FIELDS OF TABLE gt_tabverarbeitung
        WHERE hkont = gt_tabverarbeitung-saknr
        FROM  bsis.
  ENDIF.

Code: Alles auswählen.

READ TABLE gt_tabverarbeitung WITH KEY xkres = 'X' TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
" Fehler.
ELSE.
...