Datasnap. Delphi 10.2, firebird 3
Процедура выбирает записи из бд клиентов и отправляет на сервер.
в while цикле с помощью FDQuery1 перебираю неотправленные записи, встаю в конце датасета cdsSelectCountry, а второй датасет (cdsInsertCountry) делает вставку и потом отправляется на сервер.
cdsCountry1-выбирает записи из бд клиента
cdsSelectCountry-чтобы узнать номер последней записи
cdsInsertCountry- вставка в конце
в обойх датасетах(cdsSelectCountry, FDQuery1) есть required поля и last и next вызивают исключение :
"Field value required"
required:=false ничего не меняет. Что можно сделать?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
procedure Tclient.ButtonCountryClick(Sender: TObject);
var
n:integer;
begin
NullStrictConvert := false;
DBGridClient.DataSource:=clientmodule1.dsCountry1;
clientmodule1.cdsCountry1.Open;
while not clientmodule1.FDQuery1.Eof do begin
try
clientmodule1.cdsSelectCountry.Open; // для номера последней записи
clientmodule1.cdsSelectCountry.last;
n:=clientmodule1.cdsSelectCountry.FieldByName('Country_uid').AsInteger;
clientmodule1.cdsSelectCountry.Append;
clientmodule1.cdsSelectCountry.Edit;
clientmodule1.cdsSelectCountry.FieldByName('Country_uid').AsInteger:=n+1;
Clientmodule1.cdsInsertCountry.close;
Clientmodule1.cdsInsertCountry.ParamByName('country_id').Value:=
Clientmodule1.CdsCountry1.FieldByName('country_id').AsInteger;
Clientmodule1.cdsInsertCountry.ParamByName('name').Value:=
Clientmodule1.CdsCountry1.FieldByName('name').AsWidestring;
Clientmodule1.cdsInsertCountry.ParamByName('Firmcode').Value:=
Clientmodule1.CdsCountry1.FieldByName('firmcode').AsInteger;
Clientmodule1.cdsInsertCountry.Execute;
clientmodule1.FDQuery1.edit;
clientmodule1.FDQuery1.FieldByName('tr').AsWidestring:='1';
clientmodule1.FDQuery1.FieldByName('st').AsWidestring:='s';
clientmodule1.FDQuery1.next;
finally
end;
end;
clientmodule1.cdsInsertCountry.ApplyUpdates(-1);
end;
