QPL1_INSPECTION_LOTS_POSTING创建检验批后无反应不报错有检验批生成最后数据库中并没有真正生成检验批
源代码(部分代码)
"程序中存在直接更新标准表QALS自定义字段zdetectionid
DATA:L_QALS TYPE QALS,
LO_QALS TYPE QALS,
L_RMQED TYPE RMQED,
L_PRUEFLOS TYPE QALS-PRUEFLOS,
L_SUBRC TYPE SY-SUBRC,
LV_MATNR TYPE MARA-MATNR,
LV_VPSTA TYPE MARA-VPSTA,
LV_WERKS TYPE T001W-WERKS,
LS_MESSAGE TYPE BAPIRET2,
RS_OUT TYPE ZPIMT_OTHERQM0011,
RS_IN TYPE ZPIMT_OTHERQM001_FEDBK1.
DATA:LS_BAPIRET2 TYPE BAPIRET2.
CALL FUNCTION 'QPL1_INITIALIZE'
EXPORTING
I_LOT_DATA_ONLY = 'X'.
*ZDETECTIONID
"创建检验批
L_QALS-MATNR = LV_MATNR.
L_QALS-WERK = LV_WERKS.
L_QALS-HERKUNFT = '89'.
L_QALS-ART = IS_INPUT-DATA-ART.
L_QALS-MANDANT = SY-MANDT.
L_QALS-EBELN = IS_INPUT-DATA-EBELN.
* L_QALS-KUNNR = PKUNNR.
L_QALS-KTEXTLOS = IS_INPUT-DATA-KTEXTLOS.
L_RMQED-DBS_STEUER = '01'.
L_RMQED-DBS_FLAG = 'X'.
L_RMQED-DBS_EDUNK = 'X'.
L_RMQED-DBS_FDUNK = 'X'.
L_RMQED-DBS_NOERR = 'X'.
L_RMQED-DBS_NOWRN = 'X'.
L_RMQED-DBS_NOCHG = 'X'.
L_RMQED-DBS_SUBRC = 'X'.
L_RMQED-DBS_NOAUF = 'X'.
CLEAR:LS_INPUT,LS_WMS066_OUTPUT,LS_BATCHS,LS_WMS066_INPUT.
LS_WMS066_INPUT-DEST-DEST_ID = 'WMS'.
"调用接口获取批次
LS_INPUT-WERKS = L_QALS-WERK.
APPEND LS_INPUT TO LS_WMS066_INPUT-DATA.
CALL FUNCTION 'ZFM_IF_ZWMS066'
EXPORTING
IS_INPUT = LS_WMS066_INPUT
IMPORTING
ES_OUT = LS_WMS066_OUTPUT.
IF LS_WMS066_OUTPUT-DATA IS NOT INITIAL.
READ TABLE LS_WMS066_OUTPUT-DATA INTO LS_BATCHS INDEX 1.
IF SY-SUBRC = 0.
L_QALS-CHARG = LS_BATCHS-CHARG.
ENDIF.
ENDIF.
* Create lot in local LUW...
CALL