民丰纸业结算差异分摊半成品v1.docVIP

总体要求： 本程序实现将结算差异科目(半成品)里的差异金额分摊到对应的生产订单或物料的功能。根据用户选择的差异类科目汇总差异金额，对于消耗将汇总的金额分摊到发生在该科目上的物料对应的订单上，对于销售将汇总的金额分摊到发生在该科目上的物料上。 输入画面： 会计年度： Fiscal year ：（prameters:P_GJAHR） 2004 会计期间： Period ：（prameters:P_MONAT） 03 对于消耗工单号：Order Number： (select options:S_ AUFNR） 对于销售物料号：Material number：（select options:S_MATNR） 对于消耗的分摊选项： 发送方订单：Sender order ：（prameters:P_ORDER） default ‘999999’ 成本要素： Cost elem ：（prameters:P_COSTS） default ‘511804’ 输出画面： 完成分摊后，显示成功完成信息或错误清单 已成功完成清单： 对于消耗和销售的输出清单 工厂 订单号码/物料号码 差异金额 CS10 100.98 CS10 2098.01 CS11 XXXXXX XXXX 对于消耗和销售的输出清单 工厂 订单号码/物料号码 差异金额 CS10 1BT5ZZZTPH0 100.98 CS10 10 2098.01 CS11 XXXXXX XXXX 发生错误清单： 对于消耗和销售的输出清单 工厂 订单号码/物料号码 差异金额 CS10 100.98 CS10 2098.01 CS11 XXXXXX XXXX 对于消耗和销售的输出清单 工厂 订单号码/物料号码 差异金额 CS10 1BT5ZZZTPH0 100.98 CS10 10 2098.01 CS11 XXXXXX XXXX 数据取值说明： 本期物料的生产订单对应的消耗量从ZMAG里取，取数条件为 SELECT WERKS AUFNR SUM( ZFTCY ) INTO CORRESPONDING FIELDS OF ITAB1 FROM ZMAG WHERE GJAHR = P_GJAHR AND MONAT=P_MONAT .AND AUFNR IN S_AUFNR AND ZFLSJ =’B’ AND . ZFLAG =’’ GROUP BY WERKS AUFNR. 本期物料的销售量从ZMMG里取，取数条件为 SELECT WERKS MATNR ZFTCY INTO CORRESPONDING FIELDS OF ITAB2 FROM ZMMC WHERE GJAHR = P_GJAHR AND MONAT=P_MONAT AND MATNR IN S_MATNR AND ZFLSJ =’B’ AND ZFLAG = ‘’ . . 数据处理 对于销售的差异分摊处理 根据用户的选择数据处理好调用TCODE：KE21用的BDC数据 使用TCODE：KE21记录一个BDC数据 根据用户选择屏幕上显示的数据，处理BDC数据 BDC中日期为选择的会计年和会计期间的最末一天 如果成功处理，则对ZMMG的字段ZFLAG赋值‘Y’ ，对表修改 对于消耗的差异分摊处理 根据用户的选择数据处理好调用TCODE：KB11用的BDC数据 使用TCODE：KB11记录一个BDC数据 根据用户选择屏幕上显示的数据，处理BDC数据 BDC中日期为选择的会计年和会计期间的最末一天，屏幕变式[Scrn variant]为Order，发送方订单[Order（old）]为变量P_ORDER的值，成本要素[Cost elem.]为变量P_COSTS的值，金额[Amout ]为求得的每个生产订单对应的差异金额，接收方订单[Order（new）]为求得的生产订单 如果成功处理，则对ZMAG的字段ZF