Tweet
HTML/Javascript en Reporte ABAP
Hola a todos!, a ver si pueden ayudarme,
no logro entender porque se dispara dos veces el alert(val), al ejecutar
el sig. reporte. Probé el codigo HTML en un navegador, y solo muestra el mensaje una vez, como esperaba. Alguna idea?
Este es el código:
Gracias por adelantado!
no logro entender porque se dispara dos veces el alert(val), al ejecutar
el sig. reporte. Probé el codigo HTML en un navegador, y solo muestra el mensaje una vez, como esperaba. Alguna idea?
Este es el código:
Código:
REPORT Z_JAVASCRIPT_IN_ABAP3.
CLASS lcl_class DEFINITION.
PUBLIC SECTION.
METHODS: main, on_html_event FOR EVENT sapevent OF
cl_gui_html_viewer
IMPORTING action frame getdata.
PROTECTED SECTION.
PRIVATE SECTION.
DATA ob_ref TYPE REF TO cl_gui_html_viewer.
ENDCLASS.
CLASS lcl_class IMPLEMENTATION.
METHOD main.
DATA ob_lcl TYPE REF TO lcl_class.
DATA html TYPE w3htmltab.
DATA url TYPE c LENGTH 255.
CREATE OBJECT ob_ref
EXPORTING
parent = cl_gui_container=>screen0.
DATA events TYPE cntl_simple_events.
DATA event TYPE cntl_simple_event.
event-eventid = ob_ref->m_id_sapevent.
event-appl_event = 'X'.
APPEND event TO events.
CALL METHOD ob_ref->set_registered_events
EXPORTING
events = events.
SET HANDLER me->on_html_event FOR ob_ref.
APPEND '<html>' TO html.
APPEND '<SCRIPT type="text/javascript">' TO html.
APPEND 'var val = 0; alert(val); val = val + 1; ' TO html.
APPEND 'function fn_msg(){' TO html.
APPEND 'alert("Ciao Mondo! :)"); alert(val);}' TO html.
APPEND '</SCRIPT>' TO html.
APPEND '<body bgcolor = "#999999">' TO html.
APPEND '<font face="arial" size="2">' TO html.
APPEND '<b> Click button display. </b>' TO html.
APPEND '<br>' TO html.
APPEND '</font>' TO html.
APPEND '<form name= "form1" action="SAPEVENT:save">' TO html.
APPEND '<br>' TO html.
APPEND '<input type="button" onclick="fn_msg();" value="Display">' TO html.
APPEND '</form>' TO html.
APPEND '</body>' TO html.
APPEND '</html>' TO html.
ob_ref->load_data( IMPORTING assigned_url = url
CHANGING data_table = html ).
ob_ref->show_url( url = url ).
ENDMETHOD.
METHOD on_html_event.
DATA: l_string TYPE string.
l_string = getdata.
MESSAGE i001(00) WITH l_string.
ENDMETHOD.
ENDCLASS.
PARAMETERS: p_dummy TYPE c LENGTH 1.
AT SELECTION-SCREEN OUTPUT.
DATA: lcl_oref TYPE REF TO lcl_class.
IF lcl_oref IS NOT BOUND.
CREATE OBJECT lcl_oref.
CALL METHOD lcl_oref->main.
ENDIF.
"
. No pues a mí solo me sale 1 popup. Mas triste tu caso dificil ayudarte si no puedo replicar el error 
.
Poe hay que bajarlo del market place 
. O buscalo en google para ver si alguien ya lo subio a rapidshare o uno de esos servidores de
Comentario