存货账龄分析明细表.docx

1、存货账龄分析明细表* PROGRAM SOURCE HEADER*Program Name: ZHTFI_R019*Description:存货账龄分析明细表*Date/Author:2012.06.27/许林锋*Table Update:*Special Logic:*Include:* MODIFICATION LOG*ChangeDate *Programer *Request *Desctiption*-*2007.06.27 *许林锋 *DEVK900358 *New Program*2007.06.28 *许林锋 *DEVK900358 *Change*2007.06.29 *许林

2、锋 *DEVK900358 *Change*2007.07.02 *许林锋 *DEVK900358 *Change*2007.07.03 *许林锋 *DEVK900358 *Change*2007.07.04 *许林锋 *DEVK900358 *Change*2007.07.05 *许林锋 *DEVK900358 *Change*-*Program Name*-reportzhtfi_r019.tables: t001, t001w, t001l, mara, mbew.*Data*-*ALVtype-pools: slis.data: i_fieldcat_alv type slis_t_f

3、ieldcat_alv with header line, i_layout type slis_layout_alv, alv的格式 w_fieldcat type slis_fieldcat_alv, alv列属性 w_repid like sy-repid. 当前程序data: d_pos type i value 0.rangesranges: r_bwkey for t001k-bwkey,评估范围 r_bukrs for t001k-bukrs,公司代码 r_werks for t001w-werks.工厂data: begin of it_data occurs 0, bukrs

4、 like t001-bukrs, 公司 mjahr like mkpf-mjahr, 年度 rpmax(2) type c, 期间 matnr like mseg-matnr, 物料 maktx like makt-maktx, 物料描述 mtart like mara-mtart, 物料类型 matkl like mara-matkl, 物料组 werks like mseg-werks, 工厂 lgort like mseg-lgort, 库位 menge_e like mseg-menge,期末数量 dmbtr_e like mseg-dmbtr,期末金额 menge_1 like m

5、seg-menge, 1-3月数量 dmbtr_1 like mseg-dmbtr, 1-3月金额 menge_2 like mseg-menge, 4-6月数量 dmbtr_2 like mseg-dmbtr, 4-6月金额 menge_3 like mseg-menge, 7-9月数量 dmbtr_3 like mseg-dmbtr, 7-9月金额 menge_4 like mseg-menge, 10-12月数量 dmbtr_4 like mseg-dmbtr, 10-12月金额 menge_5 like mseg-menge, 1-2年数量 dmbtr_5 like mseg-dmbt

6、r, 1-2年金额 menge_6 like mseg-menge, 2-3年数量 dmbtr_6 like mseg-dmbtr, 2-3年金额 menge_7 like mseg-menge, 3年以上数量 dmbtr_7 like mseg-dmbtr, 3年以上金额 end of it_data.data: begin of it_werks occurs 0, bwkey like t001k-bwkey, 评估范围 bukrs like t001k-bukrs, 公司代码 werks like t001w-werks, 工厂 end of it_werks, it_werks_b

7、like table of it_werks with header line.data: begin of it_matnr occurs 0, matnr like mara-matnr,物料号码 mtart like mara-mtart,物料类型 matkl like mara-matkl,物料组 maktx like makt-maktx,物料描述 end of it_matnr.data: begin of it_mseg occurs 0, mblnr like mkpf-mblnr,物料凭证 mjahr like mkpf-mjahr,年度 budat like mkpf-bu

8、dat,过账日期 zeile like mseg-zeile,项目 matnr like mseg-matnr,物料 werks like mseg-werks,工厂 lgort like mseg-lgort,库位 shkzg like mseg-shkzg,借/贷 dmbtr like mseg-dmbtr,本位币金额 menge like mseg-menge,数量 end of it_mseg.data: begin of it_bsim occurs 0, bukrs like bkpf-bukrs,公司代码 belnr like bkpf-belnr,会计凭证 gjahr like

9、 bkpf-gjahr,会计年度 budat like bkpf-budat,过账日期 buzei like bsim-buzei,项目 matnr like bsim-matnr,物料 shkzg like bsim-shkzg,借/贷 dmbtr like bsim-dmbtr,本位币金额 end of it_bsim.data: begin of it_lgort occurs 0, bukrs like t001-bukrs,公司 werks like mseg-werks,工厂 lgort like mseg-lgort,库位 end of it_lgort.data: begin

10、of it_bukrs occurs 0, bukrs like t001-bukrs,公司代码 end of it_bukrs.data: begin of it_perpr occurs 0, matnr like mara-matnr,物料 bukrs like t001-bukrs,公司代码 perpr like mseg-dmbtr,单价 end of it_perpr.data: p_budat_low_flike mkpf-budat, 查询期间的第一天 p_budat_high_f like mkpf-budat, 查询期间的最后一天 各个期间的开始结束日 p_budat_lo

11、w_1like mkpf-budat, p_budat_high_1 like mkpf-budat, p_budat_low_2like mkpf-budat, p_budat_high_2 like mkpf-budat, p_budat_low_3like mkpf-budat, p_budat_high_3 like mkpf-budat, p_budat_low_4like mkpf-budat, p_budat_high_4 like mkpf-budat, p_budat_low_5like mkpf-budat, p_budat_high_5 like mkpf-budat,

12、p_budat_low_6like mkpf-budat, p_budat_high_6 like mkpf-budat, p_budat_low_7like mkpf-budat, p_budat_high_7 like mkpf-budat, p_budat_lowlike mkpf-budat, 期间的第一天 p_budat_high like mkpf-budat. 期间的最后一天data: d_menge_i_1 like mseg-menge, d_dmbtr_i_1 like mseg-dmbtr, d_menge_i_2 like mseg-menge, d_dmbtr_i_2

13、 like mseg-dmbtr, d_menge_i_3 like mseg-menge, d_dmbtr_i_3 like mseg-dmbtr, d_menge_i_4 like mseg-menge, d_dmbtr_i_4 like mseg-dmbtr, d_menge_i_5 like mseg-menge, d_dmbtr_i_5 like mseg-dmbtr, d_menge_i_6 like mseg-menge, d_dmbtr_i_6 like mseg-dmbtr, d_menge_i_7 like mseg-menge, d_dmbtr_i_7 like mseg

14、-dmbtr, d_menge_i_e like mseg-menge, d_dmbtr_i_e like mseg-dmbtr, d_menge_i_e_sum like mseg-menge, d_dmbtr_i_e_sum like mseg-dmbtr,* d_perpr like mseg-dmbtr.单价 d_perpr type f.data: d_menge_i like mseg-menge, d_dmbtr_i like mseg-dmbtr, d_menge_i_sub like mseg-menge, d_dmbtr_i_sub like mseg-dmbtr.data

15、 d_str type string.*Selection Screen*-selection-screen begin of block blk_1 with frame title text-blk.select-options: s_bukrs for t001-bukrs obligatory, 公司 s_werks for t001w-werks, 工厂 s_lgort for t001l-lgort. 库位selection-screen skip.select-options: s_matnr for mara-matnr, 物料 s_mtart for mara-mtart,

16、物料类型 s_matkl for mara-matkl. 物料组select-options: s_bklas for mbew-bklas. 估价类selection-screen skip.parameter: p_mjahr like mkpf-mjahr obligatory, 年度 p_rpmax(2) type c obligatory. 期间selection-screen end of block blk_1.*Define*-define move_sub.d_menge_i = d_menge_i_sub. clear d_menge_i_sub.*d_dmbtr_i =

17、d_dmbtr_i_sub. clear d_dmbtr_i_sub.end-of-definition.define sub_m_d.d_menge_i_sub = d_menge_i - &1.*d_dmbtr_i_sub = d_dmbtr_i - &2.end-of-definition.define move_m_d.&1 = d_menge_i.*&2 = d_dmbtr_i.end-of-definition.define write_screen.call function SAPGUI_PROGRESS_INDICATOR exporting text = &1.end-of

18、-definition.*Initialization*-initialization.perform sub_initialization.*At Selection Screen*-at selection-screen.perform func_check_authority.*Start of selection*-start-of-selection.perform sub_get_data.*End Selection.*-end-of-selection.if it_data is initial. 写屏幕 d_str = text-s04. write_screen d_str

19、.else. 写屏幕 d_str = text-s03. write_screen d_str. perform sub_build_layout. perform sub_build_fields. perform sub_dis_data.endif.*&-*& Formsub_get_data*&-* text*-*-p1 text*-p2 text*-*form sub_get_data .*-取数写屏幕d_str = text-s01.write_screen d_str.取当前期间的第一天和第二天concatenate p_mjahr p_rpmax 01 into p_budat

20、_low_f.call function RP_LAST_DAY_OF_MONTHS exporting day_in = p_budat_low_f importing last_day_of_month = p_budat_high_f exceptions day_in_no_date = 1 others = 2.取得选择标准下的所有公司代码、评估范围、工厂select abwkey abukrs bwerks into table it_werks from t001k as a join t001w as b on abwkey = bbwkey where abukrs in s

21、_bukrs and bwerks in s_werks .if not it_werks is initial. loop at it_werks. clear: r_bukrs, r_bwkey, r_werks, it_bukrs. 所有公司代码 it_bukrs-bukrs = it_werks-bukrs. collect it_bukrs. r_bukrs-sign = I. r_bukrs-option = EQ. r_bukrs-low = it_werks-bukrs. append r_bukrs. r_bwkey-sign = I. r_bwkey-option = EQ