Fix problems with overlong directory names: phase #1

[mono.git] / mcs / class / Mono.Data.Tds / Mono.Data.Tds / TdsMetaParameter.cs

diff --git a/mcs/class/Mono.Data.Tds/Mono.Data.Tds/TdsMetaParameter.cs b/mcs/class/Mono.Data.Tds/Mono.Data.Tds/TdsMetaParameter.cs
index 4dfd3677eb360dc9a2ed77d42124484e4a7ac56d..8a59211cff8e2c76207d98505d0288ad33b1fe88 100644 (file)
--- a/mcs/class/Mono.Data.Tds/Mono.Data.Tds/TdsMetaParameter.cs
+++ b/mcs/class/Mono.Data.Tds/Mono.Data.Tds/TdsMetaParameter.cs
@@ -105,7 +105,16 @@ namespace Mono.Data.Tds {
                }
 
                public byte Scale {
-                       get { return scale; }
+                       get { 
+                               if (TypeName == "decimal" || TypeName == "numeric") {
+                                       if (scale == 0 && !Convert.IsDBNull(Value)) {
+                                               int[] arr = Decimal.GetBits (
+                                                               Convert.ToDecimal(Value));
+                                               scale = (byte)((arr[3]>>16) & (int)0xFF);
+                                       }
+                               }
+                               return scale;
+                       }
                        set { scale = value; }
                }
 
@@ -140,7 +149,9 @@ namespace Mono.Data.Tds {
                        switch (typeName) {
                        case "decimal":
                        case "numeric":
-                               result.Append (String.Format ("({0},{1})", Precision, Scale));
+                               // msdotnet sends a default precision of 28
+                               result.Append (String.Format ("({0},{1})",
+                                        (Precision == (byte)0 ? (byte)28 : Precision), Scale));
                                break;
                        case "varchar":
                        case "varbinary":