Print to PDF and electronically deliver Sales Order via BOI

Question

I want to thank everyone in this forum in advance for the wealth of information you have posted and gathered here. With that information, I have been able to apply a script to automatically print Sales Orders once they are entered. The script below runs as a Table - Post Write on the Sales Order Header table. 
 SONo = "" oSOPrint = "" oPaperless = "" 
 retVal = oBusObj.GetValue("SalesOrderNo$", SONo) 
 Set oSOPrint = oSession.AsObject(oSession.GetObject("SO_SalesOrderPrinting_rpt")) 
 retVal = oSOPrint.SelectReportSetting("STANDARD") 
 oSOPrint.QuickPrint = SONo 
 'Set Paperless options Set oPaperless = oSession.AsObject(oSOPrint.coPLCommon) ' Get Paperless object 
 oPaperless.FormPrintUISelection="7" ' Number of selection in dropbox on the Sales Order Printing Screen 
 retVal = oSOPrint.ProcessReport("PRINT") 
 The above script works great to print to PDF. However, I wanted to also Electronically Deliver the PDF. I changed the oPaperless.FormPrintUISelection setting to 6, but when I do this, it only prints the PDF and it does not Electronically Deliver anything. Same thing if I change the setting to 2 (Electronically Deliver only). When I Accept the Order, I see a quick "Sales Order Printing" screen flash, then nothing happens. Am I missing some PDF setting that will trigger this? Does anyone have any ideas or input? 
 Thanks in advance again.

David Speck · Accepted Answer

Also, you might want to see this post. 
 www.sagecity.com/.../308508

David Speck · Answer

Another possible route could be to always drop your created report object when you are done. To do this, you will need to first return the value returned by oSession.GetObject("SO_SalesOrderPrinting_rpt") into a numeric variable, could use something like this. 
 SONo = ""
oSOPrint = ""
oPaperless = ""
SOEntered = ""

retVal = oBusObj.GetValue("SalesOrderNo$", SONo)
retVal = oBusObj.GetValue("UDF_SO_ENTERED", SOEntered)

if SOEntered = "Y" then
	nSOPrint = 0 : nSOPrint = oSession.NewObject("SO_SalesOrderPrinting_rpt") ' Return this into a numeric variable so it can be dropped later since the oSession.DropObject method does not support VBScript Objects passed as an argument and i have not been able to figure out a way to convert or extract a VBScript object back to a numeric handle like Sage 100 uses.
	If nSOPrint <> 0 Then
 Set oSOPrint = oSession.AsObject(nSOPrint)

 retVal = oSOPrint.SelectReportSetting("ISCORDER")

 oSOPrint.QuickPrint = SONo

 'Set EmailSelected property to true
 oSOPrint.EmailSelected = 1

 'Set Paperless options
 Set oPaperless = oSession.AsObject(oSOPrint.coPLCommon) ' Get Paperless object

 oPaperless.FormPrintUISelection = "2" ' Number of selection in dropbox on the Sales Order Printing Screen

 ' Set Email Engine EESilent property to true
 'oSOPrint.EmailEngineObj.nEESilent = 1

 ' Set Electronic Delivery. Third argument is the email engine object handle for the from object.
 ' Seventh argument is set to true to force no UI when processing

 retval = oPaperless.ElectronicDelivery("",0,oSOPrint.EmailEngineObj,0,"","",1)

 retVal = oSOPrint.ProcessReport("PRINT")
 set oSOPrint = Nothing
 ' retVal = oBusObj.Clear()
 oSession.DropObject nSOPrint ' Drop the numeric object handle for the class created using GetObject/NewObject
	End If
End if

David Speck · Answer

The FormPrintUISelection value is suppose to match one of these values in this order.

Sage 100

Print to PDF and electronically deliver Sales Order via BOI

Top Replies

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING