存货账龄分析明细表(Word)

****************************************************************** * 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 *许林锋 *DEVK900358 *Change*2007.07.02 *许林锋 *DEVK900358 *Change*2007.07.03 *许林锋 *DEVK900358 *Change*2007.07.04 *许林锋 *DEVK900358 *Change*2007.07.05 *许林锋 *DEVK900358 *Change******************************************************************* *-----------------------------------------------------------------*Program Name*-----------------------------------------------------------------report zhtfi_r019.tables: t001, t001w, t001l, mara, mbew.*Data*-----------------------------------------------------------------*ALVtype-pools: slis.data: i_fieldcat_alv type slis_t_fieldcat_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 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 mseg-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-dmbtr, "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 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-budat, "过账日期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 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 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_f like mkpf-budat, "查询期间的第一天p_budat_high_f like mkpf-budat, "查询期间的最后一天"各个期间的开始结束日p_budat_low_1 like mkpf-budat,p_budat_high_1 like mkpf-budat,p_budat_low_2 like mkpf-budat,p_budat_high_2 like mkpf-budat,p_budat_low_3 like mkpf-budat,p_budat_high_3 like mkpf-budat,p_budat_low_4 like mkpf-budat,p_budat_high_4 like mkpf-budat,p_budat_low_5 like mkpf-budat,p_budat_high_5 like mkpf-budat,p_budat_low_6 like mkpf-budat,p_budat_high_6 like mkpf-budat,p_budat_low_7 like mkpf-budat,p_budat_high_7 like mkpf-budat,p_budat_low like 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 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-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 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, "物料类型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 = 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 'SAP GUI_PROGRESS_INDICATOR' exportingtext = &1.end-of-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.else."写屏幕d_str = text-s03.write_screen d_str.perform sub_build_layout.perform sub_build_fields.perform sub_dis_data.endif.*&---------------------------------------------------------------------* *& Form sub_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_low_f. call function 'RP_LAST_DAY_OF_MONTHS'exportingday_in = p_budat_low_fimportinglast_day_of_month = p_budat_high_fexceptionsday_in_no_date = 1others = 2."取得选择标准下的所有公司代码、评估范围、工厂select a~bwkey a~bukrs b~werksinto table it_werksfrom t001k as ajoin t001w as b on a~bwkey = b~bwkeywhere a~bukrs in s_bukrsand b~werks 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'.r_bwkey-low = it_werks-bwkey.append r_bwkey.r_werks-sign = 'I'.r_werks-option = 'EQ'.r_werks-low = it_werks-werks.append r_werks.clear it_werks.endloop.else.clear: r_bukrs, r_bwkey, r_werks.r_bukrs-sign = 'I'.r_bukrs-option = 'EQ'.r_bukrs-low = 'XXXX'.append r_bukrs.r_bwkey-sign = 'I'.r_bwkey-option = 'EQ'.r_bwkey-low = 'XXXX'.append r_bwkey.r_werks-sign = 'I'.r_werks-option = 'EQ'.r_werks-low = 'XXXX'.append r_werks.endif.sort: r_bukrs by low,r_bwkey by low,r_werks by low.delete adjacent duplicates from: r_bukrs,r_bwkey,r_werks."取得所有公司代码下的工厂select a~bwkey a~bukrs b~werksinto table it_werks_bfrom t001k as ajoin t001w as b on a~bwkey = b~bwkeywhere a~bukrs in s_bukrs."取得物料号码、物料类型、物料组、物料描述select a~matnr a~mtart a~matkl b~maktxinto table it_matnrfrom mara as ajoin makt as b on a~matnr = b~matnrjoin mbew as c on a~matnr = c~matnrwhere a~matnr in s_matnrand a~mtart in s_mtartand a~matkl in s_matkland a~lvorm = '' " 为空表示未被删除物料。