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）的時候 之前一直報錯，具體怎麼事我也沒搞明白，後來我的字段順序跟數據庫字段順序一直就不報錯了。

上報錯圖片。