Changeset 8545aac in tol


Ignore:
Timestamp:
Nov 3, 2008, 10:55:53 AM (18 years ago)
Author:
Jaime García <jgarcia@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
bb8cc0a
Parents:
7a71912
Message:

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

StdLib::SqlEngine::

SqlInfoDependent, SqlInfoColumns...

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tolbase/lib/byswidget/bchilddetail/bchilddetail.tcl

    r7a71912 r8545aac  
    772772  # $tablename es el nombre de la tabla padre.
    773773  set tolCmd  \
    774     "Text $setTableNames = TolSet2TclLst (SqlInfoDependent(\"$tablename\", Copy(Empty), GesAct));"
     774    "Text $setTableNames = TolSet2TclLst (StdLib::SqlEngine::SqlInfoDependent(\"$tablename\", Copy(Empty), GesAct));"
    775775  TclTolEval $tolCmd
    776776 
    … …  
    25142514    set infoColumns [GetGlobalUniqueName __infoColumns[clock second]]
    25152515    set cmdIC infoColums[clock clicks]
    2516     set cmdTIC "Set $infoColumns = SqlInfoColumns(\"$table\", $tolGes);"
     2516    #set cmdTIC "Set $infoColumns = SqlInfoColumns(\"$table\", $tolGes);"
     2517    set cmdTIC "Set $infoColumns = StdLib::SqlEngine::SqlInfoColumns(\"$table\", $tolGes);"
    25172518    ::tol::console eval $cmdTIC
    25182519    # check exists variable
    … …  
    25272528    set infoForeignKeys [GetGlobalUniqueName __infoForeignKeys[clock second]]
    25282529    set cmdIF infoForeignKeys[clock clicks]
    2529     set cmdTIF "Set $infoForeignKeys = SqlInfoForeign(\"$table\", $tolGes);"
     2530    set cmdTIF "Set $infoForeignKeys = StdLib::SqlEngine::SqlInfoForeign(\"$table\", $tolGes);"
    25302531    ::tol::console eval $cmdTIF
    25312532    # check exists variable
    … …  
    27512752      set infoColumns [GetGlobalUniqueName __infoColumns$step[clock second]]
    27522753      set cmdIC infoColums$step[clock clicks]
    2753       set cmdTIC "Set $infoColumns = SqlInfoColumns(\"$tableFk\", $tolGes);"
     2754      #set cmdTIC "Set $infoColumns = SqlInfoColumns(\"$tableFk\", $tolGes);"
     2755      set cmdTIC "Set $infoColumns = StdLib::SqlEngine::SqlInfoColumns(\"$tableFk\", $tolGes);"
    27542756      ::tol::console eval $cmdTIC
    27552757      # check exists variable
Note: See TracChangeset for help on using the changeset viewer.