没有合适的资源?快使用搜索试试~ 我知道了~
sap取汇率的程序[参考].pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 93 浏览量
2021-10-12
00:16:48
上传
评论
收藏 32KB PDF 举报
温馨提示
试读
25页
sap取汇率的程序[参考].pdf
资源推荐
资源详情
资源评论
其实这个报表没有含金亮 , 只是在写这个报表的时候没有注意 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
**============= ============== ================== =====================
**
**
*&---------------------------------------------------------------------*
REPORT ZPPR0035.
TABLES: MKPF,
MSEG,CRHD.
**---Initial table it_mkpf
TYPES: 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_mseg
TYPES: BEGIN OF STR_MSEG,
MBLNR 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 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_afpo
TYPES: BEGIN OF STR_AFPO,
AUFNR LIKE AFPO-AUFNR, "订单编码
KDAUF LIKE AFPO-KDAUF, "销售订单号
KDPOS LIKE AFPO-KDPOS, "销售订单行项
WEMNG LIKE AFPO-WEMNG, "此订单项的收货数量
MEINS LIKE AFPO-MEINS, "
END OF STR_AFPO.
DATA: WA_AFPO TYPE STR_AFPO,
IT_AFPO TYPE TABLE OF STR_AFPO.
**---Initial table it_aufm
TYPES: 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-WERKS, "plant
BUDAT 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_mbew
TYPES: BEGIN OF STR_MBEW,
MATNR LIKE MBEW-MATNR, "物料号
STPRS LIKE MBEW-STPRS, "标准价格
END OF STR_MBEW.
DATA: WA_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 STR_MBEWH.
**---Initial table it_abap
TYPES: BEGIN OF STR_VBAP,
VBELN LIKE VBAP-VBELN, " 销售凭证
POSNR LIKE VBAP-POSNR, "销售凭证 Item
UMVKN LIKE VBAP-UMVKN, "销售量转换为 SKU的值 ( 除数 )
UMVKZ LIKE VBAP-UMVKZ, "销售数量转换成 SKU的分子 ( 因子)
VRKME LIKE VBAP-VRKME, "销售单位
GEWEI LIKE VBAP-GEWEI, "重量单位
KWMENG LIKE VBAP-KWMENG, "定单重量
NETWR LIKE VBAP-NETWR, "净价值
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_vbak
TYPES: 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.
**---initial table it_vbkd
TYPES: BEGIN OF STR_VBKD,
VBELN LIKE VBKD-VBELN, "销售凭证
POSNR LIKE VBKD-POSNR, "销售凭证 Item
PRSDT 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_konv
TYPES: BEGIN OF STR_KONV,
KNUMV LIKE KONV-KNUMV, "单据条件数
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_tab
TYPES: BEGIN OF STR_TAB,
BUDAT LIKE MKPF-BUDAT, "凭证中的记帐日期
ZEILE LIKE AUFM-ZEILE,
WERKS LIKE AUFM-WERKS, "plant
MBLNR 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, "货币代码
KDAUF LIKE AFPO-KDAUF, "销售订单号
KDPOS LIKE AFPO-KDPOS, "销售订单行项
WEMNG LIKE AFPO-WEMNG, "此订单项的收货数量
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的分子 ( 因子)
VRKME LIKE VBAP-VRKME, "销售单位
GEWEI LIKE VBAP-GEWEI, "重量单位
KWMENG LIKE VBAP-KWMENG, "定单重量
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 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).
* Type-pools
TYPE-POOLS: SLIS.
TYPE-POOLS: IBXX, IBCO2.
TYPES: IBCO2_VALUE_REC LIKE IBVALUE0.
TYPES: IBCO2_VALUE_TAB TYPE IBCO2_VALUE_REC OCCURS 0.
DATA: V_SAVE(1) TYPE C,
V_EXIT(1) TYPE C,
V_VARIANT1 LIKE DISVARIANT,
V_VARIANT2 LIKE DISVARIANT.
DATA C_PROG LIKE SY-REPID.
DATA:FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
FIELDCAT_LN LIKE LINE OF FIELDCAT,
SORTCAT TYPE SLIS_T_SORTINFO_ALV,
LS_SORT TYPE SLIS_SORTINFO_ALV,
GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
GT_EVENTS TYPE SLIS_T_EVENT,
G_REPID LIKE SY-REPID .
DATA: SC_TITLE(70) TYPE C.
*&---------------------------------------------------------------------*
**Selection-screen
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
剩余24页未读,继续阅读
资源评论
czq131452007
- 粉丝: 2
- 资源: 12万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功