SAP 通用获取汇率

代码如下：

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.

SELECT-OPTIONS: S_BUDAT FOR MKPF-BUDAT OBLIGATORY NO-EXTENSION,

S_ARBPL FOR CRHD-ARBPL OBLIGATORY .

* S_SGTXT FOR MSEG-SGTXT.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-004.

PARAMETERS: P_GR1 RADIOBUTTON GROUP G1,

P_GR2 RADIOBUTTON GROUP G1 DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK B3.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-003.

PARAMETERS: P_VARIN LIKE DISVARIANT-VARIANT.

SELECTION-SCREEN END OF BLOCK B2.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARIN.

PERFORM F4_FOR_VARIANT.

*&---------------------------------------------------------------------*

**Start-of-selection

*&---------------------------------------------------------------------*

START-OF-SELECTION.

PERFORM SELECT_DATA.

PERFORM SELECT_DATA_MATERIAL.

PERFORM GET_DATA.

PERFORM GET_LAST_DATA.

**---显示汇总报表

IF P_GR2 = 'X'.

PERFORM GET_TOTAL_DATA.

ENDIF.

**---得到标题

PERFORM GET_TITLE.

*&---------------------------------------------------------------------*

*&End-of-selection

*&---------------------------------------------------------------------*

END-OF-SELECTION.

C_PROG = SY-REPID.

PERFORM INITIALIZE_VARIANT.

IF P_GR2 = 'X'.

PERFORM SUB_FIELD_OUT_ALV2 CHANGING FIELDCAT.

ELSE.

PERFORM SUB_FIELD_OUT_ALV CHANGING FIELDCAT.

ENDIF.

PERFORM SUB_LAYOUT_OUT_ALV CHANGING GS_LAYOUT.

PERFORM CALL_ALV_DATA_OUTPUT.


*&---------------------------------------------------------------------*

*& Form Select_data

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM SELECT_DATA .

SELECT MBLNR MJAHR BUDAT

INTO CORRESPONDING FIELDS OF TABLE IT_MKPF

FROM MKPF

WHERE BUDAT IN S_BUDAT.

IF NOT IT_MKPF IS INITIAL.

SELECT MBLNR MJAHR ZEILE SGTXT AUFNR MATNR MENGE MEINS BWART WAERS

CHARG

INTO CORRESPONDING FIELDS OF TABLE IT_MSEG

FROM MSEG

FOR ALL ENTRIES IN IT_MKPF

WHERE MBLNR = IT_MKPF-MBLNR

AND MJAHR = IT_MKPF-MJAHR

AND ( BWART = '101' OR BWART = '102' )

* OR BWART = 'Z31' OR BWART = 'Z32'

* OR BWART = '531' OR BWART = '532')

AND SGTXT LIKE 'S%'.

ENDIF.

LOOP AT IT_MSEG INTO WA_MSEG.

**---取SGTXT前3位作为机台号

WA_MSEG-SGTXT = WA_MSEG-SGTXT+0(3).

**---移动类型为102 数量取负

IF WA_MSEG-BWART = '102'.

WA_MSEG-MENGE = 0 - WA_MSEG-MENGE.

ENDIF.

MODIFY IT_MSEG FROM WA_MSEG.

CLEAR WA_MSEG.

ENDLOOP.

**--删除不符合条件的机台号

DELETE IT_MSEG WHERE NOT SGTXT IN S_ARBPL.

***---合并生产定单中的数量

REFRESH IT_MSEG2.

* IT_MSEG2[] = IT_MSEG[].

LOOP AT IT_MSEG INTO WA_MSEG.

MOVE: WA_MSEG-SGTXT TO WA_MSEG2-SGTXT,

WA_MSEG-AUFNR TO WA_MSEG2-AUFNR,

WA_MSEG-MATNR TO WA_MSEG2-MATNR,

WA_MSEG-MENGE TO WA_MSEG2-MENGE,

WA_MSEG-MEINS TO WA_MSEG2-MEINS,

WA_MSEG-WAERS TO WA_MSEG2-WAERS.

COLLECT WA_MSEG2 INTO IT_MSEG2.

CLEAR:WA_MSEG,WA_MSEG2.

ENDLOOP.

ENDFORM. " Select_data

*&---------------------------------------------------------------------*

*& Form select_data_material

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM SELECT_DATA_MATERIAL .

IF NOT IT_MSEG2 IS INITIAL.

SELECT AUFNR KDAUF KDPOS WEMNG

INTO CORRESPONDING FIELDS OF TABLE IT_AFPO

FROM AFPO

FOR ALL ENTRIES IN IT_MSEG2

WHERE AUFNR = IT_MSEG2-AUFNR.

SELECT AUFNR MATNR BWART MENGE MEINS BUDAT MBLNR MJAHR ZEILE WERKS

INTO CORRESPONDING FIELDS OF TABLE IT_AUFM

FROM AUFM

FOR ALL ENTRIES IN IT_MSEG2

WHERE AUFNR = IT_MSEG2-AUFNR

AND ( BWART = '261' OR BWART = '262'

* ).

OR BWART = 'Z31' OR BWART = 'Z32').

IF NOT IT_AUFM IS INITIAL.

SELECT MATNR STPRS

INTO CORRESPONDING FIELDS OF TABLE IT_MBEW

FROM MBEW

FOR ALL ENTRIES IN IT_AUFM

WHERE MATNR = IT_AUFM-MATNR

AND BWKEY = IT_AUFM-WERKS.

ENDIF.

IF NOT IT_AFPO IS INITIAL.

SELECT VBELN POSNR UMVKN UMVKZ VRKME

GEWEI KWMENG NETWR WAERK

INTO CORRESPONDING FIELDS OF TABLE IT_VBAP

FROM VBAP

FOR ALL ENTRIES IN IT_AFPO

WHERE VBELN = IT_AFPO-KDAUF

AND POSNR = IT_AFPO-KDPOS.

SELECT VBELN KNUMV

INTO CORRESPONDING FIELDS OF TABLE IT_VBAK

FROM VBAK

FOR ALL ENTRIES IN IT_AFPO

WHERE VBELN = IT_AFPO-KDAUF.

SELECT VBELN POSNR PRSDT KURSK

INTO CORRESPONDING FIELDS OF TABLE IT_VBKD

FROM VBKD

FOR ALL ENTRIES IN IT_AFPO

WHERE VBELN = IT_AFPO-KDAUF.

ENDIF.

LOOP AT IT_VBAP INTO WA_VBAP.

READ TABLE IT_VBAK INTO WA_VBAK WITH KEY VBELN = WA_VBAP-VBELN.

IF SY-SUBRC = 0.

MOVE WA_VBAK-KNUMV TO WA_VBAP-KNUMV.

MODIFY IT_VBAP FROM WA_VBAP TRANSPORTING KNUMV.

ENDIF.

ENDLOOP.

IF NOT IT_VBAP IS INITIAL.

SELECT KNUMV KSCHL KBETR WAERS KPOSN

INTO CORRESPONDING FIELDS OF TABLE IT_KONV

FROM KONV

FOR ALL ENTRIES IN IT_VBAP

WHERE KNUMV = IT_VBAP-KNUMV

AND KPOSN = IT_VBAP-POSNR

AND ( KSCHL = 'ZVA1' OR KSCHL = 'ZKF0' ).

ENDIF.

ENDIF.

LOOP AT IT_VBKD INTO WA_VBKD.

IF WA_VBKD-KURSK = '1.00000'.

**---计算输入日期的最后一天

CALL FUNCTION 'LAST_DAY_OF_MONTHS'

EXPORTING

DAY_IN = WA_VBKD-PRSDT

IMPORTING

LAST_DAY_OF_MONTH = WA_VBKD-PRSDT

EXCEPTIONS

DAY_IN_NO_DATE = 1

OTHERS = 2.

**--从汇率表中重新取汇率，取该月月末的汇率

CALL FUNCTION 'READ_EXCHANGE_RATE'

EXPORTING

DATE = WA_VBKD-PRSDT

FOREIGN_CURRENCY = 'USD'

LOCAL_CURRENCY = 'CNY'

TYPE_OF_RATE = 'M'

IMPORTING

EXCHANGE_RATE = MY_UKURS

EXCEPTIONS

NO_RATE_FOUND = 1

NO_FACTORS_FOUND = 2

NO_SPREAD_FOUND = 3

DERIVED_2_TIMES = 4

OVERFLOW = 5

ZERO_RATE = 6

OTHERS = 7.

MOVE MY_UKURS TO WA_VBKD-KURSK.

MODIFY IT_VBKD FROM WA_VBKD TRANSPORTING KURSK.

CLEAR WA_VBKD.

ENDIF.

ENDLOOP.

ENDFORM. " select_data_material

*&---------------------------------------------------------------------*

*& Form GET_DATA

*&---------------------------------------------------------------------*

* 整理数据

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM GET_DATA .

**---运费＋印花税

REFRESH IT_KONV2.

LOOP AT IT_KONV INTO WA_KONV.

MOVE-CORRESPONDING WA_KONV TO WA_KONV2.

COLLECT WA_KONV2 INTO IT_KONV2.

CLEAR: WA_KONV2, WA_KONV.

ENDLOOP.

REFRESH IT_TAB.

SORT IT_AUFM BY AUFNR.

LOOP AT IT_AUFM INTO WA_AUFM.

MOVE: WA_AUFM-AUFNR TO WA_TAB-AUFNR,

WA_AUFM-MATNR TO WA_TAB-MATNR_M,

WA_AUFM-MEINS TO WA_TAB-MEINS_M.

* WA_AUFM-BUDAT TO WA_TAB-BUDAT,

* WA_AUFM-MBLNR TO WA_TAB-MBLNR,

* WA_AUFM-MJAHR TO WA_TAB-MJAHR,

* WA_AUFM-ZEILE TO WA_TAB-ZEILE.

IF WA_AUFM-BWART = '262' OR WA_AUFM-BWART = 'Z31'.

WA_TAB-MENGE_M = 0 - WA_AUFM-MENGE.

ELSE.

MOVE: WA_AUFM-MENGE TO WA_TAB-MENGE_M.

ENDIF.

**----计算物料的标准价格

PERFORM GET_BZJG_HISTORY USING WA_AUFM-BUDAT

WA_AUFM-MATNR

WA_AUFM-WERKS

CHANGING WA_TAB-STPRS.

**---如果价格为空,就去当月的标准价格

IF WA_TAB-STPRS = ''.

READ TABLE IT_MBEW INTO WA_MBEW WITH KEY MATNR = WA_TAB-MATNR_M.

IF SY-SUBRC = 0.

MOVE: WA_MBEW-STPRS TO WA_TAB-STPRS.

ENDIF.

ENDIF.

APPEND WA_TAB TO IT_TAB.

CLEAR: WA_TAB,WA_AUFM.

ENDLOOP.

LOOP AT IT_TAB INTO WA_TAB.

READ TABLE IT_AFPO INTO WA_AFPO WITH KEY AUFNR = WA_TAB-AUFNR.

IF SY-SUBRC = 0.

MOVE: WA_AFPO-KDAUF TO WA_TAB-KDAUF,

WA_AFPO-KDPOS TO WA_TAB-KDPOS,

WA_AFPO-WEMNG TO WA_TAB-WEMNG.

READ TABLE IT_VBAP INTO WA_VBAP WITH KEY VBELN = WA_AFPO-KDAUF

POSNR = WA_AFPO-KDPOS.

IF SY-SUBRC = 0.

MOVE:WA_VBAP-UMVKN TO WA_TAB-UMVKN,

WA_VBAP-UMVKZ TO WA_TAB-UMVKZ,

WA_VBAP-VRKME TO WA_TAB-VRKME,

WA_VBAP-GEWEI TO WA_TAB-GEWEI,

WA_VBAP-KWMENG TO WA_TAB-KWMENG,

WA_VBAP-NETWR TO WA_TAB-NETWR,

WA_VBAP-WAERK TO WA_TAB-WAERK.

ENDIF.

**---取汇率

READ TABLE IT_VBKD INTO WA_VBKD WITH KEY VBELN = WA_AFPO-KDAUF.

IF SY-SUBRC = 0.

MOVE: WA_VBKD-KURSK TO WA_TAB-KURSK.

ENDIF.

**---取运输费和印花税

READ TABLE IT_VBAP INTO WA_VBAP WITH KEY VBELN = WA_AFPO-KDAUF

POSNR = WA_AFPO-KDPOS.

IF SY-SUBRC = 0.

READ TABLE IT_KONV2 INTO WA_KONV2

WITH KEY KNUMV = WA_VBAP-KNUMV.

IF SY-SUBRC = 0.

MOVE: WA_KONV2-KBETR TO WA_TAB-KBETR,

WA_KONV2-WAERS TO WA_TAB-WAERS_S.

ENDIF.

ENDIF.

ENDIF.

READ TABLE IT_MSEG2 INTO WA_MSEG2 WITH KEY AUFNR = WA_TAB-AUFNR.

IF SY-SUBRC = 0.

MOVE:WA_MSEG2-SGTXT TO WA_TAB-SGTXT,

WA_MSEG2-MATNR TO WA_TAB-MATNR,

WA_MSEG2-MENGE TO WA_TAB-MENGE,

WA_MSEG2-MEINS TO WA_TAB-MEINS,

WA_MSEG2-BWART TO WA_TAB-BWART,

WA_MSEG2-WAERS TO WA_TAB-WAERS.

ENDIF.

**---计算成品数量/已交货数量*单个原料的数量

IF WA_TAB-WEMNG = 0.

* MESSAGE '已交货数量不能为０' TYPE 'E'.

* STOP.

ELSE.

WA_TAB-BZ = WA_TAB-MENGE / WA_TAB-WEMNG * WA_TAB-MENGE_M.

ENDIF.

MODIFY IT_TAB FROM WA_TAB.

CLEAR: WA_TAB,WA_AFPO,WA_MBEW,WA_MSEG2.

ENDLOOP.

ENDFORM. " GET_DATA

*&---------------------------------------------------------------------*

*& Form GET_LAST_DATA

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM GET_LAST_DATA .

LOOP AT IT_TAB INTO WA_TAB.

**---若单位为'EA'的,成品的单价为0

IF WA_TAB-VRKME = 'EA'.

WA_TAB-XSDDJ = 0.

ELSE.

**---计算单价

IF WA_TAB-KWMENG = 0.

* MESSAGE '销售定单的数量不能为０' TYPE 'E'.

* STOP.

ELSE.

WA_TAB-XSDDJ = WA_TAB-NETWR / WA_TAB-KWMENG.

ENDIF.

**---减去运费和印花税

WA_TAB-XSDDJ = WA_TAB-XSDDJ - WA_TAB-KBETR.

**---转换成人民币／KG

IF WA_TAB-WAERK = 'USD'.

WA_TAB-XSDDJ = WA_TAB-XSDDJ * WA_TAB-KURSK

/ ( WA_TAB-UMVKZ / WA_TAB-UMVKN ).

ELSEIF WA_TAB-WAERK = 'CNY'.

WA_TAB-XSDDJ = WA_TAB-XSDDJ

/ ( WA_TAB-UMVKZ / WA_TAB-UMVKN ).

ELSEIF WA_TAB-WAERK = ''.

WA_TAB-XSDDJ = 0.

ENDIF.

ENDIF.

**---去掉工单和销售单前面的０

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

INPUT = WA_TAB-AUFNR

IMPORTING

OUTPUT = WA_TAB-AUFNR.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

INPUT = WA_TAB-KDAUF

IMPORTING

OUTPUT = WA_TAB-KDAUF.

**---计算比例原料的金额

WA_TAB-BZJE = WA_TAB-BZ * WA_TAB-STPRS.

MODIFY IT_TAB FROM WA_TAB.

CLEAR WA_TAB.

ENDLOOP.

LOOP AT IT_TAB INTO WA_TAB.

MOVE: WA_TAB-AUFNR TO WA_TAB3-AUFNR,

WA_TAB-MATNR_M TO WA_TAB3-MATNR_M,

WA_TAB-MENGE_M TO WA_TAB3-MENGE_M,

WA_TAB-MEINS_M TO WA_TAB3-MEINS_M,

WA_TAB-BZ TO WA_TAB3-BZ,

WA_TAB-BZJE TO WA_TAB3-BZJE.

COLLECT WA_TAB3 INTO IT_TAB3.

CLEAR: WA_TAB,WA_TAB3.

ENDLOOP.

LOOP AT IT_TAB3 INTO WA_TAB3.

READ TABLE IT_TAB INTO WA_TAB WITH KEY AUFNR = WA_TAB3-AUFNR

MATNR_M = WA_TAB3-MATNR_M.

IF SY-SUBRC = 0.

MOVE: WA_TAB-SGTXT TO WA_TAB3-SGTXT,

WA_TAB-MENGE TO WA_TAB3-MENGE,

WA_TAB-MEINS TO WA_TAB3-MEINS,

WA_TAB-XSDDJ TO WA_TAB3-XSDDJ,

WA_TAB-KDAUF TO WA_TAB3-KDAUF,

WA_TAB-KDPOS TO WA_TAB3-KDPOS,

WA_TAB-MATNR TO WA_TAB3-MATNR,

WA_TAB-STPRS TO WA_TAB3-STPRS,

WA_TAB-KURSK TO WA_TAB3-KURSK.

ENDIF.

MODIFY IT_TAB3 FROM WA_TAB3.

CLEAR: WA_TAB,WA_TAB3.

ENDLOOP.

REFRESH IT_TAB.

IT_TAB[] = IT_TAB3[].

ENDFORM. " GET_LAST_DATA


*&---------------------------------------------------------------------*

*& Form INITIALIZE_VARIANT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM INITIALIZE_VARIANT .

CLEAR V_VARIANT1.

V_SAVE = 'A'.

V_VARIANT1-REPORT = C_PROG.

V_VARIANT2 = V_VARIANT1.

CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'

EXPORTING

I_SAVE = V_SAVE

CHANGING

CS_VARIANT = V_VARIANT2

EXCEPTIONS

NOT_FOUND = 2.

IF SY-SUBRC = 0.

P_VARIN = V_VARIANT2-VARIANT.

ENDIF.

ENDFORM. " INITIALIZE_VARIANT

*&---------------------------------------------------------------------*

*& Form SUB_FIELD_OUT_ALV

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* <--P_FIELDCAT text

*----------------------------------------------------------------------*

FORM SUB_FIELD_OUT_ALV CHANGING P_FIELDCAT.

* FIELDCAT_LN-FIELDNAME = 'BUDAT' .

* FIELDCAT_LN-KEY = 'X'.

* FIELDCAT_LN-SELTEXT_L = '记帐日期'.

* APPEND FIELDCAT_LN TO FIELDCAT.

*

* FIELDCAT_LN-FIELDNAME = 'MBLNR' .

* FIELDCAT_LN-KEY = 'X'.

* FIELDCAT_LN-SELTEXT_L = '物料凭证'.

* APPEND FIELDCAT_LN TO FIELDCAT.

*

* FIELDCAT_LN-FIELDNAME = 'MJAHR' .

* FIELDCAT_LN-KEY = 'X'.

* FIELDCAT_LN-SELTEXT_L = '年度'.

* APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'SGTXT' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '机台'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'AUFNR' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '订单编码'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'MATNR' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '物料号码(成品)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'MENGE' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '物料数量(成品)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'MEINS' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '单位(成品)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'XSDDJ' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '成品单价(RMB/KG)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'KDAUF' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '销售订单号'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'KDPOS' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '销售订单行项'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'MATNR_M' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '物料号码(原料)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'MENGE_M' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '物料数量(原料)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'MEINS_M' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '单位(原料)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'STPRS' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '标准单价(原料)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'BZ' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '比例用量(原料)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'BZJE' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '比例金额(原料)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'KURSK' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '汇率'.

APPEND FIELDCAT_LN TO FIELDCAT.

ENDFORM. " SUB_FIELD_OUT_ALV

*&---------------------------------------------------------------------*

*& Form SUB_LAYOUT_OUT_ALV

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* <--P_GS_LAYOUT text

*----------------------------------------------------------------------*

FORM SUB_LAYOUT_OUT_ALV CHANGING P_GS_LAYOUT.

GS_LAYOUT-ZEBRA = 'X'. " 斑马线表示

GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'. " 最适合列宽

ENDFORM. " sub_layout_out_alv

*&---------------------------------------------------------------------*

*& Form CALL_ALV_DATA_OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM CALL_ALV_DATA_OUTPUT .

IF P_GR2 = 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = G_REPID

IS_LAYOUT = GS_LAYOUT

I_GRID_TITLE = SC_TITLE

IT_FIELDCAT = FIELDCAT

IT_SORT = SORTCAT

I_SAVE = 'A'

IS_VARIANT = V_VARIANT2

* IT_EVENTS = GT_EVENTS[]

TABLES

T_OUTTAB = IT_TAB2

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

IF SY-SUBRC NE 0.

WRITE: 'SY-SUBRC: ', SY-SUBRC,

'REUSE_ALV_GRID_DISPLAY'.

ENDIF.

ELSE.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = G_REPID

IS_LAYOUT = GS_LAYOUT

I_GRID_TITLE = SC_TITLE

IT_FIELDCAT = FIELDCAT

IT_SORT = SORTCAT

I_SAVE = 'A'

IS_VARIANT = V_VARIANT2

* IT_EVENTS = GT_EVENTS[]

TABLES

T_OUTTAB = IT_TAB

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

IF SY-SUBRC NE 0.

WRITE: 'SY-SUBRC: ', SY-SUBRC,

'REUSE_ALV_GRID_DISPLAY'.

ENDIF.

ENDIF.

ENDFORM. " CALL_ALV_DATA_OUTPUT

*&---------------------------------------------------------------------*

*& Form F4_FOR_VARIANT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM F4_FOR_VARIANT .

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

IS_VARIANT = V_VARIANT1

I_SAVE = V_SAVE

IMPORTING

E_EXIT = V_EXIT

ES_VARIANT = V_VARIANT2

EXCEPTIONS

NOT_FOUND = 2.

IF SY-SUBRC = 2.

MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSE.

IF V_EXIT = SPACE.

P_VARIN = V_VARIANT2-VARIANT.

ENDIF.

ENDIF.

ENDFORM. " F4_FOR_VARIANT

*&---------------------------------------------------------------------*

*& Form get_total_data

*&---------------------------------------------------------------------*

* 输出汇总的报表

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM GET_TOTAL_DATA .

REFRESH IT_TAB2.

LOOP AT IT_TAB INTO WA_TAB.

MOVE:

* WA_TAB-MBLNR TO WA_TAB2-MBLNR,

* WA_TAB-MJAHR TO WA_TAB2-MJAHR,

WA_TAB-SGTXT TO WA_TAB2-SGTXT,

WA_TAB-MATNR TO WA_TAB2-MATNR,

WA_TAB-WAERS TO WA_TAB2-WAERS,

WA_TAB-KDAUF TO WA_TAB2-KDAUF,

WA_TAB-KDPOS TO WA_TAB2-KDPOS,

WA_TAB-AUFNR TO WA_TAB2-AUFNR,

WA_TAB-BZJE TO WA_TAB2-BZJE,

WA_TAB-MENGE_M TO WA_TAB2-MENGE_M,

WA_TAB-MEINS_M TO WA_TAB2-MEINS_M,

WA_TAB-BZ TO WA_TAB2-BZ.

COLLECT WA_TAB2 INTO IT_TAB2.

CLEAR: WA_TAB,WA_TAB2.

ENDLOOP.

LOOP AT IT_TAB2 INTO WA_TAB2.

READ TABLE IT_TAB INTO WA_TAB WITH KEY

* MBLNR = WA_TAB2-MBLNR

* MJAHR = WA_TAB2-MJAHR

SGTXT = WA_TAB2-SGTXT

AUFNR = WA_TAB2-AUFNR

MATNR = WA_TAB2-MATNR.

IF SY-SUBRC = 0.

**---计算成品的总金额

WA_TAB2-CPJE = WA_TAB-MENGE * WA_TAB-XSDDJ.

**---合并

MOVE:WA_TAB-MENGE TO WA_TAB2-MENGE,

WA_TAB-MEINS TO WA_TAB2-MEINS,

WA_TAB-XSDDJ TO WA_TAB2-XSDDJ,

WA_TAB-KURSK TO WA_TAB2-KURSK.

ENDIF.

MODIFY IT_TAB2 FROM WA_TAB2.

ENDLOOP.

ENDFORM. " get_total_data

*&---------------------------------------------------------------------*

*& Form SUB_FIELD_OUT_ALV2

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* <--P_FIELDCAT text

*----------------------------------------------------------------------*

FORM SUB_FIELD_OUT_ALV2 CHANGING P_FIELDCAT.

* FIELDCAT_LN-FIELDNAME = 'MBLNR' .

* FIELDCAT_LN-KEY = 'X'.

* FIELDCAT_LN-SELTEXT_L = '物料凭证'.

* APPEND FIELDCAT_LN TO FIELDCAT.

*

* FIELDCAT_LN-FIELDNAME = 'MJAHR' .

* FIELDCAT_LN-KEY = 'X'.

* FIELDCAT_LN-SELTEXT_L = '年度'.

* APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'SGTXT' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '机台'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'AUFNR' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '订单编码'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'MATNR' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '物料号码(成品)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'MENGE' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '物料数量(成品)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'MEINS' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '单位(成品)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'XSDDJ' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '成品单价(RMB/KG)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'CPJE' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '成品总金额'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'KDAUF' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '销售订单号'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'KDPOS' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '销售订单行项'.

APPEND FIELDCAT_LN TO FIELDCAT.

* FIELDCAT_LN-FIELDNAME = 'MATNR_M' .

* FIELDCAT_LN-KEY = 'X'.

* FIELDCAT_LN-SELTEXT_L = '物料号码(原料)'.

* APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'MENGE_M' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '物料数量(原料)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'MEINS_M' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '单位(原料)'.

APPEND FIELDCAT_LN TO FIELDCAT.

* FIELDCAT_LN-FIELDNAME = 'STPRS' .

* FIELDCAT_LN-KEY = 'X'.

* FIELDCAT_LN-SELTEXT_L = '标准单价(原料)'.

* APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'BZ' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '比例用量(原料)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'BZJE' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '比例总金额(原料)'.

APPEND FIELDCAT_LN TO FIELDCAT.

FIELDCAT_LN-FIELDNAME = 'KURSK' .

FIELDCAT_LN-KEY = 'X'.

FIELDCAT_LN-SELTEXT_L = '汇率'.

ENDFORM. " SUB_FIELD_OUT_ALV2

*&---------------------------------------------------------------------*

*& Form GET_TITLE

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM GET_TITLE .

DATA: DAT(28) TYPE C,

JT(20).

IF S_BUDAT IS INITIAL.

CONCATENATE '记帐日期:' '全部日期'INTO DAT.

ELSEIF S_BUDAT-LOW <> '' AND S_BUDAT-HIGH = ''.

CONCATENATE '记帐日期:' S_BUDAT-LOW INTO DAT.

ELSEIF S_BUDAT-LOW <> '' AND S_BUDAT-HIGH <> ''.

CONCATENATE '记帐日期:' S_BUDAT-LOW '~' S_BUDAT-HIGH INTO DAT.

ELSEIF S_BUDAT-LOW = '' AND S_BUDAT-HIGH <> ''.

CONCATENATE '记帐日期:' '00000000 ' '~' S_BUDAT-HIGH INTO DAT.

ENDIF.

IF S_ARBPL IS INITIAL.

CONCATENATE '机台号码:' '全部日期'INTO JT.

ELSEIF S_ARBPL-LOW <> '' AND S_ARBPL-HIGH = ''.

CONCATENATE '机台号码:' S_ARBPL-LOW INTO JT.

ELSEIF S_ARBPL-LOW <> '' AND S_ARBPL-HIGH <> ''.

CONCATENATE '机台号码:' S_ARBPL-LOW '~' S_ARBPL-HIGH INTO JT.

ELSEIF S_ARBPL-LOW = '' AND S_ARBPL-HIGH <> ''.

CONCATENATE '机台号码:' '00000000 ' '~' S_ARBPL-HIGH INTO JT.

ENDIF.

**---合并日期与机台

CONCATENATE DAT '　' JT INTO SC_TITLE(70).

ENDFORM. " GET_TITLE


*&---------------------------------------------------------------------*

*& Form GET_BZJG_HISTORY

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->P_DAT text

* -->P_WA_TAB_MATNR_M text

* -->P_WA_TAB_WERKS text

* <--P_WA_TAB_STPRS text

*----------------------------------------------------------------------*

FORM GET_BZJG_HISTORY USING P_BUDAT LIKE AUFM-BUDAT

P_MATNR LIKE AUFM-MATNR

P_WERKS LIKE AUFM-WERKS

CHANGING P_STPRS LIKE MBEWH-STPRS.

**---计算输入日期的最后一天

CALL FUNCTION 'LAST_DAY_OF_MONTHS'

EXPORTING

DAY_IN = P_BUDAT

IMPORTING

LAST_DAY_OF_MONTH = DAT_L

EXCEPTIONS

DAY_IN_NO_DATE = 1

OTHERS = 2.

**---计算输入日期的下一个月

DAT_L = DAT_L + 1.

DAT1 = DAT_L+(4).

DAT2 = DAT_L+4(2).

**---取历史单价表里面的标准价格

SELECT SINGLE STPRS

INTO P_STPRS

FROM MBEWH

WHERE MATNR = P_MATNR

AND BWKEY = P_WERKS

AND LFGJA = DAT1

AND LFMON = DAT2.

ENDFORM. " GET_BZJG_HISTORY