ObjectHandling/Convert-ModifiedObjectsToAl.ps1
|
<#
.Synopsis Convert modified objects in a Nav container to AL .Description This command will invoke the 4 commands in order to export modified objects and convert them to AL: 1. Export-NavContainerObjects 2. Create-MyOriginalFolder 3. Create-MyDeltaFolder 4. Convert-Txt2Al A folder with the name of the container is created underneath c:\programdata\bccontainerhelper\extensions for holding all the temp and the final output. The command will open a windows explorer window with the output .Parameter containerName Name of the container for which you want to export and convert objects .Parameter sqlCredential Credentials for the SQL admin user if using NavUserPassword authentication. User will be prompted if not provided .Parameter startId Starting offset for objects created by the tool (table and page extensions) .Parameter filter Filter specifying the objects you want to convert (default is modified=1) .Parameter openFolder Switch telling the function to open the result folder in Windows Explorer when done .Parameter doNotUseDeltas Switch telling the function to convert to full (code customized) AL objects instead of extension objects .Parameter alProjectFolder Specify the path of a location, where you want to receive the resulting AL objects. .Parameter alFilePattern Specify the file pattern (or multiple seperated by comma) of the files you want to copy to the alProjectFolder. Default is *. If you do not specify a path, then the objects will only be in a folder within the container folder in C:\ProgramData\BcContainerHelper .Parameter alFileStructure Specify a function, which will determine the location of the individual al source files .Parameter dotNetAddInsPackage Path to folder where dotnet add-ins are located (folder must be shared with container) .Parameter runTxt2AlInContainer Specify a foreign container in which you want to run the txt2al tool .Example Convert-ModifiedObjectsToAl -containerName test .Example Convert-ModifiedObjectsToAl -containerName test -sqlCredential (get-credential -credential 'sa') -startId 881200 .Example Convert-ModifiedObjectsToAl -containerName test -alProjectFolder $alProjectFolder -doNotUseDeltas #> function Convert-ModifiedObjectsToAl { Param ( [string] $containerName = $bcContainerHelperConfig.defaultContainerName, [PSCredential] $sqlCredential = $null, [int] $startId = 50100, [string] $filter = "None", [switch] $openFolder, [switch] $doNotUseDeltas, [string] $alProjectFolder, [string] $alFilePattern = "*", [string] $dotNetAddInsPackage, [ScriptBlock] $alFileStructure, [string] $runTxt2AlInContainer = $containerName, [string] $originalFolder = "" ) $telemetryScope = InitTelemetryScope -name $MyInvocation.InvocationName -parameterValues $PSBoundParameters -includeParameters @() try { AssumeNavContainer -containerOrImageName $containerName -functionName $MyInvocation.MyCommand.Name $sqlCredential = Get-DefaultSqlCredential -containerName $containerName -sqlCredential $sqlCredential -doNotAskForCredential $txt2al = Invoke-ScriptInNavContainer -containerName $containerName -ScriptBlock { $txt2al } if (!($txt2al)) { throw "You cannot run Convert-ModifiedObjectsToAl on this Container, the txt2al tool is not present." } $suffix = "-newsyntax" if ($doNotUseDeltas) { if ($filter -ne "None") { throw "You cannot set the filter if you are using doNotUseDeltas - you need to convert the full app" } $myDeltaFolder = Join-Path $ExtensionsFolder "$containerName\objects$suffix" Export-NavContainerObjects -containerName $containerName -sqlCredential $sqlCredential -objectsFolder $myDeltaFolder -exportTo 'txt folder (new syntax)' -filter "" if ("$dotNetAddInsPackage" -eq "") { $dotNetAddInsPackage = Join-Path $ExtensionsFolder "$containerName\coredotnetaddins.al" Copy-Item -Path (Join-Path $PSScriptRoot "coredotnetaddins.al") -Destination $dotNetAddInsPackage -Force } } else { if ($filter -eq "None") { $filter = "Modified=1" } Export-ModifiedObjectsAsDeltas -containerName $containerName -sqlCredential $sqlCredential -useNewSyntax -filter $filter -originalFolder $originalFolder $myDeltaFolder = Join-Path $ExtensionsFolder "$containerName\delta$suffix" } $myAlFolder = Join-Path $ExtensionsFolder "$containerName\al$suffix" Convert-Txt2Al -containerName $runTxt2AlInContainer ` -myDeltaFolder $myDeltaFolder ` -myAlFolder $myAlFolder ` -startId $startId ` -dotNetAddInsPackage $dotNetAddInsPackage Write-Host "al files created in $myAlFolder" if ($alProjectFolder) { $alFilePattern.Split(',') | % { Copy-AlSourceFiles -Path (Join-Path $myAlFolder "$_") -Destination $alProjectFolder -Recurse -alFileStructure $alFileStructure } if ($openFolder) { Start-Process $alProjectFolder } } elseif ($openFolder) { Start-Process $myAlFolder } $myAlFolder } catch { TrackException -telemetryScope $telemetryScope -errorRecord $_ throw } finally { TrackTrace -telemetryScope $telemetryScope } } Export-ModuleMember -Function Convert-ModifiedObjectsToAl |