需求就是根据 物料号 工厂 检验类型 然后调用 BAPI_MATERIAL_SAVEDATA。
* 数据声明
DATA:
headdata LIKE bapimathead, "带有控制信息的表头段
return LIKE bapiret2, "返回参数
lwa_plantdata TYPE bapi_marc,
lwa_plantdatax TYPE bapi_marcx,
returnmes LIKE bapi_matreturn2 OCCURS 0 WITH HEADER LINE.
* 抬头数据 ,物料和视图维护
headdata-material = MATNR . "物料号
lwa_plantdata-plant = WERKS . “工厂
lwa_plantdatax-plant = WERKS . ”工厂
* CallBAPI
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA' "此BIP 叫扩充质量视图
EXPORTING
headdata = headdata
plantdata = lwa_plantdata
plantdatax = lwa_plantdatax
IMPORTING
return = return
TABLES
returnmessages = returnmes.
IF return-type = 'E'.
CLEAR MATNR.
CLEAR WERKS .
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSEIF return-type = 'S'."修改成功之后还需要调用质量视图里的字段内容(BAPI_MATINSPCTRL_SAVEREPLICA)
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
ENDIF.
"接下来需要调用质量视图
DATA:LT_INSPECTIONCTRL TYPE TABLE OF BAPI1001004_QMAT,
LS_INSPECTIONCTRL TYPE BAPI1001004_QMAT,
LT_RETURN TYPE TABLE OF BAPIRET2.
DATA:LS_TQ34 TYPE TQ34.
"BREAK-POINT.
LS_INSPECTIONCTRL-MATERIAL = MATNR."'303012001'. 物料号
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
INPUT = LS_INSPECTIONCTRL-MATERIAL
IMPORTING
OUTPUT = LS_INSPECTIONCTRL-MATERIAL
* EXCEPTIONS
* LENGTH_ERROR = 1
* OTHERS = 2
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
LS_INSPECTIONCTRL-FUNCTION = '004'."这个我给写死了如果不需要删除此字段
LS_INSPECTIONCTRL-INSPTYPE = ART. "检验类型
LS_INSPECTIONCTRL-MATERIAL = LS_INSPECTIONCTRL-MATERIAL."物料号
LS_INSPECTIONCTRL-PLANT = WERKS."工厂
SELECT SINGLE *
INTO LS_TQ34
FROM TQ34
WHERE ART = LS_INSPECTIONCTRL-INSPTYPE.
LS_INSPECTIONCTRL-IND_INSP_WITH_TSK_LIST = LS_TQ34-PPL.
LS_INSPECTIONCTRL-IND_SPEC_MATSPEC = LS_TQ34-SPEZUEBER.
LS_INSPECTIONCTRL-IND_SPEC_CONFIG = LS_TQ34-CONF.
LS_INSPECTIONCTRL-IND_SPEC_BATCH = LS_TQ34-TLS.
LS_INSPECTIONCTRL-IND_AUTO_ASSIGN = LS_TQ34-APP.
LS_INSPECTIONCTRL-IND_INSP_BY_CHARAC = LS_TQ34-MER.
LS_INSPECTIONCTRL-IND_POST_TO_INSP_STOCK = LS_TQ34-INSMK.
LS_INSPECTIONCTRL-IND_AUTOMATIC_UD = LS_TQ34-AVE.
LS_INSPECTIONCTRL-SAMPLING_PROCEDURE = LS_TQ34-STICHPRVER.
LS_INSPECTIONCTRL-DYN_MODIF_RULE = LS_TQ34-DYNREGEL.
LS_INSPECTIONCTRL-INSP_PERCENTAGE = LS_TQ34-SPROZ.
LS_INSPECTIONCTRL-IND_100_PERCENT_INSPECTION = LS_TQ34-HPZ.
LS_INSPECTIONCTRL-IND_SKIPS_ALLOWED = LS_TQ34-DYN.
LS_INSPECTIONCTRL-IND_MANUAL_SAMPLE = LS_TQ34-MPB.
LS_INSPECTIONCTRL-IND_MANUAL_SAMPLE_CALC = LS_TQ34-MST.
LS_INSPECTIONCTRL-IND_SINGLE_UNITS_POSSIBLE = LS_TQ34-EIN.
LS_INSPECTIONCTRL-AVE_INSP_DURATION = LS_TQ34-MPDAU.
LS_INSPECTIONCTRL-CONTR_INSP_LOT_CREATE = LS_TQ34-CHG.
LS_INSPECTIONCTRL-QUAL_SCORE_PROCEDURE = LS_TQ34-QKZVERF.
LS_INSPECTIONCTRL-ALLOWED_SCRAP_SHARE = LS_TQ34-QPMAT.
LS_INSPECTIONCTRL-IND_INSPTYPE_MAT_ACTIVE = 'X'.
LS_INSPECTIONCTRL-PREFERRED_INSPTYPE = 'X'."首选的检验类型
"BREAK-POINT.
APPEND LS_INSPECTIONCTRL TO LT_INSPECTIONCTRL.
CALL FUNCTION 'BAPI_MATINSPCTRL_SAVEREPLICA'"质量视图里的字段内容
TABLES
RETURN = LT_RETURN
INSPECTIONCTRL = LT_INSPECTIONCTRL.
READ TABLE LT_RETURN TRANSPORTING NO FIELDS WITH KEY TYPE = 'S'.
IF LT_RETURN IS INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
MESSAGE '修改成功!' TYPE 'S'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
更新 质量视图里的字段内容(BAPI_MATINSPCTRL_SAVEREPLICA)的时候 之前一直报错,具体怎么事我也没搞明白,后来我的字段顺序跟数据库字段顺序一直就不报错了。
上报错图片。