x Want to participate? Join the group to interact
Options
  • State Not Answered
  • Replies 4 replies
  • Subscribers 119 subscribers
  • Views 455 views
  • Users 0 members are here
Browse Forums
Announcements
292
topics
370
replies
Business Object Interface
1k
topics
7k
replies
Core Financial Modules
2k
topics
8k
replies
Customization and Productivity
3k
topics
12k
replies
Distribution, Manufacturing, and Applications
2k
topics
7k
replies
General Discussion
1k
topics
3k
replies
Partner Cloud
43
topics
90
replies
Payroll, Time Tracking, and Job Cost
775
topics
1k
replies
Reporting and Analytics
960
topics
3k
replies
Sage CRM for Sage 100
164
topics
357
replies
Technical and Installation
2k
topics
9k
replies
Year-end Forum
89
topics
237
replies
Sarah Holbrook

Pre/Post-Delete User Defined Script

Posted By

Hello, 

I am trying to capture a value when it has been deleted and store it to be used in another script. I have tried tying it to a Pre-Delete and Post-Delete event on the table storing the data, but neither are giving me anything. Can someone tell me if there is something wrong with my code?


ContactCode = ""

retVal = 0


retVal = oBusObj.GetValue("ContactCode$", ContactCode)
retVal = oScript.SetStorageVar("ContactCode", ContactCode)

Top Replies

  • 0

    Hi

    Do you know if the script is executing?  What script are you using to retrieve  the  value?  Depending on where you are trying to retrieve the value, you may want to use oSession.SetStorageVar() because the oScript context would be only local to that object.

    Thanks

    Elliott

  • 0 in reply to jepritch 

    retVal = 0
oAudit = 0

Set oAudit = oSession.AsObject(oSession.GetObject("CM_UDTMaint_bus", "AR_UDT_CUSTOMERCONTACTAUDIT"))

ContactCode = ""

retVal = oScript.GetStorageVar("ContactCode", ContactCode)

Customer = ""
retVal = oBusObj.GetValue("CustomerNo$", Customer)

Email = ""
retVal = oBusObj.GetValue("EmailAddress$", Email)

CustomerName = ""
retVal = oBusObj.GetValue("CustomerName$", CustomerName)

user = ""
user = oSession.UserName

dateStamp = ""
userKey = ""
retVal = oSession.GetStampInfo(userKey, timeStamp, dateStamp)

retVal = oAudit.SetKey(Customer+" "+dateStamp)
If retVal > 0 Then
retVal = oAudit.SetValue("UDF_CHANGE_DATE$", dateStamp)
retVal = oAudit.SetValue("UDF_CHANGE_USER$", userKey)
retVal = oAudit.SetValue("UDF_CUSTOMER$", Customer)
retVal = oAudit.SetValue("UDF_CONTACT_EMAIL$", Email)
retVal = oAudit.SetValue("UDF_CONTACT_NAME$", CustomerName)
retVal = oAudit.SetValue("UDF_OLD_VALUE$", ContactCode)
retVal = oAudit.SetValue("UDF_NEW_VALUE$", ContactCode)
retVal = oAudit.Write()
If retVal=0 Then
	' error on the write to audit table
End If
End If

  • 0 in reply to jepritch

    This script is a Table-Pre-Write. Now I'm wondering if I need to change this to Post-Delete as well?

  • 0 in reply to Sarah Holbrook

    Oh wow, that was exactly my problem. SORRY!

*Community Hub is the new name for Sage City