Asignar valor a una funcion

[softruz]

Muy buenas foro, tengo una duda sobre funciones, es decir, como podría asignar un valor a una funcion, me explico, tengo este codigo:

method Var(cCampo) class CDIt
local nPos
nPos:=ascan( ::acTipos, {|v| lower(v[1]) = lower(cCampo) } )
if nPos<>0
::acTipos[nPos,2] // Me da el valor de esa variable
end if
return

y me gustaría llamar a esa funcion como si de una variable se tratase, es decir, como algo así:

o:Var("numeroserie"):="999"

Entonces la variable numeroserie que está en un array de la clase CDIt pueda modificarla de esta forma, o como sea, es decir, enfocarme como podría hacerlo, gracias.

Un Saludo.

[Antonio Linares]

Code: Select all  Expand view  RUN

method Var(cCampo, cValor ) class CDIt

   local nPos := AScan( ::acTipos, {|v| lower(v[1]) = lower(cCampo) } )

   if nPos<>0
      if PCount() > 1
         ::acTipos[nPos,2] = cValor
      else
         return ::acTipos[ nPos, 2 ]
      endif
   else
      ...
   end if

return


o:Var("numeroserie", "999" )