me12里更改信息记录的净价和有效价格,以及信息记录的条件价格
转自 http://blog.csdn.net/zeewjj/article/details/7941525
REPORT ztest.
DATA:l_kbetr LIKE konp-kbetr.
l_kbetr = '999999'.
*UPDATE konp SET kbetr = l_kbetr WHERE knumh = '0002394137'.
DATA:it_condct LIKE TABLE OF bapicondct WITH HEADER LINE,
it_condhd LIKE TABLE OF bapicondhd WITH HEADER LINE,
it_condit LIKE TABLE OF bapicondit WITH HEADER LINE,
it_condqs LIKE TABLE OF bapicondqs WITH HEADER LINE,
it_condvs LIKE TABLE OF bapicondvs WITH HEADER LINE,
it_ret_mes LIKE TABLE OF bapiret2 WITH HEADER LINE,
it_knumhs LIKE TABLE OF bapiknumhs WITH HEADER LINE,
it_mem_initial LIKE TABLE OF cnd_mem_initial WITH HEADER LINE.
*& 条件价格赋值,需要填充TI_BAPICONDCT,TI_BAPICONDHD,TI_BAPICONDIT.
it_condct-table_no = '017'.
it_condct-cond_usage = 'A'.
it_condct-cond_type = 'PB00'.
it_condct-applicatio = 'M'.
it_condct-operation = '004'.
it_condct-cond_no = '0002394137'.
it_condct-valid_from = 20090907.
it_condct-valid_to = 99991231.
DATA:l_lifnr LIKE eina-lifnr,
l_matnr LIKE eina-matnr,
l_key LIKE bapicondct-varkey.
l_lifnr = '0000001108'.
l_matnr = '5940-01972'.
CONCATENATE l_lifnr l_matnr INTO l_key.
CONCATENATE l_key '1000' INTO l_key SEPARATED BY ''.
CONCATENATE l_key '1000' '0' INTO l_key.
it_condct-varkey = l_key.
APPEND it_condct.
it_condhd-cond_no = '0002394137'.
it_condhd-operation = '004'.
it_condhd-cond_usage = 'A'.
it_condhd-table_no = '017'.
it_condhd-applicatio = 'M'.
it_condhd-cond_type = 'PB00'.
it_condhd-varkey = l_key.
it_condhd-valid_from = 20090907.
it_condhd-valid_to = 99991231.
APPEND it_condhd.
it_condit-cond_no = '0002394137'.
it_condit-operation = '004'.
it_condit-cond_count = '01'.
it_condit-applicatio = 'M'.
it_condit-cond_type = 'PB00'.
it_condit-scaletype = 'A'.
it_condit-conditidx = '01'.
it_condit-cond_p_unt = '1'.
it_condit-cond_unit = 'SET'.
PERFORM convert_into_input CHANGING it_condit-cond_unit.
it_condit-calctypcon = 'C'.
it_condit-exclusion = 'X'.
it_condit-pmnttrms = ''.
it_condit-condcurr = 'CNY'.
it_condit-cond_value = l_kbetr.
APPEND it_condit.
CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
TABLES
ti_bapicondct = it_condct
ti_bapicondhd = it_condhd
ti_bapicondit = it_condit
ti_bapicondqs = it_condqs
ti_bapicondvs = it_condvs
to_bapiret2 = it_ret_mes
to_bapiknumhs = it_knumhs
to_mem_initial = it_mem_initial
EXCEPTIONS
update_error = 1
OTHERS = 2.
IF sy-subrc = 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ENDIF.
DATA:it_einex LIKE TABLE OF eine WITH HEADER LINE,
it_einax LIKE TABLE OF eina WITH HEADER LINE,
it_einay LIKE TABLE OF eina WITH HEADER LINE ,
it_einey LIKE TABLE OF eine WITH HEADER LINE,
it_reg_eina LIKE TABLE OF eina WITH HEADER LINE.
SELECT SINGLE *
INTO it_einay
FROM eina
WHERE infnr = '5300268905'.
it_einax = it_einay.
it_reg_eina = it_einax.
SELECT *
INTO TABLE it_einey
FROM eine
WHERE infnr = '5300268905'.
LOOP AT it_einey.
it_einex = it_einey.
it_einex-netpr = l_kbetr.
it_einex-effpr = l_kbetr.
APPEND it_einex.
ENDLOOP.
CALL FUNCTION 'ME_UPDATE_INFORECORD' IN UPDATE TASK
EXPORTING
xeina = it_einax
xeine = it_einex
yeina = it_einay
yeine = it_einey
reg_eina = it_reg_eina.
CLASS cl_badi_mm DEFINITION LOAD.
DATA:l_exit TYPE REF TO if_ex_me_inforec_send.
DATA:it_eina_n TYPE mmpr_einau,
it_eina_o TYPE mmpr_eina,
it_eine_n TYPE mmpr_eineu,
it_eine_o TYPE mmpr_eine ,
wa_eina_n LIKE LINE OF it_eina_n,
wa_eine_n LIKE LINE OF it_eine_n,
wa_eina_o LIKE LINE OF it_eina_o,
wa_eine_o LIKE LINE OF it_eine_o.
DATA: maxmenge LIKE ekpo-menge VALUE '9999999999'.
l_exit ?= cl_badi_mm=>get_instance( 'ME_INFOREC_SEND' ).
IF NOT l_exit IS INITIAL.
IF NOT it_einax IS INITIAL.
MOVE-CORRESPONDING it_einax TO wa_eina_n.
APPEND wa_eina_n TO it_eina_n.
MOVE-CORRESPONDING it_einax TO wa_eina_o.
APPEND wa_eina_o TO it_eina_o.
ENDIF.
IF NOT it_einex IS INITIAL.
MOVE-CORRESPONDING it_einex TO wa_eine_n.
MOVE 'U' TO wa_eine_n-kz.
APPEND wa_eine_n TO it_eine_n.
MOVE-CORRESPONDING it_einey TO wa_eine_o.
APPEND wa_eine_o TO it_eine_o.
ENDIF.
CALL METHOD l_exit->send_changes
EXPORTING
n_eina = it_eina_n
o_eina = it_eina_o
n_eine = it_eine_n
o_eine = it_eine_o
EXCEPTIONS
error_in_send = 1.
ENDIF.
COMMIT WORK.
*&---------------------------------------------------------------------*
*& Form CONVERT_INTO_INPUT
*&---------------------------------------------------------------------*
转载于:https://www.cnblogs.com/rainysblog/p/4224736.html
me12里更改信息记录的净价和有效价格,以及信息记录的条件价格相关推荐
- SAP MM初阶之ME12里为啥只能维护少量条件类型的价格?
SAP MM初阶之ME12里为啥只能维护少量条件类型的价格? 我们都知道,SAP采购模块里有采购信息记录主数据,可以在里面维护物料的采购价格,以及若干附加费的rate.这里维护好的采购价格,在创建采购 ...
- 群晖linux怎么进入u盘,黑群辉直接更改启动u盘的sn、mac等信息
黑群辉直接更改启动u盘的sn.mac等信息 2019-11-28 10:30:00 16点赞 146收藏 16评论 黑裙安装完, 可以使用ddsm的序列号进行半白.每次插拔u盘.换Windows系统相 ...
- 个人的敏感信息需要怎么进行安全保护的一些思考记录
(一)识别监管要求聚焦安全保护重点 个人信息处理 原则合规 <个人信息保护法 >总则中规定了个人信息处理的合法.正 当.必要.诚信.公开透明等,这些基本原则既是处理者开展个人 信息处理活动 ...
- NetFlow是一种数据交换方式,提供网络流量的会话级视图,记录下每个TCP/IP事务的信息...
NetFlow是一种数据交换方式,提供网络流量的会话级视图,记录下每个TCP/IP事务的信息.也许它不能象tcpdump那样提供网络流量的完整记录,但是当汇集起来时,它更加易于管理和易读.Netflo ...
- java将多个文件写入到一个文件流中再有规律的取出_编写java程序,往一个txt文件里写入学生的基本信息,然后再读出这些信息并打印出来,最后把该文件拷贝到指...
满意答案 azonyb 2014.02.18 采纳率:59% 等级:12 已帮助:13223人 import java.io.BufferedInputStream; import java.i ...
- MySQL对不同年龄段的用户信息做统计(附按不同时间段统计记录)
上一篇:查询近30天的记录 上一篇:按时间段统计记录 文章目录 题目 提前声明: 数据库中的表 知识储备 解题思路 难点一: 难点二: 答案 题目 即:不同年龄段的客户信息. 提前声明: 本题是作者根 ...
- 【记录贴】数据库课程设计——学生信息管理系统
前言 记录下学习的点点滴滴,留下属于我的足迹. 以此篇记录我的第一次课程设计. 课设实现 一.课程设计题目 题目一 学生信息管理系统 二.总体设计 原理及工具 JAVA的前端搭建:JAVA GUI M ...
- 查找重复信息mysql 删除_SQL删除、查找重复数据记录等操作
数据库产生重复数据记录是经常发生的事情,现在NowaMagic总结下各种重复的情况,每一种情况该如何写SQL语句处理. 查找所有重复标题的记录: SELECT * FROM t_info a WHER ...
- C语言期末大作业15个(附源码)成绩管理系统、图书馆管理系统、学生打卡系统、超市信息管理系统、学生考勤系统、职工信息管理系统源码、歌曲信息管理系统、超市收款系统等等
C语言期末作业15个(上) 1.C语言学生成绩管理系统 2.C语言图书馆管理系统(复杂版) 3.C语言图书馆管理系统(简洁版) 4.C语言停车管理系统(两个版本) 5.C语言学生考勤系统 6.C语言班 ...
最新文章
- Linux创建文件系统及设置分区卷标
- 阿里巴巴加入 Linux 基金会
- 若依(RuoYi)如何不登录直接访问?
- 移动平均滤波器 matlab,移动平均滤波的原理---matlab函数的实现smooth
- [spring]maven项目中获取resources资源目录路径
- 尚硅谷Docker---docker安装及简介
- 天网防火墙引起的蓝屏
- Python导入模块,Python import用法(超级详细)
- 控制工程实践(11)——控制系统辨识
- Dubbo的failsafe容错策略
- mac开发者身份_如何以开发者的身份环游世界
- c语言中primesum函数,c语言之函数
- java自下而上和自上而下_编程中自上而下和自下而上方法的区别
- 电脑登陆出现此工作站和主域间的信任关系失败
- java模拟登录新版正方_java 模拟登陆正方教务系统
- 浅谈js下的发布订阅模式(观察者模式)
- 电子琴节奏包制作_制作MIDI电子音乐离不开的三件“法宝”
- PHP Encoder Ioncube 使用
- android studio val,导入--Android Studio突然无法解析符号
- vegas不可识别格式素材怎么处理?