《sap取汇率的程序》由会员分享，可在线阅读，更多相关《sap取汇率的程序（21页珍藏版）》请在金锄头文库上搜索。
1、其实这个报表没有含金亮 , 只是在写这个报表的时候没有注意 2 点.1), 取汇率的时候没有使用标准的函数 去取，所以自己取的时候总是出现问题 .2),表TCURR中有个”逆算日期”的问题，这2个问题搞得自己有些 运乎晕乎的了 ! 还好最后解决了 !*&*& Report ZPPR0035 *& Create By: Chouer*& Create date:2007.11.15*& Description: 成品原料销售成本分析*&*&M O D I F I C A T I O N L O G*&*CHANGEDATE POGRAMMER REQUEST DESCRIPTION*&REPOR
2、T ZPPR0035.TABLES: MKPF, MSEG,CRHD.*-Initial table it_mkpfTYPES: BEGIN OF STR_MKPF,MBLNR LIKE MKPF-MBLNR, 物料凭证编号 MJAHR LIKE MKPF-MJAHR, 物料凭证年度 BUDAT LIKE MKPF-BUDAT, 凭证中的记帐日期 END OF STR_MKPF.DATA: WA_MKPF TYPE STR_MKPF, IT_MKPF TYPE TABLE OF STR_MKPF.*-Initial table it_msegTYPES: BEGIN OF STR_MSEG,M
3、BLNR LIKE MSEG-MBLNR, 物 料凭证编号 ZEILE LIKE MSEG-ZEILE,MJAHR LIKE MSEG-MJAHR, 物 料凭证年度SGTXT LIKE MSEG-SGTXT, 项目文本AUFNR LIKE MSEG-AUFNR, 订 单编码MATNR LIKE MSEG-MATNR,物料号MENGE LIKE MSEG-MENGE 数量MEINS LIKE MSEG-MEINS, 基本计量单位BWART LIKE MSEG-BWART,移动类型（库存管理） WAERS LIKE MSEG-WAERS 货币代码CHARG LIKE MSEG-CHARG,END
4、OF STR_MSEG.DATA: WA_MSEG TYPE STR_MSEG, IT_MSEG TYPE TABLE OF STR_MSEG.DATA: WA_MSEG2 TYPE STR_MSEG, IT_MSEG2 TYPE TABLE OF STR_MSEG.*-Initial table it_afpoTYPES: BEGIN OF STR_AFPO,AUFNR LIKE AFPO-AUFNR, 订单编码KDAUF LIKE AFPO-KDAUF, 销售订单号KDPOS LIKE AFPO-KDPOS, 销售订单行项WEMNG LIKE AFPO-WEM NG此订单项的收货数量 ME
5、INS LIKE AFPO-MEINS, END OF STR_AFPO.DATA: WA_AFPO TYPE STR_AFPO,IT_AFPO TYPE TABLE OF STR_AFPO.*-Initial table it_aufmTYPES: BEGIN OF STR_AUFM,AUFNR LIKE AUFM-AUFNR, 订单编码MATNR LIKE AUFM-MATNR, 物 料号BWART LIKE AUFM-BWART，移动类型（库存管理）MENGE LIKE AUFM-MENGE,数量MEINS LIKE AUFM-MEINS, 基本计量单位WERKS LIKE AUFM-W
6、ERKS, plantBUDAT LIKE AUFM-BUDAT,MBLNR LIKE AUFM-MBLNR,MJAHR LIKE AUFM-MJAHR,ZEILE LIKE AUFM-ZEILE,END OF STR_AUFM.DATA: WA_AUFM TYPE STR_AUFM, IT_AUFM TYPE TABLE OF STR_AUFM.*-Initial table it_mbewTYPES: BEGIN OF STR_MBEW,MATNR LIKE MBEW-MATNR 物料号STPRS LIKE MBEW-STPRS, 标准价格END OF STR_MBEW.DATA: WA_
7、MBEW TYPE STR_MBEW, IT_MBEW TYPE TABLE OF STR_MBEW.*-Initial table it_mbewh TYPES: BEGIN OF STR_MBEWH,MATNR LIKE MBEWH-MATNR物料号LFGJA LIKE MBEWH-LFGJA,LFMON LIKE MBEWH-LFMON, BWKEY LIKE MBEWH-BWKEY,STPRS LIKE MBEWH-STPRS, 标 准价格 END OF STR_MBEWH.DATA: WA_MBEWH TYPE STR_MBEWH, IT_MBEWH TYPE TABLE OF ST
8、R_MBEWH.*-Initial table it_abapTYPES: BEGIN OF STR_VBAP, VBELN LIKE VBAP-VBELN, 销售凭证POSNR LIKE VBAP-POSNR, 销售凭证 ItemUMVKN LIKE VBAP-UMVKN,销售量转换为 SKU的值（除数）UMVKZ LIKE VBAP-UMVKZ,销售数量转换成 SKU的分子（因子） VRKME LIKE VBAP-VRKME, 销售单位GEWEI LIKE VBAP-GEWEI, 重量单位KWMENG LIKE VBAP-KWMEN（定单重量NETWR LIKE VBAP-NETWR,净价
9、值WAERK LIKE VBAP-WAERK, SD凭 证货币KNUMV LIKE VBAK-KNUMV, END OF STR_VBAP.DATA: WA_VBAP TYPE STR_VBAP, IT_VBAP TYPE TABLE OF STR_VBAP.*-Initial table it_vbakTYPES: BEGIN OF STR_VBAK,KNUMV LIKE VBAK-KNUMV,VBELN LIKE VBAK-VBELN, END OF STR_VBAK.DATA: WA_VBAK TYPE STR_VBAK, IT_VBAK TYPE TABLE OF STR_VBAK.*
10、-initial table it_vbkdTYPES: BEGIN OF STR_VBKD, VBELN LIKE VBKD-VBELN, 销售凭证POSNR LIKE VBKD-POSNR, 销 售凭证 ItemPRSDT LIKE VBKD-PRSDT, 定价日期KURSK LIKE VBKD-KURSK, 汇率END OF STR_VBKD. DATA: WA_VBKD TYPE STR_VBKD, IT_VBKD TYPE TABLE OF STR_VBKD.*-Initial table it_konvTYPES: BEGIN OF STR_KONV,KNUMV LIKE KONV
11、-KNUM V,单据条件数KBETR LIKE KONV-KBETR, 金额WAERS LIKE KONV-WAERS,货币代码KPOSN LIKE KONV-KPOSN,END OF STR_KONV.DATA: WA_KONV TYPE STR_KONV,IT_KONV TYPE TABLE OF STR_KONV.DATA: WA_KONV2 TYPE STR_KONV,IT_KONV2 TYPE TABLE OF STR_KONV.*-Initial table it_tabTYPES: BEGIN OF STR_TAB,BUDAT LIKE MKPF-BUDAT, 凭证中的记帐日期Z
12、EILE LIKE AUFM-ZEILE,WERKS LIKE AUFM-WERKS, plantMBLNR LIKE MSEG-MBLNR, 物 料凭证编号MJAHR LIKE MSEG-MJAHR, 物 料凭证年度SGTXT LIKE MSEG-SGTXT, 项目文本* AUFNR LIKE MSEG-AUFNR, 订单编码MATNR LIKE MSEG-MATNR,物料号MENGE LIKE MSEG-MENGE 数量MEINS LIKE MSEG-MEINS, 基本计量单位BWART LIKE MSEG-BWART,移动类型（库存管理）WAERS LIKE MSEG-WAERS 货币代
13、码KDAUF LIKE AFPO-KDAUF, 销售订单号KDPOS LIKE AFPO-KDPOS, 销售订单行项WEMNG LIKE AFPO-WEM NG此订单项的收货数量AUFNR LIKE AUFM-AUFNR, 订单编码MATNR_M LIKE AUFM-MATNR 物料号MENGE_M LIKE AUFM-MENGE数量MEINS_M LIKE AUFM-MEINS, 基本计量单位STPRS LIKE MBEW-STPRS, 标准价格UMVKN LIKE VBAP-UMVKN,销售量转换为 SKU的值（除数）UMVKZ LIKE VBAP-UMVKZ,销售数量转换成 SKU的分子
14、（因子）VRKME LIKE VBAP-VRKME, 销售单位GEWEI LIKE VBAP-GEWEI, 重量单位KWMENG LIKE VBAP-KWMENGt 单重量NETWR LIKE VBAP-NETWR,净价值WAERK LIKE VBAP-WAERK, SD凭 证货币KSCHL LIKE KONV-KSCHL, 条件类型KBETR LIKE KONV-KBETR, 金额WAERS_S LIKE KONV-WAERS货币代码KURSK LIKE VBKD-KURSK, 汇率XSDDJ TYPE P DECIMALS 3, 销售单单价BZ TYPE P DECIMALS 3,BZJE
15、 TYPE P DECIMALS 3, CPJE TYPE P DECIMALS 3, END OF STR_TAB.DATA: WA_TAB TYPE STR_TAB, IT_TAB TYPE TABLE OF STR_TAB.DATA: WA_TAB2 TYPE STR_TAB, IT_TAB2 TYPE TABLE OF STR_TAB.DATA: WA_TAB3 TYPE STR_TAB, IT_TAB3 TYPE TABLE OF STR_TAB.DATA: DAT_L LIKE MKPF-BUDAT.DATA: MY_UKURS LIKE TCURR-UKURS. DATA: MY_GDATU LIKE TCURR-GDATU.DATA: DAT1(4), DAT2(2).* Typ
