ObjectHandling/Export-NavContainerObjects.ps1

<#
 .Synopsis
  Export objects from a Nav container
 .Description
  Creates a session to the Nav container and launch the Export-NavApplicationObjects Cmdlet to export object
 .Parameter containerName
  Name of the container for which you want to enter a session
 .Parameter objectsFolder
  The folder to which the objects are exported (needs to be shared with the container)
  NOTE: The content of this folder will be deleted.
 .Parameter sqlCredential
  Credentials for the SQL admin user if using NavUserPassword authentication. User will be prompted if not provided
 .Parameter filter
  Specifies which objects to export (default is modified=Yes)
 .Parameter exportTo
  Specifies how you want to export objects, one of ('txt folder','txt folder (new syntax)','txt file','txt file (new syntax)','fob file')
 .Parameter exportToNewSyntax
  Specifies whether or not to export objects in new syntax (default is true)
 .Parameter includeSystemObjects
  Include the includeSystemObjects switch to include the system objects in the export
 .Example
  Export-NavContainerObject -containerName test -objectsFolder c:\programdata\bccontainerhelper\objects
 .Example
  Export-NavContainerObject -containerName test -objectsFolder c:\programdata\bccontainerhelper\objects -sqlCredential (get-credential -credential 'sa') -filter ""
#>

function Export-NavContainerObjects {
    Param (
        [string] $containerName = $bcContainerHelperConfig.defaultContainerName,
        [Parameter(Mandatory=$true)]
        [string] $objectsFolder, 
        [Parameter(Mandatory=$false)]
        [string] $filter = "modified=Yes", 
        [Parameter(Mandatory=$false)]
        [PSCredential] $sqlCredential = $null,
        [ValidateSet('txt folder','txt folder (new syntax)','txt file','txt file (new syntax)','fob file')]
        [string] $exportTo = 'txt folder (new syntax)',
        [Obsolete("exportToNewSyntax is obsolete, please use exportTo instead")]
        [switch] $exportToNewSyntax = $true,
        [switch] $includeSystemObjects,
        [switch] $PreserveFormatting
    )

    AssumeNavContainer -containerOrImageName $containerName -functionName $MyInvocation.MyCommand.Name

    if (!$exportToNewSyntax) {
        $exportTo = 'txt folder'
    }

    if ("$objectsFolder" -eq "$hostHelperFolder" -or "$objectsFolder" -eq "$hostHelperFolder\") {
        throw "The folder specified in ObjectsFolder will be erased, you cannot specify $hostHelperFolder"
    }

    $sqlCredential = Get-DefaultSqlCredential -containerName $containerName -sqlCredential $sqlCredential -doNotAskForCredential
    $containerObjectsFolder = Get-NavContainerPath -containerName $containerName -path $objectsFolder -throw

    $navversion = Get-NavContainerNavversion -containerOrImageName $containerName
    $version = [System.Version]($navversion.split('-')[0])
    $ignoreSystemObjects = ($version.Major -ge 14 -and !$includeSystemObjects)
    if ($version.Major -lt 9) {
        $PreserveFormatting = $true
    }

    Invoke-ScriptInNavContainer -containerName $containerName -ScriptBlock { Param($filter, $objectsFolder, [System.Management.Automation.PSCredential]$sqlCredential, $exportTo, $ignoreSystemObjects, $preserveFormatting)

        if ($exportTo -eq 'fob file') {
            $objectsFile = "$objectsFolder\objects.fob"
        } else {
            $objectsFile = "$objectsFolder\objects.txt"
        }

        if (Test-Path $objectsFolder -PathType Container) {
            Get-ChildItem -Path $objectsFolder -Include * | Remove-Item -Recurse -Force
        } else {
            New-Item -Path $objectsFolder -ItemType Directory -Force -ErrorAction Ignore | Out-Null
        }

        if ($ignoreSystemObjects) {
            if ($filter) {
                if (!($filter.StartsWith('Id=', 'CurrentCultureIgnoreCase') -or $filter.ToLowerInvariant().Contains(';id='))) {
                    $filter += ";Id=1..1999999999"
                }
            }
            else {
                $filter = "Id=1..1999999999"
            }
        }

        $filterStr = ""
        if ($filter) {
            $filterStr = " with filter '$filter'"
        }
        if ($exportTo.Contains('(new syntax)')) {
            Write-Host "Export Objects$filterStr (new syntax) to $objectsFile (container path)"
        } else {
            Write-Host "Export Objects$filterStr to $objectsFile (container path)"
        }

        $customConfigFile = Join-Path (Get-Item "C:\Program Files\Microsoft Dynamics NAV\*\Service").FullName "CustomSettings.config"
        [xml]$customConfig = [System.IO.File]::ReadAllText($customConfigFile)
        $databaseServer = $customConfig.SelectSingleNode("//appSettings/add[@key='DatabaseServer']").Value
        $databaseInstance = $customConfig.SelectSingleNode("//appSettings/add[@key='DatabaseInstance']").Value
        $databaseName = $customConfig.SelectSingleNode("//appSettings/add[@key='DatabaseName']").Value
        if ($databaseInstance) { $databaseServer += "\$databaseInstance" }

        $params = @{ 'ExportTxtSkipUnlicensed' = $true }
        if ($sqlCredential) {
            $params += @{ 'Username' = $sqlCredential.UserName; 'Password' = ([System.Runtime.InteropServices.Marshal]::PtrToStringAuto([System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($sqlCredential.Password))) }
        }
        if ($exportTo.Contains('(new syntax)')) {
            $params += @{ 'ExportToNewSyntax' = $true }
        }

        Export-NAVApplicationObject @params -DatabaseName $databaseName `
                                    -Path $objectsFile `
                                    -DatabaseServer $databaseServer `
                                    -Force `
                                    -Filter "$filter" | Out-Null
        
        if ($exportTo.Contains("folder")) {
            Write-Host "Split $objectsFile to $objectsFolder (container paths)"
            if ((Test-Path $objectsFile) -and ((Get-Item -Path $objectsFile).Length -gt 0)) {

                if ([System.Text.Encoding]::Default.BodyName -eq "utf-8") {
                    $cp = (Get-Culture).TextInfo.OEMCodePage
                    $encoding = [System.Text.Encoding]::GetEncoding($cp)
                
                    Write-Host "Converting objects file from OEM($cp) to UTF8 before splitting"
                    $content = [System.IO.File]::ReadAllText($objectsFile, $encoding )
                    [System.IO.File]::WriteAllText($objectsFile, $content, [System.Text.Encoding]::UTF8 )
                }

                $preserveFormattingParam = @{}
                if ($preserveFormatting) {
                    $preserveFormattingParam = @{ "PreserveFormatting" = $true }
                }

                Split-NAVApplicationObjectFile -Source $objectsFile `
                                               -Destination $objectsFolder @preserveFormattingParam

                if ([System.Text.Encoding]::Default.BodyName -eq "utf-8") {
                    Write-Host "Converting object files from UTF8 to OEM($cp) after splitting"
                    Get-ChildItem -Path (Join-Path $objectsFolder "*.txt") | ForEach-Object {
                        $content = [System.IO.File]::ReadAllText($_.FullName,[System.Text.Encoding]::UTF8 )
                        [System.IO.File]::WriteAllText($_.FullName, $content, $encoding )
                    }
                }
            }
            Remove-Item -Path $objectsFile -Force -ErrorAction Ignore
        }
    
    }  -ArgumentList $filter, $containerObjectsFolder, $sqlCredential, $exportTo, $ignoreSystemObjects, $preserveFormatting
}
Export-ModuleMember -Function Export-NavContainerObjects