民丰纸业采购差异数据处理v1.docVIP

总体要求： 本程序实现将采购差异科目里每月包含的数据处理汇总到一些自定义的透明表里以备分摊差异时使用。 输入画面： 公司代码：　Company Code ：（prameters:P_BUKRS） default ‘9100’ 会计年度： Fiscal year ：（prameters:P_GJAHR） 2004 会计期间： Fiscal period ：（prameters:P_MONAT） 03 会计科目： Account Number ：（select options:S_HKONT）511613~511615 物料代码：　Material number：（select options:S_MATNR） 输出画面： 工厂　物料号码 总差异金额　购料价差 标准价　消耗分摊金额　销售分摊金额　未分摊金额 CS10　1BT5ZZZT0 100.98　　5　 12 50.12 49.88 0.98 CS10　10A2511417 2098.01 12 19.88 2000.01 98 0 CS11　XXXXXX XXXX XXX XXX XXXX XX XX 数据取值说明： 取数之前先检查ZMAG和ZMMG里是否有数据 SELECT COUNT(*) INTO LS_LINES FROM ZMAG WHERE GJAHR = P_GJAHR AND MONAT = P_MONAT AND ZFLAG = ‘Y’ AND ZFLSJ = ‘C’ . IF LS_LINES 0 则提示用户本期数据已经处理过，是否要继续运行？ 如果是则将ZMAG里数据删除，继续往下执行，如果否退出程序 ELSE. SELECT COUNT(*) INTO LS_LINES FROM ZMMG WHERE GJAHR = P_GJAHR AND MONAT = P_MONAT AND ZFLAG = ‘Y’ AND ZFLSJ = ‘C’ . IF LS_LINES 0 则提示用户上期数据没有完整处理，是否要继续运行？ 如果是则将ZMMG里数据删除，继续往下执行，如果否退出程序 ENDIF ENDIF. 本期对应的会计科目发生的物料从GLPCA里取得，取数条件为 （1）、取购料差异科目包含的工厂物料和金额 SELECT WERKS MATNR SUM( HSL ) INTO CORRESPONDING FIELDS OF ITAB1 FROM GLPCA WHERE RYEAR = P_GJAHR AND POPER = P_MONAT AND RACCT IN（固定值） AND “购料差异科目, 价格变动差异科目 RBUKRS=P_BUKRS AND MATNR IN S_MATNR . GROUP BY WERKS MATNR. （2）、取工厂物料消耗和销售的数量 SELECT WERKS MATNR AUFNR BWART MSL INTO CORRESPONDING FIELDS OF ITAB2 FROM GLPCA WHERE RYEAR = P_RYEAR AND POPER = P_POPER AND RACCT IN (指定的存货科目’141100’, ’141200’ , ’141300’) AND RBUKRS=P_BUKRS AND BWART IN (‘261’,’262’,’601’,’920’,’913’). ’141100’----制成品、 ’141200’ ----半成品、 ’141300’ ----材料 数据处理 汇总每个工厂里的每个物料的消耗量和销售量及汇总每个工厂里的每个物料的差异金额 I = 1. Loop at it_itab1 into wa1. Loop at itab2 into wa2. If wa2-werks wa1 -werks and wa2-matnr wa1 -matnr. I = sy-tabix. Exit. Endif. Wa2-msl = wa2-msl*(-1). If wa2-bwart=’261’ 或’262’