![]() | |
ConneXionCreateCustomerID Method |
Namespace: ConneXion
Dim oCustomer As New ConneXion.Customer Dim oConneXion As New ConneXion.ConneXion Dim oResult As ConneXion.ConneXionResult oCustomer.LicenseKey = "1234567 1" oCustomer.Name = "Joseph W. Abbot" oCustomer.TAMUserName = "EXEC" oCustomer.TAMPassword = "PSWD" oCustomer.TAMCentralAgency = "DEMOAG1" oResult = oConneXion.CreateCustomerID(oCustomer) If oResult.Success = True Then txtID.Text = oCustomer.CustomerID MessageBox.Show("CreateCustomerID is Successful") Else txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If