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

REPORT Z_BARRY_ALV_HEADER .
　　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'

i_html_height_top= 20. "这句话加上表头的高度,要不然会自动出现滚动条

　　is_layout = wa_layout
　　it_fieldcat = it_fieldcat

　　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.
　　text = 'Company Code Data'.
　　CALL METHOD document->add_text
　　EXPORTING
　　text = text
　　sap_style = 'HEADING'.
　　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.
　　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.
　　ENDFORM. "HTML_TOP_OF_PAGE
　　
　　
　　方法二：
　　REPORT z_barry_alv_toolbar .
　　CONSTANTS: gc_grid_title(20) TYPE c VALUE '带自定义工具栏的ALV GRID模版'.
　　TYPE-POOLS: slis.
　　DATA: gd_fieldcat TYPE slis_t_fieldcat_alv.
　　DATA: sla TYPE slis_layout_alv ,
　　ivariant LIKE disvariant,
　　i_repid LIKE sy-repid .
　　DATA : gt_events TYPE slis_t_event.
　　DATA: itab_event TYPE slis_t_event,
　　fld_event TYPE slis_alv_event,
　　fld_head TYPE slis_listheader,
　　itab_listhead TYPE slis_t_listheader.
　　DATA: BEGIN OF itab OCCURS 0,
　　f(10) TYPE c,
　　END OF itab.
　　*PARAMETERS: P_ .
　　*SELECT-OPTIONS: S_ .
　　START-OF-SELECTION.
　　PERFORM getdata.
　　PERFORM fixdata.
　　PERFORM outdata.
　　*&---------------------------------------------------------------------*
　　*& Form GETDATA
　　*&---------------------------------------------------------------------*
　　FORM getdata.
　　itab-f = 'Test data'.
　　APPEND itab.
　　ENDFORM. " GETDATA
　　*&---------------------------------------------------------------------*
　　*& Form FIXDATA
　　*&---------------------------------------------------------------------*
　　FORM fixdata.
　　ENDFORM. " FIXDATA
　　*&---------------------------------------------------------------------*
　　*& Form outdata
　　*&---------------------------------------------------------------------*
　　FORM outdata.
　　PERFORM fieldcat_init .
　　sla-colwidth_optimize = 'X'.
　　sla-zebra = 'X'.
　　i_repid = sy-repid.
　　SET TITLEBAR '100' WITH gc_grid_title.
　　PERFORM frm_alv_header.
　　CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
　　EXPORTING
　　i_callback_program = i_repid
　　it_fieldcat = gd_fieldcat[]
　　i_save = 'A'
　　is_variant = ivariant
　　is_layout = sla
　　i_callback_user_command = 'USER_COMMAND'
　　i_callback_pf_status_set = 'SET_STATUS'
　　it_events = gt_events
　　TABLES
　　t_outtab = itab[].
　　ENDFORM. " outdata
　　*---------------------------------------------------------------------*
　　* FORM fieldcat_init *
　　*---------------------------------------------------------------------*
　　FORM fieldcat_init .
　　PERFORM frm_catlg_set USING: 'F' 'Test Filed' .
　　ENDFORM. "fieldcat_init
　　*---------------------------------------------------------------------*
　　* FORM frm_catlg_set *
　　*---------------------------------------------------------------------*
　　FORM frm_catlg_set USING p_field
　　p_text.
　　DATA: ls_fieldcat TYPE slis_fieldcat_alv.
　　ls_fieldcat-fieldname = p_field.
　　ls_fieldcat-seltext_l = p_text.
　　APPEND ls_fieldcat TO gd_fieldcat .
　　CLEAR ls_fieldcat .
　　ENDFORM. "frm_catlg_set
　　*&--------------------------------------------------------------------*
　　*& Form user_command
　　*&--------------------------------------------------------------------*
　　FORM user_command USING r_ucomm LIKE sy-ucomm
　　rs_selfield TYPE slis_selfield.
　　READ TABLE itab INDEX rs_selfield-tabindex.
　　CASE r_ucomm.
　　WHEN '&IC1'. "双击
　　WHEN 'EXIT'.
　　LEAVE PROGRAM.
　　ENDCASE.
　　ENDFORM. "user_com
　　*&--------------------------------------------------------------------*
　　*& Form set_status
　　*&--------------------------------------------------------------------*
　　FORM set_status USING rt_extab TYPE slis_t_extab.
　　CLEAR rt_extab.
　　REFRESH rt_extab.
　　* APPEND '&ALL' TO rt_extab .
　　* APPEND '&SAL' TO rt_extab .
　　SET PF-STATUS 'STANDARD' EXCLUDING rt_extab . "copy from "SAPLKKBL" STANDARD GUI status
　　ENDFORM. "set_status
　　**********************************************
　　FORM frm_alv_header.
　　*Title
　　fld_head-typ = 'H'.
　　fld_head-info = 'HEIHEI'.
　　APPEND fld_head TO itab_listhead.
　　CLEAR fld_head.
　　*PROGRAM ID:
　　fld_head-typ = 'S'.
　　fld_head-key = 'KEY'.
　　fld_head-info = 'INFO '.
　　APPEND fld_head TO itab_listhead.
　　CLEAR fld_head.
　　CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
　　EXPORTING
　　i_list_type = 0
　　IMPORTING
　　et_events = gt_events
　　EXCEPTIONS
　　list_type_wrong = 1.
　　IF sy-subrc <>0.
　　MESSAGE 'ERROR' TYPE 'E' .
　　ENDIF.
　　READ TABLE gt_events WITH KEY name = slis_ev_top_of_page
　　INTO fld_event.
　　IF sy-subrc = 0.
　　fld_event-form = 'FRM_TOP_OF_PAGE'.
　　APPEND fld_event TO gt_events .
　　ENDIF.
　　ENDFORM. " FRM_ALV_HEADER
　　*&--------------------------------------------------------------------*
　　*& Form FRM_TOP_OF_PAGE
　　*&--------------------------------------------------------------------*
　　* text
　　*---------------------------------------------------------------------*
　　FORM frm_top_of_page.
　　CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
　　EXPORTING
　　it_list_commentary = itab_listhead
　　i_logo = 'TEST_BTZ' "SE78
　　i_end_of_list_grid = '.

　　ENDFORM. " FRM_TOP_OF_PAGE

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

ALV 简单实现HTML抬头的方法（介绍一）
HTML的表头虽然比较方便,还可以设置高度,但是打印预览不显示表头,且导出到EXCEL,WORD,HTML都没有表头的. REPORT ZTESTLP_0105. TABLES : t001. TY ...
企业微信如何设置发票抬头管理员在企业微信设置发票抬头的方法介绍
企业微信如何设置发票抬头?公司的发票抬头在企业微信中是由管理员在后台进行设置的,接下来的文章中小编将会带来详细的操作流程,感兴趣的朋友不要错过哦! 管理员在企业微信设置发票抬头的方法介绍 1.管理员在 ...
蒙特卡罗方法介绍( 二)
蒙特卡罗方法介绍( 二) 一.蒙特卡罗求解定积分蒙特卡洛方法求解定积分有两种方法,一种是上一节中讲的投点法,另外一种是期望法(也称平均值法). 1.1 投点法给出如下曲线f(x)f(x)f(x), ...
一种非常简单的静态网页生成方法介绍
一.目前的静态页生成方法有简单的模板替换.常见的ASP+FSO等,这里给大家介绍一种更简单的方法.原理就是借助XMLHTTP对象获取目标页面的源代码,然后写入到静态网页文件中.代码如下: Code D ...
简单易上手的理财方法介绍
在谈论理财之前呢,咱们应该了解一个概念,就是通货膨胀.简单来说,就是市面上面的钱越来越多,但是实际的物质并没有出现增长,反映到我们的生活就是物价越来越贵.在这种情况下面,如果我们的工资并没有出现太大的 ...
KT148A语音芯片音频的生成和压缩以及简单修音_合成方法介绍_V3
目录一.简介 2.1 初级篇--争对录制样机的音源方法 2.1 中级篇--使用语音合成 2.3 高级篇--直接真人录音三.音频的压缩方法四.音频的修饰 4.1 多个音频的叠加 4.2 调整音频文 ...
气象数据分析之EMD方法介绍及python的实现
文章目录前言一.EMD方法介绍二.在python中的实现 1.引入库 2.生成一个随机的信号 3.做EMD分解,提取IMF和res 4.可视化最后前言经验模态分解(Empirical Mo ...
常见APP攻击方法以及防御方法介绍(移动安全)
一.常见APP攻击风险以及防御方法介绍二.APP攻击以及防御方法案例讲解 1.基于组件攻击 - 应用劫持用户打开安卓手机上的某一应用,这时,恶意软件侦测到用户的这一动作,如果立即弹出一个与该应用 ...
用php绘制一个五角星,用CAD简单绘制一个立体五角星方法
随着人均受教育的水平越来越高,或者说工科男越来越多...CAD在的应用在目前越来越大众化,大到建筑.机械的设计,小到简单图形的绘制及导出,都离不开CAD的身影,这里我主要通过一个绘制五角星的实例来讲解 ...

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

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

最新文章

热门文章

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

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

最新文章

热门文章

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

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