*****ATP检测
DATA: END_RLT LIKE EBAN-LFDAT,
NOT_AVAILABLE,
AVAILABLE(3),
AVAIL_QTY_PLANT LIKE BAPICM61V-WKBST.
DATA:xwmdvsx LIKE BAPIWMDVS OCCURS 0,
xwmdvex LIKE BAPIWMDVE OCCURS 0.
DATA: ls_temp type BAPIWMDVS.
DATA: ls_temp_ex type BAPIWMDVE.
ls_temp-REQ_DATE = ls_sale-ETDAT.
ls_temp-REQ_QTY = ls_sale-sqty.
append ls_temp to xwmdvsx.
CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'
EXPORTING
plant = ls_sale-WERKS
material = ls_sale-MABNR
unit = ls_sale-meins
check_rule = 'A'
STGE_LOC = ls_sale-LGORT
* BATCH = ls_sale-CHARG
CUSTOMER = ls_first
* DOC_NUMBER = SALESDOCUMENT
ITM_NUMBER = ls_sale-POSNR
DEC_FOR_ROUNDING = '0'
IMPORTING
endleadtme = end_rlt
av_qty_plt = avail_qty_plant
dialogflag = not_available
TABLES
wmdvsx = xwmdvsx
wmdvex = xwmdvex
EXCEPTIONS
error_message = 1.
read table xwmdvex index 1 into ls_temp_ex.