FORM frm_html_top_of_page USING cl_dd TYPE REF TO cl_dd_document.

  DATA: m_p TYPE i.

  DATA: m_buff TYPE string.

  DATA:m_kunnr TYPE string.

  DATA:m_bukrs TYPE string.

  SELECT SINGLE name1 INTO m_kunnr FROM kna1 WHERE kunnr IN s_kunnr.

  CONCATENATE '客户：' m_kunnr '对账单' INTO m_kunnr.

*表头其实完全可以是一个html文件，自己使用html语言进行格式控制

  m_buff = '<html>'.

  CALL METHOD cl_dd->html_insert

    EXPORTING

      contents = m_buff

    CHANGING

      position = m_p.

  SELECT SINGLE butxt INTO m_bukrs FROM t001 WHERE bukrs IN s_bukrs.

  CONCATENATE '<center><H2>' m_bukrs  '</H2></Center>' INTO m_buff.

  CALL METHOD cl_dd->html_insert

    EXPORTING

      contents = m_buff

    CHANGING

      position = m_p.

  CONCATENATE '<center><H3>' m_kunnr  '</H3></Center>' INTO m_buff.

  CALL METHOD cl_dd->html_insert

    EXPORTING

      contents = m_buff

    CHANGING

      position = m_p.

  CONCATENATE '<center>对账日期：' sy-datum+() '年' sy-datum+() '月'  sy-datum+() '日' '</Center>' INTO m_buff.

  CALL METHOD cl_dd->html_insert

    EXPORTING

      contents = m_buff

    CHANGING

      position = m_p.

  m_buff = '</html>'.

  CALL METHOD cl_dd->html_insert

    EXPORTING

      contents = m_buff

    CHANGING

      position = m_p.

  gv_company_name = m_bukrs.

  gv_customer_name = m_kunnr.

  gv_date = '对账日期：' && sy-datum+() && '年' && sy-datum+() && '月' &&  sy-datum+() && '日'.

ENDFORM.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      i_callback_program          = sy-repid

      i_callback_pf_status_set    = 'FRM_PF_STATUS'

      i_callback_user_command     = 'FRM_USER_COMMAND'

      i_callback_html_top_of_page = 'FRM_HTML_TOP_OF_PAGE'

      is_layout                   = ls_layout

      it_fieldcat                 = gt_fieldcat

*     IT_SORT                     = GT_SORT

      i_default                   = 'X'

      i_save                      = 'A'

    TABLES

      t_outtab                    = gt_show

    EXCEPTIONS

      program_error               =

      OTHERS                      = .

  IF sy-subrc <> .

* Implement suitable error handling here

  ENDIF.

ALV表头HTML实现的更多相关文章

  1. ABAP ALV表头的实现

    ABAP实现ALV表头的DEMO: 效果: 源代码: *&------------------------------------------------------------------- ...

  2. ALV 表头 ADD_TEXT

    [转自http://lz357502668.blog.163.com/blog/static/16496743201252891452493/] CALL METHOD valid_reference ...

  3. ALV报表——表头实现

    ABAP实现ALV表头的DEMO: 运行效果: 代码: *********************************************************************** ...

  4. ALV常用参数详细描述

    调用功能模块: CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_interface_check        = ''               ...

  5. SAP PP 生产订单变更记录保存

    *&---------------------------------------------------------------------* *& 包括 ZXCO1U01 *&am ...

  6. 20170111 ABAP技术小结（全半角转换）

    DATA: it_po LIKE it_alv OCCURS 0 WITH HEADER LINE.************************************************** ...

  7. ALV的html表头

    在ALV的function的exporting里添加属性: I_CALLBACK_HTML_TOP_OF_PAGE = alv_top_of_page 定义form响应上述ALV属性 *&-- ...

  8. GRID方式ALV导出数据到本地丢掉最后一位的问题

    这是SAP的一个Bug,FM方式ALV Grid和Class ALV Grid都会出现,但是ALV List好像没有这个BUG.   在以下几个条件满足的时候就会出现这个问题: 1.字段对应的域Con ...

  9. ALV详解：Function ALV（二）

    声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...

随机推荐

  1. 成都PC网站建设需要考虑哪些费用呢

    亿合科技PC建设小编分享下:成都PC网站建设需要考虑哪些费用呢?随互联网的发展,越来越多人想建设自己网站,站长最关心的问题之一就是网站建设需要多少钱.每个网站建设的费用都是不一样的,但是都需要涵盖几个 ...

  2. Mysql数据库优化

    to be add... --------------------------------------------------------------------------------------- ...

  3. javascript jsscript .js xml html json soap

    javascript ecma标准的脚本语言用于 jsscript 微软标准的一种脚本语言 .js javascript或jsscript保存成文件的形式可用于在html里重复引用 jsscript只 ...

  4. 7.$a = 'abcdef'; 请取出$a的值并打印出第一个字母

    echo $a[0]; echo $a{0}; echo chr(ord($a));//先输出$a字符串里的第一个字符的ASCII值 再从指定的 ASCII 值返回字符.

  5. jq 解析josn字符串

    1. var obj = jQuery.parseJSON("${ruleModel.rules}"); 2. var obj = eval("("+" ...

  6. 设置IE默认文本模式的方法

    设置IE默认文本模式的方法 <meta http-equiv="X-UA-Compatible" content="IE=8" /> IE=5.6. ...

  7. go log repl

    package main import ( "fmt" "os/exec" "regexp" "strconv" &qu ...

  8. win10查看连接过的wifi密码

    cmd窗口 运行   “netsh wlan show profiles name="linasd" key=clear”

  9. lua table 排序--满足多条件排序

    前提 假设 一个小怪 有三种属性,等级(level).品质(quality).id(pid) 我们需要对他们进行排序,两种排序情况,第一是单一属性排序,比如按照等级进行排序,或者多种属性进行优先级排序 ...

  10. gfortran、g77等编译器中使用多个文件

    gfortran aaaa.f90 bbbb.f90 -o cccc (生成cccc可执行文件,cccc名称可自由设定) 又可以分成两步,因为gfortran先把程序文件编译成*.o文件,再把*.o文 ...