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 .