FUNCTION Z_SAMPLE_INTERFACE_00001030.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     VALUE(I_BKDF) LIKE  BKDF STRUCTURE  BKDF
*"     VALUE(I_UF05A) LIKE  UF05A STRUCTURE  UF05A
*"     VALUE(I_XVBUP) LIKE  OFIWA-XVBUP DEFAULT 'X'
*"  TABLES
*"      T_AUSZ1 STRUCTURE  AUSZ1 OPTIONAL
*"      T_AUSZ2 STRUCTURE  AUSZ2 OPTIONAL
*"      T_AUSZ3 STRUCTURE  AUSZ_CLR OPTIONAL
*"      T_BKP1 STRUCTURE  BKP1
*"      T_BKPF STRUCTURE  BKPF
*"      T_BSEC STRUCTURE  BSEC
*"      T_BSED STRUCTURE  BSED
*"      T_BSEG STRUCTURE  BSEG
*"      T_BSET STRUCTURE  BSET
*"      T_BSEU STRUCTURE  BSEU
*"----------------------------------------------------------------------
  "--Обработка сторно банковской выписки--
  TABLES: FEBEP.
  DATA: W_BLART LIKE BKPF-BLART,
        BELNR   LIKE BKPF-BELNR,
        W_BUKRS LIKE BKPF-BUKRS.
  LOOP AT T_BKPF WHERE BLART = 'ST'.
    SELECT SINGLE BLART FROM BKPF INTO W_BLART WHERE BUKRS = T_BKPF-BUKRS AND
      BELNR = T_BKPF-STBLG AND GJAHR = T_BKPF-STJAH.
    IF W_BLART = 'ZP' OR W_BLART = 'KZ' OR W_BLART = 'DZ' .
      SELECT * FROM FEBEP WHERE BELNR = T_BKPF-STBLG AND GJAHR = T_BKPF-STJAH.
        SELECT SINGLE BUKRS FROM FEBKO INTO W_BUKRS WHERE KUKEY = FEBEP-KUKEY.
        if W_BUKRS = T_BKPF-BUKRS.
          update FEBKO set ASTAT = '7' DSTAT = '2' VB1OK = '' VB2OK = 'X' KIPRE = 'X'
              WHERE KUKEY = FEBEP-KUKEY.

          update FEBEP set EPERL = '' VB1OK = '' VB2BA = '' VB2OK = 'X' PIPRE = 'X' BELNR = '' GJAHR = ''
              WHERE KUKEY = FEBEP-KUKEY AND BELNR = T_BKPF-STBLG AND GJAHR = T_BKPF-STJAH.

          EXIT.
        endif.
      ENDSELECT.
    ENDIF.
  ENDLOOP.

ENDFUNCTION.