更新会计凭证行项目BSEG-SGTXT函数

DATA : W_BSEG LIKE BSEG,
LT_FLDTAB TYPE TPIT_T_FNAME WITH HEADER LINE,
LW_FLDTAB TYPE TPIT_T_FNAME,
LW_BUZTAB TYPE TPIT_T_BUZTAB,
LT_BUZTAB TYPE TPIT_T_BUZTAB WITH HEADER LINE,
LW_ERRTAB TYPE TPIT_T_ERRDOC.

W_BSEG-SGTXT = ‘更新的凭证数据’
LT_FLDTAB-FNAME = ‘SGTXT’.
APPEND LT_FLDTAB.
WAIT UP TO ‘0.2’ SECONDS.
CALL FUNCTION ‘FI_ITEMS_MASS_CHANGE’
EXPORTING
S_BSEG = W_BSEG
IMPORTING
ERRTAB = LW_ERRTAB
TABLES
IT_BUZTAB = LT_BUZTAB
IT_FLDTAB = LT_FLDTAB
EXCEPTIONS
BDC_ERRORS = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
T_RETURN-TYPE = ‘E’.
T_RETURN-MESSAGE = ‘金税号回写到凭证更新出错!’.
APPEND T_RETURN.
ENDIF.

猜你喜欢

转载自blog.csdn.net/weixin_42921800/article/details/83419175