Toninho,

> Hi Jason,
>
> Are you did get downloading the sample app?
>
> www.seebcgms.org.br/download/bugibo.zip

Please try this fix in IBA_BDataset.imp and let me know if it works for you.

procedure TIB_BDataset.CalculateFields;
begin
if Prepared and IsSelectSQL then
begin
inherited CalculateFields;
KeyToChildAction( kcaUpdateKeyDescCalcFields, longint(Fields) );
if not NeedToPost then
PutRecord( NodeList.CurRef.Node, Fields );
if BufferFields.RowNode = Fields.RowNode then
begin
if Fields.RowState = rsNone then
BufferFields.Clearbuffers( rsNone )
else
BufferFields.RowData := Fields.RowData;
if Fields.OldRowData <> '' then
BufferFields.OldRowData := Fields.OldRowData;
end;
end;
end;


Thanks,
Jason LeRoy Wharton
www.ibobjects.com