topic-36193

Board index FiveWin para Harbour/xHarbour Uso de Macros en FW

Posts: 467

Joined: Fri Dec 09, 2005 12:41 AM

Uso de Macros en FW
Posted: Mon Oct 08, 2018 05:17 PM

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

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Uso de Macros en FW
Posted: Mon Oct 08, 2018 07:36 PM

Hazlo así:

Code (fw): Select all Collapse

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

Posts: 467

Joined: Fri Dec 09, 2005 12:41 AM

Re: Uso de Macros en FW
Posted: Tue Oct 09, 2018 07:20 PM

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

FiveTech Support Forums

Continue the discussion