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