WWW_ITAB_TO_HTML

WWW_ITAB_TO_HTML

Hallo zusammen,

hat jemand ein funktionierendes Beispiel für den Funktionsbaustein WWW_ITAB_TO_HTML.

Habe schon mehrere versuche unternommen, aber im html control wird nur der Quellcode angezeigt und nicht das aufbereitete HTML document.

Vielen Dank

Dieter

WWW_ITAB_TO_HTML

Hallo LoLo, anbei beispielcoding

Danke
Dieter



REPORT Z_HTML .

include <icon>.

types: begin of msg,
type like icon-id,
text(140) type c,
end of msg.

constants: gc_marked type c value 'X',
gc_ok like icon-id value '@5B@'.

data:
gt_msg type standard table of msg,
gs_msg like line of gt_msg,
gv_msg(138) type c,

*-- html
html_container type ref to cl_gui_custom_container,
html_control type ref to cl_gui_html_viewer,

my_row_header like w3head occurs 10 with header line,
my_fields like w3fields occurs 10 with header line,
my_header like w3head,

my_html type standard table of w3html ,

ok_code like sy-ucomm.


*-------------------------------------------------------------------*
* Start of Selection *
*-------------------------------------------------------------------*
start-of-selection.
clear gv_msg.
gv_msg = 'MESSAGES for HTML'.
do 3 times.
perform message using gc_ok gv_msg .
enddo.
*-------------------------------------------------------------------*
* End of Selection *
*-------------------------------------------------------------------*

end-of-selection.

set screen 0100.

*&---------------------------------------------------------------------*
*& Form message
*&---------------------------------------------------------------------*
form message using p_type
p_text.

clear gs_msg.
gs_msg-type = p_type.
gs_msg-text = p_text.
append gs_msg to gt_msg.

endform. " MESSAGE


*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
module status_0100 output.

perform convert_itab_html.

set titlebar '100' .
set pf-status 'MAIN100'.

create object html_container
exporting
container_name = 'CONTAINER'.

create object html_control
exporting
parent = html_container
saphtmlp = gc_marked .


data: assigned_url type url.

call method html_control->load_data
* EXPORTING
* URL = url
* TYPE = 'text'
* SUBTYPE = 'html'
* SIZE = 0
* ENCODING =
* CHARSET =
importing
assigned_url = assigned_url
changing
data_table = my_html
* EXCEPTIONS
* DP_INVALID_PARAMETER = 1
* DP_ERROR_GENERAL = 2
* CNTL_ERROR = 3
* others = 4
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.

call method html_control->show_url
exporting
url = assigned_url
* FRAME =
* IN_PLACE = ' X'
* EXCEPTIONS
* CNTL_ERROR = 1
* CNHT_ERROR_NOT_ALLOWED = 2
* CNHT_ERROR_PARAMETER = 3
* DP_ERROR_GENERAL = 4
* others = 5
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.


endmodule. " STATUS_0100 OUTPUT



*&---------------------------------------------------------------------*
*& Module exit INPUT
*&---------------------------------------------------------------------*
module exit input.
leave program.
endmodule. " exit INPUT

*&---------------------------------------------------------------------*
*& Module user_command_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module user_command_0100 input.

case ok_code.
when 'EXIT' or 'BACK'.
leave program.
when others.
call method cl_gui_cfw=>dispatch.
endcase.

endmodule. " user_command_0100 INPUT



*&---------------------------------------------------------------------*
*& Form convert_itab_html
*&---------------------------------------------------------------------*
form convert_itab_html.

data: lv_tabix like sy-tabix.

*-- table header
call function 'WWW_ITAB_TO_HTML_HEADERS'
exporting
field_nr = 1
text = 'Type'
fgcolor = 'navy'
bgcolor = 'red'
font = 'Arial'
tables
header = my_row_header.

call function 'WWW_ITAB_TO_HTML_HEADERS'
exporting
field_nr = 2
text = 'Message'
fgcolor = 'navy'
bgcolor = 'red'
font = 'Arial'
tables
header = my_row_header.

*-- table rows
clear lv_tabix.
loop at gt_msg into gs_msg.
lv_tabix = sy-tabix.
call function 'WWW_ITAB_TO_HTML_LAYOUT'
exporting
field_nr = 1
line_nr = lv_tabix
icon = gc_marked
tables
fields = my_fields.

call function 'WWW_ITAB_TO_HTML_LAYOUT'
exporting
field_nr = 2
line_nr = lv_tabix
fgcolor = 'red'
bgcolor = 'black'
font = 'Arial'
size = '2'
tables
fields = my_fields.
endloop.

*-- header
move 'Messages during program run' to my_header-text.
move 'Arial' to my_header-font.
move '2' to my_header-size.
move 'Centered' to my_header-just.
move 'red' to my_header-bg_color.
move 'blue' to my_header-fg_color.

refresh my_html.

call function 'WWW_ITAB_TO_HTML'
exporting
table_header = my_header
* all_fields = ' '
tables
html = my_html
fields = my_fields
row_header = my_row_header
itable = gt_msg.

endform. "convert_itab_html

WWW_ITAB_TO_HTML

Hallo LoLo,
der FB gibt HTML coding aus, der Browser zeigt es nur nicht an, bzw er zeigt den HTML Source-code an.

Habe den HTML Source Code kopiert, eine htm datei erzeugt und mit dem IE geöffnet und hier hat es funktioniert.


Danke
Dieter

Hi LoLo,
anbei html.

Dieter

Danke, es klappt.