demo动态列的ALV 报表使用指针等内容

1、*&都门赛语哀曲曰霏寓事事2甘。国电以D喳贬对稠H*的亲THET年臼并看事?用胃*1呻期日戛引卅一叼生产mrpilf的（附TXfm叼HHEBI眄CB虹IFX古呻市师范ilK图/而出广/啊阵土/叱成Ml面广因I#fjft工L4S42l3d.MiuM1血-E53-p蜜F-d.Mftjiii瀛DjMiiAiWZoirawiwjowra-zmizM+.MI.W-R.WOMRiDODW而。MHiWd.lO-ailMlDWQ则OOIooajJ)M3。】广fliFU20LMMI*ZI.Wl.l&M。力。%|。MlMlOffilDMMl_0flL_一-MHmt2D13DMIMIWl,WI.DDOWRiWP_n

2、.innQInopnrm_Mft-U7J1041DffilWH切广.=2DL4DQ-2IIZV.WI.WOM1.00&W。加*IQMlMlOWDMMlMlowINHoauaii工HL30MlMIEWQliN也3almDjMi.rnDffll叩。aJDMlMl0M。41OjOIDflW?。印唠堡主*Mh2m4nHIMIZ3LZ?E.fl3127I.3&DM1.00&M如。*IOMlMlDOODM。1MlUmWH冽注表工HL3DMIMIW901.17-Dfflli.rnDffll叩。Gill)MlMlDffll0M。41OjOInmW?13314aEMM：2DL4(Q-2IIZI.K1.00&MR

3、.l&M。加4.IDMlMlDWDMOOIMlDfflDL1工HL3nHiMIWViWimDWi.rnDffll叩。口刖OilMlDffll0M。41OjOInmMLrx2m4nHIMIZV.Mi.roDM1.00&M如。%10MlMlDOODM。1MlUffilM2ITE2DHDQF2IIZl-WI.DD口1WI.WDfltJOXJOa.iuQ-OIQBQ4D4H04V0-01OJMmmwmtm2mADMIMINWf.WI.MimnmI.MOWOZJOa.io必51LMWSfiLBJDMlW.52flfllW.JMfllzumw料bwq知2DHDQF2IIZl-WI.DD口1WI.WDflt

4、JOXJOa.iuQ-OIQBD4H04V0-01OJM口U3-flWWfl31-40-311493I.M.EfijOdI.M口第n山口4.1。w口虫DJddJIGjHQL4求阳HQMM3DI.-400-31112I.Ml.DC0aI.MQgd.Obfl.IDaiiDJIM0JI口mDL7必不640而61ALz3DUC!3-ai4l3I.H.DODjMa.DjM4JD3.10。皿。皿DuM4JIbM口U。逮访工朋DL4C3I4I2I.Ml.DODjMi.hDjMO.IEi口如口jMOJI。皿0例tLl3515T：n*3DUC!3-ai4l3I.H.DODjMa.DjM4JD3.10。皿。皿Oj

5、M4JIbM网。理区I里Tt.a3DL4D3-2I3AI2.133.M!l.DODjM2,333.DODjMO.IPDJI口jMaiOjQID2L曰度！烹*3QL4H2-3I34I3I.M.DODjMa.doDjM4JD3.10。皿DjOIDuMOjOI。皿MHIXU3arjMsnoa3DL4D3-2I3AI2I.Ml.DODjM1.国DjMO.IPDJI口jMai。皿tJ口却1T：弓团徽廿脚4Lt*3DL4Q2-2I3491l.J.CO口川口.mbM口内。LID审JHDjOICUM0J3ICU3IDJ期口F阳现I*去轴2PLiira-2ijqizi.nI.H?）用廊口用QDa.ID叫QIPJ

6、3I刖OJQIUIEUXIKiST：弓团徽廿脚4KR3DL4Q2-2I3491i.J.CObM口.mbM口内。a.id审JHDjOICUM0J3IOJOICJnyfidnfis+min，am5fuiift-nnr.-i-1iinflIUIll1“nriiVi*&ReportZFIR1009*&*&*&*&*&*REPORTzfir1009.TABLES:faglflexa,zfit_fy_hkont,bkpf.SELECTION-SCREENBEGINOFBLOCKblklWITHFRAMETITLEtext-001.SELECTION-SCREENBEGINOFBLOCKblklWITHFR

7、AMETITLEtext-001.PARAMETERS:p_bukrs代码一TYPEproj-vbukrPARAMETERS:p_bukrs代码一TYPEproj-vbukrOBLIGATORYDEFAULT2001,公司会计年P_gjahrTYPEbkpf-gjahrOBLIGATORY.度SELECT-OPTIONS:s_monatFORbkpf-monatOBLIGATORY.查询期间一SELECTION-SCREENENDOFBLOCKblkl.DATAit_zfit_fy_hkontLIKETABLEOFzfit_fy_hkontWITHHEADERLINE.费用配置表DATAit_

8、faglflexaLIKETABLEOFfaglflexaWITHHEADERLINE.新总账表成本中心内表DATA:BEGINOFlt_rcnrOCCURS0.INCLUDETYPEzfit_fy_hkont.DATA:rcntrTYPEfaglflexa-rcntr.成本中心DATA:ktextTYPEcskt-ktext.成本中心名称DATA:dmbtrTYPEfaglflexa-hsl.本位币金额DATA:ENDOFlt_rcnr.动态列结构DATA:gt_fieldcatTYPElvc_t_fcat.输出表结构FIELD-SYMBOLS:TYPESTANDARDTABLE.输出列的动

9、态结构DATA:dy_tableTYPEREFTOdata.DATA:ls_prctrLIKELINEOFlt_prctr.INITIALIZATION.PERFORMfrm_init_data.START-OF-SELECTION.PERFORMauthority_check.PERFORMfrm_get_data.PERFORMfrm_get_fy_hkont.PERFORMfrm_process_data.PERFORMfrm_alv_display.*&*&Formfrm_init_data*&大text*FORMfrm_init_data.*设置初始值IFp_gjahrISINITI

10、AL.P_gjahr=sy-datum+0(4).ENDIF.IFs_monatISINITIAL.s_monat-sign=I.s_monat-option=EQ.s_monat-low=sy-datum+4(2).APPENDs_monat.CLEARs_monat.ENDIF.ENDFORM.frm_init_data*&*&FormFRM_GET_DATA*&*text*-pltext-p2text*FORMfrm_get_data.RANGES:s_racctFORfaglflexa-racct.REFRESHit_zfit_fy_hkont.CLEARit_zfit_fy_hkon

11、t.BREAK-POINT.取配置表SELECT*INTOTABLEit_zfit_fy_hkontFROMzfit_fy_hkont.IFit_zfit_fy_hkont口ISNOTINITIAL.REFRESHs_racct.CLEARs_racct.LOOPATit_zfit_fy_hkont.s_racct-sign=I.s_racct-option=BT.s_racct-low=it_zfit_fy_hkont-hkont_from.s_racct-high=it_zfit_fy_hkont-hkont_to.APPENDs_racct.CLEARs_racct.ENDLOOP.EN

12、DIF.取成本中心数据IFs_racctISNOTINITIAL.SELECT*INTOTABLEit_faglflexaFROMfaglflexaWHERErbukrs=p_bukrsANDryear=p_gjahrANDpoperINs_monatANDracctINs_racctandRCNTR.ENDIF.处理行和列LOOPATit_zfit_fy_hkont.MOVE-CORRESPONDINGit_zfit_fy_hkontTOlt_rcnr.LOOPATit_faglflexaWHEREracctBETWEENlt_rcnr-hkont_fromANDlt_rcnr-hkont_

13、to.lt_rcnr-rcntr=it_faglflexa-rcntr.”成本中心lt_rcnr-dmbtr=it_faglflexa-hsl.金额IFlt_rcnr-rcntrISNOTINITIAL.取成本中心描述SELECTSINGLEktextINTOlt_rcnr-ktextFROMcsktWHEREspras=1ANDkokrs=DYRSANDkostl=lt_rcnr-rcntr.ENDIF.COLLECTlt_rcnr.ENDLOOP.CLEARlt_rcnr.ENDLOOP.ENDFORM.FRM_GET_DATA*&*&Formfrm_alv_display*&火textF

14、ORMfrm_alv_display.DATA:lv_progrmTYPE*&火textFORMfrm_alv_display.DATA:lv_progrmTYPEls_layout_9000TYPEsy-repid,lvc_s_layo.*编辑输出样式ls_layout_9000-zebra=X.ls_layout_9000-cwidth_opt=X.ls_layout_9000-detailinit=X.ls_layout_9000-detailtitl=数据详细内容、*LS_LAYOUT_9000-SEL_MODE=A.SELECYONELINE*LS_LAYOUT_9000-SEL_M

15、ODE=A.SELECYONELINE*ls_layout_9000-smalltitle=X.显示alvlv_progrm=sy-repid.BREAK-POINT.CALLFUNCTIONREUSEALVGRIDDISPLAYLVCEXPORTINGi_callback_program=lv_progrmi_callback_pf_status_set=FRM_SET_PFi_callback_user_command=FRM_USER_COMM=ls_layout_9000=gt_fieldcat=ls_layout_9000=gt_fieldcat=A=GV_TITLE=1=2.I_G

16、RID_TITLETABLESt_outtabEXCEPTIONSprogram_errorOTHERSENDFORM.FRM_ALV_DISPLAYENDFORM.*&*&Formfrm_get_fy_hkont*&力*text*FORMfrm_get_fy_hkont.*列结构DATA:ls_fieldcatTYPElvc_s_fcat,lv_colposTYPEi,lv_col_nameTYPEchar40.*按照行号排序SORTit_zfit_fy_hkontBYzindexASCENDING.*编辑Fieldcat宏定义DEFINEadd_field.clearls_fieldcat

17、.ls_fieldcat-col_pos=lv_colpos.ls_fieldcat-fieldname=&1.ls_fieldcat-coltext=&2.ls_fieldcat-emphasize=&3.ls_fieldcat-ref_table=&4.ls_fieldcat-ref_field=&5.ls_fieldcat-fix_column=&6.ls_fieldcat-reptext=&2.ls_fieldcat-scrtext_l=&2.ls_fieldcat-scrtext_m=&2.ls_fieldcat-scrtext_s=&2.lv_colpos=lv_colpos+1.

18、appendls_fieldcattogt_fieldcat.clearls_fieldcat.END-OF-DEFINITION.lv_colpos=1.add_fieldZINDEX行号ZFIT_FY_HKONTZINDEXX.add_fieldPRJ_BIG费用大类ZFIT_FY_HKONTPRJ_BIGX.add_fieldPRJ_DEATL费用明细ZFIT_FY_HKONTPRJ_DEATLX.add_fieldCXQJ费用期间ZFIT_FY_HKONTPRJ_DEATLX.add_fieldFYXJ费用小计C310FAGLFLEXAHSLX.*动态列，使用利润中心字段部门=，门店，

19、的作为字段名BREAK-POINT.SORTlt_rcnrBYrcntr.按成本中心排序LOOPATlt_rcnr.col名称=描述（利润中心）lv_col_name=lt_rcnr-ktext.READTABLEgt_fieldcatINTOls_fieldcatWITHKEYfieldname=lt_rcnr-rcntr.IFsy-subrc0.add_fieldlt_rcnr-rcntrlv_col_nameFAGLFLEXAHSL.CLEARlv_col_name.ENDIF.ENDLOOP.*生成动态表结构CALLMETHODcl_alv_table_create=create_dy

20、namic_tableEXPORTINGit_fieldcatalog=gt_fieldcatIMPORTINGep_table=dy_table.ASSIGNdy_table-*TO.ENDFORM.FRM_GET_JS_HKONT*&*&FormFRM_PROCESS_DATA*&*text*-p1text-p2text*FORMfrm_process_data.动态的输出结构DATA:w_outputTYPEREFTOdata.FIELD-SYMBOLS:TYPEany,TYPEDATA:lv_tabixlv_field_lineslvfieldlinesany.TYPEsy-tabix

21、,TYPEDATA:lv_tabixlv_field_lineslvfieldlinesany.TYPEsy-tabix,TYPEi,allTYPEi.ALV结构表的行数ALV总列数DATA:ls_fieldcatLIKELINEOFgt_fieldcat.创建输出表的动态结构CREATEDATAw_outputLIKELINEOF.ASSIGNw_output-*TO.判断动态的利润中心列是否存在DESCRIBETABLEgt_fieldcatLINESlv_field_lines.lv_field_lines=lv_field_lines.3.目前最后2.3歹U是固定歹U业务部门小计/职能

22、部门/检查BREAK-POINT.SORTit_zfit_fy_hkontBYzindex.SORTlt_rcnrBYzindex.LOOPATlt_rcnr.lv_tabix=sy-tabix.针对列的处理*&固定列1,2,3,行号/项目大类/项目明细DATA:fyxjTYPEfaglflexa-hsl.费用小计DATAzcxqj(30).查询期间CLEARzcxqj.LOOPATs_monat.IFs_monat-highISNOTINITIAL.CONCATENATEp_gjahrs_monat-low-p_gjahrs_monat-highINTOzcxqj.ELSE.CONCATEN

23、ATEp_gjahrs_monat-low-p_gjahrs_monat-lowINTOzcxqj.ENDIF.EXIT.ENDLOOP.LOOPATit_zfit_fy_hkont.CLEARfyxj.MOVE-CORRESPONDINGit_zfit_fy_hkontTO.*取查询期间ASSIGNCOMPONENTCXQJOFSTRUCTURETO.=zcxqj.LOOPATlt_rcnrWHEREzindex=it_zfit_fy_hkont-zindexANDhkont_from=it_zfit_fy_hkont-hkont_fromANDhkont_to=it_zfit_fy_hkont-hkont_to.MOVE-CORRESPONDINGlt_rcnrTO.BREAK-POINT.LOOPATgt_fieldcatINTOls_fieldcatFROM6