【转载】SAP ALV（LVC）的抬头标题设定（html_top_of_page）

最新推荐文章于 2025-05-26 12:59:00 发布

转载最新推荐文章于 2025-05-26 12:59:00 发布 · 2.5k 阅读

ABAP4 专栏收录该内容

152 篇文章

订阅专栏

本文介绍两种在ABAP中设置ALV网格显示抬头标题的方法：一是使用cl_dd_document类添加文本元素；二是直接编写HTML代码插入到ALV网格的头部，展示项目基本信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

对alv的抬头标题设置方法

方法1：通过class：cl_dd_document设定
call alv
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program          = sy-repid
      i_callback_pf_status_set    = 'FRM_PF_STATUS_SET'
      i_callback_user_command     = 'FRM_USER_COMMAND'
      i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'
      is_layout_lvc               = gwa_lay
      it_fieldcat_lvc             = gt_fcat
    TABLES
      t_outtab                    = gt_list.

定义子程序（form）
*&---------------------------------------------------------------------*
*&      Form  html_top_of_page
*&---------------------------------------------------------------------*
FORM html_top_of_page USING document TYPE REF TO cl_dd_document.

  DATA: text TYPE sdydo_text_element.
  LOOP AT gt_proj INTO gwa_proj.
    text = text-010.                  "项目编号
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text = gwa_proj-pspid.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.  "加粗还是斜体  STRONG是加粗

    CALL METHOD document->add_gap
      EXPORTING
        width = 40.

    text = text-011.                   "项目名称
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text = gwa_proj-post1.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->new_line.
    CALL METHOD document->underline.   "Draw  an underLine

    text = text-012.                   "SOP时间
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text = gwa_proj-zsopsj.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 40.

    text = text-013.                   "客户名称
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text =  gwa_proj-zzjkh.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 40.
    text = text-014.                   "厂房模式
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text =  gwa_proj-zcfms.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.

CALL METHOD document->new_line.
CALL METHOD document->underline. "Draw an underLine

    text = text-015.                   "公司性质
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text = gwa_proj-zgsxz.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 40.

    text = text-016.                   "客户产能
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text =  gwa_proj-zkhcn.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 40.
    text = text-017.                   "客户启动会议日期
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    text =  gwa_proj-zqdhysj.
    CALL METHOD document->add_text
      EXPORTING
        text         = text
        sap_emphasis = text-052.
    CALL METHOD document->add_gap
      EXPORTING
        width = 2.
    CALL METHOD document->new_line.
    CALL METHOD document->underline.   "Draw  an underLine

  ENDLOOP.
ENDFORM.                    "HTML_TOP_OF_PAGE

效果图如下：

方法2：通过编写html代码实现
*&---------------------------------------------------------------------*
*&      Form  top_of_page
*&---------------------------------------------------------------------*
*       top_of_page
*----------------------------------------------------------------------*
FORM top_of_page USING w_doc TYPE REF TO cl_dd_document.
  DATA: lt_html_table    TYPE sdydo_html_line OCCURS 0.
  DATA: ls_htmltab       LIKE LINE OF lt_html_table.

REFRESH w_doc->html_table.

ls_htmltab-line =
 '<HTML><BODY bottommargin="0" background=" ">' &
 ''
 & ' '
 && '工厂 :' && p_werks && ' '.
 APPEND ls_htmltab TO w_doc->html_table.

CLEAR ls_htmltab.
 ls_htmltab-line =
 ' '
 && '未维护比例：' && gv_perct && ' </ '.
 APPEND ls_htmltab TO w_doc->html_table.

CLEAR ls_htmltab.
 ls_htmltab-line = '</BODY></HTML>'.
 APPEND ls_htmltab TO w_doc->html_table.

ENDFORM. "top_of_page

效果图如下：
---------------------
作者：forever_crazy
来源：优快云
原文：https://blog.youkuaiyun.com/forever_crazy/article/details/19802199
版权声明：本文为博主原创文章，转载请附上博文链接！