Rename dir ExcelDNA -> AddIn

2 files changed, 72 insertions, 0 deletions

diff --git a/Source/AddIn/AddIn.cs b/Source/AddIn/AddIn.cs
new file mode 100644
index 0000000..3c82406
--- /dev/null
+++ b/Source/AddIn/AddIn.cs
@@ -0,0 +1,53 @@
+using ExcelDna.Integration;
+using ExcelDna.Registration;
+using Microsoft.Win32;
+using System.Net.Http;
+
+namespace RehauSku.Assist
+{
+    public enum ResponseOrder
+    {
+        Default,
+        Relevance,
+        Name,
+        Price,
+        Series
+    }
+
+    public class AddIn : IExcelAddIn
+    {
+        public static readonly HttpClient httpClient = new HttpClient();
+        public static ResponseOrder responseOrder;
+        public static string priceListPath;
+
+        public void AutoOpen()
+        {
+            RegisterFunctions();
+            GetRegistryKeys();
+        }
+
+        public void AutoClose()
+        {
+
+        }
+
+        void RegisterFunctions()
+        {
+            ExcelRegistration.GetExcelFunctions()
+                             .ProcessAsyncRegistrations(nativeAsyncIfAvailable: false)
+                             .RegisterFunctions();
+        }
+
+        void GetRegistryKeys()
+        {
+            RegistryKey addInKeys = Registry
+                .CurrentUser
+                .OpenSubKey("SOFTWARE")
+                .OpenSubKey("REHAU")
+                .OpenSubKey("SkuAssist");
+
+            responseOrder = (ResponseOrder)addInKeys.GetValue("ResponseOrder");
+            priceListPath = (string)addInKeys.GetValue("PriceListPath");
+        }
+    }
+}
diff --git a/Source/AddIn/Functions.cs b/Source/AddIn/Functions.cs
new file mode 100644
index 0000000..6d94e24
--- /dev/null
+++ b/Source/AddIn/Functions.cs
@@ -0,0 +1,19 @@
+using ExcelDna.Integration;
+
+namespace RehauSku.Assist
+{
+    public class Functions
+    {
+        [ExcelFunction]
+        public static object RAUNAME(string request)
+            => SkuAssist.GetProduct(request, ProductField.Name);
+
+        [ExcelFunction]
+        public static object RAUSKU(string request)
+            => SkuAssist.GetProduct(request, ProductField.Id);
+
+        [ExcelFunction]
+        public static object RAUPRICE(string request)
+            => SkuAssist.GetProduct(request, ProductField.Price);
+    }
+}
\ No newline at end of file