Ver Mensaje Individual
  #4  
Antiguo 13-05-2005
Loviedo Loviedo is offline
Miembro
 
Registrado: dic 2004
Posts: 214
Reputación: 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