paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 11:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Show a message when applying fielddefs

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-19 12:57:55 +02:00
parent 987e9f70d8
commit c1a93988f2
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/pas2js/components/pas2jsrestcmd.pas
View File

@ -108,6 +108,7 @@ procedure TIDEPas2JSRestCommandHandler.CreateFieldDefs(Sender: TObject);
Var
DS : TSQLDBRestDataset;
aCount: Integer;
begin
DS:=GetDataset;
@ -124,7 +125,14 @@ begin
ShowMessage(rsNoResourceCannotCreateFieldDefs);
Exit;
end;
IDERestUtils.UpdateFieldDefs(DS.Connection,IDERestUtils.GetFullResourceName(DS),DS.FieldDefs);
aCount:=IDERestUtils.UpdateFieldDefs(DS.Connection,IDERestUtils.GetFullResourceName(DS),DS.FieldDefs);
if aCount=-1 then
ShowMessage(rsServerRequestFailedCannotCreateFieldDefs)
else if aCount=0 then
ShowMessage(rsCreateFieldDefsNoNew)
else
ShowMessage(Format(rsCreateFieldDefsCount,[aCount]))
end;
procedure TIDEPas2JSRestCommandHandler.ShowData(Sender: TObject);