FUNCTION z_f_co_process_00001120.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     REFERENCE(I_BKDF) TYPE  BKDF
*"  TABLES
*"      T_BKPF STRUCTURE  BKPF
*"      T_BSEG STRUCTURE  BSEG
*"      T_BKPFSUB STRUCTURE  BKPF_SUBST
*"      T_BSEGSUB STRUCTURE  BSEG_SUBST
*"  CHANGING
*"     REFERENCE(I_BKDFSUB) TYPE  BKDF_SUBST
*"----------------------------------------------------------------------
  FIELD-SYMBOLS:<fs> TYPE ANY.
  ASSIGN ('(SAPRCKMA_RUN_CLOSE)P_VORG')  TO  <fs>.
  IF sy-subrc <> 0 OR <fs> IS INITIAL.
    ASSIGN ('(SAPRCKMA_ABSCHLUSSBUCHUNGEN)P_VORG') TO <fs>.
    IF sy-subrc <> 0 OR <fs> IS INITIAL.
      ASSIGN ('(SAPLKO72)AUAK-STFLG')  TO  <fs>.
      IF sy-subrc <> 0 OR <fs> IS INITIAL.
* F#r die parallelen Prozesse, laut der Note 443444 - CKMLCP: Parallel processing of costing functions
        ASSIGN ('(SAPLCKMLMVRUN)GD_MGV_STRG-APPL_STRG') TO <fs>.
        IF <fs> IS ASSIGNED
        AND NOT <fs> IS INITIAL.
          <fs> = <fs>+12(2).
        ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.
*-------------------ПРОВЕРКА ПРИЗНАКА СТОРНО ДОКУМЕНТА---------------*
  IF sy-subrc = 0 AND ( <fs> = 'AS' OR <fs> = 'X' ).
    LOOP AT t_bsegsub.
      t_bsegsub-xnegp = 'X'.
      MODIFY t_bsegsub TRANSPORTING xnegp.
    ENDLOOP.
  ENDIF.
ENDFUNCTION.