Changeset 483cd65 in tol for tolbase/lib

Timestamp:

Apr 29, 2009, 3:11:03 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

004a6df

Parents:

eecdfc0

Message:

parcheado el problema relativo al bug 607 de Tolbase (aun abierto)

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@967 be4846ae-f051-483a-831f-b64e7d08527f

Location:

tolbase/lib/byswidget

Files:

• bchilddetail/bchilddetail.tcl (modified) (1 diff)
• beditmaster/beditmaster.tcl (modified) (4 diffs)

tolbase/lib/byswidget/bchilddetail/bchilddetail.tcl

@@ -2861 +2861 @@
     # name of Text TOL
     set namTabFie [GetGlobalUniqueName __nameTabFie__]
-    set cmd "Text $namTabFie = TxtListTcl(SqlGetTableParent(\"${table}\", \"${field}\", $tolGes));"
+    #set cmd "Text $namTabFie = TxtListTcl(SqlGetTableParent(\"${table}\", \"${field}\", $tolGes));"
+        set cmd "Text $namTabFie = TxtListTcl(StdLib::SqlEngine::SqlGetTableParent(\"${table}\", \"${field}\", $tolGes));"
     # run
     ::tol::console eval $cmd

tolbase/lib/byswidget/beditmaster/beditmaster.tcl

@@ -2098 +2098 @@
     set table $tablename
     set tolGes [SqlGetTolGestor $gestor]
-    
+        
     # Obtenemos informacion de los campos
     set infoColumns [GetGlobalUniqueName __infoColumns[clock second]]
@@ -2112 +2112 @@
       puts "Error al ejecutar: $cmdTIC"
       return {}   
-    }
-    ::tol::tableset create $cmdIC [ list Set $infoColumns ]
-    Tolcon_Trace "::tol::tableset create $cmdIC [ list Set $infoColumns ]"
+    }    
+    ::tol::tableset create $cmdIC $infoColumns
   
     # Obtenemos informacion de las foregn keys
@@ -2130 +2129 @@
     }    
     # comprobamos que tenemos valores
-    set nRegFk [lindex [TclGetVar Set $infoForeignKeys] 0]
+    set nRegFk [lindex [TclGetFromSet Set $infoForeignKeys] 0]
     if {[expr $nRegFk > 0]} {
-      ::tol::tableset create $cmdIF [ list Set $infoForeignKeys ]
+      ::tol::tableset create $cmdIF $infoForeignKeys
     }  
 #Tolcon_Trace "EditMasterUtils::InitTable. nRegFk: $nRegFk"
@@ -2455 +2454 @@
     # name of Text TOL
     set namTabFie [GetGlobalUniqueName __nameTabFie__]
-    set cmd "Text $namTabFie = TxtListTcl(SqlGetTableParent(\"${table}\", \"${field}\", $tolGes));"
+    #set cmd "Text $namTabFie = TxtListTcl(SqlGetTableParent(\"${table}\", \"${field}\", $tolGes));"
+        set cmd "Text $namTabFie = TxtListTcl(StdLib::SqlEngine::SqlGetTableParent(\"${table}\", \"${field}\", $tolGes));"
+
     # run
     ::tol::console eval $cmd
+
     set lst [string trim [TclGetVar Text $namTabFie] {"}];#"
     if {[string length $lst]} { eval set lst $lst }