ABAP销售合同删除Bapi

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.