SAP 内外交货单过账
* 交货单过账
DATA: LS_HEADER_DATA TYPE BAPIIBDLVHDRCON,
LS_HEADER_CONTROL TYPE BAPIIBDLVHDRCTRLCON,
LW_DELIVERY TYPE BAPIOBDLVHDRCON-DELIV_NUMB,
IT_RETURN TYPE TABLE OF BAPIRET2 ,
IS_RETURN TYPE BAPIRET2.
LS_HEADER_DATA-DELIV_NUMB = 交货单号.
LS_HEADER_CONTROL-DELIV_NUMB = 交货单号.
LS_HEADER_CONTROL-POST_GI_FLG = 'X' .
LW_DELIVERY = 交货单号.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CONFIRM_DEC'
"CALL FUNCTION 'BAPI_INB_DELIVERY_CONFIRM_DEC'
EXPORTING
HEADER_DATA = LS_HEADER_DATA
HEADER_CONTROL = LS_HEADER_CONTROL
DELIVERY = LW_DELIVERY
TABLES
RETURN = IT_RETURN.
LOOP AT IT_RETURN INTO IS_RETURN WHERE TYPE = 'E' OR TYPE = 'A'.
CONDENSE IS_RETURN-ID NO-GAPS.
CONDENSE IS_RETURN-MESSAGE NO-GAPS.
CONCATENATE IS_RETURN-ID
IS_RETURN-MESSAGE
报错信息
INTO 报错信息
SEPARATED BY ' '.
CLEAR IS_RETURN.
ENDLOOP.
IF SY-SUBRC = 0.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
ENDIF.