SAP创建检验特性-BAPI（附源码）

检验特性创建事务代码QS21

BAPI:BAPI_QPMK_SAVEREPLICA

检验特性创建分为：定性特征和定量特征 

先自己手工的用事务代码QS21创建两个，清楚哪些字段必填，定性和定量都有哪些字段

  DATA: ls_qpmk TYPE bapiqpmk_qpmk,
        lt_qpmk TYPE TABLE OF bapiqpmk_qpmk,
        ls_qpmz TYPE bapiqpmk_qpmz,
        lt_qpmz TYPE TABLE OF bapiqpmk_qpmz,
        ls_qpmt TYPE bapiqpmk_qpmt,
        lt_qpmt TYPE TABLE OF bapiqpmk_qpmt,
        lt_mstcha_insp_meth TYPE TABLE OF bapiqpmk_qpmz,
        ls_mstcha_insp_meth TYPE bapiqpmk_qpmz,
        ls_return TYPE bapiret2,
        lt_return TYPE TABLE OF bapiret2.

  DATA: ls_qmkst TYPE qmkst.

  LOOP AT t_data.
    CLEAR: ls_qpmk, ls_qpmz, ls_qpmt, ls_return,
           lt_qpmk, lt_qpmz, lt_qpmt, lt_return.

    CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
      EXPORTING
        object                 = 'QMERKMALE'
      EXCEPTIONS
        foreign_lock           = 1
        object_not_found       = 2
        system_failure         = 3
        OTHERS                 = 4.

    CALL FUNCTION 'NUMBER_GET_NEXT'
      EXPORTING
        nr_range_nr = '01'
        object      = 'QMERKMALE'
        subobject   = t_data-werks
        quantity    = '1'
      IMPORTING
*        returncode  = lt_return
        number      = t_data-mkmnr.

    CALL FUNCTION 'NUMBER_RANGE_DEQUEUE'
      EXPORTING
        object                 = 'QMERKMALE'
      EXCEPTIONS
        object_not_found       = 1
        OTHERS                 = 2.

    IF t_data-mkmnr IS INITIAL.
      t_data-type = 'E'.
      t_data-message = '生