I have a handler set for the TXDataWebDataset.AfterApplyUpdates event:
procedure TBaseEditForm.AfterApplyUpdates(Sender: TDataset; Info: TResolveResults);
var
lRecords: Integer;
lStatus: TUpdateStatus;
begin
lRecords := Length(Info.Records);
if lRecords > 0 then
begin
lStatus := Info.Records[0].Status;
case lStatus of
TUpdateStatus.Unmodified:
ShowAnAwesomeToast(SaveTitle(lStatus), SaveDescription(lStatus), 'far fa-check-square');
TUpdateStatus.Modified:
ShowAnAwesomeToast(SaveTitle(lStatus), SaveDescription(lStatus), 'fas fa-check-circle');
TUpdateStatus.Inserted:
ShowAnAwesomeToast(SaveTitle(lStatus), SaveDescription(lStatus), 'fas fa-check-circle');
TUpdateStatus.Deleted:
ShowAnAwesomeToast(SaveTitle(lStatus), SaveDescription(lStatus), 'far fa-trash-alt');
TUpdateStatus.Resolved:
ShowAnAwesomeToast(SaveTitle(lStatus), SaveDescription(lStatus), 'fas fa-check-circle');
TUpdateStatus.ResolveFailed:
ShowAnAwesomeToast(SaveTitle(lStatus), SaveDescription(lStatus), 'far fa-exclamation-triangle');
end;
end;
end;
I created the list using auto completion and it provided me with all the enumerations as expected (and shown above).
However when I compile I get the error
identifier not found "Unmodified"
I have XData.Web.Dataset
in the Interface Uses clause and have also added XData.Web.JsonDataset
but to no avail.
Any ideas?
Thanks.