The code below creats an error when clicking the button
ERROR Uncaught [ object object] | FMessage: : FhelpContext: :0 FJS ERROR: : null
FStack::undefined at http://localhost:8000/ProjectTest2/ProjectTest2.js [541:9]
The code
var
Form1: TForm1;
CONST
C_JustUpdate = 0;
C_CreateSortOrder = 1;
implementation
{$R *.dfm}
procedure TForm1.WebButton1Click(Sender: TObject);
begin
XDataWebDataSet1.Close;
end;
procedure TForm1.WebFormCreate(Sender: TObject);
begin
WhatsNext :=1;
XDataWebDataSet1.Load;
end;
procedure TForm1.XDataWebDataSet1AfterClose(Dataset: TDataSet);
begin
XDataWebDataSet1.Load;
end;
procedure TForm1.XDataWebDataSet1AfterOpen(Dataset: TDataSet);
begin
XDataWebDataSet1.First;
CASE WhatsNext OF
C_JustUpdate:
BEGIN
XDataWebDataSet1.Edit;
XDataWebDataSet1.FieldByName('SortOrder').AsInteger := WebSpinEdit1.Value;
XDataWebDataSet1.Post;
XDataWebDataSet1.ApplyUpdates;
XDataWebDataSet1.Close;
END;
C_CreateSortOrder:
BEGIN
WhatsNext :=-0;
END;
END;
end;
end.