SAP 扩充质量视图BAIP BAPI_MATERIAL_SAVEDATA

需求就是根据   物料号  工厂 检验类型 然后调用  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）的时候 之前一直报错，具体怎么事我也没搞明白，后来我的字段顺序跟数据库字段顺序一直就不报错了。

上报错图片。