Monday, February 28, 2011
PA40提示输入请求号
若要去掉这个提示,使用事务SM30维护表T77S0,使用position按钮定位字段group和sem.abbr.，找到组合值TSSP 及admin,将字段value abbr的值由X改为空，保存即可。
与深圳外来务工朋友一起分享2008年春节
（很久以前的写的，抄过来放着吧。）
看到凌晨5点，终于将《和你在一起》用心看完，剧情的确是感人，甚至让我有些想哭的感觉，我觉得这是我看过的最好的电影。
躺下来时，外边的鞭炮声已陆续不时想起，即便十分疲倦，却难以深睡。总觉得自已还是个人，应该对电影思考什么、评论些什么，也好当作以后和友人们见面时的谈资，免得坐在那，总是像堆肉，但却是一个像样的句子都碾不出来。
从2月2日放假到现在，已有7天，除了为一次采购三天的东西去过超市二次累计三小时不到外，我都紧锁着双重铁门，呆在房间一动不动，在被人连续三次以上进 入我房间，甚至拿走我用头压着的枕头下的钱包，并在取空内边的钱然后仙人般离去后，我总是有些害怕有高人能轻易把两道门打开。在南部广泛遭受雪灾，广大外来务工者不能回家时，深圳市政府在春节期间为市民和外来者安排了一些免费的展览。但对于我这个不入流的人来说，一切与我无关。
我来说说我吧。
我是个过时的人，不知道现在流行什么歌曲，也不知道诸多的当红明星长什么样子，我是个21世纪的人却总听着20世纪八九十年代的歌，还是个到了2008年甚至还在看2007年报纸的人，与其说是怀旧，倒不如说，其实是落伍。
我有些自卑，但听说自卑和自大只有一线之隔，所以我想我可能还有自大。我总是不敢去确定什么，连我自己是什么样我都不敢确定，我常常不敢表达我的观点，我生怕它是可笑的。我走到哪都是女人们取笑的对象，特别是和一些工作只是为消磨时光的同事们聚餐在稍高档点的饭店，很多东西叫不上名字，也不知道如何食用才是正确的方法的被人取笑就像是个啥都没吃过的、啥也没见过的人时。我觉得原来我用娴熟的业务技能所营造的所谓自信是如此不堪一击。当领导们一再苦口婆心让我走上管理岗位上为公司创造更大价值，而我觉得以我的EQ、表达能力和人际关系不能很好的胜任这个岗位时，我发现，原来我就是那个扶不起的阿斗。
我拿着与深圳本地人相比让我自卑却又还能让一些外来工羡慕的薪水，我常作着这种双重的对比，这让我心中生起飘忽不定的感受，以致于连我自已也无法说清是惭愧还是该自我满足，是该驱动自已更努力前行，还是暂歇一下疲惫的身体。
我还是个有广泛兴趣的人，爱点摄影，却没有基本的美学常识；有时还喜欢听点音乐，却是个连谱都不会识的人。
我是没有根的人。我结婚了，却没感觉恋爱过；我有孩子了，却没有做父亲的幸福；父母在老家农村，妻子在天边的娘家，我在深圳，我有三个落脚点，但未曾觉得有过一个家。我有的只是落寞、孤单和空虚，还有与日俱增的压力。
我是空虚没有灵魂的人。虚胖的身体裹的是纤弱的骨头，脑袋里装的是被清洗过的肥肠，深圳的热风总是在吹荡悬挂在体内的血管，我常有些不知道该拥抱何物才能找回到安全，而只能任凭内心在瑟瑟发抖的感觉。每天早上8点看着这没有灵魂的肉身从出租屋匆忙走出去，晚上再从公司走出，过街时拎上快餐，再勿忙走回这屋子，坐在电 脑前焦燥不安不知道想作什么，日复一复，我有些生气，我能改变什么？可还有更好的选择？
我是个懦弱的人，不敢对暗恋的心仪女人表达。每分钟都在跑过无数大奔和宝马的深南大道，服装市场几千一套的西装，还有动辙几万的LV包，只是眼前闪动的光影。内地和香港交流频繁，女同事们经常交流去香港的血拼收获，香港的繁华也可以造就深圳的二奶村，五六十的老太开马自达的跑车，20多岁的女士开上宝马 X5或凌志，一切虽是司空见惯却总在在挑动我的神经。我不鄙视物欲横流的社会，不去遣责奢侈品的消费人群，只要合法获取的，虽然我们不是站在一条公平的起 跑线上，我能获取的比你们少，我知道没有绝对的公平。生存在这样的世界，我无法不去对比。成功的很多，有钱的很多，有才情的很多，长多帅的也很多，我哪一样都没有，我拿什么给你，我的爱人。有些人，可成作家、画家、音乐家，而我将来会成为什么？别人可以是律师、教师，而我为了钱可以跳来跳去，在各个行业中转换，仿佛有很多职业，但又仿佛什么都不是，我如何来说明我的职业？凭这些，我没有丁点的自信去表达我的爱恋。
面贴面对着这世界，我感觉这一切离我还是很远。也许有天，我也能占有某些。我还是贪恋这世界的物欲，看起来这是我唯一可以确信的东西，也许是这些东西还在催我奋进。如果有天，我得到了这些，我还有什么追求？！我几乎能觉察没有，我会无聊透顶，只会去寻找更多更强烈的感官刺激。但感官的刺激，终会有让感官疲劳的时候，那天，会是什么样？我活着是为什么？我到底想要什么？我回答不了这个问题，我心底有一丝可悲。
几年来在深圳伴着机器的轰鸣生存，我总能想到老家那台柴油机，没油了，加些油；润滑不好了，加点机油。我是何曾与它相似，饿了，吃个快餐；倦了，看点 励志书或是对比一下别人比我优越的生活。我曾问自已，何时，我可以停下来？我相信，中国还有很多机器与我同在，并且，还将继续...
这样的生活，已过过很多的天，我知道，不管多少天，它其实就只是一天，我的生活，只是无趣的在重叠。我的世界只有三个事件，出生，生存，死亡。我今天努力，是希望我衍生出来的生命不再走同样的轨迹，因为我明白，一个时代，很多人的生活只能是这么过，我无力去改变更多。
多少次，每当我思绪万千的坐了起 来，想记录下我那些肤浅的想法，记录下我的心路历程时，脑海中的一切又离我远去。当我从床上那恍惚的半梦境中坐到现实中的电脑桌前时，我在怀疑记录下来的 意义。
这样的生活方式与状态，是一些人，一代人，还是某个社会状态下生存的几乎所有人？外面的世界很精彩，但那是外面，从来就不被我拥有。
2008年农历初二 胡言乱语于深圳
PS：春节这段时间呆在屋子里，哪也不想去，成天就是上网、游戏看报打发时间，很忙却从未有过充实的感觉，这样的生活在可以预见的一段时间我想还是会继续。我只希望，所有和我一样的人们，过好。在生存中找回我们的灵魂，不要成为物欲的奴隶。
我不是什么文学爱好者，表达能力极为有限，语言组织也很凌乱，只是想将心底的感受拿出来和朋友们一起分享，请多见谅。
看到凌晨5点，终于将《和你在一起》用心看完，剧情的确是感人，甚至让我有些想哭的感觉，我觉得这是我看过的最好的电影。
躺下来时，外边的鞭炮声已陆续不时想起，即便十分疲倦，却难以深睡。总觉得自已还是个人，应该对电影思考什么、评论些什么，也好当作以后和友人们见面时的谈资，免得坐在那，总是像堆肉，但却是一个像样的句子都碾不出来。
从2月2日放假到现在，已有7天，除了为一次采购三天的东西去过超市二次累计三小时不到外，我都紧锁着双重铁门，呆在房间一动不动，在被人连续三次以上进 入我房间，甚至拿走我用头压着的枕头下的钱包，并在取空内边的钱然后仙人般离去后，我总是有些害怕有高人能轻易把两道门打开。在南部广泛遭受雪灾，广大外来务工者不能回家时，深圳市政府在春节期间为市民和外来者安排了一些免费的展览。但对于我这个不入流的人来说，一切与我无关。
我来说说我吧。
我是个过时的人，不知道现在流行什么歌曲，也不知道诸多的当红明星长什么样子，我是个21世纪的人却总听着20世纪八九十年代的歌，还是个到了2008年甚至还在看2007年报纸的人，与其说是怀旧，倒不如说，其实是落伍。
我有些自卑，但听说自卑和自大只有一线之隔，所以我想我可能还有自大。我总是不敢去确定什么，连我自己是什么样我都不敢确定，我常常不敢表达我的观点，我生怕它是可笑的。我走到哪都是女人们取笑的对象，特别是和一些工作只是为消磨时光的同事们聚餐在稍高档点的饭店，很多东西叫不上名字，也不知道如何食用才是正确的方法的被人取笑就像是个啥都没吃过的、啥也没见过的人时。我觉得原来我用娴熟的业务技能所营造的所谓自信是如此不堪一击。当领导们一再苦口婆心让我走上管理岗位上为公司创造更大价值，而我觉得以我的EQ、表达能力和人际关系不能很好的胜任这个岗位时，我发现，原来我就是那个扶不起的阿斗。
我拿着与深圳本地人相比让我自卑却又还能让一些外来工羡慕的薪水，我常作着这种双重的对比，这让我心中生起飘忽不定的感受，以致于连我自已也无法说清是惭愧还是该自我满足，是该驱动自已更努力前行，还是暂歇一下疲惫的身体。
我还是个有广泛兴趣的人，爱点摄影，却没有基本的美学常识；有时还喜欢听点音乐，却是个连谱都不会识的人。
我是没有根的人。我结婚了，却没感觉恋爱过；我有孩子了，却没有做父亲的幸福；父母在老家农村，妻子在天边的娘家，我在深圳，我有三个落脚点，但未曾觉得有过一个家。我有的只是落寞、孤单和空虚，还有与日俱增的压力。
我是空虚没有灵魂的人。虚胖的身体裹的是纤弱的骨头，脑袋里装的是被清洗过的肥肠，深圳的热风总是在吹荡悬挂在体内的血管，我常有些不知道该拥抱何物才能找回到安全，而只能任凭内心在瑟瑟发抖的感觉。每天早上8点看着这没有灵魂的肉身从出租屋匆忙走出去，晚上再从公司走出，过街时拎上快餐，再勿忙走回这屋子，坐在电 脑前焦燥不安不知道想作什么，日复一复，我有些生气，我能改变什么？可还有更好的选择？
我是个懦弱的人，不敢对暗恋的心仪女人表达。每分钟都在跑过无数大奔和宝马的深南大道，服装市场几千一套的西装，还有动辙几万的LV包，只是眼前闪动的光影。内地和香港交流频繁，女同事们经常交流去香港的血拼收获，香港的繁华也可以造就深圳的二奶村，五六十的老太开马自达的跑车，20多岁的女士开上宝马 X5或凌志，一切虽是司空见惯却总在在挑动我的神经。我不鄙视物欲横流的社会，不去遣责奢侈品的消费人群，只要合法获取的，虽然我们不是站在一条公平的起 跑线上，我能获取的比你们少，我知道没有绝对的公平。生存在这样的世界，我无法不去对比。成功的很多，有钱的很多，有才情的很多，长多帅的也很多，我哪一样都没有，我拿什么给你，我的爱人。有些人，可成作家、画家、音乐家，而我将来会成为什么？别人可以是律师、教师，而我为了钱可以跳来跳去，在各个行业中转换，仿佛有很多职业，但又仿佛什么都不是，我如何来说明我的职业？凭这些，我没有丁点的自信去表达我的爱恋。
面贴面对着这世界，我感觉这一切离我还是很远。也许有天，我也能占有某些。我还是贪恋这世界的物欲，看起来这是我唯一可以确信的东西，也许是这些东西还在催我奋进。如果有天，我得到了这些，我还有什么追求？！我几乎能觉察没有，我会无聊透顶，只会去寻找更多更强烈的感官刺激。但感官的刺激，终会有让感官疲劳的时候，那天，会是什么样？我活着是为什么？我到底想要什么？我回答不了这个问题，我心底有一丝可悲。
几年来在深圳伴着机器的轰鸣生存，我总能想到老家那台柴油机，没油了，加些油；润滑不好了，加点机油。我是何曾与它相似，饿了，吃个快餐；倦了，看点 励志书或是对比一下别人比我优越的生活。我曾问自已，何时，我可以停下来？我相信，中国还有很多机器与我同在，并且，还将继续...
这样的生活，已过过很多的天，我知道，不管多少天，它其实就只是一天，我的生活，只是无趣的在重叠。我的世界只有三个事件，出生，生存，死亡。我今天努力，是希望我衍生出来的生命不再走同样的轨迹，因为我明白，一个时代，很多人的生活只能是这么过，我无力去改变更多。
多少次，每当我思绪万千的坐了起 来，想记录下我那些肤浅的想法，记录下我的心路历程时，脑海中的一切又离我远去。当我从床上那恍惚的半梦境中坐到现实中的电脑桌前时，我在怀疑记录下来的 意义。
这样的生活方式与状态，是一些人，一代人，还是某个社会状态下生存的几乎所有人？外面的世界很精彩，但那是外面，从来就不被我拥有。
2008年农历初二 胡言乱语于深圳
PS：春节这段时间呆在屋子里，哪也不想去，成天就是上网、游戏看报打发时间，很忙却从未有过充实的感觉，这样的生活在可以预见的一段时间我想还是会继续。我只希望，所有和我一样的人们，过好。在生存中找回我们的灵魂，不要成为物欲的奴隶。
我不是什么文学爱好者，表达能力极为有限，语言组织也很凌乱，只是想将心底的感受拿出来和朋友们一起分享，请多见谅。
成功输出消息后的采购订单不能取消审核
症状：当PO已经使用ME9F输出后，无法取消订单的审核。 系统提示：
ME175 凭证已输出（功能不可用）.
应管理要求，系统后台已设定PO在审核后不能进行更改，即“可更改”设为值１-不能更改.
依照网上搜的资料，实施了两个NOTE:
Note 994269 - ME28 - release reset for already outputted POs
Note 1133900 - ME28 - Release reset for already output purchasing message
实施后发现问题依然存在。
根据用户反馈，这种已审核的订单，有的打印了可以反审核，有的不行。后来依据网上资料的线索及对有差异的订单对比发现，SAP是通过比较在PO中的MESSAGE的状态来判断能否撤消.如果PO中存在MESSAGE,并且全部正常输出，即状态全部为１,则PO不可撤消审核。如果其中一条MESSAGE的状态不是１,则可以撤消审核。
正经方法是:
使用事务ME9F,选择输出状态为 1-成功输出 ,点击执行,这里系统会列出所有成功输出过的消息,勾中任何一个,再点击消息细节.现在看到了类似于采购订单中的消息列表,选中任意一个后,点重复输出,系统会复制一个,并且看起来是黄色的,保存退出.这里,由于存在一个没有成功输出的消息,你可以使用ME28撤消这张PO了.
非正经渠道解决方法有两种，且要求你有相当高的权限：
１、PO输出的MESSAGE放置在表NAST中，字段VSTAT即存放的MESSAGE状态的值。使用SE16N查看表，并在命令栏中输入&sap_edit,使得你可以直接修改表内容，在字段OBJKY中输入PO号，在结果中，将任一vstat字段值改成0。这时，你可以使用ME28撤消审核了。
SE16N查看并修改表：
搜索结果,同时修改值：
方法二：直接在DEBUG中更改变量值，绕过程序。
使用SE38,在程序FM06LFFR_FRG_RESET中设置断点
**********************************************************************
CLEAR GEDRUCKT. "此外断点
IF FEKKO-FRGDR EQ '1'.
GEDRUCKT = 'X'.
ENDIF.
CALL FUNCTION 'ME_REL_RESET'
EXPORTING
I_TITLE = ' '
***********************************************************************
同样，使用事务ME28进行订单的撤消审核。程序运行时会自动弹出DEBUG窗口，强制将FEKKO-FRGDR的值改为0，继续往下执行即可完成订单的撤消审核。 原理不清楚。
如果你的配置场景与我们不一样，比如，你的采购订单在审核后是可以修改的，则可以按上边提到的原理，在PO的MESSAGE中，新增一个MESSAGE，不要输出，再使用ME28进行撤消审核。
ME175 凭证已输出（功能不可用）.
应管理要求，系统后台已设定PO在审核后不能进行更改，即“可更改”设为值１-不能更改.
依照网上搜的资料，实施了两个NOTE:
Note 994269 - ME28 - release reset for already outputted POs
Note 1133900 - ME28 - Release reset for already output purchasing message
实施后发现问题依然存在。
根据用户反馈，这种已审核的订单，有的打印了可以反审核，有的不行。后来依据网上资料的线索及对有差异的订单对比发现，SAP是通过比较在PO中的MESSAGE的状态来判断能否撤消.如果PO中存在MESSAGE,并且全部正常输出，即状态全部为１,则PO不可撤消审核。如果其中一条MESSAGE的状态不是１,则可以撤消审核。
正经方法是:
使用事务ME9F,选择输出状态为 1-成功输出 ,点击执行,这里系统会列出所有成功输出过的消息,勾中任何一个,再点击消息细节.现在看到了类似于采购订单中的消息列表,选中任意一个后,点重复输出,系统会复制一个,并且看起来是黄色的,保存退出.这里,由于存在一个没有成功输出的消息,你可以使用ME28撤消这张PO了.
非正经渠道解决方法有两种，且要求你有相当高的权限：
１、PO输出的MESSAGE放置在表NAST中，字段VSTAT即存放的MESSAGE状态的值。使用SE16N查看表，并在命令栏中输入&sap_edit,使得你可以直接修改表内容，在字段OBJKY中输入PO号，在结果中，将任一vstat字段值改成0。这时，你可以使用ME28撤消审核了。
SE16N查看并修改表：
方法二：直接在DEBUG中更改变量值，绕过程序。
使用SE38,在程序FM06LFFR_FRG_RESET中设置断点
**********************************************************************
CLEAR GEDRUCKT. "此外断点
IF FEKKO-FRGDR EQ '1'.
GEDRUCKT = 'X'.
ENDIF.
CALL FUNCTION 'ME_REL_RESET'
EXPORTING
I_TITLE = ' '
***********************************************************************
同样，使用事务ME28进行订单的撤消审核。程序运行时会自动弹出DEBUG窗口，强制将FEKKO-FRGDR的值改为0，继续往下执行即可完成订单的撤消审核。 原理不清楚。
如果你的配置场景与我们不一样，比如，你的采购订单在审核后是可以修改的，则可以按上边提到的原理，在PO的MESSAGE中，新增一个MESSAGE，不要输出，再使用ME28进行撤消审核。
生产订单收货数量与物料凭证计算总数量不一致
先使用如下程序对已出错订单进行修正，然后再实施Note 1094999 - Goods receipt quantity is updated incorrectly
---------------分割线-----------------------------------------
REPORT Z_PPCON_076 .
TABLES: AFKO, AFPO, MSEG, MKPF.
PARAMETERS: TEST_? TYPE C DEFAULT 'X'.
SELECT-OPTIONS: PAORDER FOR AFPO-AUFNR.
DATA: BEGIN OF UPOS_TAB OCCURS 500.
INCLUDE STRUCTURE AFPO.
DATA: END OF UPOS_TAB.
DATA: BEGIN OF POS_TAB OCCURS 500.
INCLUDE STRUCTURE AFPO.
DATA: END OF POS_TAB.
DATA: BEGIN OF A_TAB OCCURS 500,
AUFNR LIKE AFKO-AUFNR,
END OF A_TAB.
DATA: BEGIN OF M_TAB OCCURS 500.
INCLUDE STRUCTURE MSEG.
DATA: END OF M_TAB.
DATA: NO_WEMNG LIKE AFPO-WEMNG VALUE '0',
NO_LTRMI LIKE AFPO-LTRMI VALUE '00000000',
KUM_WEMNG LIKE AFPO-WEMNG,
KUM_WEWRT LIKE AFPO-WEWRT,
DIF_QUAN LIKE AFPO-IAMNG,
DIF_WERT LIKE AFPO-WEWRT,
U_FLAG TYPE C.
IF NOT TEST_? IS INITIAL.
WRITE: ' !!!!! TEST !!!!!!'.
SKIP 1.
ENDIF.
SELECT * FROM AFPO INTO TABLE POS_TAB
WHERE AUFNR IN PAORDER.
* read material documents per order
LOOP AT POS_TAB.
REFRESH M_TAB.
CLEAR: U_FLAG.
CLEAR: KUM_WEMNG.
CLEAR: KUM_WEWRT.
SELECT * FROM MSEG INTO TABLE M_TAB
WHERE MATNR EQ POS_TAB-MATNR
AND AUFNR EQ POS_TAB-AUFNR
AND AUFPS EQ POS_TAB-POSNR.
LOOP AT M_TAB.
CHECK M_TAB-BWART EQ '101' OR M_TAB-BWART EQ '102'
OR M_TAB-BWART EQ '122'.
*..inward movement
IF M_TAB-SHKZG EQ 'S'.
IF NOT M_TAB-DMBTR IS INITIAL.
KUM_WEWRT = KUM_WEWRT + M_TAB-DMBTR.
ENDIF.
IF NOT M_TAB-BSTMG IS INITIAL.
KUM_WEMNG = KUM_WEMNG + M_TAB-BSTMG.
ELSE.
IF M_TAB-ERFME EQ POS_TAB-AMEIN.
KUM_WEWRT = KUM_WEWRT + M_TAB-DMBTR.
ELSE.
IF M_TAB-MEINS EQ POS_TAB-AMEIN.
KUM_WEMNG = KUM_WEMNG + M_TAB-MENGE.
ELSE.
WRITE: 'ERROR - Order:', POS_TAB-AUFNR.
CLEAR U_FLAG.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ELSE.
*..outward movement
IF NOT M_TAB-DMBTR IS INITIAL.
IF M_TAB-DMBTR NE M_TAB-BUALT AND
NOT M_TAB-BUALT IS INITIAL.
KUM_WEWRT = KUM_WEWRT - M_TAB-BUALT.
ELSE.
KUM_WEWRT = KUM_WEWRT - M_TAB-DMBTR.
ENDIF.
ENDIF.
IF NOT M_TAB-BSTMG IS INITIAL.
KUM_WEMNG = KUM_WEMNG - M_TAB-BSTMG.
ELSE.
IF M_TAB-ERFME EQ POS_TAB-AMEIN.
KUM_WEMNG = KUM_WEMNG - M_TAB-ERFMG.
ELSE.
IF M_TAB-MEINS EQ POS_TAB-AMEIN.
KUM_WEMNG = KUM_WEMNG - M_TAB-MENGE.
ELSE.
WRITE: 'ERROR - Order:', POS_TAB-AUFNR.
CLEAR U_FLAG.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
U_FLAG = 'X'.
ENDLOOP.
*..update necessary ?
IF NOT U_FLAG IS INITIAL AND ( NOT KUM_WEMNG IS INITIAL
AND KUM_WEMNG NE POS_TAB-WEMNG )
OR ( NOT KUM_WEWRT IS INITIAL
AND KUM_WEWRT NE POS_TAB-WEWRT ).
SELECT SINGLE * FROM MKPF WHERE MBLNR EQ M_TAB-MBLNR
AND MJAHR EQ M_TAB-MJAHR.
IF SY-SUBRC IS INITIAL.
MOVE MKPF-BUDAT TO POS_TAB-LTRMI.
ENDIF.
IF KUM_WEMNG = POS_TAB-WEMNG OR
KUM_WEWRT = POS_TAB-WEWRT.
WRITE: / 'No update for the following order - check the order !'.
ELSE.
MOVE-CORRESPONDING POS_TAB TO UPOS_TAB.
MOVE KUM_WEMNG TO UPOS_TAB-WEMNG.
MOVE KUM_WEWRT TO UPOS_TAB-WEWRT.
APPEND UPOS_TAB.
ENDIF.
WRITE: / 'Order:', POS_TAB-AUFNR, 'Material:', POS_TAB-MATNR,
'Delivered Quantity:', POS_TAB-WEMNG, POS_TAB-AMEIN,
'Value:', POS_TAB-WEWRT.
WRITE: / 'Document Item Move-type Stock-Quantity Unit',
'Entry-Quantity Unit Value'.
LOOP AT M_TAB.
WRITE: / M_TAB-MBLNR, M_TAB-ZEILE, 21 M_TAB-BWART, 27 M_TAB-MENGE,
M_TAB-MEINS, M_TAB-BSTMG, M_TAB-BSTME, 71 M_TAB-DMBTR,
M_TAB-WAERS.
ENDLOOP.
ULINE.
DIF_QUAN = KUM_WEMNG - POS_TAB-WEMNG.
DIF_WERT = KUM_WEWRT - POS_TAB-WEWRT.
WRITE: /22 'Sum:', KUM_WEMNG, POS_TAB-AMEIN, 71 KUM_WEWRT,
/ 'Balance Quantity Document - Order:',
'Quantity:', DIF_QUAN, 'Value:', DIF_WERT.
SKIP 1.
ENDIF.
ENDLOOP.
CLEAR SY-DBCNT.
*...change order items.
IF TEST_? IS INITIAL AND NOT UPOS_TAB[] IS INITIAL.
UPDATE AFPO FROM TABLE UPOS_TAB.
ENDIF.
SKIP 1.
WRITE: / 'Changed Orders:', SY-DBCNT.
******** End of Report
---------------分割线-----------------------------------------
REPORT Z_PPCON_076 .
TABLES: AFKO, AFPO, MSEG, MKPF.
PARAMETERS: TEST_? TYPE C DEFAULT 'X'.
SELECT-OPTIONS: PAORDER FOR AFPO-AUFNR.
DATA: BEGIN OF UPOS_TAB OCCURS 500.
INCLUDE STRUCTURE AFPO.
DATA: END OF UPOS_TAB.
DATA: BEGIN OF POS_TAB OCCURS 500.
INCLUDE STRUCTURE AFPO.
DATA: END OF POS_TAB.
DATA: BEGIN OF A_TAB OCCURS 500,
AUFNR LIKE AFKO-AUFNR,
END OF A_TAB.
DATA: BEGIN OF M_TAB OCCURS 500.
INCLUDE STRUCTURE MSEG.
DATA: END OF M_TAB.
DATA: NO_WEMNG LIKE AFPO-WEMNG VALUE '0',
NO_LTRMI LIKE AFPO-LTRMI VALUE '00000000',
KUM_WEMNG LIKE AFPO-WEMNG,
KUM_WEWRT LIKE AFPO-WEWRT,
DIF_QUAN LIKE AFPO-IAMNG,
DIF_WERT LIKE AFPO-WEWRT,
U_FLAG TYPE C.
IF NOT TEST_? IS INITIAL.
WRITE: ' !!!!! TEST !!!!!!'.
SKIP 1.
ENDIF.
SELECT * FROM AFPO INTO TABLE POS_TAB
WHERE AUFNR IN PAORDER.
* read material documents per order
LOOP AT POS_TAB.
REFRESH M_TAB.
CLEAR: U_FLAG.
CLEAR: KUM_WEMNG.
CLEAR: KUM_WEWRT.
SELECT * FROM MSEG INTO TABLE M_TAB
WHERE MATNR EQ POS_TAB-MATNR
AND AUFNR EQ POS_TAB-AUFNR
AND AUFPS EQ POS_TAB-POSNR.
LOOP AT M_TAB.
CHECK M_TAB-BWART EQ '101' OR M_TAB-BWART EQ '102'
OR M_TAB-BWART EQ '122'.
*..inward movement
IF M_TAB-SHKZG EQ 'S'.
IF NOT M_TAB-DMBTR IS INITIAL.
KUM_WEWRT = KUM_WEWRT + M_TAB-DMBTR.
ENDIF.
IF NOT M_TAB-BSTMG IS INITIAL.
KUM_WEMNG = KUM_WEMNG + M_TAB-BSTMG.
ELSE.
IF M_TAB-ERFME EQ POS_TAB-AMEIN.
KUM_WEWRT = KUM_WEWRT + M_TAB-DMBTR.
ELSE.
IF M_TAB-MEINS EQ POS_TAB-AMEIN.
KUM_WEMNG = KUM_WEMNG + M_TAB-MENGE.
ELSE.
WRITE: 'ERROR - Order:', POS_TAB-AUFNR.
CLEAR U_FLAG.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ELSE.
*..outward movement
IF NOT M_TAB-DMBTR IS INITIAL.
IF M_TAB-DMBTR NE M_TAB-BUALT AND
NOT M_TAB-BUALT IS INITIAL.
KUM_WEWRT = KUM_WEWRT - M_TAB-BUALT.
ELSE.
KUM_WEWRT = KUM_WEWRT - M_TAB-DMBTR.
ENDIF.
ENDIF.
IF NOT M_TAB-BSTMG IS INITIAL.
KUM_WEMNG = KUM_WEMNG - M_TAB-BSTMG.
ELSE.
IF M_TAB-ERFME EQ POS_TAB-AMEIN.
KUM_WEMNG = KUM_WEMNG - M_TAB-ERFMG.
ELSE.
IF M_TAB-MEINS EQ POS_TAB-AMEIN.
KUM_WEMNG = KUM_WEMNG - M_TAB-MENGE.
ELSE.
WRITE: 'ERROR - Order:', POS_TAB-AUFNR.
CLEAR U_FLAG.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
U_FLAG = 'X'.
ENDLOOP.
*..update necessary ?
IF NOT U_FLAG IS INITIAL AND ( NOT KUM_WEMNG IS INITIAL
AND KUM_WEMNG NE POS_TAB-WEMNG )
OR ( NOT KUM_WEWRT IS INITIAL
AND KUM_WEWRT NE POS_TAB-WEWRT ).
SELECT SINGLE * FROM MKPF WHERE MBLNR EQ M_TAB-MBLNR
AND MJAHR EQ M_TAB-MJAHR.
IF SY-SUBRC IS INITIAL.
MOVE MKPF-BUDAT TO POS_TAB-LTRMI.
ENDIF.
IF KUM_WEMNG = POS_TAB-WEMNG OR
KUM_WEWRT = POS_TAB-WEWRT.
WRITE: / 'No update for the following order - check the order !'.
ELSE.
MOVE-CORRESPONDING POS_TAB TO UPOS_TAB.
MOVE KUM_WEMNG TO UPOS_TAB-WEMNG.
MOVE KUM_WEWRT TO UPOS_TAB-WEWRT.
APPEND UPOS_TAB.
ENDIF.
WRITE: / 'Order:', POS_TAB-AUFNR, 'Material:', POS_TAB-MATNR,
'Delivered Quantity:', POS_TAB-WEMNG, POS_TAB-AMEIN,
'Value:', POS_TAB-WEWRT.
WRITE: / 'Document Item Move-type Stock-Quantity Unit',
'Entry-Quantity Unit Value'.
LOOP AT M_TAB.
WRITE: / M_TAB-MBLNR, M_TAB-ZEILE, 21 M_TAB-BWART, 27 M_TAB-MENGE,
M_TAB-MEINS, M_TAB-BSTMG, M_TAB-BSTME, 71 M_TAB-DMBTR,
M_TAB-WAERS.
ENDLOOP.
ULINE.
DIF_QUAN = KUM_WEMNG - POS_TAB-WEMNG.
DIF_WERT = KUM_WEWRT - POS_TAB-WEWRT.
WRITE: /22 'Sum:', KUM_WEMNG, POS_TAB-AMEIN, 71 KUM_WEWRT,
/ 'Balance Quantity Document - Order:',
'Quantity:', DIF_QUAN, 'Value:', DIF_WERT.
SKIP 1.
ENDIF.
ENDLOOP.
CLEAR SY-DBCNT.
*...change order items.
IF TEST_? IS INITIAL AND NOT UPOS_TAB[] IS INITIAL.
UPDATE AFPO FROM TABLE UPOS_TAB.
ENDIF.
SKIP 1.
WRITE: / 'Changed Orders:', SY-DBCNT.
******** End of Report
SAP查询事务、表属于哪个模块
这个功能主要是在汇报SAP的产品问题时，让你知道该选择你所汇报的问题所哪个子模块的。它可以依据事务代码、表、程序名、域、数据元素来查找。
方法：SE38,执行报表程序：RSSTATUS .
方法：SE38,执行报表程序：RSSTATUS .
Sunday, February 27, 2011
异地同行转账和跨行转账哪个更便宜
按常规，我们会理解，同行肯定比跨行要便宜，但是，请看截图：
以下转账额度均为1500元，时间上相关了两月。
建行转工行，手续费7.5，费率 0.5% ：
工行转工行，手续费13.5，接近1%
不符合大家的常规思维吧，这就对了，我们知道在天朝，有着各种各种神奇。
我不是要证明建行比工行好，其实他们都灰常滴的黑.
这收费，真是晶晶亮，透心凉 。
每月的工钱，发下来前要给黑社会交税。买东西时，还得再给黑社会上税。转个账，还得让人刮掉一层。我只想说，去你妈逼的这个变相的奴隶社会。
以下转账额度均为1500元，时间上相关了两月。
建行转工行，手续费7.5，费率 0.5% ：
工行转工行，手续费13.5，接近1%
不符合大家的常规思维吧，这就对了，我们知道在天朝，有着各种各种神奇。
我不是要证明建行比工行好，其实他们都灰常滴的黑.
这收费，真是晶晶亮，透心凉 。
每月的工钱，发下来前要给黑社会交税。买东西时，还得再给黑社会上税。转个账，还得让人刮掉一层。我只想说，去你妈逼的这个变相的奴隶社会。
Wednesday, February 16, 2011
Subscribe to:
Posts (Atom)