以下是纯顾问群~
微信群:SAP干货铺,请联系本人微信 sapliumeng。
QQ群:SAP干货铺,群号:775662808
所有群管理严格,严格禁止一切外来链接、招聘、广告等垃圾信息!
如果您觉得这篇干货文章有用,请帮忙转载、分享给更多人,谢谢~
直接上干货吧~
最终效果图:
点击超链接后:
直接上参考代码吧:
REPORTZLM_ALV013.
DATA:GT_DATATYPETABLEOFSPFLI.
DATA:GS_LAYOUTTYPESLIS_LAYOUT_ALV.
START-OF-SELECTION.
"获取数据
SELECT*FROMSPFLIINTOTABLEGT_DATA.
"展示数据
GS_LAYOUT-COLWIDTH_OPTIMIZE='X'.
GS_LAYOUT-ZEBRA='X'.
CALLFUNCTION'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM=SY-REPID
I_CALLBACK_HTML_TOP_OF_PAGE='HTML_TOP_OF_PAGE'
I_HTML_HEIGHT_TOP=40"控制表头栏目的初始高度
IS_LAYOUT=GS_LAYOUT
I_STRUCTURE_NAME='SPFLI'
TABLES
T_OUTTAB=GT_DATA
EXCEPTIONS
PROGRAM_ERROR=1
OTHERS=2.
*&TOP_OF_PAGE
FORMHTML_TOP_OF_PAGEUSINGDOCUMENTTYPEREFTOCL_DD_DOCUMENT.
DATA:TEXTTYPESDYDO_TEXT_ELEMENT.
DATA:M_PTYPEI,
M_BUFFERTYPESTRING.
CLEARM_BUFFER.
CONCATENATE
''
'
'"标题剧中h1默认就是加粗
''"颜色红色
''"字体大小5像素
'SAP干货铺'"文本
''
''
''
''
INTOM_BUFFER.
"使用htmlinsertcss布局保证了标题永远居中
CALLMETHODDOCUMENT->HTML_INSERT
EXPORTING
CONTENTS=M_BUFFER
CHANGING
POSITION=M_P.
CLEARM_BUFFER.
CONCATENATE
''
'
'"右对齐
''"蓝色,
''"大小
''"斜体
''"加粗
'SAP干货铺测试'"文本
''
''
''
''
'
'
''
INTOM_BUFFER.
CALLMETHODDOCUMENT->HTML_INSERT
EXPORTING
CONTENTS=M_BUFFER
CHANGING
POSITION=M_P.
CLEARM_BUFFER.
CONCATENATE
''
'
'"对齐方式
''"颜色
''"大小
*''"斜体
*''"加粗
'SAP干货铺测试'"文本
*''
*''
''
''
'
'
''
INTOM_BUFFER.
CALLMETHODDOCUMENT->HTML_INSERT"
EXPORTING
CONTENTS=M_BUFFER
CHANGING
POSITION=M_P.
CLEARM_BUFFER.
CONCATENATE
''
'
'"对齐方式
''"颜色
''"大小
''"斜体
''"加粗
'SAP干货铺测试'"文本
''
''
''
''
'
'
''
INTOM_BUFFER.
CALLMETHODDOCUMENT->HTML_INSERT"
EXPORTING
CONTENTS=M_BUFFER
CHANGING
POSITION=M_P.
TEXT ='欢迎关注公众号:SAP干货铺'.
CALLMETHODDOCUMENT->ADD_TEXT
EXPORTING
TEXT=TEXT
SAP_STYLE=CL_DD_DOCUMENT=>SUCCESS"WARNING
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.
"添加超链接
CALLMETHODDOCUMENT->ADD_LINK
EXPORTING
URL='https://mp./s/7l7E1ZNYRnPNfezPZKRA8Q'
TOOLTIP='欢迎访问干货铺'
TEXT='双击访问SAP干货铺Debug系列文章'.
CALLMETHODDOCUMENT->NEW_LINE.
"DrawanunderLine下划线
CALLMETHODDOCUMENT->UNDERLINE.
*&----------日期
"添加图标
CALLMETHODDOCUMENT->ADD_ICON
EXPORTING
SAP_ICON='ICON_DATE'."到ICON表中找就行
TEXT='Date:'.
CALLMETHODDOCUMENT->ADD_TEXT"添加文本
EXPORTING
TEXT=TEXT
SAP_EMPHASIS='Strong'."加粗
CALLMETHODDOCUMENT->ADD_GAP
EXPORTING
WIDTH=1."两个空格
TEXT=SY-DATUM..
CALLMETHODDOCUMENT->ADD_TEXT
EXPORTING
TEXT=TEXT
SAP_EMPHASIS='Strong'."加粗
CALLMETHODDOCUMENT->ADD_GAP
EXPORTING
WIDTH=6."6个空格
*&----------时间
"添加图标
CALLMETHODDOCUMENT->ADD_ICON
EXPORTING
SAP_ICON='ICON_TIME'."到ICON表中找就行
TEXT='Time:'.
CALLMETHODDOCUMENT->ADD_TEXT
EXPORTING
TEXT=TEXT
SAP_EMPHASIS=''."
CALLMETHODDOCUMENT->ADD_GAP
EXPORTING
WIDTH=1.
TEXT=SY-UZEIT..
CALLMETHODDOCUMENT->ADD_TEXT
EXPORTING
TEXT=TEXT
SAP_EMPHASIS=''."
"添加新行
CALLMETHODDOCUMENT->NEW_LINE.
ENDFORM."HTML_TOP_OF_PAGE
请点击右下角“在看” 告诉我你曾来过~谢谢
abap alv新增行数据_ALV DMEO 09:REUSE_ALV_GRID_DISPLAY 使用HTML 居中 颜色大小 加粗 斜体 超链接 控制...