![]() | |
ConneXionFindInstallmentPlan Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oInstallmentPlan As New ConneXion.InstallmentPlan Dim oInstallment As New ConneXion.Installment Dim oResult As ConneXion.ConneXionResult oInstallmentPlan.TAMUserName = "EXEC" oInstallmentPlan.TAMPassword = "PSWD" oInstallmentPlan.TAMCentralAgency = "DEMOAG1" oInstallmentPlan.LicenseKey = "1234567 1" oInstallmentPlan.PolicyIndex = "ABBOJO1-2" oInstallmentPlan.PlanNumber = 153 oResult = oConneXion.FindInstallmentPlan(oInstallmentPlan) If oResult.Success = True Then MessageBox.Show("FindInstallmentPlan was Successful. " & oResult.Description & ".") Else txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Description: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If