Disregard TM9 in setNumber, and rather try to autodetect number format.

1 files changed, 13 insertions, 2 deletions

diff --git a/lib/LuaOCCI.cc b/lib/LuaOCCI.cc
index f6e2501..8325bba 100644
--- a/lib/LuaOCCI.cc
+++ b/lib/LuaOCCI.cc
@@ -954,9 +954,20 @@ int sLua_EncapOCCI_Statement::EncapOCCI_Statement_proceed_unprotected(Lua * L, i
         break;
     case STATEMENT_SETNUMBER:
         {
-            Number x;
-            x.fromText(global_env, L->tostring(3).to_charp(), n == 3 ? L->tostring(4).to_charp() : "TM9");
+            Number x(0);
+            String num = L->tostring(3);
+            char format[128];
+            int dotpos;
+            memset(format, '9', num.strlen());
+            format[num.strlen()] = 0;
+            dotpos = num.strchr('.');
+            if (dotpos != -1) {
+                format[dotpos] = '.';
+            }
+            x.fromText(global_env, L->tostring(3).to_charp(), n == 3 ? L->tostring(4).to_charp() : format);
             stmt->setNumber(L->tonumber(2), x);
+
+            std::string s = x.toText(global_env, "TM9");
         }
         break;
     case STATEMENT_SETPREFETCHMEMORYSIZE: