diff --git a/src/app/FakeLib/DynamicsNavHelper.fs b/src/app/FakeLib/DynamicsNavHelper.fs index b7f33e26b20..c9207c5f411 100644 --- a/src/app/FakeLib/DynamicsNavHelper.fs +++ b/src/app/FakeLib/DynamicsNavHelper.fs @@ -85,6 +85,7 @@ let getNAVClassicPath navClientVersion = | "800" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\80\RoleTailored Client" | "900" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\90\RoleTailored Client" | "1000" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\100\RoleTailored Client" + | "1100" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\110\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 (Client) %s" navClientVersion @@ -104,11 +105,12 @@ let getNAVServicePath navClientVersion = | "800" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\80\Service" | "900" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\90\Service" | "1000" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\100\Service" + | "1100" -> @"SOFTWARE\Microsoft\Microsoft Dynamics NAV\110\Service" | _ -> failwithf "Unknown NAV-Version (Service) %s" navClientVersion match navClientVersion with | "601" | "602" -> getRegistryValue HKEYLocalMachine subKey "Path" - | "700"| "701"| "800" | "900" | "1000" -> getRegistryValue64 HKEYLocalMachine subKey "Path" + | "700"| "701"| "800" | "900" | "1000" | "1100" -> getRegistryValue64 HKEYLocalMachine subKey "Path" | _ -> failwithf "Unknown NAV-Version (Service) %s" navClientVersion (directoryInfo navServiceRootPath).Parent.FullName @@ "Service" @@ -442,6 +444,8 @@ let StartNavServiceTier serverMode navClientVersion = StartService "MicrosoftDynamicsNavServer$DynamicsNAV90" | "1000" -> StartService "MicrosoftDynamicsNavServer$DynamicsNAV100" + | "1100" -> + StartService "MicrosoftDynamicsNavServer$DynamicsNAV110" | _ -> failwithf "NavServiceTier of version %s unknown." navClientVersion let StopNavServiceTier serverMode navClientVersion = @@ -453,4 +457,5 @@ let StopNavServiceTier serverMode navClientVersion = StopService "MicrosoftDynamicsNavServer$DynamicsNAV70" StopService "MicrosoftDynamicsNavServer$DynamicsNAV80" StopService "MicrosoftDynamicsNavServer$DynamicsNAV90" - StopService "MicrosoftDynamicsNavServer$DynamicsNAV100" \ No newline at end of file + StopService "MicrosoftDynamicsNavServer$DynamicsNAV100" + StopService "MicrosoftDynamicsNavServer$DynamicsNAV110" \ No newline at end of file