Foros Club Delphi - Error en Report Manager

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Error en Report Manager (https://www.clubdelphi.com/foros/showthread.php?t=33566)

Error en Report Manager

Saludos a todos!!

Estoy trabajando con Report Manager, pero no consigo pasarle parametros para que me dé un reporte. Siempre me dá un error: " Project prueba.exe raised exception class EReadError with message 'Property ErrorMessage does not exist' "

El parámetro lo paso bien, (como pone en la documentacion), con
ReportPRUE.Report.Params.ParamByName ('UNACIUDAD').AsString:= edCiudad.Text;

Pero no hay manera de que funcione.
A alguien le ha pasado lo mismo??
He instalado la última version 2.5g.

Gracias por ayudarme :o

Alomejor se te ha pasado algo, ¿has mirado algún ejemplo?
¿Has echado un vistazo a la documentación de la página web?

Si, me he mirado toda la documentacion, y los ejemplos (pocos) que he encontrado. Además los ejemplos me dan el mismo problema.... y ya no se me ocurre nada:(

Que tal

Dale un vistazo a mi proyecto para que veas ejemplificado como se utiliza:

http://sourceforge.net/projects/ventas

Saludos
Bismarck

Cita:

Empezado por bismarck_sierra

Que tal

Dale un vistazo a mi proyecto para que veas ejemplificado como se utiliza:

http://sourceforge.net/projects/ventas

Saludos
Bismarck

oooh... conocía el proyecto, muy bueno, no sabía que fueses el artífice del mismo :)

Cita:

Empezado por bismarck_sierra

Que tal

Dale un vistazo a mi proyecto para que veas ejemplificado como se utiliza:

http://sourceforge.net/projects/ventas

Saludos
Bismarck

He visto el proyecto y esta muy bien, os felicito.
Vosotros teneis una conexion con DBX, yo lo hago con Interbase(Firebird), pero bueno, de momento no lo he conseguido.
el SQL que utilizo es: Select * from ciudades where ciudad=:unaciudad
el parametro es unaciudad. Me funciona bien en el diseñador, pero al pasarlo a código, me dá error.
Seguiré dandole a ver si consigo saber porque.
Alguien tiene un proyecto con report manager, que trabaje con interbase y le pase un parametro, y le funcione?? Por favor que me ayude y me pase un ejemplo.

Gracias!!

Código Delphi [-]  rptReporte.Language:= 1; // Para ponerlo en español
  rptReporte.Filename:= Datos.sArchivo;  // Asigno el nombre del archivo del reporte
  rptReporte.Report.DatabaseInfo.Items[0].SQLConnection := Sistema.BaseDato.Conexion.DataSets[0].SQLConnection; // Le asigno la conexión a la BD que tengo en el programa
  if(Datos.iCopias = 0) then  // Asigno el número de copias que se van a imprimir
    rptReporte.Report.Copies:= 1
  else
    rptReporte.Report.Copies:= Datos.iCopias;
  rptReporte.Title:= Datos.sTitulo; // Le asigno un titulo al reporte
  rptReporte.ShowPrintDialog:= Datos.bDialogo; // determino si se va a mostrar el cuadro de diálogo de impresión
  rptReporte.Preview:= Datos.bPreliminar; // determino si se va a mostrar la presentación preliminar

  for i:= 0 to Length(arrParametros) -1 do rptReporte.Report.Params.ParamByName(arrParametros[i].sParametro).Value:=  arrParametros[i].sValor; // Asigno los parámetros, los tomo de un arreglo previamente llenado
  rptReporte.Execute; // mando ejecutar el reporte

Saludos
Bismarck

Muchisimas gracias Bismarck por tu ayuda, me es muy util.
Enseguida me he puesto con ello y me va bastante bien.
Cuando acabe con el proyecto que estoy, intentaré ayudaros un poco con vuestro proyecto en donde soy especialista, diseño gráfico :), bueno siempre que necesiteis ayuda, claro está.
Un saludo a todos por vuestra ayuda.

Landro

.-

Cita:

Empezado por bismarck_sierra

Que tal Landro

El proyecto Ventas que te comento funciona con Interbase o Firebird, utilizo los componentes DBExpress para conectarme.

Te paso la función generica que utilizo para los reportes, espero te sirva:

Código Delphi [-]
rptReporte.Language:= 1; // Para ponerlo en español
rptReporte.Filename:= Datos.sArchivo; // Asigno el nombre del archivo del reporte
rptReporte.Report.DatabaseInfo.Items[0].SQLConnection := Sistema.BaseDato.Conexion.DataSets[0].SQLConnection; // Le asigno la conexión a la BD que tengo en el programa
if(Datos.iCopias = 0) then // Asigno el número de copias que se van a imprimir
rptReporte.Report.Copies:= 1
else
rptReporte.Report.Copies:= Datos.iCopias;
rptReporte.Title:= Datos.sTitulo; // Le asigno un titulo al reporte
rptReporte.ShowPrintDialog:= Datos.bDialogo; // determino si se va a mostrar el cuadro de diálogo de impresión
rptReporte.Preview:= Datos.bPreliminar; // determino si se va a mostrar la presentación preliminar

for i:= 0 to Length(arrParametros) -1 do rptReporte.Report.Params.ParamByName(arrParametros[i].sParametro).Value:= arrParametros[i].sValor; // Asigno los parámetros, los tomo de un arreglo previamente llenado
rptReporte.Execute; // mando ejecutar el reporte

Saludos
Bismarck