demo動(dòng)態(tài)列的ALV 報(bào)表使用指針等內(nèi)容

X?QBaP岑B商股也■對(duì)埋零可祠丹Sltfl廿可眼將mlojrM#胃映rtffi唧.犒Ij時(shí)許-rsrrm;~Esrrar婭母Mg-QjQQiraiT'■—jutWrtEHa&IiFTikAi大1捋布琪OT^■Ils做的局期■畢師町~OiE31~_W2■]]raw?■?n2DHra-ai]-*i2M+.MI.W-<I.WPffllI.D02SM.Wfl.IO-OflloaiDjMDMMHoaiDO]二wa>]]raw>WFBJOMIH-213^12liW一一皿I.D0Q加a.iD項(xiàng)DjWIDM頃g|_WH■]]FSW?flwnZOMOS-ailJilZI.WI.W頃LOO-——■XUW—__n.?n0?j|n01nm—―Mft-——WlQffilmairaffi?=■叩DKSINIWliWi.wDMI.D0PffllQ加DjWIDM頃相mqg*梆EHJOHOQ-aiJJlIZ愚32]網(wǎng)WQJ.HJ響I.WgMQq.id頌項(xiàng)口如響QXMIw?qg*■iffNJOMIH-213^123127!.]（；3lZ7|.]0DMI.D0gQ加a.iDDjWIDMw皿MHqg*2DHra-ai]-*i253I.3T-351.]?-響I.D0gMQa.iD頌頃口如響OjOIoxnm潭#WFJOMIH-213^12liWI.wDMI.D0gQ加a.iDDjWIDM項(xiàng)wQLQPN?W2DHra-ai]-*l2I.W1.00響I.D0gMQa.iDQ皿頃口如響OjOIDLLEJOMIH-213^12liWl.wDMI.D0gQ加a.iD項(xiàng)DjWIDM項(xiàng)WDL22DHK-3I]^I2IWLOU頃I.WOJM。加a.iu04JI041OJM頃041omOJMm虹JOHW-ail-tiEW￡WI：WI.W5MD5JlLWfflM戒QJ?DU2DHK-3I]^I2IWLOU頃I.W。加a.iu04JI041OJM頃041omOJMDL5"wmI.M].C￡tI.Edifljlba.ioOdlDJI□JIDnaQL4mi3DL-4DO-311413I.Ml.DOI.Ud.<]ba.id0JIDJIamomDiHEL??M市峰禎市e曜3DL4CQ-2I]->I12I.W>].DOI.CiSd力口■3.ISOjOIDj3IOjQIDuM口LQ,]=■?：￥工坐nm]DL4DQ-3l]Jli2I.M].DOi.ra。加a.10OjOIDjOIOjOIOjOIDjMtLl】逮毛工S33DL4CQ-2I]->I12I.W>].DOI.CiSd力口■3.ISOjOIDj3IOjQIDuMKMasfRISnm3DL4DQ-2I34I22..I33.M].DO2,333.DO。加a.idOjOIDjOIOjOIOjOIDjMtatEKI表H3DL4D2-2I3-I12I.M].DDI.CiS。力口■3.IS心?Dj3IOjQIOjOIDjM皿。翊ilniBBSil^R3DL4DQ-2I34I2I.M].DOI.IXi。加a.idOjOIDjOIOjOIOjOIDjM皿吁?饋袒用己ZDL-HU-JIJqilI.IW].DO9.DQQj]D□.ID0J3IPJ3Iojoi。皿DJV1并他1DL4[H-2IJ4I1I.WLCD9.[?Qj]Da.idQJQIDJQIOJQIcun皿ZDL-HU-JIJqilI.IW].DO9.DQQj]D□.ID0J3IPJ3Iojoi。皿PJM*■tAin..V3HiXiMifJ.GIhi?mNiiFCrtiN\■Mn賦■N\nnrindfii-inuft■廿i\hhnhanhi■'■土Tr**&ReportZFIR1009*&*&――**&*&*&—*REPORTzfir1009.TABLES:faglflexa,zfit_fy_hkont,bkpf.SELECTION-SCREENBEGINOFSELECTION-SCREENBEGINOFBLOCKblk1WITHFRAMETITLEtext-001.PARAMETERS:p_bukrs代碼PARAMETERS:p_bukrs代碼TYPEproj-vbukrOBLIGATORYDEFAULT'2001',〃公司〃會(huì)計(jì)年p_gjahrTYPEbkpfgjahrOBLIGATORY〃會(huì)計(jì)年度SELECT-OPTIONS:s_monatFORbkpf-monatOBLIGATORY."查詢期間SELECTION-SCREENENDOFBLOCKblk1.DATAit_zfit_fy_hkontLIKETABLEOFzfit_fy_hkontWITHHEADERLINE."費(fèi)用配置表DATAit_faglflexaLIKETABLEOFfaglflexaWITHHEADERLINE."新總賬表才成本中心內(nèi)表DATA:BEGINOFlt_rcnrOCCURS0.INCLUDETYPEzfit_fy_hkont.DATA:rcntrTYPEfaglflexa-rcntr."成本中心DATA:ktextTYPEcskt-ktext."成本中心名稱DATA:dmbtrTYPEfaglflexa-hsl."本位幣金額DATA:ENDOFlt_rcnr.*動(dòng)態(tài)列結(jié)構(gòu)DATA:gt_fieldcatTYPElvc_t_fcat.才輸出表結(jié)構(gòu)FIELD-SYMBOLS:<t_output>TYPESTANDARDTABLE.*輸出列的動(dòng)態(tài)結(jié)構(gòu)DATA:dy_tableTYPEREFTOdata.*DATA:ls_prctrLIKELINEOFlt_prctr.INITIALIZATION.PERFORMfrminitdata.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.*設(shè)置初始值IFp_gjahrISINITIAL.p_gjahr=sy-datum+0(4).ENDIF.IFs_monat[]ISINITIAL.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_racctFORfaglflexaracct.REFRESHit_zfit_fy_hkont.CLEARit_zfit_fy_hkont.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.ENDIF.*取成本中心數(shù)據(jù)IFs_racct[]ISNOTINITIAL.SELECT火INTOTABLEit_faglflexaFROMfaglflexaWHERErbukrs=p_bukrsANDryear=p_gjahrANDpoperINs_monatANDracctINs_racctandRCNTR<>''.ENDIF.*處理行和列LOOPATit_zfit_fy_hkont.MOVE-CORRESPONDINGit_zfit_fy_hkontTOlt_rcnr.LOOPATit_faglflexaWHEREracctBETWEENlt_rcnrhkont_fromANDlt_rcnr-hkont_to.lt_rcnrrcntr=it_faglflexa-rcntr."成本中心lt_rcnrdmbtr=it_faglflexa-hsl."金額IFlt_rcnr-rcntrISNOTINITIAL.*取成本中心描述SELECTSINGLEktextINTOlt_rcnr-ktextFROMcsktWHEREspras='1'ANDkokrs='DYRS'ANDkostl=ltrcnr-rcntr.ENDIF.COLLECTlt_rcnr.ENDLOOP.CLEARlt_rcnr.ENDLOOP.ENDFORM."FRM_GET_DATA*&——**&Formfrm_alv_display

*&――*text——*FORMfrm_alv_display.DATA:lv_progrmTYPEsyrepid,ls_layout_9000TYPElvc_s_layo.*編輯輸出樣式ls_layout_9000zebra='X'.ls_layout_9000cwidth_opt='X'.ls_layout_9000—detailinitls_layout_9000—detailtitlLSLAYOUT9000—SELMODEls_layout_9000—detailinitls_layout_9000—detailtitlLSLAYOUT9000—SELMODE='X'.='數(shù)據(jù)詳細(xì)內(nèi)容，.='A'."SELECYONELINE*ls_layout_9000—smalltitle='X'.*顯示alvlv_progrm=syrepid.*BREAK—POINT.CALLFUNCTION'REUSEALVGRIDDISPLAYLVC'EXPORTINGi_callback_program=lv_progrmi_callback_pf_status_set='FRM_SET_PF'i_callback_user_command='FRM_USER_COMMis_layout_lvcitfieldcatlvcisaveIGRIDTITLETABLEStouttabEXCEPTIONSprogram_errorOTHERSis_layout_lvcitfieldcatlvcisaveIGRIDTITLETABLEStouttabEXCEPTIONSprogram_errorOTHERS=ls_layout_9000=gt_fieldcat='A'=GV_TITLE=<t_output>=1=2.ENDFORM."FRMALVDISPLAY*&*&Formfrm_get_fy_hkont*&

大text――大FORMfrm_get_fy_hkont.*列結(jié)構(gòu)TYPElvc_s_fcat,TYPEi,TYPEchar40.BYzindexASCENDINGENDFORM."FRMALVDISPLAY*&*&Formfrm_get_fy_hkont*&大TYPElvc_s_fcat,TYPEi,TYPEchar40.BYzindexASCENDING.SORTit_zfit_fy_hkont*編輯Fieldcat宏定義DEFINEadd_field.clearls_fieldcat.ls_fieldcatcol_pos=lv_colpos.ls_fieldcatfieldname=&1.ls_fieldcatcoltext=&2.ls_fieldcatemphasize=&3.ls_fieldcatref_table=&4.ls_fieldcatref_field=&5.ls_fieldcatfix_column=&6.ls_fieldcatreptext=&2.ls_fieldcatscrtext_l=&2.ls_fieldcatscrtext_m=&2.ls_fieldcatscrtext_s=&2.lv_colpos=lv_colpos+1.appendls_fieldcattogt_fieldcat.clearls_fieldcat.END-OF-DEFINITION.lv_colpos=1.add_field'''ZINDEX''行號(hào)'ZFIT_FY_HKONT''ZINDEX''X'.add_field'PRJ_BIG''費(fèi)用大類'''ZFIT_FY_HKONT''PRJ_BIG''X'.add_field'PRJ_DEATL''費(fèi)用明細(xì)

''''ZFIT_FY_HKONT''PRJ_DEATL''X'.add_field'CXQJ''費(fèi)用''''ZFITFYHKONT''PRJDEATL''X'.add_field'FYXJ''費(fèi)用小計(jì)'C310''FAGLFLEXA''HSL''X'.*動(dòng)態(tài)列，使用利潤(rùn)中心字段部門，=，門店，'C310''FAGLFLEXA''HSL''X'.SORTlt_rcnrBYrcntr."按成本中心排序LOOPATlt_rcnr.col名稱=描述（利潤(rùn)中心）lv_col_name=lt_rcnrktext.READTABLEgt_fieldcatINTOls_fieldcatWITHKEYfieldname=lt_rcnr-rcntr.IFsy-subrc<>0.add_fieldlt_rcnr-rcntrlv_col_name'''FAGLFLEXA''HSL'''.CLEARlv_col_name.ENDIF.ENDLOOP.*生成動(dòng)態(tài)表結(jié)構(gòu)CALLMETHODcl_alv_table_create=create_dynamic_tableEXPORTINGit_fieldcatalog=gt_fieldcatIMPORTINGASSIGNdy_table->*TO<t_output>ASSIGNdy_table->*TO<t_output>.ENDFORMENDFORM.&-*&FormFRM_PROCESS_DATA&-*text-*--〉Pltext<――p2text"FRMGETJSHKONT******大FORMfrm_process_data*動(dòng)態(tài)的輸出結(jié)構(gòu)DATA:w_outputTYPEREFTOdata.FIELD-SYMBOLS:<w_output>FIELD-SYMBOLS:<w_output><w_field>TYPEany.DATA:lvtabixTYPElv_field_linesTYPEi,lv_field_lines_allTYPEi.DATA:lsfieldcatLIKELINEOFTYPEany,sy-tabix,"ALV結(jié)構(gòu)表的行數(shù)"ALV總列數(shù)gt_fieldcat.*創(chuàng)建輸出表的動(dòng)態(tài)結(jié)構(gòu)CREATEDATAw_outputLIKELINEOF<t_output>.ASSIGNw_output->*TO<w_output>.判斷動(dòng)態(tài)的利潤(rùn)中心列是否存在DESCRIBETABLEgt_fieldcat[]LINESlv_field_lines.lv_field_lines=lv_field_lines."3."目前最后2."3列是固定列業(yè)務(wù)部門小計(jì)/職能部門/檢查BREAK-POINT.SORTit_zfit_fy_hkontBYzindex.SORTlt_rcnrBYzindex.LOOPATlt_rcnr.lv_tabix=sy-tabix.針對(duì)列的處理*&&&&&固定列1,2,3,行號(hào)/項(xiàng)目大類/項(xiàng)目明細(xì)DATA:fyxjTYPEfaglflexa-hsl."費(fèi)用小計(jì)DATAzcxqj(30)."查詢期間CLEARzcxqj.LOOPATs_monat.IFs_monat-highISNOTINITIAL.CONCATENATEp_gjahrs_monat-low'-'p_gjahrs_monat-highINTOzcxqj.ELSE.CONCATENATEp_gjahrs_monat-low'-'p_gjahrs_monat-lowINTOzcxqj.ENDIF.EXIT.ENDLOOP.LOOPATit_zfit_fy_hkont.CLEARfyxj.MOVE-CORRESPONDINGit_zfit_fy_hkontTO<w_output>.土取查詢期間ASSIGNCOMPONENT'CXQJ'OFSTRUCTURE<w_output>TO<w_field>.<w_field>=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<w_output>.BREAK-POINT.LOOPATgt_fieldcatINTOls_fieldcatFROM6TOlv_field_lines.根據(jù)從第6列開始的動(dòng)態(tài)列■-利潤(rùn)中心，讀取該行配置科目的合計(jì)值根據(jù)利潤(rùn)中心，按照利潤(rùn)中心取得合計(jì)值READTABLElt_rcnrWITHKEYzindex=it_zfit_fy_hkontzindexhkont_from=it_zfit_fy_hkont-h