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

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'    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_ITEMS_IN      CONTRACT_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'      EXPORTING        WAIT = 'X'.    E_SUCC = 'S'.  ELSE.    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.  ENDIF.ENDFUNCTION.

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