problemas con locate

[maui]

hola eduarcol y amigos del foro

1.- El evento donde estas programando la busqueda, debes programarla en el evento onExit del TEdit

tengo el sigte codigo:

Código Delphi [-]
procedure TFrmSolicitudVta.qryVentaOnExit(Sender: TObject);
begin
if Edit2.Text <> '' then
qryVenta.Locate('IDEMPLEADO',Edit2.Text,[loCaseInsensitive,loPartialKey]);
end;

todavia tengo problemas no esta haciendo nada...

espero sus comentarios....

[delphi.com.ar]

Tienes componentes elazados a este Query???

[maui]

hola delphi.com.ar gracias pro contestar

Tienes componentes elazados a este Query???[/quote]

tengo un tquery enlazado a un datasourse

y la consulta que tengo es la sigte

SELECT IDCONCURRENTE, IDEMPLEADO, NOMBRE_EMPL, FECHA_VENTA, PIVA, TOTAL_VTA
FROM VENTA
WHERE ( IDCONCURRENTE = 0 );

espero tus comentarios

[delphi.com.ar]

¿¿La consulta retorna datos??
¿¿El DataSource tiene elazado algún componente??
¿¿Cómo estas evaluando el no funcionamiento del Locate??

[tcp_ip_es]

la consulta la tienes abierta??? tienes un dbgrid enlazado a la consulta para ver como se posiciona en el registro???



Saludos, Tony

[[eduarcol]]

Empezado por maui

Código Delphi [-]
procedure TFrmSolicitudVta.qryVentaOnExit(Sender: TObject);
begin
if Edit2.Text <> '' then
qryVenta.Locate('IDEMPLEADO',Edit2.Text,[loCaseInsensitive,loPartialKey]);
end;

Mira fijate que eso lo estas programando, en el evento Exit del query no del edit, colocalo en el evento on exit del TEDIT correspondiente

[delphi.com.ar]

¡¡El Query no tiene OnExit!!...
Digamos que el nombre del método no tiene porqué ser extricto, la pregunta del millón es... ¿A qué evento de qué componente apunta este procedure?

[roman]

Empezado por eduarcol

Mira fijate que eso lo estas programando, en el evento Exit del query no del edit, colocalo en el evento on exit del TEDIT correspondiente

¿¿¿El TQuery tiene evento OnExit???

[[eduarcol]]

Upsss, Perdon, di mal la respuesta, la respuesta correcta seria como el amigo Delphi.com.ar, pequeños detalles que se el escapan a uno

Perdon a todos

[el_enigma1]

En lugar de ir asi

Código Delphi [-]
procedure TFrmSolicitudVta.qryVentaOnExit(Sender: TObject);
begin
  if Edit2.Text <> '' then
    qryVenta.Locate('IDEMPLEADO',Edit2.Text,[loCaseInsensitive,loPartialKey]);
end;

deberia ir el evento change del edit

Código Delphi [-]
procedure TFrmSolicitudVta.EditChange(Sender: TObject);
begin
  if Edit2.Text <> '' then
    qryVenta.Locate('IDEMPLEADO',Edit2.Text,[loCaseInsensitive,loPartialKey]);
end;

Si IDEMPLEADO es numerico lo mas seguro es que no funciones correctamente el locatete lo digo por que de ahí vengo. Debes tener un datasource1 que en la propiedad dataset(si no me equivo pero data algo) tenga al qryVentay luego en el dbedit y en la propiedad datasource o dataset(disculpa pero se me olvida cual es el verdadero nombre ) pones datasource1 y en la propiedad field eliges el campo que deceas.

[maui]

hola enigma1

hice todo lo que me dijiste en tu mensaje, el idempleado lo tengo como entero y no funciona...

que tipo de datos me puede servir...


espero tus comentarios.......

[el_enigma1]

Empezado por maui

hola enigma1

hice todo lo que me dijiste en tu mensaje, el idempleado lo tengo como entero y no funciona...

que tipo de datos me puede servir...


espero tus comentarios.......

Con tipo string(varchar, char, texto) funciona bien