sigo con el problema de impresion

[microbiano]

resulta que ahora tengo otro reporte el cual en un form muestro los datos en:
1. dbgrid
2.-txt

y un boton de impresion el cual tiene el siguiente codigo:
procedure TForm_requerimiento.btnBimprimirClick(Sender: TObject);
var i:Integer;
begin
if wregistros_resumen>0 then
begin
Application.CreateForm(TQuick_report_asig, Quick_report_asig);
//Form_requerimiento.Qry_resumen.Refresh;
with Form_requerimiento.Qry_resumen do
begin
First;
while not Form_requerimiento.Qry_resumen.Eof do
begin
Quick_report_asig.txt_lic_detalle.DataField:=Form_requerimiento.Qry_resumen.fieldByname('licitacion' ).AsString;
Quick_report_asig.txt_licitacion.DataField:=Form_requerimiento.Qry_resumen.fieldByname('licitacion') .AsString;
Quick_report_asig.txt_licitacion.DataField:=Form_requerimiento.Qry_resumen.fieldByname('licitacion') .AsString;

Form_requerimiento.Qry_resumen.Next
end;
end;
Quick_report_asig.Preview;
Quick_report_asig.Free;
end
else
begin
Application.MessageBox('No Existen Datos para poder llevar a cabo la impresión'+chr(13)+'debe aplicar criterios para oder llevar a cabo una busqueda',PChar(Application.Title), MB_OK + MB_ICONERROR);
Exit;
end;

me abre el reporte pero no me muestra nada de informacion algunas sugerencia?

[oscarac]

el datasource del reporte esta bien asignado?

[microbiano]

a que te refieres con bien asignado?; el data source del reporte es qry_resumen el cual es el maestro del reporte.

[Caral]

Hola
Tienes asignado el dataset del qreport ?.
Saludos

[Caral]

Hola
El dataset tiene que ser :
Form_requerimiento.Qry_resumen
No solo:
Qry_resumen
Ya que el query esta en el form que lo llama.
Me imagino.
Saludos

[Caral]

Hola

procedure TForm_requerimiento.btnBimprimirClick(Sender: TObject);
var i:Integer;
begin
if wregistros_resumen>0 then
begin
try
Application.CreateForm(TQuick_report_asig, Quick_report_asig);
//Form_requerimiento.Qry_resumen.Refresh;
with Form_requerimiento.Qry_resumen do
begin
First;
while not Form_requerimiento.Qry_resumen.Eof do
begin
Quick_report_asig.txt_lic_detalle.DataField:=Form_requerimiento.Qry_resumen.fieldByname('licitacion' ).AsString;
Quick_report_asig.txt_licitacion.DataField:=Form_requerimiento.Qry_resumen.fieldByname('licitacion') .AsString;
Quick_report_asig.txt_licitacion.DataField:=Form_requerimiento.Qry_resumen.fieldByname('licitacion') .AsString;

Form_requerimiento.Qry_resumen.Next
end;
end;
Quick_report_asig.Preview;
finally
Quick_report_asig.Free;
end
else
begin
Application.MessageBox('No Existen Datos para poder llevar a cabo la impresión'+chr(13)+'debe aplicar criterios para oder llevar a cabo una busqueda',PChar(Application.Title), MB_OK + MB_ICONERROR);
Exit;
end;
end;
Saludos

[Casimiro Notevi]

Amigo microbiano, recuerda poner títulos descriptivos a tus preguntas: "sigo con el problema de impresion", no describe ningún problema ;)

[microbiano]

si si perdon se me olvido ese pequeño detalle prometo fielmente no volvera a pasar caso contrario ummmm pues recibire otra comentario de casimiro, prometo tener mas cuidado

[Casimiro Notevi]

... caso contrario ummmm pues recibire otra comentario de casimiro

je, je, je... ;) :)