Seleccionar datos para imprimir

[Alexandro]

Gracias por contestar coso, ya he resuelto lo del multiselect como me digiste, aunque tienes algunos errores. Ahora bien, ya selecionados los que quiero imprimir comp puedo hacer un filtrado a mi tabla? Es paradox7.
Gracias otra vez

[[coso]]

Gracias por contestar coso, ya he resuelto lo del multiselect como me digiste, aunque tienes algunos errores.

vaya, pues dimelos, pq esto lo saque de un componente dbgrid que uso mucho...mmm ya se, listbox1.items

Si usas alguna query, por ejemplo haciendo 'select * from tabla where id in (' y aqui los ids que previamente has grabado en el listbox, por ejemplo. Si usas filtros tipo bde, entonces, tabla.filter := 'id = ' + listbox1.Items[0] + ' and id = ' + ListBox1.Items[1] + etc... o bien haciendolo de manera automatica dentro de un bucle for. saludos.

[Alexandro]

Hola de nuevo coso:
veras he decidido hacerlo de manera automatica con un bucle For lo ago así:

Código Delphi [-]
  for I:=0 to LBox_DatosImprimir.Count-1 do
    begin
       FrmPrincipal.TProveedores.Filter:='No = '+LBox_DatosImprimir.Items[i];
    end;
FrmProveedorInforme.Reporte1.DataSet:=FrmPrincipal.TProveedores;
FrmProveedorInforme.Reporte1.Preview;

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?

[*Caro*]

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

[Alexandro]

Hola de nuevo:
MIren, creo que prefiero hacerlo con con Query pero como le digo a la consulta que me devuelva los valores que quiero? Digamos:

Código SQL [-]
SELECT * FROM Proveedores.DB WHERE No IN(:valor1,AND :valor2)

Como le paso los parametros si yo no se la cantidad de parametros que voy a necesitar?

[Alexandro]

Miren este es el codigo que he puesto:

Código Delphi [-]
For i:=0 to LBox_DatosImprimir.Count-1 do
 if i=0 then
          begin
           Filtro:=LBox_DatosImprimir.Items.Strings[i];
          end
        else
          begin
            Filtro:=Filtro+' AND '+LBox_DatosImprimir.Items.Strings[i];
          end;
QConsulta.Close;
QConsulta.SQL.Text:='SELECT * FROM Proveedores.db WHERE Proveedor IN(:valor)';
QConsulta.Params[0].AsString:=Filtro;
QConsulta.Open;
FrmProveedorInforme.Reporte1.DataSet:=QConsulta;
FrmProveedorInforme.Reporte1.Preview;

El reporte se muestra pero solo con el ultimo registro que introduje en la tabla, ni siquiera toma los valores de la consulta. Que pasa aki? Les ruego me respondan, lo estoy necesitando.
Suerte

[*Caro*]

Empezado por Alexandro

El reporte se muestra pero solo con el ultimo registro que introduje en la tabla, ni siquiera toma los valores de la consulta. Que pasa aki? Les ruego me respondan, lo estoy necesitando.
Suerte

Has la prueba con lo ultimo que te pase, el In no necesita And, se debe separar cada valor con una coma "," , ahora también sería bueno que hagas un showmessage de la consulta que se esta armando y pones aquí el resultado que te da ese Showmessage.

Código Delphi [-]
Query.Sql.Text := Consulta;
showmessage(Query.Sql.Text);

Saluditos

[*Caro*]

Hola de nuevo, si no sabes la cantidad de parametros entonces no te conviene utilizar parametros, es mejor que armes la cadena.

Código Delphi [-]
 
Consulta := 'SELECT * FROM Proveedores.DB WHERE No IN(';
 
Valores := '';
for i:=0 to LBox_DatosImprimir.Count-1 do
 begin
  if i=LBox_DatosImprimir.Count-1 then
    Valores := Valores+LBox_DatosImprimir.Items[i]
 else
    Valores := Valores+LBox_DatosImprimir.Items[i]+','; 
end;

Consulta := Consulta+Valores+')';
 
Query.Active := False;
Query.Sql.Text := Consulta;
Query.Active := True;

Mas o menos así sería.

Saluditos