成品原料销售成本分析-优快云博客

其实这个报表没有含金亮,只是在写这个报表的时候没有注意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,<