![]() | |
ConneXionFindCompanyForm Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oCustomer As New ConneXion.CompanyForm oCustomer.TAMUserName = "EXEC" oCustomer.TAMPassword = "PSWD" oCustomer.PolicyIndex = "GALAX-1-2001" oCustomer.FormCode = "CF1" oResult = oConneXion.FindCompanyForm(oCustomer) If oResult.Success = False Then txtResult.Text = "FindCompanyForm is false" & vbCrLf & "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If