资源描述:
《ABAP ALV列头合并》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、源码:*&---------------------------------------------------------------------**& Report ZDEMO_ALV_MERGERHEADER **& **&--------------------------------------------
2、-------------------------**& **& **&---------------------------------------------------------------------*REPORT z_alv_manual_set_header
3、 .TABLES:afko,afru,afpo,pbim,pbed,makt,mard .*************ALV TYPE-POOLS slis.DATA:l_events TYPE slis_t_event, gs_layout TYPE slis_layout_alv, fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE, eventcat TYPE slis_t_event WITH H
4、EADER LINE.DATA:l_variant TYPE TABLE OF disvariant WITH HEADER LINE, prg LIKE sy-repid.**************DATA:bedat LIKE pbed-pdatu,"当月月初 eddat LIKE pbed-pdatu."当月月末DATA yesterday LIKE sy-datum.DATA: lcm LIKE makt-matnr, " 冷藏门 ldm LIKE makt-matnr, " 冷冻
5、门 bwm LIKE makt-matnr, "变温门 czhxt LIKE makt-matnr," 初装后箱体 zzhxt LIKE makt-matnr." 总装后箱体DATA:gmnga_buf LIKE afru-gmnga. "计算当月计划DATA:BEGIN OF itb_list_fert OCCURS 0, "当天有生产的整机清单 stlbez LIKE afko-stlbez, "物料号 stlal LIKE afko-stl
6、al, "可选BOM stlan LIKE afko-stlan, "BOM 用途 END OF itb_list_fert.DATA: maktx LIKE makt-maktx , maktx1 LIKE makt-maktx , f1 LIKE makt-maktx , f2 LIKE makt-maktx , f3 LIKE makt-maktx , dot VALUE '.', dot1 VALUE ','
7、.DATA:BEGIN OF itb_output OCCURS 0,"输出表格 maktx LIKE makt-maktx, "产品型号 plnmg_f_m LIKE pbed-plnmg, "当月计划 czhxt LIKE makt-matnr," 初装后箱体 gmnga_lcm LIKE afru-gmnga, "冷藏门 当日完成 gmnga_lcm_lj LIKE afru-gmnga,"冷藏门 累计完成 labst_lcm
8、 LIKE mard-labst, "冷藏门 结存 gmnga_ldm LIKE afru-gmnga, "冷冻门 当日完成 gmnga_ldm_lj LIKE afru-gmnga,"冷冻门 累计完成 labst_ldm LIKE mar