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?
↧
