Merge pull request #576 from Gitulf/patch-2

Version NAV 800 added
fsprojects · Oct 26, 2014 · eded858 · eded858
2 parents 7a40ffd + 86d661e
commit eded858
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/app/FakeLib/DynamicsNavHelper.fs b/src/app/FakeLib/DynamicsNavHelper.fs
@@ -31,6 +31,7 @@ let getNAVClassicPath navClientVersion =
         | "601" | "602" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\60\Classic Client\W1 6.0"
         | "700" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\70\RoleTailored Client"
         | "701" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\71\RoleTailored Client"
+        | "800" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\80\RoleTailored Client"
         | "501" -> @"software\microsoft\Dynamics Nav\Cside Client\W1 5.0 SP1"
         | "403" -> @"SOFTWARE\Navision\Microsoft Business Solutions-Navision\W1 4.00"
         | _ -> failwithf "Unknown NAV-Version %s" navClientVersion
@@ -49,6 +50,7 @@ let createConnectionInfo navClientVersion serverMode serverName targetDatabase =
                     | "601" | "602" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\60\Classic Client\W1 6.0"
                     | "700" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\70\Service"
                     | "701" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\71\Service"
+                    | "800" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\80\Service"
                     | _ -> failwithf "Unknown NAV-Version %s" navClientVersion
                 getRegistryValue HKEYLocalMachine subKey "Path"
             (directoryInfo navServiceRootPath).Parent.FullName @@ "Service"