ALV 简单实现HTML抬头的方法（介绍一）

HTML的表头虽然比较方便,还可以设置高度,但是打印预览不显示表头,且导出到EXCEL,WORD,HTML都没有表头的.

REPORT ZTESTLP_0105.
TABLES : t001.
TYPE-POOLS: slis.

DATA : w_repid LIKE sy-repid.
TYPES : BEGIN OF ty_comp.
INCLUDE STRUCTURE t001.
TYPES : END OF ty_comp.

DATA: wa_layout TYPE slis_layout_alv.

DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat TYPE slis_fieldcat_alv.

DATA : it_comp TYPE TABLE OF ty_comp.

INITIALIZATION.
w_repid = sy-repid.

START-OF-SELECTION.

SELECT * FROM t001 INTO TABLE it_comp.

END-OF-SELECTION.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = w_repid
      i_internal_tabname     = 'IT_COMP'
      I_STRUCTURE_NAME       = 'T001'
      i_inclname             = w_repid
    CHANGING
      ct_fieldcat            = it_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program          = w_repid
      i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'    " 调用ALV表头显示FORM——html_top_of_page
      is_layout                   = wa_layout
      it_fieldcat                 = it_fieldcat
      I_HTML_HEIGHT_TOP           =  25             " 设置抬头宽度
    TABLES
      t_outtab                    = it_comp
    EXCEPTIONS
      program_error               = 1
      OTHERS                      = 2.

*&---------------------------------------------------------------------*
*& Form html_top_of_page
*&---------------------------------------------------------------------*

FORM html_top_of_page USING document TYPE REF TO cl_dd_document.

DATA: text TYPE sdydo_text_element.
DATA: m_p TYPE i ,
m_buffer TYPE string .

CONCATENATE  '<HTML><CENTER><H1>' 'ALV_HTML表头' '测试' '</H1></CENTER></HTML>' INTO m_buffer.  " 居中  <H1>设置字体格式
  CALL METHOD document->html_insert
    EXPORTING
      contents = m_buffer
    CHANGING
      position = m_p
                    .

" 输出制表人和制表日期
  CONCATENATE '<P ALIGN = CENTER >出表人： ' 'XX'
*            '                  '    ' '
*            '                  '
*            '                  '
*            '                  '
*            '                  '
*            '                  '
            ' 出表日期：' sy-datum INTO m_buffer .

CALL METHOD document->html_insert
    EXPORTING
      contents = m_buffer
    CHANGING
      position = m_p.

CALL METHOD document->new_line.
   CALL METHOD document->add_link
    EXPORTING
*      NAME                   =
      url                    = 'http://www.baidu.com'
      tooltip                = '百度'
      text                   = 'BaiDu连接'.
  CALL METHOD document->new_line.

text =  'Company Code Data'.
  CALL METHOD document->add_text
    EXPORTING
      text      = text
      sap_style = 'HEADING'               " 显示文字的STYLE设置
      sap_color = cl_dd_document=>list_total_int
      sap_fontsize    = cl_dd_document=>large
      sap_fontstyle   = cl_dd_document=>serif
      sap_emphasis    = cl_dd_document=>emphasis
      .

CALL METHOD document->new_line. "换行
CALL METHOD document->new_line.

text = 'User Name : '.
  CALL METHOD document->add_text      "插入文本
    EXPORTING
      text         = text
      sap_emphasis = 'Strong'.

CALL METHOD document->add_gap      "插入位置
    EXPORTING
      width = 2.

text = sy-uname.
  CALL METHOD document->add_text
    EXPORTING
      text      = text
      sap_style = 'Key'.

CALL METHOD document->add_gap
EXPORTING
width = 10.

CALL METHOD document->add_icon     " 插入图片
    exporting
      sap_icon = 'ICON_DATE'.

text = 'Date : '.
  CALL METHOD document->add_text
    EXPORTING
      text         = text
      sap_emphasis = 'Strong'.

CALL METHOD document->add_gap
EXPORTING
width = 2.

text = sy-datum.
  CALL METHOD document->add_text
    EXPORTING
      text      = text
      sap_style = 'Key'.

CALL METHOD document->add_gap
EXPORTING
width = 10.

text = 'Time : '.
  CALL METHOD document->add_text
    EXPORTING
      text         = text
      sap_emphasis = 'Strong'.

CALL METHOD document->add_gap
EXPORTING
width = 2.

text = sy-uzeit.
  CALL METHOD document->add_text
    EXPORTING
      text      = text
      sap_style = 'Key'.

CALL METHOD document->new_line.

CALL METHOD document->underline. "画一条横线
ENDFORM. "HTML_TOP_OF_PAGE

显示结果：

ALV 简单实现HTML抬头的方法（介绍一）相关推荐

ALV 简单实现HTML抬头的方法（介绍二）
REPORT Z_BARRY_ALV_HEADER . TABLES : t001. TYPE-POOLS: slis. DATA : w_repid LIKE sy-repid. TYPES ...
企业微信如何设置发票抬头管理员在企业微信设置发票抬头的方法介绍
企业微信如何设置发票抬头?公司的发票抬头在企业微信中是由管理员在后台进行设置的,接下来的文章中小编将会带来详细的操作流程,感兴趣的朋友不要错过哦! 管理员在企业微信设置发票抬头的方法介绍 1.管理员在 ...
一种非常简单的静态网页生成方法介绍
一.目前的静态页生成方法有简单的模板替换.常见的ASP+FSO等,这里给大家介绍一种更简单的方法.原理就是借助XMLHTTP对象获取目标页面的源代码,然后写入到静态网页文件中.代码如下: Code D ...
简单易上手的理财方法介绍
在谈论理财之前呢,咱们应该了解一个概念,就是通货膨胀.简单来说,就是市面上面的钱越来越多,但是实际的物质并没有出现增长,反映到我们的生活就是物价越来越贵.在这种情况下面,如果我们的工资并没有出现太大的 ...
KT148A语音芯片音频的生成和压缩以及简单修音_合成方法介绍_V3
目录一.简介 2.1 初级篇--争对录制样机的音源方法 2.1 中级篇--使用语音合成 2.3 高级篇--直接真人录音三.音频的压缩方法四.音频的修饰 4.1 多个音频的叠加 4.2 调整音频文 ...
用php绘制一个五角星,用CAD简单绘制一个立体五角星方法
随着人均受教育的水平越来越高,或者说工科男越来越多...CAD在的应用在目前越来越大众化,大到建筑.机械的设计,小到简单图形的绘制及导出,都离不开CAD的身影,这里我主要通过一个绘制五角星的实例来讲解 ...
python简单代码画曲线图教程-Python绘制折线图和散点图的详细方法介绍（代码示例）...
本篇文章给大家带来的内容是关于Python绘制折线图和散点图的详细方法介绍(代码示例),有一定的参考价值,有需要的朋友可以参考一下,希望对你有所帮助. 1.绘制折线图和散点图要用到matplotlib ...
linux下录音识别成文字软件,如何将录音转换成文字？录音转文字简单方法介绍...
如何将录音转换成文字?录音转文字简单的方法是什么?很多小伙伴对录音转文字,文字阿欢语音方便的需求还是蛮大的,因为它对我们的帮助还是蛮大的,可以快速把录制好的录音转换成文字,并且还有实时翻译功能,下面给 ...
PDF是如何在线分割的？简单方法介绍
PDF在线分割的简单方法介绍,我们是怎么在线分割的呢?在PDF文件中我们可以进行文件的分割,下面小编就简单给打击介绍一下将PDF文件在线分割的方法. PDF文件在线分割的简单方法是直接在线分割,可以进 ...

ALV 简单实现HTML抬头的方法（介绍一）

ALV 简单实现HTML抬头的方法（介绍一）相关推荐

最新文章

热门文章

ALV 简单实现HTML抬头的方法 （介绍 一）

ALV 简单实现HTML抬头的方法 （介绍 一）相关推荐

最新文章

热门文章

ALV 简单实现HTML抬头的方法（介绍一）

ALV 简单实现HTML抬头的方法（介绍一）相关推荐