qDocument.BeginCachedUpdates; DBMain.StartTransaction; try qDocument.First; qDocument.Edit; qDocumentDefault.AsBoolean := true; qDocument.Post; qDocument.Next; qDocument.Edit; qDocumentDefault.AsBoolean := true; qDocument.Post; DBMain.Commit; except DBMain.Rollback; raise; end; qDocument.ApplyCachedUpdates;