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 |