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“冷藏門(mén)ldmLIKEmaktmatnr

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

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

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

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

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

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

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