SAP物料主数据创建质量管理视图后添加检验类型

REPORT ZTEST.

DATA:LS_HEADER TYPE BAPIMATHEAD.
DATA:LS_MARC  TYPE BAPI_MARC,

     LS_MARCX TYPE BAPI_MARCX.
DATA:LS_RETURN TYPE BAPIRET2.

BREAK-POINT.

LS_HEADER-MATERIAL = '303012001'.

CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'

  EXPORTING

    INPUT  = LS_HEADER-MATERIAL

  IMPORTING

    OUTPUT = LS_HEADER-MATERIAL.

LS_HEADER-IND_SECTOR = 'P'. "行业领域

LS_HEADER-QUALITY_VIEW = 'X'. "质量管理视图

LS_HEADER-MATL_TYPE = 'Z003'. "物料类型

LS_MARC-PLANT = '2000'.

LS_MARCX-PLANT = '2000'.

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'

  EXPORTING

    HEADDATA   = LS_HEADER
*   CLIENTDATA =
*   CLIENTDATAX                 =

    PLANTDATA  = LS_MARC

    PLANTDATAX = LS_MARCX
*   FORECASTPARAMETERS          =
*   FORECASTPARAMETERSX         =
*   PLANNINGDATA                =
*   PLANNINGDATAX               =
*   STORAGELOCATIONDATA         =
*   STORAGELOCATIONDATAX        =
*   VALUATIONDATA               =
*   VALUATIONDATAX              =
*   WAREHOUSENUMBERDATA         =
*   WAREHOUSENUMBERDATAX        =
*   SALESDATA  =
*   SALESDATAX =
*   STORAGETYPEDATA             =
*   STORAGETYPEDATAX            =
*   FLAG_ONLINE                 = ' '
*   FLAG_CAD_CALL               = ' '
*   NO_DEQUEUE = ' '
*   NO_ROLLBACK_WORK            = ' '
*   CLIENTDATACWM               =
*   CLIENTDATACWMX              =
*   VALUATIONDATACWM            =
*   VALUATIONDATACWMX           =

  IMPORTING

    RETURN     = LS_RETURN
*   TABLES
*   MATERIALDESCRIPTION         =
*   UNITSOFMEASURE              =
*   UNITSOFMEASUREX             =
*   INTERNATIONALARTNOS         =
*   MATERIALLONGTEXT            =
*   TAXCLASSIFICATIONS          =
*   RETURNMESSAGES              =
*   PRTDATA    =
*   PRTDATAX   =
*   EXTENSIONIN                 =
*   EXTENSIONINX                =
*   UNITSOFMEASURECWM           =
*   UNITSOFMEASURECWMX          =
*   NFMCHARGEWEIGHTS            =
*   NFMCHARGEWEIGHTSX           =
*   NFMSTRUCTURALWEIGHTS        =
*   NFMSTRUCTURALWEIGHTSX       =

  .
IF LS_RETURN-TYPE = 'S'.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

    EXPORTING

      WAIT = 'X'.

ELSE.

  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

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 = '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-PLANT = '2000'.

LS_INSPECTIONCTRL-INSPTYPE = 'Z02'. "检验类型

LS_INSPECTIONCTRL-IND_INSPTYPE_MAT_ACTIVE = 'X'.

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-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'.
ELSE.

  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.