ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/nongui/IBTable.pas
(Generate patch)

Comparing ibx/trunk/runtime/nongui/IBTable.pas (file contents):
Revision 314 by tony, Tue Aug 25 15:40:58 2020 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

# Line 39 | Line 39 | unit IBTable;
39  
40   interface
41  
42 < uses SysUtils, Classes, DB, IB,  IBCustomDataSet,
43 <     IBSQL, IBUtils;
42 > uses SysUtils, Classes, DB, IB,  IBCustomDataSet, IBDatabase, IBSQL, IBUtils;
43      
44   type
45  
# Line 188 | Line 187 | type
187  
188   implementation
189  
190 < uses IBMessages, IBTypes;
190 > uses IBMessages, IBInternals;
191  
192   type
193  
# Line 197 | Line 196 | type
196    TIBMasterDataLink = class(TMasterDataLink)
197    private
198      FDelayTimerValue: integer;
199 <    FTimer: TIBTimerInf;
199 >    FTimer: IIBTimerInf;
200      procedure HandleRefreshTimer(Sender: TObject);
201      procedure SetDelayTimerValue(AValue: integer);
202    protected
# Line 863 | Line 862 | var
862              FieldList := FieldList +
863                QuoteIdentifier(DataBase.SQLDialect, Name) +
864                ' BLOB SUB_TYPE 0'; {do not localize}
865 +          ftFmtBCD:
866 +            if Database.Attachment.HasDecFloatSupport then
867 +              FieldList := FieldList +
868 +                QuoteIdentifier(DataBase.SQLDialect, Name) +
869 +                ' Decfloat(34)' {do not localize}
870 +            else
871 +              IBError(ibxeFieldUnsupportedType,[nil]);
872            ftUnknown, ftADT, ftArray, ftReference, ftDataSet,
873            ftCursor, ftWideString, ftAutoInc:
874              IBError(ibxeFieldUnsupportedType,[nil]);
# Line 959 | Line 965 | begin
965      if Active then
966      begin
967        ClearBuffers;
968 +      ResetBufferCache;
969        DataEvent(deDataSetChange, 0);
970      end;
971    finally

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines