物料批次特性值

最新推荐文章于 2025-03-12 11:22:34 发布

转载最新推荐文章于 2025-03-12 11:22:34 发布 · 6.2k 阅读

文章标签：

#function #class #object #vb

ABAP 专栏收录该内容

42 篇文章

订阅专栏

MARA-MATNR = INOB-OBJEK

INOB-CUOBJ = KSSK-CLINT

KSSK-OBJEK = AUSP-OBJEK

物料特性可以从MM03分类批次特性MSC3N中查看

类的T-CODE: CL03

特性T-CODE: CT04

特性可以通过下面的BAPI来进行批量维护：

BAPI_CHARACT_CREATE
BAPI_CHARACT_CHANGE
BAPI_CHARACT_DELETE
BAPI_CHARACT_GETDETAIL

特性分配给物料之后，如果要维护物料的特性值，会用到下面的BAPI函数

BAPI_OBJCL_GETDETAIL
BAPI_OBJCL_CHANGE

先用BAPI_OBJCL_GETDETAIL取得到物料的类下面的所有特性值，然后修改特性值，最后用BAPI_OBJCL_CHANGE写回去。

CALL FUNCTION ‘BAPI_OBJCL_GETDETAIL’
EXPORTING
    objectkey              = 物料号
    objecttable            = ‘MARA’
    classnum               = 类别
    classtype              = 类别种类
tables
    allocvaluesnum         = 数值型特性值
    allocvalueschar        = 字符型特性值
    allocvaluescurr        = 货币型特性值
    return                 = 返回值
          .

对于QM的批次特性来说，质检对每个批次检验结果回写到批次特性值中。同样可以用下面的。

BAPI_OBJCL_GETDETAIL
BAPI_OBJCL_CHANGE

但是调用BAPI_OBJCL_GETDETAIL的时候参数需要用另外的function取得：

CALL FUNCTION ‘VB_BATCH_2_CLASS_OBJECT’
EXPORTING
    i_matnr       = 物料号
    i_charg       = 批次号
    I_WERKS       = 工厂
IMPORTING
    E_OBJEK       = 对应objectkey
    E_OBTAB       = 对应objecttable
    E_KLART       = 对应classtype
    E_CLASS       = 对应classnum
          .

批次特性的T-CODE: MSC3N

charact = ‘ZZYS’.“颜色
    perform get_charg_type
    using it_mseg-matnr  it_mseg-charg it_mseg-werks  charact
    changing it_mseg-z_color.

form get_charg_type
  using matnr type matnr
         charg type charg_d
         werks type  werks_d
        charact type char30
  changing rtnstr type char30.

  data:r_e_objek type objnum,
       r_e_obtab type tabelle,
       r_e_klart type klassenart,
       r_e_class type klasse_d.

  data: allocvaluesnum type standard table of bapi1003_alloc_values_num with header line,
        allocvalueschar type standard table of bapi1003_alloc_values_char with header line,
        allocvaluescurr type standard table of bapi1003_alloc_values_curr with header line,
       return type standard table of bapiret2.
  call function ‘VB_BATCH_2_CLASS_OBJECT’
    exporting
      i_matnr       = matnr
      i_charg       = charg
      i_werks       = werks
    importing
      e_objek       = r_e_objek
      e_obtab       = r_e_obtab
      e_klart       = r_e_klart
      e_class       = r_e_class.

    call function ‘BAPI_OBJCL_GETDETAIL’
      exporting
        objectkey              = r_e_objek
        objecttable            = r_e_obtab
        classnum               = r_e_class
        classtype              = r_e_klart
*       KEYDATE                = SY-DATUM
*       UNVALUATED_CHARS       = ’ ’
*       LANGUAGE               = SY-LANGU
*     IMPORTING
*       STATUS                 =
*       STANDARDCLASS          =
      tables
        allocvaluesnum         = allocvaluesnum
        allocvalueschar        = allocvalueschar
        allocvaluescurr        = allocvaluescurr
        return                 = return
              .

    loop at _allocvalueschar.
      if allocvalueschar-charact = charact.
        rtnstr = allocvalueschar-value_char.
      endif.
    endloop.
    loop at _allocvaluesnum.
      if allocvaluesnum-charact = charact.
        data:ps type p decimals 4.
        move allocvaluesnum-value_from to ps.
        move ps to rtnstr.
      endif.
    endloop.
endform.