Implement first event type

MSDyn365BC.Ntfy/src/foundation/EventTypes/EmptyEvent.Codeunit.al

@@ -2,14 +2,8 @@ namespace StefanMaron.Ntfy;
 
 codeunit 71179876 EmptyEventNTSTM implements INtfyEventNTSTM
 {
-    procedure SetFilters()
+    procedure SetFilters(NtfyEntry: Record NtfyEntryNTSTM);
     begin
 
     end;
-
-    procedure ApplyFilters()
-    begin
-
-    end;
-
 }

MSDyn365BC.Ntfy/src/foundation/EventTypes/EventType.Enum.al

@@ -11,5 +11,9 @@ enum 71179875 EventTypeNTSTM implements INtfyEventNTSTM
     }
 
     value(1; SalesDocumentReopened) { }
-    value(2; SalesDocumentReleased) { }
+    value(2; SalesDocumentReleased)
+    {
+        Caption = 'Sales document released';
+        Implementation = INtfyEventNTSTM = SalesDocumentReleasedNTSTM;
+    }
 }

MSDyn365BC.Ntfy/src/foundation/EventTypes/INtfyEvent.al

@@ -2,7 +2,6 @@ namespace StefanMaron.Ntfy;
 
 interface INtfyEventNTSTM
 {
-    procedure SetFilters()
-    procedure ApplyFilters()
+    procedure SetFilters(NtfyEntry: Record NtfyEntryNTSTM)
 
 }

MSDyn365BC.Ntfy/src/foundation/EventTypes/MyCodeunit.Codeunit copy.al

@@ -0,0 +1,52 @@
+namespace StefanMaron.Ntfy;
+using Microsoft.Sales.Document;
+using System.RestClient;
+
+codeunit 71179877 SalesDocumentReleasedNTSTM implements INtfyEventNTSTM
+{
+
+    procedure SetFilters(NtfyEntry: Record NtfyEntryNTSTM)
+    var
+        FilterPageBuilder: FilterPageBuilder;
+    begin
+        FilterPageBuilder.AddTable('Sales Header', Database::"Sales Header");
+        if FilterPageBuilder.RunModal() then begin
+            NtfyEntry.Validate(FilterText, FilterPageBuilder.GetView('Sales Header'));
+            NtfyEntry.Modify(true);
+        end;
+    end;
+
+    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Release Sales Document", OnAfterReleaseSalesDoc, '', false, false)]
+    local procedure SentNtfyOnAfterReleaseSalesDoc(var SalesHeader: Record "Sales Header")
+    var
+        FilterSalesHeader: Record "Sales Header";
+        NtfyEntry: Record NtfyEntryNTSTM;
+        RestClient: Codeunit "Rest Client";
+        Body: Codeunit "Http Content";
+        DoCall: Boolean;
+    begin
+        NtfyEntry.SetRange(EventType, NtfyEntry.EventType::SalesDocumentReleased);
+        NtfyEntry.SetFilter(NtfyTopic, '<>%1', '');
+        if NtfyEntry.FindSet() then
+            repeat
+                Clear(Body);
+                Clear(RestClient);
+                Clear(FilterSalesHeader);
+                DoCall := false;
+
+                if NtfyEntry.FilterText <> '' then begin
+                    FilterSalesHeader.SetView(NtfyEntry.FilterText);
+                    FilterSalesHeader.FilterGroup(2);
+                    FilterSalesHeader.SetRange(SystemId, SalesHeader."SystemId");
+                    DoCall := not FilterSalesHeader.IsEmpty();
+                end;
+
+                if DoCall then begin
+                    Body.Create(StrSubstNo('Sales %1 - %2 - has been released', SalesHeader."Document Type", SalesHeader."No."));
+                    RestClient.Post(StrSubstNo('https://ntfy.sh/%1', NtfyEntry.NtfyTopic), Body).GetContent().AsText();
+                end;
+            until NtfyEntry.Next() = 0;
+
+    end;
+
+}

MSDyn365BC.Ntfy/src/foundation/NtfyEntry.Table.al

@@ -25,6 +25,11 @@ table 71179875 NtfyEntryNTSTM
         {
             Caption = 'Event Type';
         }
+        field(4; FilterText; Text[2048])
+        {
+            AllowInCustomizations = Never;
+            Caption = 'Filter Text';
+        }
     }
 
     keys