bapi :QPL1_INSPECTION_LOT_CREATE(qa01)的使用

来源：互联网发布：苹果提示无法加入网络编辑：程序博客网时间：2024/06/06 17:58

L_QALS-MATNR = PMATNR.
L_QALS-WERK = PWERK.
L_QALS-HERKUNFT = '02'.
L_QALS-ART = 'Z21'.
L_QALS-LOSMENGE = PMENGE.
L_QALS-KUNNR = PKUNNR.
L_QALS-KTEXTLOS = 'Test Inspection'.

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_NOAUF = 'X'.

* Create lot in local LUW...
CALL FUNCTION 'QPL1_INSPECTION_LOT_CREATE'
EXPORTING
QALS_IMP = L_QALS
RMQED_IMP = L_RMQED
IMPORTING
E_PRUEFLOS = L_PRUEFLOS
E_QALS = L_QALS
SUBRC = L_SUBRC.

IF SY-SUBRC = 0.

* Update memory stack for actual posting...
CALL FUNCTION 'QPL1_UPDATE_MEMORY'
EXPORTING
I_QALS = L_QALS
I_UPDKZ = 'I'.

* Post lot to DataBase...
CALL FUNCTION 'QPL1_INSPECTION_LOTS_POSTING'.
COMMIT WORK AND WAIT.

CONCATENATE 'Inspection lot' L_PRUEFLOS 'created successfully' INTO INSP_MSG SEPARATED BY ' '.

MESSAGE INSP_MSG TYPE 'S'.

ENDIF.

0 0