SAP alv（lvc）的抬头标题设定（html_top_of_page）

对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=" ">' &   '<SPAN Style="FONT-SIZE: 12pt; COLOR: black; FONT-FAMILY: Arial; ">'   & '<br /><B>'   && '工厂 :'  && p_werks  && '</B> <BR>'.   APPEND ls_htmltab TO w_doc->html_table.   CLEAR ls_htmltab.   ls_htmltab-line =   '<br /><B>'   && '未维护比例：'  && gv_perct && '</B> </<BR></SPAN>'.   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

效果图如下：