BOI During Daily Sales Reports & Updates

Question

I have a simple script that updates a UDF in AR_Customer. The script is a Table Pre-Write event on AR_Customer. It works perfectly when editing a customer record in Customer Maintenance. It does not work though when the Daily Sales Reports & Updates are run. That process does edit the AR_Customer records, but the script simply won't run. 
 Why would it run fine in one scenario, but not the other? 
 
 If anyone has ideas, it would be much appreciated! 
 Here is my script: r = 0 PriceLevel = "" If oSession.UserCode <> "ORO" Then r = oBusObj.GetValue("PriceLevel$",PriceLevel) If PriceLevel = "1" or PriceLevel = "4" Then r = oBusObj.SetValue("UDF_SendToOro$","Y") End If End If

David Speck · Accepted Answer

With the following script on the post-delete of the SO_InvoiceHeader and the CurrentProcedure script shown in the other replies on the AR_Customer table, i was able to update the customer record. ARDivisionNo = "" : oBusObj.GetValue "ARDivisionNo$", ARDivisionNo CustomerNo = "" : oBusObj.GetValue "CustomerNo$", CustomerNo oScript.DebugPrint "" & ARDivisionNo & "-" & CustomerNo If ARDivisionNo <> "" And CustomerNo <> "" Then AR_Customer_Bus = oSession.GetObject("AR_Customer_Bus") If AR_Customer_Bus > 0 Then Set AR_Customer_Bus = oSession.AsObject(AR_Customer_Bus) AR_Customer_Bus.SetKeyValue "ARDivisionNo$", ARDivisionNo AR_Customer_Bus.SetKeyValue "CustomerNo$", CustomerNo If AR_Customer_Bus.SetKey() = 1 Then Comment = "" : AR_Customer_Bus.GetValue "Comment$", Comment AR_Customer_Bus.SetValue "Comment$", Comment & "1" AR_Customer_Bus.Write AR_Customer_Bus.Clear End If Set AR_Customer_Bus = Nothing End If End If Here's the trace. Kevin, you likely had issues with getting a handle to another object not associated with the journal update task which may have required first doing an oSession.SetProgram to set the security before hand. I have no idea how doing this during the update would affect other aspects of the update so i tested it without it. It is important to at least check that the value returned from the GetObject is greater than 0, if not, you were not able to get the object handle. The above example is quick and dirty and should not be used for production until proven tested. You'll notice i did not use any type prefixes for the variable names and the only returned value i checked was the one from the SetKey method to make sure i was selecting an existing record and no errors occured preventing me from doing so.

Sage 100

BOI During Daily Sales Reports & Updates

Top Replies

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING