Server:
procedure Tfrm****.DatasetSetProvider(Sender: TObject;
DataSet: TClientDataSet;
E: EUpdateError;
UpdateKind: TUpdateKind;
var Response: TResolverResponse);
begin
with Sender as TDataSetProviderdo
begin
if (ErrCat(E.ErrorCode) = ERRCAT_NOTFOUND) and
(UpdateMode <> upWhereKeyOnly) then
begin
UpdateMode := upWhereKeyOnly;
Response := rrApply;
end;
end;
end;
Client:
procedure Tfrmrkd.cdsrkdReconcileError(DataSet: TClientDataSet;
E: EReconcileError;
UpdateKind: TUpdateKind;
var Action: TReconcileAction);
//TUpdateKind = (ukModify, ukInsert, ukDelete);
//TReconcileAction = (raSkip, raAbort, raMerge, raCorrect, raCancel, raRefresh);
begin
Action := HandleReconcileError(DataSet, UpdateKind, E);
end;
ok?
