物料评估类型视图扩充

IT_MBEW LIKEZMS_MBEW 物料评估视图扩充
ET_RETURN LIKEBAPIRET2 返回参数

ZMS_MBEW：

MTART 1 类型 MTART CHAR 4 0 物料类型

MATNR 1 类型 MATNR CHAR 18 0 物料号
BWKEY 1 类型 BWKEY CHAR 4 0 评估范围
BWTAR 1 类型 BWTAR_D CHAR 10 0 评估类型
VPRSV 1 类型 VPRSV CHAR 1 0 价格控制指示符
STPRS 1 类型 STPRS CURR 11 2 标准价格
PEINH 1 类型 PEINH DEC 5 0 价格单位
BKLAS 1 类型 BKLAS CHAR 4 0 评估类
BWTTY 1 类型 BWTTY_D CHAR 1 0 评估类别

MLAST 1 类型 CK_ML_ABST CHAR1 0 物料价格确定: 控制

FUNCTION ZFI_MATERIAL_BWTAR_MAINTAIN.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(TESTRUN) LIKE  BAPIE1GLOBAL_DATA-TESTRUN OPTIONAL
*"     VALUE(NOAPPLLOG) TYPE  CHAR1 OPTIONAL
*"  EXPORTING
*"     VALUE(E_SUCC) TYPE  CHAR1
*"     VALUE(E_MESSAGE) TYPE  GTER_TEXT
*"  TABLES
*"      IT_MBEW STRUCTURE  ZMS_MBEW
*"      ET_RETURN STRUCTURE  BAPIRET2
*"----------------------------------------------------------------------
  CLEAR :E_MESSAGE,E_SUCC.

DATA:RETURN         TYPE BAPIRET2,
       HEADDATA       LIKE TABLE OF BAPIE1MATHEADER WITH HEADER LINE,
       VALUATIONDATA  LIKE TABLE OF BAPIE1MBEW WITH HEADER LINE,
       VALUATIONDATAX LIKE TABLE OF BAPIE1MBEWX WITH HEADER LINE,
       RETURNMESSAGES LIKE TABLE OF BAPIE1RET2 WITH HEADER LINE.
  DATA:LV_BAPIFN     TYPE BAPIFN, "INS 插入 UPD 更新 DEL 删除
       INP_FLD_CHECK TYPE BAPIE1GLOBAL_DATA-INP_FLD_CHECK VALUE ''.
  REFRESH:ET_RETURN,RETURNMESSAGES,VALUATIONDATA,VALUATIONDATAX,HEADDATA.

SORT IT_MBEW BY MTART MATNR BWKEY BWTAR.
  DELETE ADJACENT DUPLICATES FROM IT_MBEW COMPARING  MTART MATNR BWKEY BWTAR.
  LOOP AT IT_MBEW.
* HEADER
    LV_BAPIFN = 'UPD'.
    HEADDATA-FUNCTION = LV_BAPIFN.
    HEADDATA-MATERIAL = IT_MBEW-MATNR.
    HEADDATA-IND_SECTOR = 'M'.
    HEADDATA-MATL_TYPE = IT_MBEW-MTART.
    HEADDATA-ACCOUNT_VIEW = 'X'.
*    HEADDATA-COST_VIEW = 'X'.
    APPEND HEADDATA.

VALUATIONDATA-FUNCTION = LV_BAPIFN.
    VALUATIONDATAX-FUNCTION = LV_BAPIFN.
    VALUATIONDATA-MATERIAL = IT_MBEW-MATNR.
    VALUATIONDATAX-MATERIAL = IT_MBEW-MATNR.
    VALUATIONDATA-VAL_AREA = IT_MBEW-BWKEY.
    VALUATIONDATAX-VAL_AREA = IT_MBEW-BWKEY.
    VALUATIONDATA-VAL_TYPE = IT_MBEW-BWTAR.
    VALUATIONDATAX-VAL_TYPE = IT_MBEW-BWTAR.
    VALUATIONDATA-VAL_CLASS = IT_MBEW-BKLAS.
    VALUATIONDATAX-VAL_CLASS = 'X'.
    VALUATIONDATA-VAL_CAT = IT_MBEW-BWTTY.
    VALUATIONDATAX-VAL_CAT = 'X'.
    VALUATIONDATA-PRICE_CTRL = IT_MBEW-VPRSV.
    VALUATIONDATAX-PRICE_CTRL =  'X'.
    VALUATIONDATA-ML_SETTLE = IT_MBEW-MLAST.
    VALUATIONDATAX-ML_SETTLE = 'X'.
    IF VALUATIONDATA-PRICE_CTRL = 'V'.
      VALUATIONDATA-MOVING_PR = IT_MBEW-STPRS.
      VALUATIONDATAX-MOVING_PR =  'X'.
    ELSEIF VALUATIONDATA-PRICE_CTRL = 'S'.
      VALUATIONDATA-STD_PRICE = IT_MBEW-STPRS.
      VALUATIONDATAX-STD_PRICE =  'X'.
    ENDIF.
    VALUATIONDATA-PRICE_UNIT = IT_MBEW-PEINH.
    VALUATIONDATAX-PRICE_UNIT =  'X'.
    APPEND:VALUATIONDATA,VALUATIONDATAX.
    CLEAR :VALUATIONDATA,VALUATIONDATAX.
  ENDLOOP.

IF E_SUCC <> 'E'.
    CALL FUNCTION 'BAPI_MATERIAL_SAVEREPLICA'
      EXPORTING
        NOAPPLLOG      = ''
        NOCHANGEDOC    = ''
        TESTRUN        = TESTRUN
        INPFLDCHECK    = INP_FLD_CHECK
      IMPORTING
        RETURN         = RETURN
      TABLES
        HEADDATA       = HEADDATA
        VALUATIONDATA  = VALUATIONDATA
        VALUATIONDATAX = VALUATIONDATAX
        RETURNMESSAGES = RETURNMESSAGES.
    APPEND LINES OF RETURNMESSAGES TO ET_RETURN.
    LOOP AT RETURNMESSAGES WHERE TYPE = 'E' OR TYPE = 'A'.
      E_SUCC  = 'E'.
      E_MESSAGE = E_MESSAGE && RETURNMESSAGES-MESSAGE.
    ENDLOOP.
    IF SY-SUBRC = 0 OR RETURN-TYPE = 'E' OR RETURN-TYPE = 'A'.
      IF RETURN-NUMBER = '157' AND RETURN-ID = 'MG'.
      ELSE.
        IF RETURN-TYPE = 'E' OR RETURN-TYPE = 'A'..
          E_SUCC  = 'E'.
          E_MESSAGE = E_MESSAGE && RETURN-MESSAGE.
          MOVE-CORRESPONDING RETURN to ET_RETURN.
          append ET_RETURN.
        ENDIF.
      ENDIF.
    ELSE."保存成功
      E_SUCC  = 'S'.
      IF TESTRUN = 'X'.
        E_MESSAGE = E_MESSAGE && '检查OK;'.
      ELSE.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            WAIT = 'X'.
        E_MESSAGE = E_MESSAGE && '保存成功;'.
      ENDIF.
    ENDIF.
  ENDIF.
ENDFUNCTION.

物料评估类型视图扩充相关推荐

【转】评估类型评估类别评估类
https://blog.csdn.net/zhongguomao/article/details/13629065?locationNum=6&fps=1 https://blog.csdn ...
SAP MM 评估类型评估类别
同一物料的使用,既有"自制品",又有"外购品",并且其来源不同,如同一外购品由不同的供应商提供,价格也不相同.也就是说:同一物料有不同的价值指派,即在不同的条件 ...
SAP QM初阶之物料主数据QM视图里的Preferred Inpspection Type
SAP QM初阶之物料主数据QM视图里的Preferred Inpspection Type 物料主数据的QM视图里,在激活检验类型的界面,对于每个Inspection Type,我们都需要勾选Act ...
SAP QM 物料主数据QM视图里字段MARC-INSMK的更新
SAP QM 物料主数据QM视图里字段MARC-INSMK的更新在物料主数据的质量管理视图,有一个字段'Post to Insp.stock'(MARC-INSMK)的.该字段在启用了QM模块之后, ...
SAP MM 物料主数据分类视图的数据会带入批次分类视图里？
SAP MM 物料主数据分类视图的数据会带入批次分类视图里? 1,我们在物料主数据的分类视图里的023类型的分类里,维护了一个特性的值,比如'Potency in IU/MG' 这个特性的值为500. ...
SAP MM 物料主数据consumption视图数据的更新？
物料的消耗是引起增值的业务,比如消耗进入固定资产等等. 报废或者破坏性抽检的物料的提取过账后不会更新物料主数据的Consumption VIEW. 1>报废不会更新消耗VIEW的验证: 比如如下 ...
SAP物料移动类型和自动科目设置(包含财务，pp)
物料移动类型和后勤自动科目设置后勤应该如何实时和财务集成,原则上,应该尽量让后勤人员在物料交易时不过多涉及财务专业知识,而是让系统自动产生会计凭证,ERP各模块都自动和财务集成,下面一步步详细说说E ...
C088提示某订单发送失败，缺少评估类型
检查AFPO订单状态,是否有物料移动. 或KKF3查看附加-评估数据,看是否有值. 检查订单控制数据,是否为TECO. 如果没有物料移动,没有评估类型,又是TECO的情况下,可能是漏收货,也可能是误打 ...
SAP笔记-物料移动类型和后勤自动科目设置
SAP笔记-物料移动类型和后勤自动科目设置 http://blog.csdn.net/fangkailove/article/details/3889891 物料移动类型和后勤自动科目设置(2009/ ...

物料评估类型视图扩充

物料评估类型视图扩充相关推荐

最新文章

热门文章