REPORT  ztesta.

"-----(删除销售订单 VA02)

"-----BAPI_SALESORDER_CHANGE(销售订单删除)

" 输入一个销售订单编号，然后删除

*SELECTION-SCREEN
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE text-001.

  PARAMETERS:  l_vbeln TYPE vbak-vbeln.

SELECTION-SCREEN END OF BLOCK bk1.

data: ls_vbak TYPE vbak , lt_vbak TYPE TABLE OF vbak.

data: f_headinx LIKE bapisdh1x,
      t_ret TYPE TABLE OF bapiret2.

clear: f_headinx .
IF L_VBELN IS NOT INITIAL.
f_headinx-updateflag = 'D'.

call FUNCTION 'BAPI_SALESORDER_CHANGE'
  EXPORTING
     SALESDOCUMENT    = L_VBELN
     ORDER_HEADER_INX = f_headinx
  TABLES
     RETURN           = T_RET.

COMMIT WORK AND WAIT .

ENDIF.

SELECT SINGLE * INTO ls_vbak FROM VBAK  WHERE VBELN = L_VBELN .

if ls_vbak is INITIAL.

   WRITE 'done'.

ENDIF.