Subject | RE: [IBO] IBO 4.9.14 Build 43 released |
---|---|
Author | IBO Support List |
Post date | 2012-02-29T22:45:47Z |
This seems to clear up the issues I have hit so far in IB_Components.pas:
procedure TIB_Column.SysBeforeModify;
begin
if ( Row.RowType = rtField ) and
( not IsCalculated ) then
begin
if ReadOnly then
raise Exception.Create('Column is readonly');
if Statement is TIB_Dataset then
with Statement as TIB_Dataset do
if ( Self.Row = Fields ) and
( not ( State in [ dssEdit, dssInsert ] )) then
raise Exception.Create('Dataset is not in an edit state');
end;
if not Assigned( FValidateBuffer ) then
GetMem( FValidateBuffer, DataSize + SizeOf( smallint ));
if not FValidating then
Move( FNewColumnInd^, FValidateBuffer^, DataSize + SizeOf( smallint ));
end;
Please apply this and let me know if there are any other issues that this
raises an exception when it shouldn't.
Thanks,
Jason
procedure TIB_Column.SysBeforeModify;
begin
if ( Row.RowType = rtField ) and
( not IsCalculated ) then
begin
if ReadOnly then
raise Exception.Create('Column is readonly');
if Statement is TIB_Dataset then
with Statement as TIB_Dataset do
if ( Self.Row = Fields ) and
( not ( State in [ dssEdit, dssInsert ] )) then
raise Exception.Create('Dataset is not in an edit state');
end;
if not Assigned( FValidateBuffer ) then
GetMem( FValidateBuffer, DataSize + SizeOf( smallint ));
if not FValidating then
Move( FNewColumnInd^, FValidateBuffer^, DataSize + SizeOf( smallint ));
end;
Please apply this and let me know if there are any other issues that this
raises an exception when it shouldn't.
Thanks,
Jason