function TDialogo.Guardar: boolean;
var
I: Integer;
begin
inherited;
Result:= False;
if Assigned(dsBase.DataSet) then
begin
try
With dsBase.DataSet as TClientDataSet do
begin
if Assigned(DataSetField) or FModoCache then
begin
CheckBrowseMode;
Result:= True;
end
else
begin
Result:= ApplyUpdates(0) = 0;
if not Result then
Abort;
end;
end;
except
On E: Exception do
begin
Application.ShowException(E);
raise E;
end;
end;
end;
end;