|
© 2009 PortalFox
|
|
|
| Enviado por amby en Sábado, 12 Marzo, 2005 |
|
 La versión 9.0 incluyó muchos cambios en la generación de informes. Uno de esos cambios es permitir de forma nativa la salida en formato HTML de los informes. En esta ocasión es a partir de la subclase nativa HTMLListener
*---------------------------------------------------------
* Método:
* SALIDAHTMLLISTENER.PRG
* Programador:
* Ana María Bisbé York
* Fecha de Terminación:
* 14/02/05 17:56:48 PM
* Comentarios:
* Este ejemplo fue mostrado en el IV Encuentro de Desarrolladores realizado por
* Danysoft Internacional www.danysoft.com en Febrero 2005 en Microsoft Ibérica.
* en la sesión Novedades de Visual FoxPro 9.0
*
* La versión 9.0 incluyó muchos cambios en la generación de informes
* Uno de esos cambios es permitir de forma nativa la salida en formato HTML de los informes
*
* El siguiente código muestra cómo obtener la salida HTML de un informe en VFP 9.0
* En esta ocasión es a partir de la subclase nativa HTMLListener
* No es necesario invocar a la variable de sistema _REPORTOUTPUT
* Es recomendable incluir la clase HTMLListener en el proyecto de la aplicación
* No es recomendable que apunte a FFCC
*---------------------------------------------------------
LOCAL loListener as Object
loListener =.NULL.
*-- Asegurarse de que no existe el archivo HTML
ERASE nombre
*-- Crear una instancia de la subclase nativa HTMLListener que hereda de la clase Listener
SET CLASSLIB TO HOME() + 'FFC\_REPORTLISTENER'
loListener = CREATEOBJECT('htmlListener')
*-- Configurar algunas propiedades
loListener.TargetFileName = nombre
*-- Ejecutar el informe
REPORT FORM nombre OBJECT loListener
Saludos,
Ana
www.amby.net
Califica este artículo
|
|
 |
|
|
|
| Novedades VFP 9.0 - Informes en formato HTML a partir de HTMLListener | Entrar/Crear una cuenta | 4 Comentarios |
|
| Los comentarios son propiedad de sus respectivos autores.
No somos responsables de su contenido. |
Re: Novedades VFP 9.0 - Informes en formato HTML a partir de HTMLListener
por frankymaza en 12 Mar, 2005 - 01:13
(Información del usuario | Enviar un mensaje
|
Tengo problemas para ejecutar el codigo
el error dice: VARIABLE NOMBRE IS NOT FOUND
Igual ocurre en tu ejemplo de XML.
me podrias indicar que esta mal tengo el VFP9 completo .
gracias
|
Re: Re: Novedades VFP 9.0 - Informes en formato HTML a partir de HTMLListener
por amby en 12 Mar, 2005 - 02:01
(Información del usuario | Enviar un mensajehttp://www.amby.net | Hola:
El error te lo devuelve esta línea:
*-- Configurar algunas propiedades
loListener.TargetFileName = nombre
Y tiene razón VFP, no hemos declarado esa variable. La idea es sustituir nombre por el nombre de tu fichero. Te dejo un ejemplo que vale para los dos casos:
LOCAL loListener
loListener =.null.
*-- Asegurarse de que no existe el archivo HTML
ERASE SalidaHTML.HTM
*-- Crear la clase Listener
SET CLASSLIB TO HOME() + 'FFC\_REPORTLISTENER'
*loListener = CREATEOBJECT('htmlListener')
loListener = CREATEOBJECT('ReportListener')
DO (_reportoutput) WITH 5,loListener
*-- Configurar algunas propiedades
loListener.TargetFileName = 'SalidaHTML'
Si tienes problemas, no dudes en comentarlo,
Saludos,
Ana
www.amby.net |
Re: Re: Novedades VFP 9.0 - Informes en formato HTML a partir de HTMLListener
por jm_benites2005 en 15 Ene, 2009 - 10:34
(Información del usuario | Enviar un mensaje | | Hola Ana, quisiera comentarte q estoy probando el HTMLListener, la clase la he copiado a mi proyecto. Pero cuando ejecuto mi aplicación me sale el mensaje: "loListener is not a object" A q se debe este error. Ojalá me puedas ayudar. Jaime |
Problemas al ejecutar codigo Report Listener
por prago en 04 Ene, 2008 - 06:55
(Información del usuario | Enviar un mensaje
|
hola
un favor ... lo que pasa es que ya inclui el codigo para convertir mi Informe a un HTML o XML
pero me marca el siguiente error:
No se encuentra la variable FRX_OBJTYP_BAND
htmllistener
error: 12
method : createbandcursor
line: 71
scan for OBJTYPE=FRX_OBJTYP_BAND and not delete() and PLATFORM = FRX_PLATFORM_WINDOWS
el codigo que tengo es el siguiente:
SELECT Inv.cCodeBarr, Art.dFechaVta, Art.cClavEmpr, Art.cClavFami, Art.cClavCtaC, Art.cClavArti,;
Art.cDscpArti, Art.nCantArti, Art.nPrecUnit, Art.nImptArti, Art.nIVA_Arti, Art.nTipoIVA,;
Cta.cClavCtaC, Cta.cNombCtaC, Pres.cClavPres, Pres.cNombPres, Art.dFechaIni, Art.dFechaFin,;
Art.nUnid_Fin, Art.nPorcDesc, Art.nTot_Comp, Art.nTot_Boni;
FROM (tcRutaResp+lcArchivo) Art, tcRutaResp+"TPVCtaC" Cta, tcRutaResp+"TPVPres" Pres, tcRutaResp+"TPVInve" Inv;
WHERE Art.dFechaVta==tdFechaIni AND Art.cClavCtaC==Cta.cClavCtaC AND Art.cClavPres==Pres.cClavPres;
AND Art.cClavArti==Inv.cClavArti AND Art.nCantArti!=0;
ORDER BY Cta.cClavCtaC, Art.cDscpArti;
INTO CURSOR curFamiCtos
SELECT (lcArchivo)
USE
SELECT TPVCtaC
USE
SELECT TPVPres
USE
SELECT TPVInve
USE
SELECT curFamiCtos
GO TOP
tdFechaIni = curFamiCtos.dFechaIni
tdFechaFin = curFamiCtos.dFechaFin
tdFechaTexto = "Del "+;
CDOW(tdFechaIni)+"-"+TRANSFORM(DAY(tdFechaIni),"99")+"/"+CMONTH(tdFechaIni)+"/"+TRANSFORM(YEAR(tdFechaIni),"9999")+;
" al "+CDOW(tdFechaFin)+"-"+TRANSFORM(DAY(tdFechaFin),"99")+"/"+CMONTH(tdFechaFin)+"/"+TRANSFORM(YEAR(tdFechaFin),"9999")
LOCAL loListener
loListener =.null.
*-- Asegurarse de que no ex
Leer el resto de este comentario...
|
|
