二维码

求批量修改采购订单ME22N价格、以及ME12价格的程序!

xacwc发表于 2015-05-08 13:04Twilight 最后回复于 2015-05-11 10:45 [复制链接] 10002 3

急用,谢谢!
回复

使用道具 举报

Twilight
用bapi就可以了:
ME12----BAPI_PRICES_CONDITIONS
ME22N----BAPI_PO_CHANGE
回复 支持 反对

使用道具 举报

xacwc
leon 发表于 2015-5-8 14:32
用bapi就可以了:
ME12----BAPI_PRICES_CONDITIONS
ME22N----BAPI_PO_CHANGE

坛主,ME22N有BAPI_PO_CHANGE
01.jpg
更新没有成功,求坛主老师指导怎么填写其中的参数?
ME12这个,参照网上的代码http://blog.csdn.net/szq_zhengzhou/article/details/4532459,用BAPI_PRICES_CONDITIONS价格也没有成功
  1.     it_condct-operation  = '004'.       "功能
  2.     it_condct-cond_usage = 'A'.         "条件表用途
  3.     it_condct-table_no = '017'.         "条件表
  4.     it_condct-applicatio = 'M'.         "应用程序
  5.     it_condct-cond_type  = 'PB00'.      "条件类型
  6.     it_condct-cond_no    = it_tab-infnr."条件记录号
  7. *    it_condct-valid_from =.    "条件记录有效起始日期
  8. *    it_condct-valid_to   = .    "条件记录有效截止日期
  9.     it_condct-varkey = l_key.
  10.     APPEND it_condct.


  11.     it_condhd-operation = '004'.
  12.     it_condhd-cond_usage = 'A'.
  13.     it_condhd-table_no   = '017'.
  14.     it_condhd-applicatio = 'M'.
  15.     it_condhd-cond_type  = 'PB00'.
  16.     it_condhd-cond_no = it_tab-infnr.
  17. *    it_condhd-valid_from = .
  18. *    it_condhd-valid_to   = .
  19.     it_condhd-varkey     = l_key.
  20.     APPEND it_condhd.


  21.     it_condit-operation = '004'.
  22.     it_condit-cond_count = '01'.
  23.     it_condit-applicatio = 'M'.
  24.     it_condit-cond_type  = 'PB00'.
  25.     it_condit-cond_no = it_tab-infnr.
  26.     it_condit-scaletype  = 'A'.
  27.     it_condit-conditidx  = '01'.
  28.     it_condit-cond_p_unt = '1'.
  29.     it_condit-cond_unit  = 'SET'.
  30.     PERFORM convert_into_input CHANGING it_condit-cond_unit.
  31.     it_condit-calctypcon = 'C'.
  32.     it_condit-exclusion  = 'X'.
  33.     it_condit-pmnttrms   = ''.
  34.     it_condit-condcurr   = 'CNY'.
  35.     it_condit-cond_value = it_tab-e_netpr.

  36.     APPEND it_condit.

  37. CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
  38.   TABLES
  39.     ti_bapicondct  = it_condct
  40.     ti_bapicondhd  = it_condhd
  41.     ti_bapicondit  = it_condit
  42.     ti_bapicondqs  = it_condqs
  43.     ti_bapicondvs  = it_condvs
  44.     to_bapiret2    = it_ret_mes
  45.     to_bapiknumhs  = it_knumhs
  46.     to_mem_initial = it_mem_initial
  47.   EXCEPTIONS
  48.     update_error   = 1
  49.     OTHERS         = 2.
  50. IF sy-subrc = 0.
  51.   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

  52. ENDIF.
复制代码

求楼主能不能指点更正一下,正确的代码,谢谢?只需要修改采购订单行项目的价格、采购信息记录的价格
回复 支持 反对

使用道具 举报

Twilight
xacwc 发表于 2015-5-9 09:17
坛主,ME22N有BAPI_PO_CHANGE

更新没有成功,求坛主老师指导怎么填写其中的参数?

1、PO净价在行项目里,你找的是条件价格吧,试试下面的:
BAPIMEPOITEM-NET_PRICE = NETPR.
BAPIMEPOITEMX-NET_PRICE = 'X'.
2、捕捉消息不严谨,e消息的return中也可能含有s
3、错误情况缺乏BAPI_TRANSACTION_ROLLBACK
4、实在不行试试BDC
回复 支持 反对

使用道具 举报

快速回帖

本版积分规则
您需要登录后才可以回帖 登录 | 注册有礼

快速回复 返回顶部 返回列表