Gracias por responder Viet. Funciona bien pero tengo un sierto detalle cuando le paso este string al query lo hace bien la primera vez pero en la segunda no hace nada nose como resetear el query o actualizarlo el codigo que uso es el siguiente:
Code
___________________________________________________
procedure TEtiqueta.BitBtn5Click(Sender: TObject);
var
aux: String;
I: integer;
begin
Datamodule2.QSeleccionEtiqueta.
Datamodule2.QSeleccionEtiqueta.Close;
Datamodule2.QSeleccionEtiqueta.SQL.Add('SELECT Guia.Codigo, Paquete.CodigoPaquete, Paquete.EstadoPaquete, Paquete.CodigoGuia,Paquete.FechaHora, Paquete.NumeroRelacion,Paquete.UbicacionPaquete, Guia.TotalPeso, Guia.OficinaOrigen, Guia.CiudadOrigen,');
Datamodule2.QSeleccionEtiqueta.SQL.Add('Guia.CiudadDestino, Guia.OficinaDestino, Ente.NombreEnte,Ente.Celular, Ente.Email, Direccion.Direccion, Ciudad.NombreCiudad');
Datamodule2.QSeleccionEtiqueta.SQL.Add('FROM Ciudad INNER JOIN Direccion ON Ciudad.IdCiudad = Direccion.IdCiudad INNER JOIN DireccionConsignatario ON Direccion.IdDireccion = DireccionConsignatario.IdDireccion INNER JOIN');
Datamodule2.QSeleccionEtiqueta.SQL.Add('Guia INNER JOIN Paquete ON Guia.Codigo = Paquete.CodigoGuia INNER JOIN');
Datamodule2.QSeleccionEtiqueta.SQL.Add('Consignatario ON Guia.IdDestinatario = Consignatario.IdConsignatario INNER JOIN');
Datamodule2.QSeleccionEtiqueta.SQL.Add('Ente ON Consignatario.IdConsignatario = Ente.IdEnte ON');
Datamodule2.QSeleccionEtiqueta.SQL.Add('DireccionConsignatario.IdConsignatario = Consignatario.IdConsignatario');
Datamodule2.QSeleccionEtiqueta.SQL.Add('WHERE (Paquete.CodigoPaquete IN( ');
i:= 0;
While i< RxCheckListBox1.Items.Count do
begin
if RxCheckListBox1.checked[i] then
begin
aux:= aux +' '+ RxCheckListBox1.Items.Strings[i] + ' ,' ;
end;
inc(i);
end;
aux := Copy(aux,1,length(aux) -1); // saco el ultimo
aux:= aux + '))';
Datamodule2.QSeleccionEtiqueta.SQL.Add(aux);
Datamodule2.QSeleccionEtiqueta.Open;
Datamodule2.QSeleccionEtiqueta.Refresh;
end;
________________________________________________
la primera si lo hace pero cuando hago nuevamente Click en el boton no hace nada que puede estar pasando. agradesco su ayuda?. Gracias.
___________________________________
Un saludo para todos....
|