FiveTech Support Forums

class tPrincipal
    data fntEjecutar

    method comenzar(nValor)
endclass

//--------------
method comenzar(nValor) class tPrincipal
   // Lo que necesito saber, para despues aplicarlo, como le digo 
   // que ejecute la funcion que te paso en la variable ::fntEjecutar 

   if (nValor == 1)
     // aca quiero que se ejecute la funcion que viene en ::fntEjecutar
   endif 

   return (nil)

function main()
   local oPrueba:= tPrincipal():new()
   
   oPrueba:fntEjecutar:= { || estafuncion() }

   oPrueba:end()
   return (nil)

//------------------

function estafunction()
   msgstop("ejecutada la funcion")
   return (nil)

if (nValor == 1)
     // aca quiero que se ejecute la funcion que viene en ::fntEjecutar
   IF !Empty(::fntEjecutar())
      Eval(::fntEjecutar())
   ENDIF
endif

         :bKeyDown:= { |nKey| IF (nKey==VK_RETURN, IF(!Empty(::bAbm(nKey)),Eval(::bABM(nKey)),),) }

   oPadron:bABM:= {|nkey| estafuncion(nkey) }

  FUNCTION estafuncion(nkey)

     IF nKey == VK_RETURN
        ? "MODIFICACION"
     ELSE
        ? "ALTA"
     ENDIF

     RETURN (NIL)

   Error description: Error BASE/1004  Class: 'NUMERIC' has no exported method: EVAL
   Args:
     [   1] = N   13

Eval( oPadron:bABM, nKey)