Checking if Ship Date is past due when Creating Packing Lists

Question

When opening a Sales Order # in Shipping Data Entry, I'd like there to be a message box if today's date is past the ship date of the order. I grabbed this code off of a previous question I asked in this forum and figured I could use most of it for my problem. I just don't know what UDT I should put the script in, or what event should trigger the script, if this code would even work in the first place. I have next to no experience with any of Sage's BOI so if anything seems unclear I'm happy to try and clarify. Thanks. 
 retVal = 0

sShipDate = ""

retVal = oBusObj.GetValue("ShipExpireDate$", sShipDate)

if oSession.UI <> 0 and d < Date() then
	
	retVal = oSession.AsObject(oSession.UI).MessageBox("Ship Date is Past Due")

end if

David Speck · Accepted Answer

Then you would switch from using oScript.SetError to using MessageBox. 
 sShipExpireDate = "" : oBusObj.GetValue "ShipExpireDate$", sShipExpireDate
If oSession.UI <> 0 And sShipExpireDate < oSession.SystemDate Then
 oSession.AsObject(oSession.UI).MessageBox "", "Ship Date is Past Due."
End If

David Speck · Answer

Also, you if you don't want the message when you are saving the record, you could potentially move it to the post-validate event on the SalesOrderNo column so it will trigger as soon as they enter the sales order number.

David Speck · Answer

If you want to stop the saving of the record, you should use the pre-write event on SO_InvoiceHeader and use oScript.SetError and pass it the message you want displayed. As for evaluating the date, you could compare against oSession.SystemDate. However your code is comparing Date() against a variable called d but it doesn't appear anywhere else. If you use the event I mentioned, the following should work. 
 sShipExpireDate = "" : oBusObj.GetValue "ShipExpireDate$", sShipExpireDate
If sShipExpireDate < oSession.SystemDate Then
 oScript.SetError "Ship Date is Past Due."
End If

Sage 100

Checking if Ship Date is past due when Creating Packing Lists

Top Replies

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING