SAP 会计凭证字段增强，结构zsfi_0001

增强点：ACC_DOCUMENT 实施：ZME_ACC_DOCUMNET 方法：CHANGE

METHOD if_ex_acc_document~change.
DATA: wa_extension TYPE bapiparex,
zext_data TYPE zsfi_0001.

FIELD-SYMBOLS: <accit> TYPE accit.
IF c_extension2[] IS NOT INITIAL.
LOOP AT c_extension2 INTO wa_extension WHERE structure = 'ZSFI_0001'.
zext_data = wa_extension-valuepart1.
READ TABLE c_accit ASSIGNING <accit> WITH KEY posnr = zext_data-posnr.
IF sy-subrc = 0.
<accit>-rstgr = zext_data-rstgr.
<accit>-xnegp = zext_data-xnegp.
<accit>-anbwa = zext_data-anbwa.
<accit>-bschl = zext_data-bschl.
<accit>-umskz = zext_data-umskz.
<accit>-xref1_hd = zext_data-xref1_hd.
ENDIF.
ENDLOOP.
ENDIF.
ENDMETHOD.