Changeset 7a71912 in tol for tolbase/lib/byswidget/beditmaster/beditmaster.tcl

Timestamp:

Nov 3, 2008, 10:21:50 AM (18 years ago)

Author:

Jaime García <jgarcia@…>

Branches:

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

Children:

8545aac

Parents:

b0de6b5

Message:

Modificado el acceso a las funciones SqlInfoColumns, accediendo a ellas a partir del nameblock donde están generadas:

StdLib::SqlEngine::SqlInfoColumns

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

File:

• tolbase/lib/byswidget/beditmaster/beditmaster.tcl (modified) (4 diffs)

tolbase/lib/byswidget/beditmaster/beditmaster.tcl

@@ -940 +940 @@
   #///////////////////////////////////////////////////////////////////////////
     # grid of objects
-    for {set x 1} {$x<=$maxFields} {incr x} {
+    for {set x 1} {$x<=$maxFields} {incr x} {    
       switch [lindex $fieldInfo($x,field,type) 0] {
           "bit" {
@@ -2098 +2098 @@
     set table $tablename
     set tolGes [SqlGetTolGestor $gestor]
-
+    
     # Obtenemos informacion de los campos
     set infoColumns [GetGlobalUniqueName __infoColumns[clock second]]
     set cmdIC infoColums[clock clicks]
-    set cmdTIC "Set $infoColumns = SqlInfoColumns(\"$table\", $tolGes);"
+    
+    #set cmdTIC "Set $infoColumns = SqlInfoColumns(\"$table\", $tolGes);"
+    set cmdTIC "Set $infoColumns = StdLib::SqlEngine::SqlInfoColumns(\"$table\", $tolGes);"
+
     ::tol::console eval $cmdTIC
     # check exists variable
@@ -2115 +2118 @@
     set infoForeignKeys [GetGlobalUniqueName __infoForeignKeys[clock second]]
     set cmdIF infoForeignKeys[clock clicks]
-    set cmdTIF "Set $infoForeignKeys = SqlInfoForeign(\"$table\", $tolGes);"
+    #set cmdTIF "Set $infoForeignKeys = SqlInfoForeign(\"$table\", $tolGes);"
+    set cmdTIF "Set $infoForeignKeys = StdLib::SqlEngine::SqlInfoForeign(\"$table\", $tolGes);"
+    
     ::tol::console eval $cmdTIF
     # check exists variable
@@ -2339 +2344 @@
       set infoColumns [GetGlobalUniqueName __infoColumns$step[clock second]]
       set cmdIC infoColums$step[clock clicks]
-      set cmdTIC "Set $infoColumns = SqlInfoColumns(\"$tableFk\", $tolGes);"
+      #set cmdTIC "Set $infoColumns = SqlInfoColumns(\"$tableFk\", $tolGes);"+
+      set cmdTIC "Set $infoColumns = StdLib::SqlEngine::SqlInfoColumns(\"$tableFk\", $tolGes);"
+   
       ::tol::console eval $cmdTIC
       # check exists variable