Cita:
Empezado por Alexandro
Sucede que cuando hago el preview me muetra el ultimo registro varias veces aunque yo no lo haya selecionado para imprimir. Este error a que se debe?
|
Supongo porque no estas haciendo Filtered := True, ademas aunque lo hicieras solo te va ha filtrar por el ultimo que has seleccionado, ya que no concatenas lo que tienes.
Código Delphi
[-]
for I:=0 to LBox_DatosImprimir.Count-1 do
begin
if i=0 then
Filtro := '(No = '+LBox_DatosImprimir.Items[i]+')'
else
Filtro :=Filtro + ' AND (No = '+LBox_DatosImprimir.Items[i]+')';
end;
FrmPrincipal.TProveedores.Filter := Filtro;
FrmPrincipal.TProveedores.Filtered := True;
FrmProveedorInforme.Reporte1.DataSet:=FrmPrincipal.TProveedores;
FrmProveedorInforme.Reporte1.Preview;
Aunque lo podías haber hecho con una consulta como te dice coso Select...Where nro in (.....)
Saluditos