| 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; |
| 2614 |
|
|
| 2615 |
|
procedure TIBExtract.SetDatabase(const Value: TIBDatabase); |
| 2616 |
|
begin |
| 2617 |
< |
if FDatabase <> Value then |
| 2617 |
> |
if (csLoading in ComponentState) or (FDatabase <> Value) then |
| 2618 |
|
begin |
| 2619 |
|
FDatabase := Value; |
| 2620 |
|
if (not Assigned(FTransaction)) and (FDatabase <> nil) then |
