Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 13-05-2005
Loviedo Loviedo is offline
Miembro
 
Registrado: dic 2004
Posts: 214
Poder: 0
Loviedo cantidad desconocida en este momento
El TQuery debe estar enlazado con Rave, la consulta es independiente
Espero que esto te pueda ayudar:

Código Delphi [-]
procedure TForm1.Button1Click((Sender: TObject);
var
  i: integer;
begin
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM mTabla WHERE cliente = :IdCliente');
  Query1.prepare;
  try
    for i := 1 to 100 do
    begin
      Query1.ParamByName('IdClienter').asinteger := i;
      Query1.Open;
      Imprimedocumento;
      Query1.close;
      inc(i);
    end;
  finally
    Query1.UnPrepare;
  end;
end;

procedure Imprimedocumento;
var
  NDRStream:  TMemoryStream;
begin
  NDRStream := TMemoryStream.Create;
  try
    RvProject1.Engine := RvNDRWriter1;
    RvProject1.open;
    RvProject1.SelectReport('Albaran',true);
    RvProject1.SaveToStream(NDRStream);
    RvNDRWriter1.Stream:=NDRStream;
    RvProject1.Execute;
    RvRenderPrinter1.Render(NDRStream);
    RvProject1.close;
  finally
    NDRStream.Free;
  end;
end;
Saludos.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 18:37:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi