¿sería posible pasar un contenido de un objeto a un array o hash?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Objeto para Array ou Hash
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Sr. Cristobal:
xbrowse(oNF)
RESULTADO:
1 cEan 1000083
2 cFop 5102
aData := AOData( oNF )
RESULTADO:
cEan
cFop
Faltou os valores dos campos, ex: 1000083 e 5102
Sr. Cristobal, muito obrigado 
function aObjData( obj )
/
/
local n, v, l
local aData := AOData( obj )
for n := 1 to Len( aData )
TRY
v := OSend( obj, aData[ n ] )
l := .t.
CATCH
v := '<protected>'
l := .f.
END
aData[ n ] := Lower( Left( aData[ n ], 1 ) ) + ;
SubStr( aData[ n ], 2 , 1 ) + ;
Lower( SubStr( aData[ n ], 3 ) )
//if Valtype( v ) == "A"
//FWLOG aData[ n ]
//endif
aData[ n ] := { n, aData[ n ], v, l }
next n
return aData