...
  SELECT SINGLE kokrs INTO cKokrs FROM tka02
    WHERE bukrs = cBukrs.
...
  CASE BKPF-AWTYP.
    WHEN 'BKPF'.
      cBelnr = bkpf-awkey+0(10).
      cBukrs = bkpf-awkey+10(4).
      cGjahr = bkpf-awkey+14(4).
    WHEN 'MKPF'.
      cBelnr = bkpf-awkey+0(10).
      cBukrs = bkpf-bukrs.
      cGjahr = bkpf-awkey+10(4).
    WHEN OTHERS.
      message e000 WITH 'Неизвестный BKPF-AWKEY' BKPF-AWKEY.
  ENDCASE.

  SELECT SINGLE * FROM cobk
    WHERE refbt = 'R'
      AND refbn = cBelnr
      AND kokrs = cKokrs
      AND refbk = cBukrs
      AND refgj = cGjahr.

  IF sy-subrc = 0.
* почему-то сначала читать с WRTTP = '04', и если нет записей, то с WRTTP = '11'
    DO 2 TIMES.
      CASE SY-INDEX.
        WHEN 1.   cWRTTP = '04'.
        WHEN 2.   cWRTTP = '11'.
      ENDCASE.
      SELECT * FROM coep INTO CORRESPONDING FIELDS OF TABLE it_ep
          WHERE kokrs = cobk-kokrs
            AND belnr = cobk-belnr
            AND wrttp = cWRTTP.
      IF NOT it_ep[] IS INITIAL.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.