Ver Mensaje Individual
  #1  
Antiguo 09-09-2011
Avatar de microbiano
microbiano microbiano is offline
Miembro
 
Registrado: sep 2008
Ubicación: Mexico D.F
Posts: 349
Reputación: 16
microbiano Va por buen camino
ayuda con impresion en rbdetails, solo imprime el primer registro

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.


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