本文共 1978 字，大约阅读时间需要 6 分钟。

FUNCTION ZSD_SALESORDER_DELETE.*"----------------------------------------------------------------------*"*"本地接口：*"  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*"      ET_RETURN STRUCTURE  BAPIRET2 OPTIONAL*"----------------------------------------------------------------------  DATA:CONTRACT_HEADER_IN  LIKE  BAPISDH1,       CONTRACT_HEADER_INX LIKE  BAPISDH1X,       LT_RETURN           LIKE TABLE OF BAPIRET2 WITH HEADER LINE.  CONTRACT_HEADER_INX-UPDATEFLAG = 'D'.  CALL FUNCTION 'BAPI_CUSTOMERCONTRACT_CHANGE'    EXPORTING      SALESDOCUMENT       = I_VBELN      CONTRACT_HEADER_IN  = CONTRACT_HEADER_IN      CONTRACT_HEADER_INX = CONTRACT_HEADER_INX      SIMULATION          = TESTRUN*     BEHAVE_WHEN_ERROR   = ' '*     INT_NUMBER_ASSIGNMENT       = ' '*     LOGIC_SWITCH        =*     NO_STATUS_BUF_INIT  = ' '    TABLES      RETURN              = LT_RETURN*     CONTRACT_ITEM_IN    =*     CONTRACT_ITEM_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'      EXPORTING        WAIT = 'X'.    E_SUCC = 'S'.  ELSE.    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.  ENDIF.ENDFUNCTION.

转载地址：http://hmqaf.baihongyu.com/