Estoy intentando ver en un Grid la estructura de un DBF pero a la hora de convertir los anchos y los decimales no me muestra nada.
He probado con STR() y me da un error.

Os mando el codigo, y la base es un dbf cualquiera.

LOCAL aFieldNames, aTypes, aWidths, aDecimals, ARRAY, array2, l
ARRAY:={}
array2:={}
USE primas
for l := 1 to fcount()
aadd(array2,("CAMPO " + STR(l)))
next l
::STRINGGRID1:header := ARRAY2
aFieldNames := PRIMAS->(ARRAY(FCOUNT()))
aTypes := PRIMAS->(ARRAY(FCOUNT()))
aWidths := PRIMAS->(ARRAY(FCOUNT()))
aDecimals := PRIMAS->(ARRAY(FCOUNT()))

PRIMAS->(AFIELDS(aFieldNames, aTypes, aWidths, aDecimals))
AADD(ARRAY,AFieldNames)
AADD(ARRAY,aTypes)
aadd(array, aWidths)
aadd(array, aDecimals)
::STRINGGRID1:ITEMS:=array


Gracias

Hola Jose Manuel,

prueba unas cuantas cosillas.....

LOCAL aFieldNames, aTypes, aWidths, aDecimals, ARRAY, array2, l
ARRAY:={}
array2:={}

afieldnames := {}
atypes := {}
awidths := {}
adecimals := {}

USE primas
for l := 1 to fcount()
*** aadd(array2,("CAMPO " + STR(l)))
aadd(afieldnames,("campo " + fieldname(l)))
aadd(atypes,("tipo " + type(fieldname(l))))
aadd(awidths,("longitud " + str(len(fieldname(l)))))
aadd(adecimals,("decimales " + str(len(substr(str(fieldname(l)),
rat(".", str(fieldname(l))) + 1)))))
next l



Un saludo.