Private/NavUtil.ps1
|
function Set-NAVParameters( [string]$Tenant, [string]$Server, [int]$SOAPPort, [string]$AuthenticationMode, [bool]$SSL, [int]$ClientPort, [string]$InstanceName, [string]$Domain, [string]$Login, [string]$Password, [string]$TenantName) { if ($Server -eq "") { $Server = $Env:COMPUTERNAME } if ($SOAPPort -eq 0) { $SOAPPort = 7047 } if ($AuthenticationMode -eq "") { $AuthenticationMode = "Negotiate" if ($Domain -eq "") { $Domain = $Env:COMPUTERNAME } } if ($ClientPort -eq 0) { $ClientPort = -1; } $configuration = @{ UId = [System.Guid]::NewGuid(); Version = 0; Server = $Server; Port = $SOAPPort; Digest = $false; AuthenticationMode = $AuthenticationMode; SSL = $SSL; ClientPort = $ClientPort; InstanceName = $InstanceName; ServiceDomain = $Domain; ServiceLogin = $Login; UnencryptedServicePassword = $Password; SenderBatchSize = 50; SynchronizerTimerStep = 3000; MapOperationsOnIgnoredResourcesPS = $true; MapReservationsPS = $true; KeepAlive = $true; RetryInitRatio = 5; TenantName = $TenantName; WebServerName = ""; WebSitePort = 8080; MigratedV5 = $false; LastModificationDate = [System.DateTime]::UtcNow; } Write-NavParameters $Tenant $configuration } function Write-NavParameters($Tenant,$configuration) { $data = $configuration | ConvertTo-Json $storePath = Get-AdapterConfigPathFromTenant $Tenant if (!(Test-Path $storePath)) { md $storePath | Out-Null } $storePath = $storePath + "NAV.json" [System.IO.File]::WriteAllText($storePath, $data) Write-Verbose "NAV configuration stored in $storePath" } function Get-NAVParametersFromConfig($InstanceName,[switch]$DefaultInstance,$NAVVersion) { $path = "$env:ProgramFiles\Microsoft Dynamics NAV" if ($NAVVersion -ne "") { $path += "\$NAVVersion\Service" } Write-Verbose "Searching for psm1 modules in $path" $mod = (Get-ChildItem -Path $path -Filter '*.psm1' -Recurse).FullName if ($null -eq $mod) { Write-Warning "No Microsoft Dynamics NAV Powershell module found in $path" return } Import-Module $mod if ($DefaultInstance) { $instance = Get-NAVServerInstance | Where-Object Default } else { $instance = Get-NAVServerInstance -ServerInstance $InstanceName } if ($null -eq $instance) { Write-Warning "Microsoft Dynamics NAV instance not found with provided parameter." return } $xmlConfig = $instance | Get-NAVServerConfiguration -AsXml if ($null -eq $xmlConfig) { Write-Warning "Microsoft Dynamics NAV server configuration does not exist or cannot be read." return } $values = $xmlConfig.configuration.appSettings.add <#InstanceName needed by PlannerOne can differ from the function parameter one if full service instance name has been provided as parameter"#> $ServerInstance = ($values | Where-Object key -eq 'ServerInstance').value Write-Verbose "Server Instance: $ServerInstance" $SOAPServicesPort = ($values | Where-Object key -eq 'SOAPServicesPort').value Write-Verbose "SOAP Port: $SOAPServicesPort" $ClientServicesPort = ($values | Where-Object key -eq 'ClientServicesPort').value Write-Verbose "Client Port: $ClientServicesPort" $SOAPServicesEnabled = ($values | Where-Object key -eq 'SOAPServicesEnabled').value Write-Verbose "SOAPServicesEnabled: $SOAPServicesEnabled" $ServicesDefaultTimeZone = ($values | Where-Object key -eq 'ServicesDefaultTimeZone').value Write-Verbose "ServicesDefaultTimeZone: $ServicesDefaultTimeZone" $instanceConfig = @{ InstanceName = $ServerInstance; SOAPPort = $SOAPServicesPort; ClientPort = $ClientServicesPort;; SOAPServicesEnabled = $SOAPServicesEnabled; ServicesDefaultTimeZone = $ServicesDefaultTimeZone } return $instanceConfig } function Test-DBConfig($Role) { $dbConfig = Get-LegacyDatabaseConfig $Role if ($null -eq $dbConfig) { return $false } return $true } function Test-DBConnection($Role) { $dbConfig = Get-LegacyDatabaseConfig $Role if ($null -eq $dbConfig) { return $false } $connectionString = Get-ConnectionString -Server $dbConfig.Server -Database $dbConfig.Database -IntegratedSecurity "true" Write-Verbose "Connection string: $connectionString" try { Get-DatabaseData -connectionString $connectionString -query "select 1" -isSQLServer } catch { Write-Warning "Cannot connect to database with connection string $connectionString" return $false } Write-Verbose "Database connection OK" return $true } function Migrate-Configuration($Role) { $dbConfig = Get-LegacyDatabaseConfig $Role if ($null -eq $dbConfig) { return } $connectionString = Get-ConnectionString -Server $dbConfig.Server -Database $dbConfig.Database -IntegratedSecurity "true" Write-Verbose "Connection string: $connectionString" Migrate-Adapter $Role $connectionString Migrate-UIParameter $Role $connectionString Migrate-Criteria $Role $connectionString } function Migrate-UIParameter($Role,$connectionString) { try { $data = Get-DatabaseData -connectionString $connectionString -query "select * from dbo.UIParameters" -isSQLServer } catch { Write-Verbose "No ui parameters to migrate." return } Write-Verbose "Migrating UI parameters..." if ($null -eq $data) { Write-Verbose "No ui parameters to migrate." return } $src = $data[1] if ($null -eq $src.UId) { Write-Verbose "No ui parameters to migrate." return } $parameters = @{ UId = $src.UId; Version = $src.Version; AdvanceDelayColorThresholdDuration = $src.AdvanceDelayColorThresholdDuration; ProjectLinksDisplayThreshold = $src.ProjectLinksDisplayThreshold; LastModificationDate = $src.LastModificationDate; } $storePath = Get-UIParamPathFromTenant $Role if (!(Test-Path $storePath)) { md $storePath | Out-Null } $storePath = $storePath + "parameters.json" $json = $parameters | ConvertTo-Json $json | Out-File $storePath Write-Verbose "UI parameters stored in $storePath" } function Migrate-Adapter($Role,$connectionString) { try { $data = Get-DatabaseData -connectionString $connectionString -query "select * from dbo.NavConfiguration" -isSQLServer } catch { Write-Verbose "No adapter configuration to migrate." return } Write-Verbose "Migrating ERP configuration..." if ($null -eq $data) { Write-Verbose "No adapter configuration to migrate." return } $src = $data[1] if ($null -eq $src.UId) { Write-Verbose "No adapter configuration to migrate." return } # Some PlannerOne version does not contains some boolean parameters # Set default value to False instead of null if the data is not found $migratedV5 = Get-Bool $src.MigratedV5 $ntlm = Get-Bool $src.NTLM $digest = Get-Bool $src.Digest $ssl = Get-Bool $src.SSL $ignoredResource = Get-Bool $src.MapOperationsOnIgnoredResourcesPS $mapReservation = Get-Bool $src.MapReservationsPS $keepAlive = Get-Bool $src.KeepAlive $port = Get-Int $src.Port 7047 $clientPort = Get-Int $src.ClientPort -1 $senderBatchSize = Get-Int $src.SenderBatchSize 50 $synchroStep = Get-Int $src.SynchronizerTimerStep 3000 $retryInit = Get-Int $src.RetryInitRatio 5 $webPort = Get-Int $src.WebSitePort 8080 $navConfiguration = @{ UId = $src.UId; Version = $src.Version; Server = $src.Server; Port = $port; NTLM = $ntlm; Digest = $digest; AuthenticationMode = $src.AuthenticationMode; SSL = $ssl; ClientPort = $clientPort; InstanceName = $src.WebRoot; ServiceDomain = $src.ServiceDomain; ServiceLogin = $src.ServiceLogin; ServicePassword = $src.ServicePassword; SenderBatchSize = $senderBatchSize; SynchronizerTimerStep = $synchroStep; MapOperationsOnIgnoredResourcesPS = $ignoredResource; MapReservationsPS = $mapReservation; KeepAlive = $keepAlive; RetryInitRatio = $retryInit; TenantName = $src.TenantName; WebServerName = $src.WebServerName; WebSitePort = $webPort; MigratedV5 = $migratedV5; LastModificationDate = $src.LastModificationDate; } Write-NavParameters $Role $navConfiguration Write-Verbose "Migration done" } function Get-Bool($value) { if ($value -eq $null) { return $false } else { return $value } } function Get-Int($value, $default) { if ($value -eq $null) { return $default } else { return $value } } function Migrate-Criteria($Role,$connectionString) { Migrate-TypedCriteria $Role $connectionString "Placement" Migrate-TypedCriteria $Role $connectionString "Task" } function Migrate-TypedCriteria($Role,$connectionString, $CriteriaType) { $query = "select * from dbo.CombinedCriterionConfiguration where CombinedType='$CriteriaType'" try { $data = Get-DatabaseData -connectionString $connectionString -query $query -isSQLServer } catch { Write-Verbose "No $CriteriaType criteria to migrate." return } Write-Verbose "Migrating criteria..." if ($null -eq $data) { Write-Verbose "No $CriteriaType criteria to migrate." return } $TypeInt = 0 $ChoiceStrategy = "SC_FilteringChoiceStrategy" if ($CriteriaType -eq "Placement") { $TypeInt = 1 $ChoiceStrategy = "PC_FilteringChoiceStrategy" } $src = $data[1] if ($null -eq $src.UId) { Write-Verbose "No $CriteriaType criteria to migrate." return } $Usages = Get-CriterionUsages $connectionString $src.UId $Strategy = @{ UId = [System.Guid]::NewGuid(); Name = $ChoiceStrategy; } $parameters = @{ UId = $src.UId; Version = $src.Version; CombinedType = $TypeInt; Name = $src.Name; ChoiceStrategy = $Strategy; CriterionUsageConfiguration = $Usages; } $storePath = Get-CriteriaPathFromTenant $Role if (!(Test-Path $storePath)) { md $storePath | Out-Null } $storePath = $storePath + "CombinedCriterion$CriteriaType.json" $json = $parameters | ConvertTo-Json $json | Out-File $storePath Write-Verbose "Criteria stored in $storePath" } function Get-CriterionUsages($connectionString, $CriterionUId) { $query = "select * from dbo.CriterionUsageConfiguration where CombinedCriterionConfiguration_UId='$CriterionUId'" Write-Verbose $query $data = Get-DatabaseData -connectionString $connectionString -query $query -isSQLServer Write-Verbose "Migrating criterion usages..." if ($null -eq $data) { Write-Verbose "No criterion usages for $CriterionUId to migrate." return } $usages = @() $i = 0 foreach ($usage in $data) { if ($i -gt 0) { $usage = @{ UId = $usage.UId; Version = $usage.Version; Name = $usage.Name; Position = $usage.Position; Margin = $usage.Margin; Unit = $usage.Unit; LastModificationDate = $usage.LastModificationDate; } $usages += $usage } $i++ } return $usages } |