FoxPro/Visual FoxPro - MAS SOBRE NUMERO DE DECIMALES

Necesito obtener por medio de codigo si un campo numerico de una tabla contiene decimales, y el numero de ellos.

gracias... por su atencion..

A ver si te sirve esto...

lfound=.F.
use 'Tabla'
=afields('aMatriz', 'Tabla')

for i= 1 to alen('aMatriz', 1)

if 'Nombre de campo'=aMatriz[i,1] .and. aMatriz[i,2]='n' and. aMatriz[i,4]>=0
lFound=.T.
nDecimales=aMatriz[i,4]
exit
endif

endfor

if lFound
wait 'El campo tiene "+str(ndecimales)+ 'numeros decimales' window 2

else

wait 'El campo no tiene numeros decimales' window 2
endif

return

El cdigo es sencillo, de la tabla actual metemos en un arreglo informacion acerca de sus campo (afields), recorremos el arreglo
buscando el campo y verificando si el campo tiene decimales, si
los tiene guardamos la informacion y la presentamos despues.
Tal vez el codigo tenga errores de sintaxis, pero creo que te ayudara.

Saludos