设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

[fmalv] alv list 实现alv多表头或自定义表头（二）

Twilight发表于 2014-08-14 09:56Twilight 最后回复于 2014-08-14 09:56 [复制链接] 5429 0

在表头中增加指定行数数据需要调用其"TOP_OF_PAGE"事件，"AFTER_LINE_OUTPUT"事件用于控制其报表输出后所处理事件

程序代码：
  1. TABLES:afko,afru,afpo,pbim,pbed,makt,mard .
  2. *************ALV
  3. TYPE-POOLS slis.
  4. DATA:l_events TYPE slis_t_event,
  5.      gs_layout TYPE slis_layout_alv,
  6.      fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
  7.      eventcat TYPE slis_t_event WITH HEADER LINE.
  8. DATA:l_variant TYPE TABLE OF disvariant WITH HEADER LINE,
  9.      prg LIKE sy-repid.
  10. **************
  11. DATA:bedat LIKE pbed-pdatu,"当月月初
  12.      eddat LIKE pbed-pdatu."当月月末
  13. DATA yesterday LIKE sy-datum.
  14. DATA:   lcm LIKE makt-matnr, " 冷藏门
  15.         ldm LIKE makt-matnr, " 冷冻门
  16.         bwm LIKE makt-matnr, "变温门
  17.         czhxt LIKE makt-matnr," 初装后箱体
  18.         zzhxt LIKE makt-matnr." 总装后箱体
  19. DATA:gmnga_buf LIKE afru-gmnga. "计算当月计划
  20. DATA:BEGIN OF itb_list_fert OCCURS 0, "当天有生产的整机清单
  21.         stlbez LIKE afko-stlbez,      "物料号
  22.         stlal LIKE afko-stlal,        "可选BOM
  23.         stlan LIKE afko-stlan,        "BOM 用途
  24.      END OF itb_list_fert.
  25. DATA: maktx LIKE makt-maktx ,
  26.       maktx1 LIKE makt-maktx ,
  27.       f1 LIKE makt-maktx ,
  28.       f2 LIKE makt-maktx ,
  29.       f3 LIKE makt-maktx ,
  30.       dot VALUE '.',
  31.       dot1 VALUE ','.
  32. DATA:BEGIN OF itb_output OCCURS 0,"输出表格
  33.         maktx LIKE makt-maktx,    "产品型号
  34.         plnmg_f_m LIKE pbed-plnmg, "当月计划
  35.         czhxt LIKE makt-matnr," 初装后箱体
  36.         gmnga_lcm LIKE afru-gmnga,   "冷藏门 当日完成
  37.         gmnga_lcm_lj LIKE afru-gmnga,"冷藏门 累计完成
  38.         labst_lcm LIKE mard-labst,   "冷藏门 结存
  39.         gmnga_ldm LIKE afru-gmnga,   "冷冻门 当日完成
  40.         gmnga_ldm_lj LIKE afru-gmnga,"冷冻门 累计完成
  41.         labst_ldm LIKE mard-labst,   "冷冻门 结存
  42.         gmnga_bwm LIKE afru-gmnga,   "变温门 当日完成
  43.         gmnga_bwm_lj LIKE afru-gmnga,"变温门 累计完成
  44.         labst_bwm LIKE mard-labst,   "变温门 结存
  45.         gmnga_czhxt LIKE afru-gmnga,   "初装上楼 当日完成
  46.         gmnga_czhxt_lj LIKE afru-gmnga,"初装上楼 累计完成
  47.         labst_czhxt LIKE mard-labst,   "初装上楼 结存
  48.         gmnga_zzhxt LIKE afru-gmnga,   "总装完成 当日完成
  49.         gmnga_zzhxt_lj LIKE afru-gmnga,"总装完成 累计完成
  50.         labst_zzhxt LIKE mard-labst,   "总装完成 结存
  51.         gmnga_zj LIKE afru-gmnga,   "成品入库 当日完成 "生产计划已完成数
  52.         gmnga_zj_lj LIKE afru-gmnga,"成品入库 累计完成
  53.         labst_zj LIKE mard-labst,   "成品入库 结存
  54.         sljhc LIKE afru-gmnga ,      "上楼冰箱与计划差
  55.         bzjhc LIKE afru-gmnga ,      "包装入库冰箱与计划差
  56.         gmnga_zj1 LIKE afru-gmnga,    "生产计划已完成数
  57.         END OF itb_output.
  58. DATA itb_stpox LIKE STANDARD TABLE OF  stpox WITH HEADER LINE.
  59. DATA:BEGIN OF itb_bom_maktx OCCURS 0,"BOM展开后的物料描述
  60.      idnrk LIKE stpox-idnrk,
  61.      maktx LIKE makt-maktx,
  62.      END OF itb_bom_maktx.
  63. INITIALIZATION.
  64.   l_variant-report = sy-repid.
  65. *******************************************START-OF-SELECTION
  66. START-OF-SELECTION.
  67.   PERFORM  eventtab_build CHANGING l_events.
  68.   PERFORM input_data.
  69.   PERFORM write_data.

  71. *&---------------------------------------------------------------------*
  72. *&      Form  write_data
  73. *&---------------------------------------------------------------------*
  74. *       text
  75. *----------------------------------------------------------------------*
  76. *  -->  p1        text
  77. *  <--  p2        text
  78. *----------------------------------------------------------------------*
  79. FORM write_data .
  80.   PERFORM get_fieldcat.

  82.   gs_layout-zebra = 'X' .
  83.   prg = sy-repid.
  84.   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
  85.     EXPORTING
  86.       i_callback_program = prg
  87.       is_layout          = gs_layout
  88.       is_variant         = l_variant
  89.       it_fieldcat        = fieldcat[]
  90.       it_events          = eventcat[]
  91.     TABLES
  92.       t_outtab           = itb_output[]
  93.     EXCEPTIONS
  94.       program_error      = 1
  95.       OTHERS             = 2.
  96. ENDFORM.                    " write_data
  97. *&---------------------------------------------------------------------*
  98. *&      Form  GET_FIELDCAT
  99. *&---------------------------------------------------------------------*
  100. *    因为ALV表头是手工调整输出的，所以必须在这里输入每个列的宽度
  101. *    fieldcat-outputlen .
  102. *----------------------------------------------------------------------*
  103. *  -->  p1        text
  104. *  <--  p2        text
  105. *----------------------------------------------------------------------*
  106. FORM get_fieldcat.
  107.   CLEAR fieldcat.
  108.   fieldcat-tabname = 'ITAB_OUTPUT'.
  109.   fieldcat-fieldname = 'MAKTX'.
  110.   fieldcat-col_pos   = 1.               " Position on screen
  111.   fieldcat-seltext_l = '产品型号'.
  112.   fieldcat-key = 'X'.
  113.   fieldcat-outputlen = 11.
  114.   APPEND fieldcat.

  116.   CLEAR fieldcat.
  117.   fieldcat-tabname = 'ITAB_OUTPUT'.
  118.   fieldcat-fieldname = 'PLNMG_F_M'.
  119.   fieldcat-col_pos   = 2.               " Position on screen
  120.   fieldcat-seltext_l = '月计划合计'.
  121.   fieldcat-key = 'X'.
  122.   fieldcat-outputlen = 10.
  123.   APPEND fieldcat.

  125.   CLEAR fieldcat.
  126.   fieldcat-tabname = 'ITAB_OUTPUT'.
  127.   fieldcat-fieldname = 'GMNGA_LCM'.
  128.   fieldcat-col_pos   = 3.               " Position on screen
  129.   fieldcat-seltext_l = '冷藏门当日完成'.
  130.   fieldcat-outputlen = 10.
  131.   APPEND fieldcat.

  133.   CLEAR fieldcat.
  134.   fieldcat-tabname = 'ITAB_OUTPUT'.
  135.   fieldcat-fieldname = 'GMNGA_LCM_LJ'.
  136.   fieldcat-col_pos   = 4.               " Position on screen
  137.   fieldcat-seltext_l = '冷藏门累计完成'.
  138.   fieldcat-outputlen = 10.
  139.   APPEND fieldcat.

  141.   CLEAR fieldcat.
  142.   fieldcat-tabname = 'ITAB_OUTPUT'.
  143.   fieldcat-fieldname = 'LABST_LCM'.
  144.   fieldcat-col_pos   = 5.               " Position on screen
  145.   fieldcat-seltext_l = '冷藏门结存'.
  146.   fieldcat-outputlen = 10.
  147.   APPEND fieldcat.

  149.   CLEAR fieldcat.
  150.   fieldcat-tabname = 'ITAB_OUTPUT'.
  151.   fieldcat-fieldname = 'GMNGA_LDM'.
  152.   fieldcat-col_pos   = 6.               " Position on screen
  153.   fieldcat-seltext_l = '冷冻门当日完成'.
  154.   fieldcat-outputlen = 10.
  155.   APPEND fieldcat.

  157.   CLEAR fieldcat.
  158.   fieldcat-tabname = 'ITAB_OUTPUT'.
  159.   fieldcat-fieldname = 'GMNGA_LDM_LJ'.
  160.   fieldcat-col_pos   = 7.               " Position on screen
  161.   fieldcat-seltext_l = '冷冻门累计完成'.
  162.   fieldcat-outputlen = 10.
  163.   APPEND fieldcat.

  165.   CLEAR fieldcat.
  166.   fieldcat-tabname = 'ITAB_OUTPUT'.
  167.   fieldcat-fieldname = 'LABST_LDM'.
  168.   fieldcat-col_pos   = 8.               " Position on screen
  169.   fieldcat-seltext_l = '冷冻门结存'.
  170.   fieldcat-outputlen = 10.
  171.   APPEND fieldcat.
  172.   CLEAR fieldcat.
  173.   fieldcat-tabname = 'ITAB_OUTPUT'.
  174.   fieldcat-fieldname = 'GMNGA_BWM'.
  175.   fieldcat-col_pos   = 9.               " Position on screen
  176.   fieldcat-seltext_l = '变温室当日完成'.
  177.   fieldcat-outputlen = 10.
  178.   APPEND fieldcat.
  179.   CLEAR fieldcat.
  180.   fieldcat-tabname = 'ITAB_OUTPUT'.
  181.   fieldcat-fieldname = 'GMNGA_BWM_LJ'.
  182.   fieldcat-col_pos   = 10.               " Position on screen
  183.   fieldcat-seltext_l = '变温室累计完成'.
  184.   fieldcat-outputlen = 10.
  185.   APPEND fieldcat.

  187.   CLEAR fieldcat.
  188.   fieldcat-tabname = 'ITAB_OUTPUT'.
  189.   fieldcat-fieldname = 'LABST_BWM'.
  190.   fieldcat-col_pos   = 11.               " Position on screen
  191.   fieldcat-seltext_l = '变温室结存'.
  192.   fieldcat-outputlen = 10.
  193.   APPEND fieldcat.

  195.   CLEAR fieldcat.
  196.   fieldcat-tabname = 'ITAB_OUTPUT'.
  197.   fieldcat-fieldname = 'GMNGA_CZHXT'.
  198.   fieldcat-col_pos   = 12.               " Position on screen
  199.   fieldcat-seltext_l = '初装上楼当日完成'.
  200.   fieldcat-outputlen = 10.
  201.   APPEND fieldcat.

  203.   CLEAR fieldcat.
  204.   fieldcat-tabname = 'ITAB_OUTPUT'.
  205.   fieldcat-fieldname = 'GMNGA_CZHXT_LJ'.
  206.   fieldcat-col_pos   = 13.               " Position on screen
  207.   fieldcat-seltext_l = '初装上楼累计完成'.
  208.   fieldcat-outputlen = 10.
  209.   APPEND fieldcat.

  211.   CLEAR fieldcat.
  212.   fieldcat-tabname = 'ITAB_OUTPUT'.
  213.   fieldcat-fieldname = 'LABST_CZHXT'.
  214.   fieldcat-col_pos   = 14.               " Position on screen
  215.   fieldcat-seltext_l = '初装上楼结存'.
  216.   fieldcat-outputlen = 10.
  217.   APPEND fieldcat.

  219.   CLEAR fieldcat.
  220.   fieldcat-tabname = 'ITAB_OUTPUT'.
  221.   fieldcat-fieldname = 'GMNGA_ZZHXT'.
  222.   fieldcat-col_pos   = 15.               " Position on screen
  223.   fieldcat-seltext_l = '总装当日完成'.
  224.   fieldcat-outputlen = 10.
  225.   APPEND fieldcat.

  227.   CLEAR fieldcat.
  228.   fieldcat-tabname = 'ITAB_OUTPUT'.
  229.   fieldcat-fieldname = 'GMNGA_ZZHXT_LJ'.
  230.   fieldcat-col_pos   = 16.               " Position on screen
  231.   fieldcat-seltext_l = '总装累计完成'.
  232.   fieldcat-outputlen = 10.
  233.   APPEND fieldcat.

  235.   CLEAR fieldcat.
  236.   fieldcat-tabname = 'ITAB_OUTPUT'.
  237.   fieldcat-fieldname = 'LABST_ZZHXT'.
  238.   fieldcat-col_pos   = 17.               " Position on screen
  239.   fieldcat-seltext_l = '总装结存'.
  240.   fieldcat-outputlen = 10.
  241.   APPEND fieldcat.

  243.   CLEAR fieldcat.
  244.   fieldcat-tabname = 'ITAB_OUTPUT'.
  245.   fieldcat-fieldname = 'GMNGA_ZJ'.
  246.   fieldcat-col_pos   = 18.               " Position on screen
  247.   fieldcat-seltext_l = '成品入库当日完成'.
  248.   fieldcat-outputlen = 10.
  249.   APPEND fieldcat.

  251.   CLEAR fieldcat.
  252.   fieldcat-tabname = 'ITAB_OUTPUT'.
  253.   fieldcat-fieldname = 'GMNGA_ZJ_LJ'.
  254.   fieldcat-col_pos   = 19.               " Position on screen
  255.   fieldcat-seltext_l = '成品入库累计完成'.
  256.   fieldcat-outputlen = 10.
  257.   APPEND fieldcat.

  259.   CLEAR fieldcat.
  260.   fieldcat-tabname = 'ITAB_OUTPUT'.
  261.   fieldcat-fieldname = 'LABST_ZJ'.
  262.   fieldcat-col_pos   = 20.               " Position on screen
  263.   fieldcat-seltext_l = '成品入库结存'.
  264.   fieldcat-outputlen = 10.
  265.   APPEND fieldcat.

  267.   CLEAR fieldcat.
  268.   fieldcat-tabname = 'ITAB_OUTPUT'.
  269.   fieldcat-fieldname = 'SLJHC'.
  270.   fieldcat-col_pos   = 21.               " Position on screen
  271.   fieldcat-seltext_l = '上楼冰箱与计划差'.
  272.   fieldcat-outputlen = 10.
  273.   APPEND fieldcat.

  275.   CLEAR fieldcat.
  276.   fieldcat-tabname = 'ITAB_OUTPUT'.
  277.   fieldcat-fieldname = 'BZJHC'.
  278.   fieldcat-col_pos   = 22.               " Position on screen
  279.   fieldcat-seltext_l = '包装入库冰箱与计划差'.
  280.   fieldcat-outputlen = 10.
  281.   APPEND fieldcat.

  283.   CLEAR fieldcat.
  284.   fieldcat-tabname = 'ITAB_OUTPUT'.
  285.   fieldcat-col_pos   = 23.               " Position on screen
  286.   fieldcat-fieldname = 'GMNGA_ZJ1'.
  287.   fieldcat-seltext_l = '生产计划已完成数'.
  288.   fieldcat-outputlen = 10.
  289.   APPEND fieldcat.
  290.   ENDFORM.                    " GET_FIELDCAT

  292. *&---------------------------------------------------------------------*
  293. *&      Form  EVENTTAB_BUILD
  294. *&---------------------------------------------------------------------*
  295. *       text
  296. *----------------------------------------------------------------------*
  297. *      <--P_GT_EVENTS  text
  298. *----------------------------------------------------------------------*
  299. FORM eventtab_build CHANGING p_events TYPE slis_t_event.
  300.   DATA l_event TYPE LINE OF  slis_t_event.
  301.   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
  302.     EXPORTING
  303.       i_list_type     = 0
  304.     IMPORTING
  305.       et_events       = p_events
  306.     EXCEPTIONS
  307.       list_type_wrong = 1
  308.       OTHERS          = 2.
  309.   IF sy-subrc <> 0.
  310. *    message id sy-msgid type sy-msgty number sy-msgno
  311. *            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  312.   ENDIF.
  313.   READ TABLE p_events INTO l_event WITH KEY name = 'AFTER_LINE_OUTPUT'.
  314.   eventcat-name  = l_event-name.
  315.   eventcat-form = 'AFTER_LINE_OUTPUT'.
  316.   APPEND eventcat.
  317.   READ TABLE p_events INTO l_event WITH KEY name = 'TOP_OF_PAGE'.
  318.   eventcat-name  = l_event-name.
  319.   eventcat-form = 'F_TOP_OF_PAGE'.
  320.   APPEND eventcat.
  321. ENDFORM.                    " EVENTTAB_BUILD
  322. *&--------------------------------------------------------------------*
  323. *&      Form  AFTER_LINE_OUTPUT
  324. *&--------------------------------------------------------------------*
  325. *   输出ALV的表头，手动配置这些
  326. *---------------------------------------------------------------------*
  327. FORM after_line_output USING gs_lineinfo TYPE slis_lineinfo.
  328.   DATA i TYPE i.
  329.   DATA: d(394) TYPE c .
  330.   DATA: l_line(398) TYPE c.
  331.   DATA: tmp_size TYPE i.
  332.   DESCRIBE FIELD d OUTPUT-LENGTH i.
  333.   IF  gs_lineinfo-tabindex = 1.
  334.     MODIFY LINE 1 LINE VALUE FROM  sy-uline(gs_lineinfo-linsz).
  335.     CLEAR l_line.
  336.     WRITE sy-vline TO l_line+0.
  337.     WRITE sy-vline TO l_line+12.
  338.     WRITE sy-vline  TO l_line+23.
  339.     WRITE '门体发泡完成' TO l_line+33.
  340.     WRITE sy-vline  TO l_line+122.
  341.     WRITE '初装上楼完成'  TO l_line+123.
  342.     WRITE sy-vline  TO l_line+155.
  343.     WRITE '总装完成'  TO l_line+156.
  344.     WRITE sy-vline TO l_line+188.
  345.     WRITE '成品入库'  TO l_line+189.
  346.     WRITE sy-vline TO l_line+221.
  347.     WRITE sy-vline TO l_line+232.
  348.     WRITE sy-vline TO l_line+243.
  349.     WRITE sy-vline TO l_line+254.
  350.     MODIFY LINE 2 LINE VALUE FROM l_line(gs_lineinfo-linsz).
  351.     CLEAR l_line.
  352.     WRITE sy-vline     TO l_line+0.
  353.     WRITE sy-vline TO l_line+12.
  354.     WRITE sy-vline  TO l_line+23.
  355.     tmp_size = gs_lineinfo-linsz - 24.
  356.     WRITE sy-uline TO l_line+24(tmp_size).
  357.     WRITE '上楼冰箱'  TO l_line+222.
  358.     WRITE sy-vline TO l_line+232.
  359.     WRITE '包装入库'  TO l_line+233.
  360.     WRITE sy-vline TO l_line+243.
  361.     WRITE '生产计划'  TO l_line+244.
  362.     WRITE sy-vline TO l_line+254.
  363.     MODIFY LINE 3 LINE VALUE FROM l_line(gs_lineinfo-linsz).
  364.     CLEAR l_line.
  365.     WRITE sy-vline TO l_line+0.
  366.     WRITE '产品型号' TO l_line+1.
  367.     WRITE sy-vline TO l_line+12.
  368.     WRITE '月计划合计' TO l_line+13.
  369.     WRITE sy-vline  TO l_line+23.
  370.     WRITE '冷藏门' TO l_line+24.
  371.     WRITE sy-vline TO l_line+56.
  372.     WRITE '冷冻门' TO l_line+57.
  373.     WRITE sy-vline  TO l_line+89.
  374.     WRITE '变温室'  TO l_line+90.
  375.     WRITE sy-vline  TO l_line+122.
  376.     WRITE sy-vline  TO l_line+133.
  377.     WRITE sy-vline  TO l_line+144.
  378.     WRITE sy-vline  TO l_line+155.
  379.     WRITE sy-vline  TO l_line+166.
  380.     WRITE sy-vline  TO l_line+177.
  381.     WRITE sy-vline TO l_line+188.
  382.     WRITE sy-vline TO l_line+199.
  383.     WRITE sy-vline TO l_line+210.
  384.     WRITE sy-vline TO l_line+221.
  385.     WRITE '与计划差'  TO l_line+222.
  386.     WRITE sy-vline TO l_line+232.
  387.     WRITE '冰箱与'  TO l_line+233.
  388.     WRITE sy-vline TO l_line+243.
  389.     WRITE '已完成数'  TO l_line+244.
  390.     WRITE sy-vline TO l_line+254.
  391.     MODIFY LINE 4 LINE VALUE FROM l_line(gs_lineinfo-linsz).
  392.     CLEAR l_line.
  393.     WRITE sy-vline     TO l_line+0.
  394.     WRITE sy-vline TO l_line+12.
  395.     WRITE sy-vline  TO l_line+23.
  396.     tmp_size = gs_lineinfo-linsz - 24.
  397.     WRITE sy-uline TO l_line+24(tmp_size).
  398.     WRITE '当日完成'  TO l_line+123.
  399.     WRITE sy-vline  TO l_line+133.
  400.     WRITE  '累计完成' TO l_line+134.
  401.     WRITE sy-vline  TO l_line+144.
  402.     WRITE  '结存' TO l_line+145.
  403.     WRITE sy-vline  TO l_line+155.
  404.     WRITE  '当日完成' TO l_line+156.
  405.     WRITE sy-vline  TO l_line+166.
  406.     WRITE  '累计完成' TO l_line+167.
  407.     WRITE sy-vline  TO l_line+177.
  408.     WRITE  '结存' TO l_line+178.
  409.     WRITE sy-vline TO l_line+188.
  410.     WRITE  '当日完成' TO l_line+189.
  411.     WRITE sy-vline TO l_line+199.
  412.     WRITE  '累计完成' TO l_line+200.
  413.     WRITE sy-vline TO l_line+210.
  414.     WRITE  '结存' TO l_line+211.
  415.     WRITE sy-vline TO l_line+221.
  416.     WRITE sy-vline TO l_line+232.
  417.     WRITE '计划差'  TO l_line+233.
  418.     WRITE sy-vline TO l_line+243.
  419.     WRITE sy-vline TO l_line+254.
  420.     MODIFY LINE 5 LINE VALUE FROM l_line(gs_lineinfo-linsz).
  421.     CLEAR l_line.
  422.     WRITE sy-vline     TO l_line+0.
  423.     WRITE sy-vline TO l_line+12.
  424.     WRITE sy-vline  TO l_line+23.
  425.     WRITE  '当日完成' TO l_line+24.
  426.     WRITE sy-vline  TO l_line+34.
  427.     WRITE  '累计完成' TO l_line+35.
  428.     WRITE sy-vline  TO l_line+45.
  429.     WRITE  '结存' TO l_line+46.
  430.     WRITE sy-vline  TO l_line+56.
  431.     WRITE  '当日完成' TO l_line+57.
  432.     WRITE sy-vline  TO l_line+67.
  433.     WRITE  '累计完成' TO l_line+68.
  434.     WRITE sy-vline  TO l_line+78.
  435.     WRITE  '结存' TO l_line+79.
  436.     WRITE sy-vline  TO l_line+89.
  437.     WRITE  '当日完成' TO l_line+90.
  438.     WRITE sy-vline  TO l_line+100.
  439.     WRITE  '累计完成' TO l_line+101.
  440.     WRITE sy-vline  TO l_line+111.
  441.     WRITE  '结存' TO l_line+112.
  442.     WRITE sy-vline  TO l_line+122.
  443. *    tmp_size = gs_lineinfo-linsz - 24.
  444. *    write sy-uline to l_line+24(tmp_size).
  445.     WRITE sy-vline  TO l_line+133.
  446.     WRITE sy-vline  TO l_line+144.
  447.     WRITE sy-vline  TO l_line+155.
  448.     WRITE sy-vline  TO l_line+166.
  449.     WRITE sy-vline  TO l_line+177.
  450.     WRITE sy-vline TO l_line+188.
  451.     WRITE sy-vline TO l_line+199.
  452.     WRITE sy-vline TO l_line+210.
  453.     WRITE sy-vline TO l_line+221.
  454.     WRITE sy-vline TO l_line+232.
  455.     WRITE sy-vline TO l_line+243.
  456.     WRITE sy-vline TO l_line+254.
  457.     MODIFY LINE 6 LINE VALUE FROM l_line LINE FORMAT COLOR OFF.
  458.   ENDIF.
  459. ENDFORM.                    "AFTER_LINE_OUTPUT
  460. *&--------------------------------------------------------------------*
  461. *&      Form  F_TOP_OF_PAGE
  462. *&--------------------------------------------------------------------*
  463. *     给ALV表头输出预留行空间
  464. *---------------------------------------------------------------------*
  465. FORM f_top_of_page.
  466.   WRITE : / sy-uline,
  467.           / sy-uline,
  468.           / sy-uline,
  469.           / sy-uline.
  470. ENDFORM.                    "F_TOP_OF_PAGE
  471. *&---------------------------------------------------------------------*
  472. *&      Form  input_data
  473. *&---------------------------------------------------------------------*
  474. *       text
  475. *----------------------------------------------------------------------*
  476. *  测试用
  477. *----------------------------------------------------------------------*
  478. FORM input_data .
  479.   itb_output-maktx = 'BCD-108A' .
  480.   itb_output-plnmg_f_m = 1000 .
  481.   itb_output-gmnga_czhxt = 380 .
  482.   itb_output-gmnga_zj = 200 .
  483.   itb_output-bzjhc = '10'.
  484.   itb_output-gmnga_zj1 = '100'.
  485.   APPEND itb_output .
  486. ENDFORM.                    " input_data
复制代码


执行效果
alv list 实现alv多表头.png
alv, 表头, 多表头, 双表头

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 846 主题
  2. 125 回帖
  3. 11241 积分
发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-11-23 15:56 , Processed in 0.056015 second(s), 8 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.5

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表