Foros - Visual FoxPro - EN QUE EVENTO DEBO CARGAR UN SEEK

Espere mientras se carga el contenido...

Un instante de gozo del corazón vale más que dos horas de placer de los sentidos.
( August von Kotzebue)

MYGNET: http://www.mygnet.net/index.php [Imprimir | Cerrar vista de impresión]

Inicio | Foros | Visual FoxPro | En que evento debo cargar un seek

EN QUE EVENTO DEBO CARGAR UN SEEK

6 respuestas para esta pregunta

EN QUE EVENTO DEBO CARGAR UN SEEK

Por FJB2008 , Jueves 17 de julio de 2008 a las 19:29

Tengo un texbox y quiero hacer un seek para que me diga si lo que ingreso en el textbox esta en una tabla.

ESTO LO PUSE EN EL EVENTO DEL TEXTBOX A BUSCAR:
* Vnya.gotfocus

set path to C:\Proyecto Administrativo
USE ventas!tablaclientes
SET ORDER TO indcodcli
GO bottom
thisform.VCodigo.Caption= ALLTRIM(STR(c_cod+1))
thisform.Refresh
* aqui me devuelve el codigo ultimo +1 para el *proximo cliente

* y aqui hago la busqueda pero no va
SET EXACT On
SET NEAR ON

SET ORDER TO indnya
GO top
SEEK(ThisForm.Vnya.Value)
IF FOUND() THEN
MESSAGEBOX("CLIENTE YA INGRESADO",0,"ERROR")
RETURN .T.
ENDIF
thisform.Vnya.SetFocus

* si pueden decirme como es lo agradezco desde ya

Cerrar | Editar | Responder

1.- seek en text de formulario v.f.p

Por kaukalen , Lunes 21 de julio de 2008 a las 10:41

haber prueba ese mismo código en el evento Valid
de la text y sácalo del gotfocus .
este último evento es para declarar variables a
la misma text .

Editar | Citar | Responder

1.1.- seek en text del formulario

Por FJB2008 , Martes 22 de julio de 2008 a las 11:27

Hola Kaulen, te agradezco tu ayuda, desde de varias pruebas, el resultado me dio cuando lo ingrese en el lostfocus este codigo

SET EXACT ON
PUBLIC devunya
devunya=0
SET ORDER TO INDNYA
GO top
IF SEEK(ALLTRIM(ThisForm.Vnya.Value)) THEN
MESSAGEBOX("CLIENTE YA INGRESADO",0+48,"Verificador")
devunya=1
ENDIF

igualmente mil gracias por tu ayuda.

Fernandobussa@hotmail.com

Editar | Citar | Responder

1.1.1.- COMBO CON UN REGISTRO POR DEFECTO

Por FJB2008 , Martes 22 de julio de 2008 a las 11:44

COMO HAGO PARA QUE EL COMBO EMPIEZECON UN REGISTRO EN ESPECIAL A MOSTRAR

Editar | Citar | Responder

1.1.1.1.- Combo con un registro por defecto

Por kaukalen , Martes 22 de julio de 2008 a las 12:02

Evento clic del combo

Thisform.Text1.Value=tabla.campo
Thisform.Combo1.Refresh

Editar | Citar | Responder

1.1.1.1.1.- el combobox me esta volviendo loco

Por FJB2008 , Martes 22 de julio de 2008 a las 12:34

Hola Kaukalen, lo probe pero no me salio,

en el evento click del combo,

PUBLIC V_CoVe
SELECT vende
V_CoVe=numero

selecciona la base y en la variable publica guardo el codigo del vende aunque me muestre en el combo el nombre solamente sin querer ver el codigo del vende, hasta aca todo bien, el tema que cuando llamo al formulario que tiene el combo (DO FORM Altaclien) hasta que no tiene el foco me los muestra en blanco, cuando el foco llega me muestra los vendedores.
Como hago para que cuando cargo el form (DO FORM Altaclien) me muestre el combo con un vendedor cargado por defecto.

Editar | Citar | Responder

1.1.1.1.1.1.- el combo me está volviendo loco ?

Por kaukalen , Martes 22 de julio de 2008 a las 12:44

mira esto mismo en el evento clic del Combo1

* PUBLIC V_CoVe
SELECT vende
Publ v_cove
V_CoVe=numero
v_cove=Thisform.Text1.Value

V_cove=Thisform.Combo1.Value
Thisform.Combo1.Refresh

mi cuenta es aldevaran_527@hotmail.com

Editar | Citar | Responder

Ingreso

Últimos registrados

  misticoam
  YomiSoft
  mauricio1586
  veritomaza
  saya
  the_big_boy
  foxs
  pearma
  MiltonSENA
  sonso

Estadísticas

Seleccionar Navegadores

Herramientas

Un instante de gozo del corazón vale más que dos horas de placer de los sentidos.
( August von Kotzebue)

MyGnet © Agosto 2005 - Octubre 2008, My Group Net - La comunidad de programación