Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 29-09-2006
Avatar de Goyo
Goyo Goyo is offline
Miembro
 
Registrado: feb 2006
Posts: 89
Poder: 21
Goyo Va por buen camino
aqui esta el codigo desde donde lo llamo... (las tablas son de Paradox)
Código Delphi [-]
procedure TFrmImprimirVehiculo.SpeedButton1Click(Sender: TObject);
Var Filtro : String;
    consulta : string;
begin
  If (DBNumeroVehiculo.Text <> 'Todos')  then
    Begin
    try
     FrmReporte1:=TFrmReporte1.Create(self);
    consulta:='SELECT NumeroVehiculo FROM BitacoraVehiculos RIGHT JOIN Vehiculos ON BitacoraVehiculos.NumeroVehiculo = Vehiculos.NumeroVehiculo WHERE Vehiculos.NumeroVehiculo ='+chr(39)+DBNumeroVehiculo.Text+chr(39);
  FrmReporte1.Query1.SQL.Add(consulta);
  FrmReporte1.query1.Active:=False;
  FrmReporte1.query1.Active:=True;
  If RadioGroup1.ItemIndex = 0 then FrmReporte1.QuickRep1.Print
      else FrmReporte1.QuickRep1.Preview
           finally
           FrmReporte1.QuickRep1.Free;
        end;
   end;
end;

en mi formato reporte tengo un Query, en el quickreport tengo los siguientes componentes: Query1 en su propiedad DataBaseName tengo: Datos

QuickRep1 en su propiedad DataSet tengo el Query1

QRBand1 en su propiedad BandType = rbPageHeader "aqui tengo definidos el nombre y logotipo de la compañia donde laboro" y aqui imprimo los datos del vehiculo (de la tabla Vehiculos): Placas _______, Numero Vehiculo _________, Marca _________, Tipo _________, Modelo ___________, Serie __________, Cilindros ___________, Resguardo a _________.

QRBand2 en su propiedad BandType = rbColumnHeader "aqui tengo solo los tipos de los detalles (encabezado de los detalles)
| Fecha | Concepto Reparaciones | Dias Comision | Litros Gasolina | Importe | Importe Acumulado |

QRBand3 en su propiedad BandType = rbDetail "aqui imprimo los campos de detalles de cada vehiculo" de la tabla Bitacora:
Fecha, ConceptoReparaciones, DiasComision, LitrosGasolina, Importe, ImporteAcumulado

.... espero que ahora si me entiendas mejor...

Última edición por Goyo fecha: 29-09-2006 a las 16:16:00.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problemas con quickreport escullar Impresión 3 30-05-2005 11:12:37
Enviar parametros a un informe (QuickReport) Lionel Impresión 1 08-06-2004 15:25:45
Problemas con un informe Taribus Impresión 3 26-01-2004 10:12:17
Problemas con Quickreport REDCOM Impresión 2 09-07-2003 04:09:47
Problemas con QuickReport silviodp Impresión 3 20-05-2003 18:44:18


La franja horaria es GMT +2. Ahora son las 06:22:17.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi