SAP 扩充质量视图BAIP BAPI_MATERIAL_SAVEDATA

素颜马尾好姑娘i 2023-08-17 15:49 106阅读 0赞

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

上报错图片。

![2019092714163083.png][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L1Byb2dyYW1tZXJfRnVRaWFuZw_size_16_color_FFFFFF_t_70][]

[2019092714163083.png]: /images/20230810/aa958b2073c6494d965d57c76daccdfe.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L1Byb2dyYW1tZXJfRnVRaWFuZw_size_16_color_FFFFFF_t_70]: /images/20230810/918e621644dd4d86a77ac11f8b700595.png