microbiano
09-09-2011, 17:32:43
bien resulta que tengo un reporte de quickreport con los siguientes componentes:
1.- TQrBand y la propiedad BandType=rbPageHeader
2.- TQrBand y la propiedad BandType=rbDetail
logicamente en la banda detail, tengo los campos de la tabla, en este caso una consulta la cual devuelve 20 registros, pero a la hora de actualizar la consulta con el siguiente codigo.
procedure TForm_reportes.btnBimprimirClick(Sender: TObject);
var wlicitacion:string;
begin
wlicitacion:=self.cbb_tipo.Text;
Application.CreateForm(TQuick_reporte_lic, Quick_reporte_lic);
with Quick_reporte_lic.Qry_1 do
begin
if wlicitacion<>'' then
begin
sql.Clear;
sql.Add('select * from K_IMPORTES');
SQL.Add('where licitacion=:Plicitacion');
Parameters.ParamByName('Plicitacion').Value:=wlicitacion;
end
else
begin
sql.Clear;
sql.Add('select * from K_IMPORTES');
end;
try
Open;
except
on E:EOleException do
begin
MessageDlg(Format('Error: %s Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
end;
end;
end;
if Self.rg1.ItemIndex=0 then
begin
Quick_reporte_lic.Print;
Quick_reporte_lic.Free;
end
else
begin
Quick_reporte_lic.Preview;
Quick_reporte_lic.Free;
end;
end;
me muestra solamente el primer registro.
tienene alguna sugerencia, se que es una tonteria pero podrian ayudarme por favor
1.- TQrBand y la propiedad BandType=rbPageHeader
2.- TQrBand y la propiedad BandType=rbDetail
logicamente en la banda detail, tengo los campos de la tabla, en este caso una consulta la cual devuelve 20 registros, pero a la hora de actualizar la consulta con el siguiente codigo.
procedure TForm_reportes.btnBimprimirClick(Sender: TObject);
var wlicitacion:string;
begin
wlicitacion:=self.cbb_tipo.Text;
Application.CreateForm(TQuick_reporte_lic, Quick_reporte_lic);
with Quick_reporte_lic.Qry_1 do
begin
if wlicitacion<>'' then
begin
sql.Clear;
sql.Add('select * from K_IMPORTES');
SQL.Add('where licitacion=:Plicitacion');
Parameters.ParamByName('Plicitacion').Value:=wlicitacion;
end
else
begin
sql.Clear;
sql.Add('select * from K_IMPORTES');
end;
try
Open;
except
on E:EOleException do
begin
MessageDlg(Format('Error: %s Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
end;
end;
end;
if Self.rg1.ItemIndex=0 then
begin
Quick_reporte_lic.Print;
Quick_reporte_lic.Free;
end
else
begin
Quick_reporte_lic.Preview;
Quick_reporte_lic.Free;
end;
end;
me muestra solamente el primer registro.
tienene alguna sugerencia, se que es una tonteria pero podrian ayudarme por favor