![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#3
|
|||
|
|||
|
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.... |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|