COMMIT WORK AND WAIT.
WRITE SY-SUBRC.
SET UPDATE TASK LOCAL.
* поле "Присвоение"
* если проводка состоялась
IF P_TESTL NE 'X'
    AND NOT P_OKUART IS INITIAL
    AND P_BUCH = 'X'
    AND P_DERIVA = 'X'
    AND NOT I_IKOFI[] IS INITIAL.
TABLES BSEG.
  LOOP AT I_FHA.
   SELECT SINGLE * FROM BSEG   WHERE ZFBDT = P_STICHT
                           AND VERTN = I_FHA-RFHA
                           AND BUKRS = I_FHA-BUKRS
                           AND GJAHR = P_STICHT(4).
   IF sy-subrc = 0.
     UPDATE BSEG SET ZUONR = I_FHA-ZUOND
                 WHERE BELNR = BSEG-BELNR
                 AND GJAHR = BSEG-GJAHR
                 AND BUKRS = BSEG-BUKRS.
   else. write 'rec not found'.
   ENDIF.

  ENDLOOP.
ENDIF.