Changeset b9d4214 in tol

Timestamp:

Nov 7, 2008, 8:33:15 AM (18 years ago)

Author:

Jaime García <jgarcia@…>

Branches:

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

Children:

3d9c88d

Parents:

3e755e5

Message:

PostgreSQL types added.

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

Location:

tolbase/lib/byswidget/bfunctions

Files:

• bfsql.tcl (modified) (9 diffs)
• bftoltcl.tcl (modified) (1 diff)

tolbase/lib/byswidget/bfunctions/bfsql.tcl

@@ -16 +16 @@
     "varchar" -
     "varchar2" -
+    "bpchar" -
     "long" {
       return "Text"
@@ -265 +266 @@
     "char"     -
     "varchar"  -
-    "varchar2" -    
+    "varchar2" -
+    "bpchar"   -
     "text" {
       if {[string length $lonField]} {
@@ -314 +316 @@
   } else {
     set typeField [string tolower [lindex $type 0]]
+    Tolcon_Trace "typeField --> $typeField"
+    Tolcon_Trace "type --> $type"
     switch $typeField {
       "bigint"     -
@@ -319 +323 @@
       "smallint"   -
       "tinyint"    -
+      "int4"   -
       "bit"        -
       "number"     -
@@ -333 +338 @@
         switch $gestor {
           "Mic" { set valFor "convert(datetime,'${value}',121)"            }
-          "Ora" { set valFor "to_date('${value}','YYYY-MM-DD HH24:MI:SS')" }
+          "Ora" - "Pos"{ set valFor "to_date('${value}','YYYY-MM-DD HH24:MI:SS')" }
           "Mys" { set valFor "str_to_date('${value}','%Y%m%d %H:%i:%s')" }
           default { error "Gestor no implementado $gestor"  }
@@ -340 +345 @@
       "char"       -
       "varchar"    -
+      "bpchar"     -
       "varchar2"   -
       "text"       -
@@ -372 +378 @@
     "int"      -
     "smallint" -
+    "int4" -
     "tinyint" {
       # no necesita ningun delimitador
@@ -405 +412 @@
           set delimeter {{convert(datetime,'} {',121)}}        
         }
-        "Oracle" {
+        "Oracle" - "Pos" {
           set delimeter {{to_date('} {','YYYY-MM-DD HH24:MI:SS')}}        
         }
@@ -414 +421 @@
     "char"     -
     "varchar"  -
-    "varchar2"  -
+    "bpchar"   -
+    "varchar2" -
+    "bpchar"   -
     "text" {
       set delimeter {' '}

tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

@@ -559 +559 @@
       set delimeter {' '}
       set gestor [string trim [TclGetVar Text DBA] {"}]
-      puts "gestor de bd --> $gestor"
+
       switch $gestor {
         "SqlServer" {
           set delimeter {{convert(datetime,'} {',121)}}        
         }
-        "Oracle" {
+        "Oracle" - "Pos" {
           set delimeter {{to_date('} {','yyyy/mm/dd')}}        
         }