Sage 100 BOI Sales Order Script Generator

# Run with: C:\Windows\SysWOW64\WindowsPowerShell\v1.0\powershell.exe -File .\New-SageSalesOrder.ps1
$ErrorActionPreference = 'Stop'
$pvx = New-Object -ComObject ProvideX.Script
$pvx.Init('C:\Sage\Sage 100\MAS90\Home')
$ss = $pvx.NewObject('SY_Session')
$so = $null
try {
    if ($ss.nSetUser('BOIUSER', 'ChangeMe1') -ne 1) { throw ('SetUser: ' + $ss.sLastErrorMsg) }
    if ($ss.nSetCompany('ABC') -ne 1) { throw ('SetCompany: ' + $ss.sLastErrorMsg) }
    [void]$ss.nSetDate('S/O', '20261022')
    [void]$ss.nSetModule('S/O')
    $task = $ss.nLookupTask('SO_SalesOrder_ui')
    if ($ss.nSetProgram($task) -eq 0) { throw ('SetProgram: ' + $ss.sLastErrorMsg) }

    $so = $pvx.NewObject('SO_SalesOrder_bus', $ss)

    $soNo = '[Sales order number (blank = next number)]'
    if ([string]::IsNullOrWhiteSpace($soNo)) {
        $next = [ref]''
        [void]$so.nGetNextSalesOrderNo($next)
        $soNo = $next.Value
    }
    if ($so.nSetKey($soNo) -eq 0) { throw ('SetKey: ' + $so.sLastErrorMsg) }

    if ($so.nSetValue('ARDivisionNo$', '01') -eq 0) { throw ('Division: ' + $so.sLastErrorMsg) }
    if ($so.nSetValue('CustomerNo$', 'ABF') -eq 0) { throw ('Customer: ' + $so.sLastErrorMsg) }

    $lines = $so.oLines
    [void]$lines.nAddLine()
    if ($lines.nSetValue('ItemCode$', '1001-HON-H252') -eq 0) { throw ('Item: ' + $lines.sLastErrorMsg) }
    if ($lines.nSetValue('QuantityOrdered', [double]'2') -eq 0) { throw ('Qty: ' + $lines.sLastErrorMsg) }
    if ($lines.nWrite() -ne 1) { throw ('Line write: ' + $lines.sLastErrorMsg) }

    if ($so.nWrite() -ne 1) { throw ('Order write: ' + $so.sLastErrorMsg) }
    Write-Output ('Created sales order ' + $soNo)
}
finally {
    if ($so -ne $null) { [void]$so.DropObject() }
    [void]$ss.nCleanup()
    [void]$ss.DropObject()
}