Copying the Date value into new date UDF on the Invoice Data Entry

Question

Hi 
 We have a requirement, where when a new invoice is getting entered in AP, using a VBScript copy the Invoice Date to a new UDF. 
 I did try to put the same using the Post Validate event on the Invoice Date, but it's not copying the data into the new UDF field. 
 Anybody came across similar requirements, please share their findings/logic or any other solution approach. 
 Script 1 - with Message box confirmation works fine 
 If oSession.CompanyCode="TST" Then 
 'Declare Variables 
 dInvoiceDate = "" 
 dVendorInvDate = "" 
 sMsg = "" 
 If oBusObj.EditState = 2 Then 
 'get values 
 retval = oBusObj.GetValue("InvoiceDate$", dInvoiceDate) 
 retval = oScript.DebugPrint("The value of the Invoice Date is: " + dInvoiceDate) 
 If dVendorInvDate = "" Then 
 sMsg = "The Invoice Date is " + dInvoiceDate +". Would you like to retain the same as the Vendor Invoice date" 
 Set oUI = oSession.AsObject(oSession.UI) 
 retMsg = oUI.MessageBox(".Y2", sMsg) 
 
 If retMsg = "YES" Then 
 'retval = oScript.DebugPrint("The user clicked yes") 
 retval =oBusObj.SetValue("UDF_Vendor_Invoice_DATE$",dInvoiceDate) 
 retval = oBusObj.SetValue("UDF_Vendor_Invoice_DATE$",dInvoiceDate) 
 Else 
 'retval = oScript.DebugPrint("The user clicked No") 
 retval =oBusObj.SetValue("UDF_Vendor_Invoice_DATE$",dVendorInvDate) 
 End If 
 End If 
 End If 
 End If 
 Script 2 - without Message box confirmation does not work. 
 If oSession.CompanyCode="TST" Then 
 'Declare Variables dInvoiceDate = "" dVendorInvDate = "" If oBusObj.EditState = 2 Then 'get values retval = oBusObj.GetValue("InvoiceDate$", dInvoiceDate) retval = oScript.DebugPrint("The value of the Invoice Date is: " + dInvoiceDate) If dInvoiceDate <> "" Then retval = oBusObj.SetValue("UDF_Vendor_Invoice_DATE$", dInvoiceDate) Else retval = oBusObj.SetValue("UDF_Vendor_Invoice_DATE$",dVendorInvDate) End If 
 End If 
 End If 
 Also, is there a way to capture the sysdate for the new UDF date field. Please advise and recommend. 
 
 Thanks 
 AJ

David Speck · Accepted Answer

Use the trace window or display a message box to verify the script is even firing. 
 Check the scripts syntax to make sure it is free of errors, if a syntax error exists, the script will fail to execute silently. 
 The post validate event might not be firing when the default value is placed in the invoice date field when a new invoice is created, so since you are checking the EditState property, you may need to also attach your script to the header table's post read event.

David Speck · Answer

You can use either the SystemDate or ModuleDate properties of the oSession object. They will be in the required YYYYMMDD format. 
 Regarding the event firing, if you attach your script to the post read event and check the EditState property being 2, you can set the value on new records. If you don't need the value to be visible to the user while entering a new record, you could always attach the script to the pre write event.

David Speck · Answer

I don't think script initialization will work for this purpose since I believe it only executes once when the task is first launched. Which is when the code is first read and added to the MSScriptControl object. 
 Set default values should work but it only executes when a new record is created and sage 100 processes the default values logic whereas post read or pre write gives you a little more flexibility.

BigLouie · Answer

Here is the script I use on purchase order header to write the date. It should give you clues. 
 
 retVal=oBusObj.GetValue("RequiredExpireDate$",sDate) retVal = oSession.FormatDate(sDate, newDate, "%M/%D/%Y") newDate = DateAdd("D", 25, newDate) newDate = oSession.GetFormattedDate(CStr(newDate)) retVal = oBusObj.SetValue("UDF_HOUSTON_DATE$", newDate)

Sage 100

Copying the Date value into new date UDF on the Invoice Data Entry

Top Replies

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING