Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-01-2005
DobleSiete DobleSiete is offline
Miembro
 
Registrado: ene 2005
Posts: 32
Poder: 0
DobleSiete Va por buen camino
Pasar parametro a un QuickReport desde un formulario

Saludos a todos en el foro ...

Necesito crear en Delphi 7 un QuickReport a partir de una consulta SQL que utiliza un parametro obtenido desde un formulario (con un DBGrid). Tengo todo hecho, pero el reporte siempre aparece vacio.

Aquí está el código del formulario, tiene dos procedimientos, creo que el segundo es el del problema.

El parametro es codinfo. Primero se obtienen las cuentas mayores (en el dbgrid), y a partir de allí se genera el reporte con las cuentas de movimiento:

Código PHP:
procedure TForm1.FormCreate(SenderTObject);
   
begin
     with IBQuery1 
do
     
begin
       SQL
.Clear;
       
SQL.Add('SELECT * ');
       
SQL.Add('FROM scginf ');
       
SQL.Add('WHERE estado = ' estado);
       
Open;
     
end;
   
end;
   
   
procedure TForm1.DBGrid1CellClick(ColumnTColumn);
   
begin
     with QuickReport2
.IBQuery1 do
     
begin
       SQL
.Clear;
       
SQL.Add('SELECT * ');
       
SQL.Add('FROM scgctas ');
       
SQL.Add('WHERE est_fnz = :codinfo');
       
ParamByName('codinfo').AsString := 
          
Form1.IBQuery1.FieldValues['COD_INF'];
       
Open;
     
end;
   
  
     
with TQuickReport2.Create(nil) do
     
begin
       Preview
;
       
Destroy;
     
end;
   
end
Gracias a todos ...
__________________
"Nadie es perfecto" (Don Nadie)

Última edición por DobleSiete fecha: 11-01-2005 a las 16:44:27.
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


La franja horaria es GMT +2. Ahora son las 19:04:29.


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