DobleSiete
11-01-2005, 16:38:34
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:
procedure TForm1.FormCreate(Sender: TObject);
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(Column: TColumn);
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 ...
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:
procedure TForm1.FormCreate(Sender: TObject);
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(Column: TColumn);
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 ...