[Instantobjects-cvscommit] SF.net SVN: instantobjects:[911] trunk/Source/Core/InstantBrokers.pas

[<na...@us...>]

Revision: 911
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=911&view=rev
Author:   nandod
Date:     2010-09-12 08:52:21 +0000 (Sun, 12 Sep 2010)

Log Message:
-----------
* Fixed: Id fields were erroneously treated always as integers in some generated SQL, causing errors on some databases.

Modified Paths:
--------------
    trunk/Source/Core/InstantBrokers.pas

Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas	2010-09-12 08:29:52 UTC (rev 910)
+++ trunk/Source/Core/InstantBrokers.pas	2010-09-12 08:52:21 UTC (rev 911)
@@ -6080,12 +6080,13 @@
   inherited Create;
   FParentContext := AParentContext;
 
-  if Assigned(FParentContext) then 
+  if Assigned(FParentContext) then
     FParentContext.AddChildContext(Self);
 
   FStatement := AStatement;
   FQuote := AQuote;
   FDelimiters := ADelimiters;
+  FIdDataType := AIdDataType;
 
   Initialize;
 end;