opening sadd "maintenance table" window crashes for oracle DBs

[Jorge Conde]

When openning a sadd "maintenance table" window (for instance, selecting "Mantenimiento" on the "Estimación" menu) there is a TCL error, for version 1.1.7 but not for 1.1.6. We checked for other projects and it works normally, so it seems to be something which depends on how oracle gives back some information, but anyway, there must be something which is not general .

The TCL apllication error is the following.

Error in constructor: incorrect object reference in ResolveObject: could not create 'infoColums2023046415'
incorrect object reference in ResolveObject: could not create 'infoColums2023046415'

while executing

"::tol::tableset create $cmdIC $infoColumns"

(procedure "::beditmaster::Snit_methodInitTable" line 52)
invoked from within

"::beditmaster::Snit_methodInitTable ::beditmaster ::beditmaster::Snit_inst1 .main.mdi.slave7.work.editMaster .main.mdi.slave7.work.editMaster"

("uplevel" body line 1)
invoked from within

"uplevel 1 $command $args"

invoked from within

"$self InitTable"

(procedure "::beditmaster::Snit_constructor" line 52)
invoked from within

"::beditmaster::Snit_constructor ::beditmaster ::beditmaster::Snit_inst1 .main.mdi.slave7.work.editMaster .main.mdi.slave7.work.editMaster -bodbcmodule..."

("eval" body line 1)
invoked from within

"eval [linsert $arglist 0 ${type}::Snit_constructor $type $selfns $instance $instance]"

(procedure "RT.ConstructInstance" line 9)
invoked from within

"RT.ConstructInstance $type $selfns $name $args"

(procedure "::snit::RT.widget.typemethod.create" line 53)
invoked from within

"::snit::RT.widget.typemethod.create ::beditmaster .main.mdi.slave7.work.editMaster -bodbcmodule ::bodbc::dbSADD1 -table CCCInput -parent .main.mdi.sla..."

("uplevel" body line 1)
invoked from within

"uplevel 1 $command $args"

invoked from within

"beditmaster $tl.editMaster -bodbcmodule $opts(-bodbcmodule) -table $opts(-table) -parent $w -autoload ..."

(procedure "::edTableGeneric::Create" line 20)
invoked from within

"::edTableGeneric::Create -table CCCInput -bodbcmodule ::bodbc::dbSADD1 -proccod ::edTableGeneric::prociscode -procdes ::edTableGeneric::procisdesc"

("eval" body line 1)
invoked from within

"eval ::edTableGeneric::Create -table $opts(-table) -bodbcmodule $opts(-bodbcmodule) -proccod $opts(-proccod) -procdes $opts(-procdes)"

(procedure "::edTableGeneric::Show" line 47)
invoked from within

"::edTableGeneric::Show -table $table -bodbcmodule $opts(-bodbcmodule)"

(procedure "::edTableGeneric::InitTolVar" line 29)
invoked from within

"::edTableGeneric::InitTolVar -var TInput"

(procedure "::edInput::Show" line 10)
invoked from within

"::edInput::Show"

(procedure "::bstreeinput::Snit_method_OpenInput" line 23)
invoked from within

"::bstreeinput::Snit_method_OpenInput ::bstreeinput ::bstreeinput::Snit_inst1 .main.mdi.slave6.work.bti .main.mdi.slave6.work.bti"

("uplevel" body line 1)
invoked from within

"uplevel 1 $command $args"

invoked from within

".main.mdi.slave6.work.bti _OpenInput"

(menu invoke)

[Jorge Conde]

Este defecto está ocurriendo también con sqlserver, luego no es solamente de la interacción con Oracle, sino de alguna interacción entre tolbase, tcl y los gestores de base de datos. Ocurre tanto en la versión 1.1.7 como en la 2.0.1 .

[Jorge]

(In [2300]) closes #720, tol::tableset needed updating to new object's reference