This procedure runs when the accounting system displays an ask dialog that prompts the user to save changes to a customer record in the Customer Maintenance window. If the user clicks the Save button in the save dialog, this procedure saves the corresponding DUOS object:
Private Sub Window_AfterModalDialog(ByVal DlgType As Long, _ PromptString As String, Control1String As String, _ Control2String As String, Control3String As String, Answer As Long) Dim Customers As DUOSObjects Dim Customer As DUOSObject If PromptString = "Do you want to save changes to this " + _ "customer?" Then 'The user is trying to save the record using the save dialog If Answer = dcButton1 Then 'The user clicked Save Set Customers = DUOSObjectsGet("Customer Info") Set Customer = Customers(CustomerID) Customer.Properties("URL Address") = URLAddress Customer.Properties("Contact E-Mail Address") = _ ContactEMailAddress End If End If End Sub