Ayuda pequeña función
Publicado por Masternet (1 intervención) el 01/04/2011 18:08:09
Hola,
Soy un poco novatillo con Visual Foxpro y estoy creando una función que me elimine ciertos caracteres de una frase.
Creo que está todo correcto pero al realizar el AT siempre me da valor 0
Es como si no me cogiera el valor de la variable WPARA
Seguro que estoy haciendo algo mal
Agradezco vuestra ayuda
FUNCTION LimpiaDescrip
PARAMETERS WPARA1,WPARA2,WPARA3,WPARA4
IF PARAMETERS()=0
RETURN 0
ENDIF
WPOS=0
FOR WCONT = 1 TO PARAMETERS()
WPOS=AT(('WPARA'+(STR(WCONT,1))),WDESCRIPCION)-1
IF WPOS>0
WDESCRIPCION=LEFTC(WDESCRIPCION,WPOS)
ENDIF
ENDFOR
RETURN WDESCRIPCION
ENDFUNC
Soy un poco novatillo con Visual Foxpro y estoy creando una función que me elimine ciertos caracteres de una frase.
Creo que está todo correcto pero al realizar el AT siempre me da valor 0
Es como si no me cogiera el valor de la variable WPARA
Seguro que estoy haciendo algo mal
Agradezco vuestra ayuda
FUNCTION LimpiaDescrip
PARAMETERS WPARA1,WPARA2,WPARA3,WPARA4
IF PARAMETERS()=0
RETURN 0
ENDIF
WPOS=0
FOR WCONT = 1 TO PARAMETERS()
WPOS=AT(('WPARA'+(STR(WCONT,1))),WDESCRIPCION)-1
IF WPOS>0
WDESCRIPCION=LEFTC(WDESCRIPCION,WPOS)
ENDIF
ENDFOR
RETURN WDESCRIPCION
ENDFUNC
Valora esta pregunta
0