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:

Código Delphi [-]
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

Código Delphi [-]
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]

Empezado por microbiano

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

je, je, je...