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.

posted @ 2021-12-08 11:25  骑着蜗牛着世界  阅读(390)  评论(0编辑  收藏  举报