Subject | CancelUpdates |
---|---|
Author | hans@hoogstraat.ca |
Post date | 2002-03-07T18:28:36Z |
Hello Jason,
I like to suggest to add the shown line to prevent the
SNotEditing error on a TIBO.CancelUpdates.
Best Regards
Hans
===================
procedure TIBODataset.InternalSetFieldData( Field: TField; Buffer:
Pointer );
var
ARecBuf: pointer;
ACalcBuf: pointer;
ANode: PIB_Node;
tmpData: pointer;
tmpInd: ^smallint;
tmpLen: integer;
NewTimeStamp: TTimeStamp;
tmpStr: string;
begin
if (State = dsSetKey) then
I like to suggest to add the shown line to prevent the
SNotEditing error on a TIBO.CancelUpdates.
Best Regards
Hans
===================
procedure TIBODataset.InternalSetFieldData( Field: TField; Buffer:
Pointer );
var
ARecBuf: pointer;
ACalcBuf: pointer;
ANode: PIB_Node;
tmpData: pointer;
tmpInd: ^smallint;
tmpLen: integer;
NewTimeStamp: TTimeStamp;
tmpStr: string;
begin
>if not (State in dsWriteModes) then DatabaseError(SNotEditing);
> if State = dsInactive then Exit;
>
if (State = dsSetKey) then