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

Comparing ibx/trunk/runtime/IBCustomDataSet.pas (file contents):
Revision 11 by tony, Tue Oct 9 08:10:32 2012 UTC vs.
Revision 15 by tony, Thu Feb 28 16:56:14 2013 UTC

# Line 4031 | Line 4031 | end;
4031  
4032   procedure TIBGenerator.Apply;
4033   begin
4034 <  if (FGeneratorName <> '') and (FFieldName <> '')  then
4034 >  if (FGeneratorName <> '') and (FFieldName <> '') and Owner.FieldByName(FFieldName).IsNull then
4035      Owner.FieldByName(FFieldName).AsInteger := GetNextValue(Owner.Database,Owner.Transaction);
4036   end;
4037  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines