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
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


0