Uso de macro-sustitucion

[FranciscoA]

Eso, amigos.
Estoy tratando de ejecutar codeblocks definidos como caracteres.
Puede alguien decirme que me falta en el siguiente codigo?
Me tira el error que no existe la variable dDate:

Code: Select all

Function MyCodBlock()
local dDate, cAction 

  dDate := Date()
  cAction := "{|| MsgInfo(CDow(dDate)) }"
  Eval( &cAction )

return nil
 

[cnavarro]

La variable dDate ha de ser PRIVATE

[FranciscoA]

Cristobal.
Gracias por contestar. Ya lo he intentado como dices, pero "está difícil la caraja".
Voy a revisar que es lo que estaba haciendo mal.

De todos modos, por el momento lo resolví creando una función que devuelve la fecha:

Code: Select all

Function Fec()
Return dFhist      //dFhist es static
 

y lo ejecuto asi:

Code: Select all

 "{|| ImpBlnza(dFec(), .t.) }"    //esto está en una columna del xbrowse.

 cAction := oBrw:aCols[3]:Value, GenAction(cAction)

Function GenAction(cAction)
Eval( &cAction)
 

Gracias nuevamente.

[cnavarro]

Prueba esto

Code: Select all

#include "FiveWin.ch"

MEMVAR dDate

function Main()

    MyCodBlock()

Return nil

Function MyCodBlock()

   local cAction
   
   PRIVATE dDate  := Date()

   //dDate := Date()
   cAction := "{|| MsgInfo(CDow(dDate)) }"
   Eval( &cAction )

return nil

 

[FranciscoA]

Cristóbal.
Funciona. Anteriormente lo tenía sin MEMVAR.
Gracias.