Ver Mensaje Individual
  #7  
Antiguo 13-07-2006
bismarck_sierra bismarck_sierra is offline
Miembro
 
Registrado: ene 2004
Ubicación: Morelia, Michoacán, México
Posts: 70
Reputación: 21
bismarck_sierra Va por buen camino
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
Responder Con Cita