2005 Dec 14 4:06 PM
Hi!
I need to update the "Inspection Setup" for some material masters. I found the fm "BAPI_MATINSPCTRL_SAVEREPLICA" which should be able to do this. But I have no idea how to use it.
Can somebody help me with that and show me an example how to fill the fields of the BAPI.
Thanks in advance,
Konrad
2006 Mar 13 10:23 AM
Below code Update the 'Inspection setup' for material master
Report zcall_bapi.
*Internal table to store messages returned from BAPI
DATA:
ws_return LIKE " To store status
bapiret2 OCCURS 0 WITH HEADER LINE.
Internal table to store Inspection details to pass
as parameter to BAPI
DATA:
BEGIN OF ws_qmat OCCURS 0.
INCLUDE STRUCTURE BAPI1001004_QMAT.
DATA:
END OF ws_qmat.
DATA:
WS_INSP(2).
Retrieving Quality Score procedure from TQ34 table
select single QKZVERF
from TQ34
into ws_insp
where art = 'C003'.
ws_qmat-insptype = 'C003'.
ws_qmat-material = 'AMT1212'.
ws_qmat-plant = 'DM00'.
ws_qmat-IND_INSPTYPE_MAT_ACTIVE = 'X'.
WS_QMAT-QUAL_SCORE_PROCEDURE = ws_insp.
ws_qmat-PREFERRED_INSPTYPE = 'X'.
append ws_qmat.
CALL FUNCTION 'BAPI_MATINSPCTRL_SAVEREPLICA'
TABLES
return = ws_return
inspectionctrl = ws_qmat.
IF sy-subrc NE 0.
No sy-subrc check is required
ENDIF. " IF SY-SUBRC NE 0
IF ws_return-type EQ 'S' OR
ws_return-type EQ 'I' OR
ws_return-type EQ 'W'.
To commit the transation for succesfull records
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
ENDIF.