Sage 100 ERP 5.00.8.0

We are adding a button to our Shipping Data Entry that calls for a print of an invoice based on a Sales Order Number. I am consistently getting the following two errors:

1)  "The S/O0000000022SO_INVOICEPRINTING_UI         STANDARD            00001 is invalid." (If I use Quick Print)

2) "Data is not selected for report printing." (Regardless of Quick Print vs. Standard; Same with new and existing shipments; Does not matter if I PRINT or PREVIEW)

This script is being run on the server:

retVal = 0
OrderNo = ""

retVal = oBusObj.GetValue("SalesOrderNo", OrderNo)
retVal = oBusObj.Write()

retVal = oSession.SetModule("S/O")
retVal = oSession.SetDate("S/O", MAS_SCR_DTE)

Dim soPRINT
SET soPRINT = oSession.AsObject(oSession.GetObject("SO_InvoicePrinting_rpt"))

' Select the Template record.
retVal = soPrint.SetPartialRecord("Plain", oScript.Evaluate("CPL(""IOLIST TemplateDesc$"")") )
If Mid(OrderNo, 1, 1) = "R" Then
soPRINT.SelectReportSetting("RDD")
soPRINT.SetKeyValue "ReportSetting$", "RDD"
Else
soPRINT.SelectReportSetting("STANDARD")
soPRINT.SetKeyValue "ReportSetting$", "STANDARD"
End If

retVal = soPRINT.SetKeyValue("ModuleCode$", "S/O")
retVal = soPRINT.SetKeyValue("CompanyKey$", oSession.CompanyKey)

soPRINT.SetKeyValue "RowKey$", "1"
soPRINT.SetKey()
if retVal = 0 then
retVal = oSession.AsObject(oSession.UI).MessageBox("", soPRINT.LastErrorMsg & "1")
end if

' Set Selection criteria
retVal = soPRINT.SetValue("SelectField$", "Order Number")
retVal = soPRINT.SetValue("SelectFieldValue$", "Order Number")
retVal = soPRINT.SetValue("Tag$", "TABLE=SO_SALESORDERHEADER; COLUMN=SALESORDERNO$")
retVal = soPRINT.SetValue("Operand$", "=")
retVal = soPRINT.SetValue("Value1$", OrderNo)
retVal = soPRINT.QuickPrint = OrderNo 'Error #1 Here
'retVal = soPRINT.Write()
if retVal = 0 then
retVal = oSession.AsObject(oSession.UI).MessageBox("Write", soPRINT.LastErrorMsg)
end if

'retVal = soPRINT.ProcessReport("PRINT")
retVal = soPRINT.ProcessReport("PREVIEW") ' Error #2 Here
if retVal = 0 then
retVal = oSession.AsObject(oSession.UI).MessageBox("Print", soPRINT.LastErrorMsg)
end if

I have been through the BOI courses - though it has been a while, and I have looked through the examples, but I cannot find anything remotely like what I am trying to do. I am certain I have some extraneous and/or missing information, but I am not sure what. Any thoughts?