Objeto para Array ou Hash

[MGA]

¿sería posible pasar un contenido de un objeto a un array o hash?

[cnavarro]

Prueba

Code: Select all  Expand view

   local aData := AOData( obj )
   XBrowse( aData )

 

[MGA]

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

[MGA]

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