sMsg = ""
sItem = ""
sDItem = ""
CustDiv = ""
CustNo = ""
sSP = ""
sSO=""
sPO=""
sOT=""
sStatus=""
sCode=""
If UserCode = "VAB" or UserCode = "SDM" or UserCode = "KNT" or UserCode = "DSP" or UserCode = "JLN" or UserCode = "CLJ" or UserCode = "DAB" or UserCode = "REE" or UserCode = "SNN" or UserCode = "CMV" or UserCode = "NAT"or UserCode = "KNM" then
Dim retVal
retVal = oBusObj.GetValue("SalesOrderNo$", sSO)
sMsg = "You are about to delete Sales Orders please make sure that the Div and Cust and Order Type are right in the Code." + Chr(13)+ Chr(10)+ Chr(13)+ Chr(10)+" Proceed?"
retMsg = oSession.AsObject(oSession.UI).MessageBox(".Y2", sMsg)

If retMsg = "NO" then
sMsg = "Deletion has been canceled"
retMsg = oSession.AsObject(oSession.UI).MessageBox("", sMsg)
retVal = oScript.SetError ("Delete Canceled")
ElseIf retMsg = "YES" then
sMsg = "Last chance to cancel please make sure that the Div and Cust and Order Type are right in the Code.!" + Chr(13)+ Chr(10)+ Chr(13)+ Chr(10) & " Proceed?"
retMsg = oSession.AsObject(oSession.UI).MessageBox(".Y2", sMsg,"icon=!")
If retMsg = "NO" then
sMsg = "Deletion has been canceled"
retMsg = oSession.AsObject(oSession.UI).MessageBox("", sMsg)
retVal = oScript.SetError ("Delete Canceled")
ElseIf retMsg = "YES" then

Dim oSales
Set oSales = oSession.AsObject(oSession.GetObject("SO_SalesOrder_bus"))
retVal = oSales.MoveFirst()
do while oSales.EOF <> 1
retVal = oSales.GetValue("ARDivisionNo$", CustDiv)
retVal = oSales.GetValue("CustomerNo$", CustNo)
retVal = oSales.GetValue("OrderType$", sOT)
retVal = oSales.GetValue("CustomerPONo$", sPO)
retVal = oSales.GetValue("SalesOrderNo$", sSalesOrderNo)
IF sPO = "RSK" then
retVal = oSales.SetValue("OrderStatus$", "H")
'retVal = oSales.SetValue("CancelReasonCode$", "RSK")
retVal = oSales.SetValue("CustomerPONo$", sPO & " Completed")
retVal = oSales.Write()
retVal = oSales.Delete()
retVal = oSales.MoveNext()
Else

retVal = oSales.MoveNext()

End If

Loop
sMsg = "All Sales order for your Criteria have been deleted."
retMsg = oSession.AsObject(oSession.UI).MessageBox("", sMsg)
End If
End if
End IF

Check this post.

https://www.sagecity.com/us/sage100_erp/f/sage-100-business-object-interface/160533/forcing-cancellation-code-when-deleting-sales-orders-into-history-through-boi/416666#416666 

Hello David, Thats where I got some of the code to start with to invoke the cancel reason panel to populate but, the thing is I want the code to go to history without involving that window. I am trying to pass the value in my code above.

Hello David, Thats where I got some of the code to start with to invoke the cancel reason panel to populate but, the thing is I want the code to go to history without involving that window. I am trying to pass the value in my code above.

Did you see the property called SaveDeletedReason?  It was in that post I linked which should be among the last posts in that thread.  It is a property of the business object, not a table column so you don't use SetValue on it but instead set it like I did in my example.

oBusObj.SaveDeletedReason = "YourReasonToCancelGoesHere"

I actually tried this but errors out from a button.

Are you setting the property to a valid string and on file cancel/reason code?

Yes, I made a code RSK. Running it now to post the error.

I got it to work with oSales.SaveDeletedReason = "RSK".