Facase Pattenr

Author: msnraju

facade-pattern/app.json

@@ -0,0 +1,38 @@
+{
+  "id": "4d3a53e8-dc3c-4750-8784-296c760b5855",
+  "name": "facade-pattern",
+  "publisher": "Default publisher",
+  "version": "1.0.0.0",
+  "brief": "",
+  "description": "",
+  "privacyStatement": "",
+  "EULA": "",
+  "help": "",
+  "url": "",
+  "logo": "",
+  "dependencies": [
+    {
+      "id": "63ca2fa4-4f03-4f2b-a480-172fef340d3f",
+      "publisher": "Microsoft",
+      "name": "System Application",
+      "version": "16.0.0.0"
+    },
+    {
+      "id": "437dbf0e-84ff-417a-965d-ed2bb9650972",
+      "publisher": "Microsoft",
+      "name": "Base Application",
+      "version": "16.0.0.0"
+    }
+  ],
+  "screenshots": [],
+  "platform": "16.0.0.0",
+  "idRanges": [
+    {
+      "from": 50100,
+      "to": 50149
+    }
+  ],
+  "contextSensitiveHelpUrl": "https://facade-pattern.com/help/",
+  "showMyCode": true,
+  "runtime": "5.0"
+}

facade-pattern/src/CustomerListExt.PageExt.al

@@ -0,0 +1,11 @@
+pageextension 50130 CustomerListExt extends "Customer List"
+{
+    trigger OnOpenPage();
+    var
+        ItemSearchImpl: Codeunit "Item Search Impl";
+        Items: List of [Text[100]];
+    begin
+        ItemSearchImpl.SearchItems('A', Items);
+        Message('Count: %1', Items.Count);
+    end;
+}

facade-pattern/src/ItemResourceSearch.Codeunit.al

@@ -0,0 +1,18 @@
+codeunit 50132 "Item / Resource Search"
+{
+    Access = Public;
+
+    procedure SearchItems(SearchText: Text[100]; Items: List of [Text[100]])
+    var
+        ItemSearchImpl: Codeunit "Item Search Impl";
+    begin
+        ItemSearchImpl.SearchItems(SearchText, Items);
+    end;
+
+    procedure SearchResource(SearchText: Text[100]; Resources: List of [Text[100]])
+    var
+        ResourceSearchImpl: Codeunit "Resource Search Impl";
+    begin
+        ResourceSearchImpl.SearchResource(SearchText, Resources);
+    end;
+}

facade-pattern/src/ItemSearchImpl.Codeunit.al

@@ -0,0 +1,15 @@
+codeunit 50130 "Item Search Impl"
+{
+    Access = Internal;
+
+    procedure SearchItems(SearchText: Text[100]; Items: List of [Text[100]])
+    var
+        Item: Record Item;
+    begin
+        Item.SetFilter(Description, '@*' + SearchText + '*');
+        if Item.FindSet() then
+            repeat
+                Items.Add(Item.Description);
+            until Item.Next() = 0;
+    end;
+}

facade-pattern/src/ResourceSearchImpl.Codeunit.al

@@ -0,0 +1,15 @@
+codeunit 50131 "Resource Search Impl"
+{
+    Access = Internal;
+
+    procedure SearchResource(SearchText: Text[100]; Resources: List of [Text[100]])
+    var
+        Resource: Record Resource;
+    begin
+        Resource.SetFilter(Name, '@*' + SearchText + '*');
+        if Resource.FindSet() then
+            repeat
+                Resources.Add(Resource.Name);
+            until Resource.Next() = 0;
+    end;
+}