То есть цикл, который перебирает весь датасет и обрезает пробелы?
А если там 25000 строк?

C этим разобрался - спасибо!

Но появился след вопрос:

Появляется ошибка: Приложение не может явнм образом закрыть объект Connection в середине транзакции. Это происходит при вызове удаленной процедуры. Как быть?

procedure TFClients.providerBeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind; var Applied: Boolean);
begin
case UpdateKind of
ukModify:
begin
with dm do begin
sp_clients_update.Parameters.ParamByName('@bank').Value :=DeltaDS.FieldByName('Áàíê').NewValue;
sp_clients_update.Parameters.ParamByName('@naim').Value :=DeltaDS.FieldByName('Íàèìåíîâàíèå').NewValue;
sp_clients_update.Parameters.ParamByName('@adress').Value :=DeltaDS.FieldByName('Àäðåñ').NewValue;
sp_clients_update.Parameters.ParamByName('@tel').Value :=DeltaDS.FieldByName('Òåëåôîí').NewValue;
sp_clients_update.Parameters.ParamByName('@schet').Value:=DeltaDS.FieldByName('Ñ÷åò').NewValue;
sp_clients_update.Parameters.ParamByName('@OKPO').Value :=DeltaDS.FieldByName('ÎÊÏÎ').NewValue;
sp_clients_update.ExecProc;
end;
end;
ukDelete:
begin
with dm do begin
sp_clients_delete.Parameters.ParamByName('@bik').Value:=DeltaDS.FieldByName('ÁÈÊ').OldValue;;
sp_clients_delete.ExecProc;
end;
end;
ukInsert:
begin
with dm do begin
// sp_clients_insert.Parameters.ParamByName('@id').Value:='';
sp_clients_insert.Close;
sp_clients_insert.Parameters.ParamByName('@naim').Value :=DeltaDS.FieldByName('Íàèìåíîâàíèå').NewValue;
sp_clients_insert.Parameters.ParamByName('@adress').Value :=DeltaDS.FieldByName('Àäðåñ').NewValue;
sp_clients_insert.Parameters.ParamByName('@tel').Value :=DeltaDS.FieldByName('Òåëåôîí').NewValue;
sp_clients_insert.Parameters.ParamByName('@leader').Value :=DeltaDS.FieldByName('Ðóêîâîäèòåëü').NewValue;
sp_clients_insert.Parameters.ParamByName('@datareg').Value :=DeltaDS.FieldByName('Äàòà ðåãèñòðàöèè').NewValue;
sp_clients_insert.Parameters.ParamByName('@bank').Value :=DeltaDS.FieldByName('Áàíê').NewValue;
sp_clients_insert.Parameters.ParamByName('@schet').Value :=DeltaDS.FieldByName('Ñ÷åò').NewValue;
sp_clients_insert.Parameters.ParamByName('@okpo').Value :=DeltaDS.FieldByName('ÎÊÏÎ').NewValue;
sp_clients_insert.Parameters.ParamByName('@kpp').Value :=DeltaDS.FieldByName('ÊÏÏ').NewValue;
sp_clients_insert.ExecProc;
// sp_clients_insert.Close;
end;
end;
end;
Applied := True;
end;

Так у меня ApplyUpdates получается генерирует событие для провайдера, обработчик которого и запускает процедуры

Все! Я понял. Просто таблицы криво открывал...:)

Ну и наверно последний вопрос.

У меня после изменения в ClientDataSete не обновляются данные в контролах.

Я написал так:

procedure TFClients.cds_clientsAfterPost(DataSet: TDataSet);
begin
cds_clients.ApplyUpdates(-1);
cds_Clients.Close;
cds_Clients.Open;
end;

Но мне кажется, есть другой путь.

Данные, которые пользователь вводит в ClientDataSet, которые потом типа должны синхронизироваться с таблицами sql, но я этого не делаю и обращаюсь к серверу с помощью процедур. ClientDataSet мне нужен лишь для того, чтобы определять какое действие выполнил пользователь и в соответствии с этим вызывать процедуру. Так вот. Делаю ClientDataset1.Append, пользователь вводит данные, потом post. И ни хрена эти данные не отобращаются.