Page 1 of 1

Argumento de función de Harbour dentro Fast Report

Posted: Tue Feb 23, 2010 9:43 pm
by hugotheler
Hola :
Estoy nuevamente evaluando el programas para generar reporte Fast Report, Lo hice funcionar 10 puntos el único problema que tengo es enviar parametros a una función escrita en Harbour.

El ejemplo que baje de internet funciono ok,

* OK
oFr:SetEventHandler( "Report" , "OnUserFunction" , { | FName, FParams | CallUserFunction( FName , FParams ) } )
oFr:AddFunction( "function XBaseStr( nValue: Double, nLength: Variant = EmptyVar, nDecimals: Variant = EmptyVar): Variant",;
"Funciones Unire" , "It's a XBase Str() function!")

* ERROR *
oFr:AddFunction( "function DireccionLegal(HbVar: String): Variant" , "Funciones Unire" , "Devuelve Direccion Legal de una persona.")
....



function CallUserFunction( FName , FParams )

local RES
* OK
if (FName == "XBASESTR" )
RES := Str(FParams[1], FParams[2], FParams[3])

*ERROR
elseif (FName == "DIRECCIONLEGAL")
RES := DirecioLegal( FParams[1] )

endif

return RES



Agradeceria algún ejemplo.
Gracias
Theler Hugo
Argentina