Page 1 of 1

Uso de Macros en FW

Posted: Mon Oct 08, 2018 5:17 pm
by 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

Re: Uso de Macros en FW

Posted: Mon Oct 08, 2018 7:36 pm
by hmpaquito
Hazlo así:

Code: Select all

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.

Re: Uso de Macros en FW

Posted: Tue Oct 09, 2018 7:20 pm
by lubin
Gracias Paco

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

voy a depurarlo y les comento

Lubin