FoxPro/Visual FoxPro - ayuda busqueda de cadena

 
Vista:

ayuda busqueda de cadena

Publicado por pedro (27 intervenciones) el 31/10/2007 16:19:13
sres. acudo a ustedes para ver si me pueden ayudar, tengo un pequeño problema al realizar una busqueda de un dato en una tabla, miren la situacion esta asi, yo busco este valor: AALA710429BJA, y realizo la busqueda y funciona, pero se me ocurrio buscar este valor el cual no lo tengo en la tabla, AALA710429 Y ME ARROJA LOS valores del dato anterior y pues no se en que este mal mi codigo, se los mando y si lo pueden checar para ver donde esta el error, porfa de antemano muchas gracias.

WITH Thisform
PUBLIC cadena as Character
cadena=LEN(ALLTRIM(.txtRfc.Value))
IF cadena=10 OR cadena=13
IF .txtRfc.Value=" "
WAIT WINDOW "Debe de Ingresar un RFC" TIMEOUT 2 AT 20,40
.txtRfc.Setfocus
.txtRfc.Value=" "
ELSE
SELECT estado_financiero2
SET ORDER TO rfc
SEEK ALLTRIM(.txtRfc.Value)
IF FOUND()
.txtBanco1.Value=estado_financiero2.rfc
.txtBanco1.Setfocus
ELSE
WAIT Windows "El RFC No Existe" TIMEOUT 2 AT 20,40
.txtRfc.Setfocus
.txtRfc.Value=" "
ENDIF
ENDIF
ELSE
WAIT Windows "RFC Incorrecto" TIMEOUT 2 AT 20,40
.txtRFC.Setfocus
EndIf
EndWith

Muchas gracias
Dios los Bendiga
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:ayuda busqueda de cadena

Publicado por neo (1604 intervenciones) el 31/10/2007 17:52:00
Prueba con esto:

WITH Thisform
PUBLIC cadena as Character
cadena=LEN(ALLTRIM(.txtRfc.Value))
IF cadena=10 OR cadena=13
IF .txtRfc.Value=" "
WAIT WINDOW "Debe de Ingresar un RFC" TIMEOUT 2 AT 20,40
.txtRfc.Setfocus
.txtRfc.Value=" "
ELSE
SET EXACT ON
SELECT estado_financiero2
SET ORDER TO rfc
LOCATE FOR UPPER(ALLTRIM(estado_financiero2.rfc))=UPPER(ALLTRIM(.txtRfc.value))
IF FOUND() then
.txtBanco1.Value=estado_financiero2.rfc
.txtBanco1.Setfocus
ELSE
WAIT Windows "El RFC No Existe" TIMEOUT 2 AT 20,40
.txtRfc.Setfocus
.txtRfc.Value=" "
ENDIF
ENDIF
ELSE
WAIT Windows "RFC Incorrecto" TIMEOUT 2 AT 20,40
.txtRFC.Setfocus
EndIf
EndWith

**************FIN

o intenta con una Consulta SQL en vez de "Seek" o "Locate"

Select Rfc from estado_financiero2 where upper(alltrim(rfc))=upper(alltrim(.txtRfc.value)) into cursor My_cursor

Suerte►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda busqueda de cadena

Publicado por pedro (27 intervenciones) el 31/10/2007 18:05:07
Gracias amigo ya me kedo con lo que me distes

Dios te Bendiga
Saludos
La Venta, Tabasco, Mex.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar