La Web del Programador: Comunidad de Programadores
https://www.lawebdelprogramador.com/foros/GeneXus/1195836-Abrir-varias-pestanas-o-ventanas-con-un-solo-event.html

Abrir varias pestañas o ventanas con un solo event

Abrir varias pestañas o ventanas con un solo event

Publicado por Chaly (56 intervenciones) el 12/04/2010 19:55:26
Estimados anigos del foro:

Tengo un WebPanel con una grilla donde esta un listado de datos, cada dato tiene asociado un botón que imprime la información referida a ese dato en particular, la orden de imprensión esta en en los eventos a partir de un Event.&Imprimir.Click.

cada vez que presiono el boton &Imprimir, se genera una venta Pop Up(Utilizo un Java Script para aperturar la ventana popup y llama a un reporte, en consecuencia, se genera una ventana popup.

Mi problema:

necesito que al hacer click, el procedimiento incluido en el evento, llame a mas de un Reporte, en consecuencia, se generen tantas ventanas como Reportes esten incluidos en el Evento:

Ejemplo simplificado sin el java script:

Event &Imprimir.Click
Call(RPrel01, PrevNum, &ParNom, &ParSubNom, &ParDepto, &UsuCod, &UsuPat, &UsuNom)
Call(RPembFinal, PrevNum, &ParNom, &ParSubNom, &ParDepto, &UsuCod, &UsuPat, &UsuNom)
EndEvent // &Imprimir.Click

En mi ejemplo, lo que sucede en la ejecución es que se imprime unicamente el segundo Call.

Tiene alguna solución que permita ejecutar varios reportes con una sola orden o evento?

Gracias de antemano por la atención

Chaly

RE:Abrir varias pestañas o ventanas con un solo ev

Publicado por Alejandro Araus (45 intervenciones) el 14/04/2010 23:04:02
Hola

Mira prueba con dos texblock distintos y acuerdate no darle el mismo nombre a las dos ventanas... sino es probable que se pisen..


Event &Imprimir.click
&Script = '<SCRIPT LANGUAJE=JAVASCRIPT>'
&Script += '{sList=window.open("'+ &Programa
&Script += '","VENTANAUNO","menubar=No,toolbar=No,width=505,height=435,target=_top,Resizable=No,status=No,scrollbars=Yes,dependent=Yes");}'
&Script += "</SCRIPT>"
JSHTML.Caption = &Script

&Script = '<SCRIPT LANGUAJE=JAVASCRIPT>'
&Script += '{sList=window.open("'+ &Programa
&Script += '","VENTANADOS","menubar=No,toolbar=No,width=505,height=435,target=_top,Resizable=No,status=No,scrollbars=Yes,dependent=Yes");}'
&Script += "</SCRIPT>"
JSHTML2.Caption = &Script
EndEvent

RE:Abrir varias pestañas o ventanas con un solo ev

Publicado por Chaly (56 intervenciones) el 15/04/2010 00:37:38
Estimado Alejandro:

Primero que nada gracias por responder, te pongo mi código para que le heches una mirada, creo que en el fondo es lo mismo, no se si a ti te funcionó, pero a mi no me funciona, de repente tu encuentras algo que este haciendo mal, en este caso, el resultado es la apertura de una sola ventana popup y se ejecuta solo el 2do. objeto:

Event &Imprimir.Click
If &PrgOtr = 'S'
call(PJalPar, &ParNit, &ParNom, &ParLog, &ParDir, &ParTel, &ParFax, &ParWeb, &ParGes, &ParDepto, &ParGcia, &ParSbgcia, &ParBox, &ParCiu, &ParPais,&ParNumNit)
&url = link(RPrel01, PrevNum, &ParNom, &ParSubNom, &ParDepto, &UsuCod, &UsuPat, &UsuNom)
&WindowsId = Random() * 100000
Redireccion.caption = '<script language="JavaScript">window.open("' + trim(&url) + '","' + Trim(Str(&WindowsId)) + '","target=_top,top=10,left=10,width=600,height=500,scrollbars=yes,menubar=no,toolbar=no,resizable=yes,directories=no");'
+ 'history.back();</script>'

&url1 = link(RPembFinal, PrevNum, &ParNom, &ParSubNom, &ParDepto, &UsuCod, &UsuPat, &UsuNom)
&WindowsId2 = Random() * 100000
Redireccion1.caption = '<script language="JavaScript">window.open("' + trim(&url1) + '","' + Trim(Str(&WindowsId2)) + '","target=_top,top=10,left=10,width=600,height=500,scrollbars=yes,menubar=no,toolbar=no,resizable=yes,directories=no");'
+ 'history.back();</script>'
else
Msg('No esta autorizado para ejecutar este procedimiento')
Endif
EndEvent // &Imprimir.Click

Nuevamente gracias por tu tiempo,

Chaly