Uso de Macros en FW

[lubin]

Buen dia estimados

Estoy necesitando ejecutar diferentes formulas usando una MACRO en una funcion llamada FPRUEBA() ,
al ejecutar la funcion FPRUEBA() me salen error indicando que la Variable oSYS_DAT no existe.

Podrian indicarme cual es el error o como puedo ejecutar este calculo de la formula guardada en el campo XFORMU_VA


function fprueba()
******************************************
LOCAL XFORMU_VA := ""
LOCAL XVAL_TMP :=""
LOCAL XID := 8

LOCAL oSYS_DAT := 6
LOCAL xwid_ad := 5

*Formula que es cargada
XFORMU_VA := " MIVALOR(oSYS_DAT,xwid_ad, XID ) "

XVAL_TMP = &XFORMU_VA

MSGINFO(XVAL_TMP)
RETURN .T.


FUNCTION MIVALOR(DATO,xwid_ad,xid)
**********************
* Funcion que hace el calculo
LOCAL XVALOR :=0.00
XVALOR := (xwid_ad * xid) + DATO
RETURN XVALOR


Graciasss

[hmpaquito]

Hazlo así:

Code: Select all  Expand view

function fprueba()
******************************************
LOCAL XFORMU_VA := ""
LOCAL XVAL_TMP :=""
PRIVATE XID := 8

PRIVATE oSYS_DAT := 6
PRIVATE xwid_ad := 5

*Formula que es cargada
XFORMU_VA := " MIVALOR(oSYS_DAT,xwid_ad, XID ) "

XVAL_TMP = &XFORMU_VA

MSGINFO(XVAL_TMP)
RETURN .T.

[lubin]

Gracias Paco

Me funciono en el 90% de los casos de formulas que le puse , tambiem lo probe con memvar

voy a depurarlo y les comento

Lubin