ABAP ALV列头合并VIP免费

源码：*&---------------------------------------------------------------------**&ReportZDEMO_ALV_MERGERHEADER**&**&---------------------------------------------------------------------**&**&**&---------------------------------------------------------------------*REPORTz_alv_manual_set_header.TABLES:afko,afru,afpo,pbim,pbed,makt,mard.*************ALVTYPE-POOLSslis.DATA:l_eventsTYPEslis_t_event,gs_layoutTYPEslis_layout_alv,fieldcatTYPEslis_t_fieldcat_alvWITHHEADERLINE,eventcatTYPEslis_t_eventWITHHEADERLINE.DATA:l_variantTYPETABLEOFdisvariantWITHHEADERLINE,prgLIKEsy-repid.**************DATA:bedatLIKEpbed-pdatu,"当月月初eddatLIKEpbed-pdatu."当月月末DATAyesterdayLIKEsy-datum.DATA:lcmLIKEmakt-matnr,"冷藏门ldmLIKEmakt-matnr,"冷冻门bwmLIKEmakt-matnr,"变温门czhxtLIKEmakt-matnr,"初装后箱体zzhxtLIKEmakt-matnr."总装后箱体DATA:gmnga_bufLIKEafru-gmnga."计算当月计划DATA:BEGINOFitb_list_fertOCCURS0,"当天有生产的整机清单stlbezLIKEafko-stlbez,"物料号stlalLIKEafko-stlal,"可选BOMstlanLIKEafko-stlan,"BOM用途ENDOFitb_list_fert.DATA:maktxLIKEmakt-maktx,maktx1LIKEmakt-maktx,f1LIKEmakt-maktx,f2LIKEmakt-maktx,f3LIKEmakt-maktx,dotVALUE'.',dot1VALUE','.DATA:BEGINOFitb_outputOCCURS0,"输出表格maktxLIKEmakt-maktx,"产品型号plnmg_f_mLIKEpbed-plnmg,"当月计划czhxtLIKEmakt-matnr,"初装后箱体gmnga_lcmLIKEafru-gmnga,"冷藏门当日完成gmnga_lcm_ljLIKEafru-gmnga,"冷藏门累计完成labst_lcmLIKEmard-labst,"冷藏门结存gmnga_ldmLIKEafru-gmnga,"冷冻门当日完成gmnga_ldm_ljLIKEafru-gmnga,"冷冻门累计完成labst_ldmLIKEmard-labst,"冷冻门结存gmnga_bwmLIKEafru-gmnga,"变温门当日完成gmnga_bwm_ljLIKEafru-gmnga,"变温门累计完成labst_bwmLIKEmard-labst,"变温门结存gmnga_czhxtLIKEafru-gmnga,"初装上楼当日完成gmnga_czhxt_ljLIKEafru-gmnga,"初装上楼累计完成labst_czhxtLIKEmard-labst,"初装上楼结存gmnga_zzhxtLIKEafru-gmnga,"总装完成当日完成gmnga_zzhxt_ljLIKEafru-gmnga,"总装完成累计完成labst_zzhxtLIKEmard-labst,"总装完成结存gmnga_zjLIKEafru-gmnga,"成品入库当日完成"生产计划已完成数gmnga_zj_ljLIKEafru-gmnga,"成品入库累计完成labst_zjLIKEmard-labst,"成品入库结存sljhcLIKEafru-gmnga,"上楼冰箱与计划差bzjhcLIKEafru-gmnga,"包装入库冰箱与计划差gmnga_zj1LIKEafru-gmnga,"生产计划已完成数ENDOFitb_output.DATAitb_stpoxLIKESTANDARDTABLEOFstpoxWITHHEADERLINE.DATA:BEGINOFitb_bom_maktxOCCURS0,"BOM展开后的物料描述idnrkLIKEstpox-idnrk,maktxLIKEmakt-maktx,ENDOFitb_bom_maktx.INITIALIZATION.l_variant-report=sy-repid.*******************************************START-OF-SelectIONSTART-OF-SelectION.PERFORMeventtab_buildCHANGINGl_events.PERFORMinput_data.PERFORMwrite_data.*&---------------------------------------------------------------------**&Formwrite_data*&---------------------------------------------------------------------**text*----------------------------------------------------------------------**-->p1text*<--p2text*----------------------------------------------------------------------*FORMwrite_data.PERFORMget_fieldcat.gs_layout-zebra='X'.prg=sy-repid.CALLFUNCTION'REUSE_ALV_LIST_DISPLAY'EXPORTINGi_callback_program=prgis_layout=gs_layoutis_variant=l_variantit_fieldcat=fieldcat[]it_events=eventcat[]TABLESt_outtab=itb_output[]EXCEPTIONSprogram_error=1OTHERS=2.ENDFORM."write_data*&---------------------------------------------------------------------**&FormGET_FIELDCAT*&---------------------------------------------------------------------**因为ALV表头是手工调整输出的，所以...