error in ObjectExist

[imendez]

In last snapshot TOL version, from Feb 1st 2005, function ObjectExist has a wrong
behaviour. In this code, "existe" is zero!!! No SADD code works becuase of this
problem.

Text SqlFormat(Anything var, Real gestor, Text format)

{

Text gestorTxt = Case
(

EQ(gestor, GesMic), "Mic",
EQ(gestor, GesOra), "Ora",
True, ""

);
Text gcodeText = "Sql"+gestorTxt +"Format"+format;
If(Not(ObjectExist("Code", gcodeText)),
{

Real SqlTrace("SqlFormat", "No existe el gestor o formato desconocido");
"null"

},
{

Code gcode = Eval("Code "+gcodeText+"; ");
gcode(var)

})

};

PutDescription("Formateador de Sql.",SqlFormat);

Real existe = ObjectExist("Code", "SqlFormat");

[danirus]

Tolbase with the variable "existe" == 1

[danirus]

Hi Ivan,

The snapshot you are using has some problems with Functions Name Overloading.
I remember, I sent a message to usuarios-tol@… explaining that.
Anyway, sorry!

If you get the sources from the Tol CVS, you can see that it works properly few
days after the snapshot was released. We are waiting for the last changes that
Tolbase Team are close to apply in order to release the v1.1.3 version of all
products (Tol, Toltcl and Tolbase).

Tol are ready for v1.1.3 since 15 days ago, as you can see in the snapshot
attached here.
But if your team needs urgently a Tol Binary Package with this feature working,
please let me know, and we can make a special package for you.

Kind regards,
Daniel