abap alv列頭合并

1、源碼：&&ReptZDEMO_ALV_MERGERHEADER&&&&&REPTz_alv_manual_set_header.TABLES:afkoafruafpopbimpbedmaktmard.ALVTYPEPOOLSslis.DATA:l_eventsTYPEslis_t_eventgs_layoutTYPEslis_layout_alvfieldcatTYPEslis_t_fieldcat_alvWITHHEADERLINEe

2、ventcatTYPEslis_t_eventWITHHEADERLINE.DATA:l_variantTYPETABLEOFdisvariantWITHHEADERLINEprgLIKEsyrepid.DATA:bedatLIKEpbedpdatu“當(dāng)月月初eddatLIKEpbedpdatu.“當(dāng)月月末DATAyesterdayLIKEsydatum.DATA:lcmLIKEmaktmatnr“冷藏門ldmLIKEmaktmatnr

3、“冷凍門bwmLIKEmaktmatnr“變溫門czhxtLIKEmaktmatnr“初裝后箱體zzhxtLIKEmaktmatnr.“總裝后箱體DATA:gmnga_bufLIKEafrugmnga.“計算當(dāng)月計劃DATA:BEGINOFitb_list_fertOCCURS0“當(dāng)天有生產(chǎn)的整機清單stlbezLIKEafkostlbez“物料號stlalLIKEafkostlal“可選BOMstlanLIKEafkostlan“BO

4、M用途ENDOFitb_list_fert.DATA:maktxLIKEmaktmaktxmaktx1LIKEmaktmaktxf1LIKEmaktmaktxf2LIKEmaktmaktxf3LIKEmaktmaktxdotVALUE.dot1VALUE.DATA:BEGINOFitb_outputOCCURS0“輸出表格maktxLIKEmaktmaktx“產(chǎn)品型號plnmg_f_mLIKEpbedplnmg“當(dāng)月計劃czhxtLIK

5、Emaktmatnr“初裝后箱體gmnga_lcmLIKEafrugmnga“冷藏門當(dāng)日完成gmnga_lcm_ljLIKEafrugmnga“冷藏門累計完成labst_lcmLIKEmardlabst“冷藏門結(jié)存gmnga_ldmLIKEafrugmnga“冷凍門當(dāng)日完成ENDFM.“write_data&&FmGET_FIELDCAT&因為ALV表頭是手工調(diào)整輸出的，所以必須在這里輸入每個列的寬度fieldcatoutputlen.

6、p1textp2textFMget_fieldcat.CLEARfieldcat.fieldcattabname=ITAB_OUTPUT.fieldcatfieldname=MAKTX.fieldcatcol_pos=1.“Positiononscreenfieldcatseltext_l=產(chǎn)品型號.fieldcatkey=X.fieldcatoutputlen=11.APPENDfieldcat.CLEARfieldcat.field

7、cattabname=ITAB_OUTPUT.fieldcatfieldname=PLNMG_F_M.fieldcatcol_pos=2.“Positiononscreenfieldcatseltext_l=月計劃合計.fieldcatkey=X.fieldcatoutputlen=10.APPENDfieldcat.CLEARfieldcat.fieldcattabname=ITAB_OUTPUT.fieldcatfieldname=

8、GMNGA_LCM.fieldcatcol_pos=3.“Positiononscreenfieldcatseltext_l=冷藏門當(dāng)日完成.fieldcatoutputlen=10.APPENDfieldcat.CLEARfieldcat.fieldcattabname=ITAB_OUTPUT.fieldcatfieldname=GMNGA_LCM_LJ.fieldcatcol_pos=4.“Positiononscreenfield

9、catseltext_l=冷藏門累計完成.fieldcatoutputlen=10.APPENDfieldcat.CLEARfieldcat.fieldcattabname=ITAB_OUTPUT.fieldcatfieldname=LABST_LCM.fieldcatcol_pos=5.“Positiononscreenfieldcatseltext_l=冷藏門結(jié)存.fieldcatoutputlen=10.APPENDfieldca