ABAP 取汇率的程序

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

 *& 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.

 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