存货账龄研究分析明细表

存货账龄明细表作者:日期:*******************************************************************PROGRAMSOURCEHEADER*******************************************************************ProgramName:ZHTFI_R019"Description:存货账龄分析明细表*Date/Author:2012.06.27/许林锋*TableUpdate:*SpecialLogic:*Include:******************************************************************MODIFICATIONLOG*******************************************************************ChangeDate**Programer*Request*Desctiption*2007.06.27*许林锋*DEVK900358*NewProgram*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********************************************************************ProgramName*reportzhtfi_r019.tables:t001,t001w,t001l,mara,mbew.*Data**ALVtype-pools:slis.data:i_fieldcat_alvtypeslis_t_fieldcat_alvwithheaderline,i_layouttypeslis_layout_alv,"alv的格式w_fieldcattypeslis_fieldcat_alv,"alv列属性w_repidlikesy-repid.”当前程序data:d_postypeivalue0.rangesranges:r_bwkeyfort001k-bwkey,r_bukrsfort001k-bukrs,"r_werksfort001w-werks."data:beginofit_dataoccurs0,bukrsliket001-bukrs,mjahrlikemkpf-mjahr,rpmax(2)typec,matnrlikemseg-matnr,maktxlikemakt-maktx,mtartlikemara-mtart,matkllikemara-matkl,werkslikemseg-werks,lgortlikemseg-lgort,menge_elikemseg-menge,dmbtr_elikemseg-dmbtr,"menge_1likemseg-menge,dmbtr_1likemseg-dmbtr,menge_2likemseg-menge,dmbtr_2likemseg-dmbtr,menge_3likemseg-menge,dmbtr_3likemseg-dmbtr,menge_4likemseg-menge,dmbtr_4likemseg-dmbtr,menge_5likemseg-menge,dmbtr_5likemseg-dmbtr,menge_6likemseg-menge,dmbtr_6likemseg-dmbtr,menge_7likemseg-menge,dmbtr_7likemseg-dmbtr,endofit_data.评估范围公司代码工厂"公司”年度”期间”物料”物料描述"物料类型"物料组”工厂”库位期末数量期末金额"1-3月数量"1-3月金额”4-6月数量”4-6月金额”7-9月数量”7-9月金额”10-12月数量”10-12月金额"1-2年数量"1-2年金额"2-3年数量"2-3年金额"3年以上数量"3年以上金额data:beginofit_werksoccurs0,bwkeyliket001k-bwkey,”评估范围bukrsliket001k-bukrs,”公司代码werksliket001w-werks,”工厂endofit_werks,it_werks_bliketableofit_werkswithheaderline.data:beginofit_matnroccurs0,matnrlikemara-matnr,”物料号码mtartlikemara-mtart,"物料类型matkllikemara-matkl,"物料组maktxlikemakt-maktx,"物料描述endofit_matnr.data:beginofit_msegoccurs0,mblnrlikemkpf-mblnr,"物料凭证mjahrlikemkpf-mjahr,"年度budatlikemkpf-budat,"过账日期zeilelikemseg-zeile,"项目matnrlikemseg-matnr,"物料werkslikemseg-werks,"工厂lgortlikemseg-lgort,"库位shkzglikemseg-shkzg,"借/贷dmbtrlikemseg-dmbtr,"本位币金额mengelikemseg-menge,"数量endofit_mseg.data:beginofit_bsimoccurs0,bukrslikebkpf-bukrs,"公司代码belnrlikebkpf-belnr,"会计凭证gjahrlikebkpf-gjahr,"会计年度budatlikebkpf-budat,"过账日期buzeilikebsim-buzei,"项目matnrlikebsim-matnr,"物料shkzglikebsim-shkzg,"借/贷dmbtrlikebsim-dmbtr,"本位币金额endofit_bsim.data:beginofit_lgortoccurs0,bukrsliket001-bukrs,"公司werkslikemseg-werks,"工厂lgortlikemseg-lgort,"库位endofit_lgort.data:beginofit_bukrsoccurs0,bukrsliket001-bukrs,"公司代码endofit_bukrs.data:beginofit_perproccurs0,matnrlikemara-matnr,"物料bukrsliket001-bukrs,"公司代码perprlikemseg-dmbtr,"单价endofit_perpr.data:p_budat_low_flikemkpf-budat,"查询期间的第一天p_budat_high_flikemkpf-budat,”查询期间的最后一天"各个期间的开始结束日p_budat_low_1likemkpf-budat,p_budat_high_1likemkpf-budat,p_budat_low_2likemkpf-budat,p_budat_high_2likemkpf-budat,p_budat_low_3likemkpf-budat,p_budat_high_3likemkpf-budat,p_budat_low_4likemkpf-budat,p_budat_high_4likemkpf-budat,p_budat_low_5likemkpf-budat,p_budat_high_5likemkpf-budat,p_budat_low_6likemkpf-budat,p_budat_high_6likemkpf-budat,p_budat_low_7likemkpf-budat,p_budat_high_7likemkpf-budat,p_budat_lowlikemkpf-budat,"期间的第一天p_budat_highlikemkpf-budat.”期间的最后一天data:d_menge_i_1likemseg-menge,"d_dmbtr_i_1likemseg-dmbtr,d_menge_i_2likemseg-menge,"d_dmbtr_i_2likemseg-dmbtr,d_menge_i_3likemseg-menge,"d_dmbtr_i_3likemseg-dmbtr,d_menge_i_4likemseg-menge,"d_dmbtr_i_4likemseg-dmbtr,d_menge_i_5likemseg-menge,"d_dmbtr_i_5likemseg-dmbtr,d_menge_i_6likemseg-menge,"d_dmbtr_i_6likemseg-dmbtr,d_menge_i_7likemseg-menge,"d_dmbtr_i_7likemseg-dmbtr,d_menge_i_elikemseg-menge,d_dmbtr_i_elikemseg-dmbtr,d_menge_i_e_sumlikemseg-menge,d_dmbtr_i_e_sumlikemseg-dmbtr,d_perprlikemseg-dmbtr."单价d_perprtypef.data:d_menge_ilikemseg-menge,d_dmbtr_ilikemseg-dmbtr,d_menge_i_sublikemseg-menge,d_dmbtr_i_sublikemseg-dmbtr.datad_strtypestring."SelectionScreenselection-screenbeginofblockblk_1withframetitletext-blk.select-options:s_bukrsfort001-bukrsobligatory,"公司s_werksfort001w-werks,"工厂s_lgortfort001l-lgort."库位selection-screenskip.select-options:s_matnrformara-matnr,"物料s_mtartformara-mtart,"物料类型s_matklformara-matkl."物料组select-options:s_bklasformbew-bklas."估价类selection-screenskip.parameter:p_mjahrlikemkpf-mjahrobligatory,"年度p_rpmax(2)typecobligatory."期间selection-screenendofblockblk_1.*Definedefinemove_sub.d_menge_i=d_menge_i_sub.cleard_menge_i_sub.d_dmbtr_i=d_dmbtr_i_sub.cleard_dmbtr_i_sub.end-of-definition.definesub_m_d.d_menge_i_sub=d_menge_i-&1.d_dmbtr_i_sub=d_dmbtr_i-&2.end-of-definition.definemove_m_d.&1=d_menge_i.*&2=d_dmbtr_i.end-of-definition.definewrite_screen.callfunction'SAPGUIPROGRESS_INDICATOR'exportingtext=&1.end-of-definition.*Initialization*initialization.performsub_initialization.*AtSelectionScreen*atselection-screen.performfunc_check_authority.*Startofselection*start-of-selection.performsub_get_data.*EndSelection.*end-of-selection.ifit_data口isinitial."写屏幕d_str=text-s04.write_screend_str.else."写屏幕d_str=text-s03.write_screend_str.performsub_build_layout.performsub_build_fields.performsub_dis_data.endif.*&*&Formsub_get_data*&text**-->p1text<--p2text**formsub_get_data.*---取数"写屏幕d_str=text-s01.write_screend_str."取当前期间的第一天和第二天concatenatep_mjahrp_rpmax’01'intop_budat_low_f.callfunction'RP_LAST_DAY_OF_MONTHS'exportingday_in=p_budat_low_fimportinglast_day_of_month=p_budat_high_fexceptionsday_in_no_date=1others=2.”取得选择标准下的所有公司代码、评估范围、工厂selecta〜bwkeya〜bukrsb〜werksintotableit_werksfromt001kasajoint001wasbona〜bwkey=b〜bwkeywherea〜bukrsins_bukrsandb〜werksins_werks.ifnotit_werks[]isinitial.loopatit_werks.clear:r_bukrs,r_bwkey,r_werks,it_bukrs.”所有公司代码it_bukrs-bukrs=it_werks-bukrs.collectit_bukrs.r_bukrs-sign='I'.r_bukrs-option='EQ'.r_bukrs-low=it_werks-bukrs.appendr_bukrs.r_bwkey-sign=T.r_bwkey-option='EQ'.r_bwkey-low=it_werks-bwkey.appendr_bwkey.r_werks-sign='I'.r_werks-option='EQ'.r_werks-low=it_werks-werks.appendr_werks.clearit_werks.endloop.else.clear:r_bukrs,r_bwkey,r_werks.r_bukrs-sign=T.r_bukrs-option='EQ'.r_bukrs-low='XXXX'.appendr_bukrs.r_bwkey-sign='I'.r_bwkey-option='EQ'.r_bwkey-low='XXXX'.appendr_bwkey.r_werks-sign='I'.r_werks-option='EQ'.r_werks-low='XXXX'.appendr_werks.endif.sort:r_bukrsbylow,r_bwkeybylow,r_werksbylow.deleteadjacentduplicatesfrom:r_bukrs,r_bwkey,r_werks."取得所有公司代码下的工厂selecta〜bwkeya〜bukrsb〜werksintotableit_werks_bfromt001kasajoint001wasbona〜bwkey=b〜bwkeywherea~bukrsins_bukrs.”取得物料号码、物料类型、物料组、物料描述selecta〜matnra〜mtarta〜matklb〜maktxintotableit_matnrfrommaraasajoinmaktasbona~matnr=b~matnrjoinmbewascona~matnr=c~matnrwherea~matnrins_matnranda~mtartins_mtartanda~matklins_matklanda~lvorm=''"为空表示未被删除物料。andb~spras='1'andc~bklasins_bklasandc~lvorm=''sortit_matnrbymatnr.deleteadjacentduplicatesfromit_matnr.“取得所有工厂、库位selectdistinctwerksIgortintocorrespondingfieldsoftableit_lgortfromt001lwherewerksinr_werksandlgortins_lgort.loopatit_lgort.readtableit_werkswithkeywerks=it_lgort-werks.it_lgort-bukrs=it_werks-bukrs.modifyit_lgort.endloop.ifnotit_matnr[]isinitial."取MSEG表数据selecta~mblnra~mjahra~budatb~zeileb~matnrb~werksb~lgortb~shkzgb~dmbtrb~mengeintocorrespondingfieldsoftableit_msegfrommkpfasajoinmsegasbona~mblnr=b~mblnranda~mjahr=b~mjahrforallentriesinit_matnrwherea~mjahrlep_mjahranda~budatlep_budat_high_fandb~matnr=it_matnr-matnrandb~werksinr_werksandb~lgortins_lgort.deleteit_msegwherematnrisinitial."取BSIM表数据selecta~bukrsa〜belnra〜gjahra〜budatb〜buzeib〜matnrb〜shkzgb〜dmbtrintocorrespondingfieldsoftableit_bsimfrombkpfasajoinbsimasbona〜belnr=b〜belnranda~gjahr=b~gjahranda~blart=b~blartanda~budat=b~budatforallentriesinit_matnrwherea〜bukrsinr_bukrsanda~gjahrlep_mjahranda~budatlep_budat_high_fand(a~blarteq'RE'ora~blarteq'PR')andb~matnreqit_matnr-matnrandb〜bwkeyinr_bwkeyifnotit_mseg[]isinitial."计算各期间的开始日期和结束日期p_budat_high_1=p_budat_high_f.performfunc_get_date_before_3_monthchangingp_budat_low_1p_budat_high_1.p_budat_high_2=p_budat_low_1-1.performfunc_get_date_before_3_monthchangingp_budat_low_2p_budat_high_2.p_budat_high_3=p_budat_low_2-1.performfunc_get_date_before_3_monthchangingp_budat_low_3p_budat_high_3.p_budat_high_4=p_budat_low_3-1.performfunc_get_date_before_3_monthchangingp_budat_low_4p_budat_high_4.p_budat_high_5=p_budat_low_4.performfunc_get_date_before_1_yearchangingp_budat_low_5p_budat_high_5.p_budat_high_6=p_budat_low_5.performfunc_get_date_before_1_yearchangingp_budat_low_6p_budat_high_6.p_budat_high_7=p_budat_low_6-1.p_budat_low_7='00010101'.*---分期间累计数量、金额"写屏幕d_str=text-s02.write_screend_str.loopatit_matnr.loopatit_bukrs.clear:d_menge_i_e_sum,d_dmbtr_i_e_sum,d_perpr.”计算该公司内，选择的工厂+库位条件下的出入库数量loopatit_lgortwherebukrs=it_bukrs-bukrs.clear:d_menge_i_1,d_menge_i_2,d_menge_i_3,d_menge_i_4,d_menge_i_5,d_menge_i_6,d_menge_i_7,d_menge_i_e,d_dmbtr_i_e,it_data.”--计算1-3月账龄物料的数据（入库数量、金额）performfunc_comp_datausingp_budat_low_1p_budat_high_1changingd_menge_i_1.”--计算4-6月账龄物料的数据（入库数量、金额）performfunc_comp_datausingp_budat_low_2p_budat_high_2changingd_menge_i_2.”--计算7-9月账龄物料的数据（入库数量、金额）performfunc_comp_datausingp_budat_low_3p_budat_high_3changingd_menge_i_3.”--计算10-12月账龄物料的数据（入库数量、金额）performfunc_comp_datausingp_budat_low_4p_budat_high_4changingd_menge_i_4.”--计算1-2年账龄物料的数据（入库数量、金额）performfunc_comp_datausingp_budat_low_5p_budat_high_5changingd_menge_i_5.”--计算12-3年账龄物料的数据（入库数量、金额）performfunc_comp_datausingp_budat_low_6p_budat_high_6changingd_menge_i_6.”--计算3年以上账龄物料的数据（入库数量、金额）performfunc_comp_datausingp_budat_low_7p_budat_high_7changingd_menge_i_7."--添加到it_data中"如果期末数量、金额为0,则不添加ifd_menge_i_ene0.clearit_data.it_data-bukrs=it_bukrs-bukrs."公司代码it_data-mjahr=p_mjahr."年度it_data-rpmax=p_rpmax."期间move-corresponding:it_matnrtoit_data,it_lgorttoit_data.+金额it_data-menge_e=d_menge_i_e."--根据期末库存+各期间入库数，判断各期间的库存数clear:d_menge_i.d_menge_i=d_menge_i_e-d_menge_i_1."数量"--根据数量判断ifd_menge_i<=0.”1-3月it_data-menge_1=d_menge_i_e.else.it_data-menge_1=d_menge_i_1.sub_m_dd_menge_i_2.ifd_menge_i_sub<=0.”4-6月move_m_dit_data-menge_2.else.it_data-menge_2=d_menge_i_2.move_sub.sub_m_dd_menge_i_3.ifd_menge_i_sub<=0.”7-9月move_m_dit_data-menge_3.else.it_data-menge_3=d_menge_i_3.move_sub.sub_m_dd_menge_i_4.ifd_menge_i_sub<=0.”10-12月move_m_dit_data-menge_4.else.it_data-menge_4=d_menge_i_4.move_sub.sub_m_dd_menge_i_5.ifd_menge_i_sub<=0.”1-2年move_m_dit_data-menge_5.else.it_data-menge_5=d_menge_i_5.move_sub.sub_m_dd_menge_i_6.ifd_menge_i_sub<=0.”2-3月move_m_dit_data-menge_6.else."3年以上it_data-menge_6=d_menge_i_6.it_data-menge_7=d_menge_i_sub.endif.endif.endif.endif.endif.endif.appendit_data.endif.”用于计算单价d_menge_i_e_sum=d_menge_i_e+d_menge_i_e_sum.d_dmbtr_i_e_sum=d_dmbtr_i_e+d_dmbtr_i_e_sum.clearit_lgort.endloop."---计算物料单价”计算该公司内，选择的工厂+库位条件之外的出入库数量loopatit_werks_b.loopatit_msegwherematnr=it_matnr-matnrandwerks=it_werks_b-werks.caseit_mseg-shkzg.when'S'."入库"期末数量、金额d_menge_i_e_sum=d_menge_i_e_sum+it_mseg-menge.d_dmbtr_i_e_sum=d_dmbtr_i_e_sum+it_mseg-dmbtr.when'H'."出库"期末数量、金额d_menge_i_e_sum=d_menge_i_e_sum-it_mseg-menge.d_dmbtr_i_e_sum=d_dmbtr_i_e_sum-it_mseg-dmbtr.endcase.clearit_mseg.endloop.clearit_werks_b.endloop.”计算发票校验和价格调整loopatit_bsimwherematnr=it_matnr-matnrandbukrs=kbukrs-bukrs.casekbsim-shkzg.when'S'."入库”期末金额d_dmbtr_i_e_sum=d_dmbtr_i_e_sum+it_bsim-dmbtr.when'H'."出库”期末金额d_dmbtr_i_e_sum=d_dmbtr_i_e_sum-it_bsim-dmbtr.endcase.clearit_bsim.endloop.”计算单价ifd_menge_i_e_sumne0.d_perpr=d_dmbtr_i_e_sum/d_menge_i_e_sum.clearit_perpr.it_perpr-matnr=it_matnr-matnr.it_perpr-bukrs=it_bukrs-bukrs.it_perpr-perpr=d_perpr.appendit_perpr.endif.clearit_bukrs.endloop.clearit_matnr.endloop.sortit_databymatnrbukrs.”计算金额loopatit_data.readtableit_perprwithkeymatnr=it_data-matnrbukrs=it_data-bukrs.it_data-dmbtr_e=it_data-menge_e*it_perpr-perpr.it_data-dmbtr_1=it_data-menge_1*it_perpr-perpr.it_data-dmbtr_2=it_data-menge_2*it_perpr-perpr.it_data-dmbtr_3=it_data-menge_3*it_perpr-perpr.it_data-dmbtr_4=it_data-menge_4*it_perpr-perpr.it_data-dmbtr_5=it_data-menge_5*it_perpr-perpr.it_data-dmbtr_6=it_data-menge_6*it_perpr-perpr.让_data-dmbtr_7=it_data-menge_7*让_perpr-perpr.modifyit_data.clearit_data.endloop.endif.endif.endform."sub_get_data*&*&Formsub_build_layout*&text*-->pltext<--p2text*formsub_build_layout.w_repid=sy-repid."程序为当前程序i_layout-zebrai_layout-detail_popupi_layout-f2codei_layout-no_vlinei_layout-colwidth_optimizei_layout-detail_initial_lines=i_layout-detail_titlebar='X'."斑马线='X'."是否弹出详细信息窗口='&ETA'."设置触发弹出详细信息窗口的功能码，这里是双击=''."这个用来设置列间隔线='X'."优化列宽选项是否设置='X'.='详细内容'."设置弹出窗口的标题栏endform."sub_build_layout&&Formsub_build_fields&text**-->p1text<--p2text*formsub_build_fields.refreshi_fieldcat_alv.performsub_set_fieldusing'MJAHR'text-h01.performsub_set_fieldusing'RPMAX'text-h02.performsub_set_fieldusing'MATNR'text-h03.performsub_set_fieldusing'MAKTX'text-h04.performsub_set_fieldusing'MTART'text-h05.performsub_set_fieldusing'MATKL'text-h06.performsub_set_fieldusing'WERKS'text-h07.performsub_set_fieldusing'LGORT'text-h08.performsub_set_fieldusing'MENGE_E'text-h09.performsub_set_fieldusing'DMBTR_E'text-h10.performsub_set_fieldusing'MENGE_1'text-h11.performsub_set_fieldusing'DMBTR_1'text-h12.performsub_set_fieldusing'MENGE_2'text-h13.performsub_set_fieldusing'DMBTR_2'text-h14.performsub_set_fieldusing'MENGE_3'text-h15.performsub_set_fieldusing'DMBTR_3'text-h16.performsub_set_fieldusing'MENGE_4'text-h17.performsub_set_fieldusing'DMBTR_4'text-h18.performsub_set_fieldusing'MENGE_5'text-h19.performsub_set_fieldusing'DMBTR_5'text-h20.performsub_set_fieldusing'MENGE_6'text-h21.performsub_set_fieldusing'DMBTR_6'text-h22.performsub_set_fieldusing'MENGE_7'text-h23.performsub_set_fieldusing'DMBTR_7'text-h24.endform."sub_build_fields*&*&Formsub_dis_data*&text-->p1text<--p2text*formsub_dis_data.callfunction'REUSE_ALV_GRID_DISPLAY'exportingi_callback_program=w_repid"当前程序i_save='A'is_layout=i_layout"子函数layout_build填充的格式定义it_fieldcat=i_fieldcat_alv[]"子函数fields填充的各列tablest_outtab=it_data”数据都在IT_DATA内表中exceptionsprogram_error=1others=2.endform."sub_dis_data*&*&Formsub_set_field*&text**-->P_nametext-->P_TEXTtext*formsub_set_fieldusingvalue(name)p_text.d_pos=d_pos+1.clearw_fieldcat.w_fieldcat-col_pos=d_pos.w_fieldcat-fieldname=name.w_fieldcat-seltext_l=p_text.appendw_fieldcattoi_fieldcat_alv.endform."sub_set_field*&&Formfunc_get_date_before_3_month*&3个月期间*<--D_BUDAT_LOWtext<--D_BUDAT_HIGHtext*formfuncgetdatebefore3monthchangingdbudatlowd_budat_high.data:d_year(4)typecvalue0,d_month(2)typecvalue0,d_year_itypeivalue0,d_month_itypeivalue0.d_year=d_budat_high(4).d_month=d_budat_high+4(2).move:d_monthtod_month_i,d_yeartod_year_i.d_month_i=d_month_i-2."判断是否为上年ifd_month_i<=0.d_month_i=d_month_i+12.d_year_i=d_year_i-1.endif."取期间开始move:d_year_itod_year,d_month_itod_month.ifd_month_i<10.concatenated_year'0'd_month'01'intod_budat_low.else.endform.concatenated_yeard_month'01'intod_budat_low.endif."func_get_date_before_3_month*&&Formfunc_get_date_before_1_year*&1年期间*<--D_BUDAT_LOWtext<--D_BUDAT_HIGHtext*formfunc_get_date_before_1_yearchangingd_budat_lowd_budat_high.data:d_year(4)typecvalue0,d_month(2)typecvalue0,d_year_itypeivalue0.d_year=d_budat_high(4).d_month=d_budat_high+4(2).move:d_yeartod_year_i.d_year_i=d_year_i-1.moved_year_itod_year.concatenated_yeard_month'01'intod_budat_low.d_budat_high=d_budat_high-1.endform."func_get_date_before_1_year&*&Formfunc_comp_data&*累计期间内入库数量、金额；并累计多有出入库为这个期末数量、金额*<--D_MENGE_Itext<--D_DMBTR_Itext**formfunc_comp_datausingd_budat_lowd_budat_highchangingd_menge_i.loopatit_msegwherematnr=it_matnr-matnrandwerks=it_lgort-werksandIgort=it_lgort-lgortandbudat>=d_budat_lowandbudat<=d_budat_high.caseit_mseg-shkzg.when'S'."入库"期间入库数量、金额d_menge_i=d_menge_i+it_mseg-menge.d_dmbtr_i=d_dmbtr_i+it_mseg-dmbtr."期末数量、金额d_menge_i_e=d_menge_i_e+it_mseg-menge.d_dmbtr_i_e=d_dmbtr_i_e+it_mseg-dmbtr.when'H'."出库"期末数量、金额d_menge_i_e=d_menge_i_e-it_mseg-menge.d_dmbtr_i_e=d_dmbtr_i_e-it_mseg-dmbtr.endcase.deleteit_mseg.clearit_mseg.endloop.endform."func_comp_data*&&Formsub_initialization*&text-->p1text<--p2text**formsub_initialization.datad_datumlikemkpf-budat.d_datum=sy-datum.p_mjahr=d_datum(4).endform.p_rpmax=d_datum+4(2).sub_initialization*&&Formfunc_check_authority*&text-->pltext<--p2text*formfunc_check_authority.data:beginofit_bukrsoccurs0,bukrsliket001-bukrs,endofit_bukrs.selectbukrsintotablekbukrsfromt001wherebukrsins_bukrs.loopatit_bukrs.authority-checkobject'F_BKPF_BUK'id'BUKRS'fieldit_bukrs-bukrs.ifsy-subrcne0.message'您没有该公司权限！'type'E'.exit.endif.endloop.refreshkbukrs.endform."func_check_authority