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

Comparing ibx/trunk/runtime/IBExtract.pas (file contents):
Revision 49 by tony, Thu Feb 2 16:20:12 2017 UTC vs.
Revision 101 by tony, Thu Jan 18 14:37:18 2018 UTC

# Line 617 | Line 617 | begin
617          end;
618  
619          {Firebird 3 introduces IDENTITY columns. We need to check for them here}
620 <        if qryTables.HasField('RDB$GENERATOR_NAME') then
620 >        if qryTables.HasField('RDB$GENERATOR_NAME') and not qryTables.FieldByName('RDB$GENERATOR_NAME').IsNull then
621          begin
622            qryGenerators.ParamByName('GENERATOR').AsString :=  qryTables.FieldByName('RDB$GENERATOR_NAME').AsString;
623            qryGenerators.ExecQuery;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines