ABAP销售合同冻结Bapi

FUNCTION ZSD_SALESORDER_BLOCK. *"---------------------------------------------------------------------- *"*"本地接口： *" IMPORTING *" VALUE(I_VBELN) TYPE VBAK-VBELN *" VALUE(NOAPPLLOG) TYPE CHAR1 OPTIONAL *" VALUE(TESTRUN) TYPE CHAR1 OPTIONAL *" EXPORTING *" VALUE(E_SUCC) TYPE CHAR1 *" VALUE(E_MESSAGE) TYPE GTER_TEXT *" TABLES *" IT_ITEM STRUCTURE ZVS_VBAP_BLOCK *" ET_RETURN STRUCTURE BAPIRET2 OPTIONAL *"----------------------------------------------------------------------DATA:CONTRACT_HEADER_IN LIKE BAPISDH1,CONTRACT_HEADER_INX LIKE BAPISDH1X,CONTRACT_ITEMS_IN LIKE TABLE OF BAPISDITM WITH HEADER LINE,CONTRACT_ITEMS_INX LIKE TABLE OF BAPISDITMX WITH HEADER LINE,LT_RETURN LIKE TABLE OF BAPIRET2 WITH HEADER LINE.CONTRACT_HEADER_INX-UPDATEFLAG = 'U'.LOOP AT IT_ITEM.CONTRACT_ITEMS_IN-ITM_NUMBER = IT_ITEM-POSNR.CONTRACT_ITEMS_INX-ITM_NUMBER = IT_ITEM-POSNR.CONTRACT_ITEMS_INX-UPDATEFLAG = 'U'.CONTRACT_ITEMS_IN-REASON_REJ = IT_ITEM-ABGRU.CONTRACT_ITEMS_INX-REASON_REJ = 'X'.APPEND CONTRACT_ITEMS_IN.APPEND CONTRACT_ITEMS_INX.ENDLOOP.CALL FUNCTION 'BAPI_CUSTOMERCONTRACT_CHANGE'EXPORTINGSALESDOCUMENT = I_VBELNCONTRACT_HEADER_IN = CONTRACT_HEADER_INCONTRACT_HEADER_INX = CONTRACT_HEADER_INXSIMULATION = TESTRUN * BEHAVE_WHEN_ERROR = ' ' * INT_NUMBER_ASSIGNMENT = ' ' * LOGIC_SWITCH = * NO_STATUS_BUF_INIT = ' 'TABLESRETURN = LT_RETURNCONTRACT_ITEM_IN = CONTRACT_ITEMS_INCONTRACT_ITEM_INX = CONTRACT_ITEMS_INX * PARTNERS = * PARTNERCHANGES = * PARTNERADDRESSES = * CONDITIONS_IN = * CONDITIONS_INX = * CONTRACT_CFGS_REF = * CONTRACT_CFGS_INST = * CONTRACT_CFGS_PART_OF = * CONTRACT_CFGS_VALUE = * CONTRACT_CFGS_BLOB = * CONTRACT_CFGS_VK = * CONTRACT_CFGS_REFINST = * CONTRACT_TEXT = * CONTRACT_DATA_IN = * CONTRACT_DATA_INX = * CONTRACT_KEYS = * EXTENSIONIN = * EXTENSIONEX =.APPEND LINES OF LT_RETURN TO ET_RETURN.LOOP AT LT_RETURN WHERE TYPE = 'E' OR TYPE = 'A'.E_SUCC = 'E'.CONCATENATE E_MESSAGE LT_RETURN-MESSAGE ';' INTO E_MESSAGE.ENDLOOP.IF SY-SUBRC <> 0.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = 'X'.E_SUCC = 'S'.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ENDIF.ENDFUNCTION.

总结

以上是生活随笔为你收集整理的ABAP销售合同冻结Bapi的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。