SAP ABAP 表头合并实例



REPORT z_alv_manual_set_header                              .

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 HEADER 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, " 冷冻门
        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 LIKEafko-stlal,        "可选BOM
        stlan LIKEafko-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 ','.

DATA:BEGIN OF itb_output OCCURS 0,"输出表格

        maktx LIKEmakt-maktx,    "产品型号
        plnmg_f_m LIKE pbed-plnmg, "当月计划

        czhxt LIKEmakt-matnr," 初装后箱体

        gmnga_lcm LIKEafru-gmnga,   "冷藏门 当日完成
        gmnga_lcm_lj LIKE afru-gmnga,"冷藏门 累计完成
        labst_lcm LIKEmard-labst,   "冷藏门 结存

        gmnga_ldm LIKEafru-gmnga,   "冷冻门 当日完成
        gmnga_ldm_lj LIKE afru-gmnga,"冷冻门 累计完成
        labst_ldm LIKEmard-labst,   "冷冻门 结存

        gmnga_bwm LIKEafru-gmnga,   "变温门 当日完成
        gmnga_bwm_lj LIKE afru-gmnga,"变温门 累计完成