ConneXionGenerateInstallmentPlan Method

public ConneXionResult GenerateInstallmentPlan(
	ref InstallmentPlan InstallmentPlan
)

Public Function GenerateInstallmentPlan ( 
	ByRef InstallmentPlan As InstallmentPlan
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oInstallmentPlan As New ConneXion.InstallmentPlan
Dim oResult As ConneXion.ConneXionResult
Dim oInstallmentPlanLine As ConneXion.InstallmentPlanLine
Dim oInstallmentPlanLines As New ConneXion.InstallmentPlanLines
Dim oInstallments As New ConneXion.Installment
oInstallmentPlan.TAMUserName = "EXEC"
oInstallmentPlan.TAMPassword = "PSWD"
oInstallmentPlan.TAMCentralAgency = "DEMOAG1"
oInstallmentPlan.LicenseKey = "1234567  1"
oInstallmentPlan.PolicyIndex = "ABBOJO1-1001"
oInstallmentPlan.Cycles = 5

Dim oPlanLine As ConneXion.InstallmentPlanLine
oPlanLine = New ConneXion.InstallmentPlanLine
oPlanLine.Amount = "20"
oPlanLine.DownPayment = "0"
oPlanLine.TransType = "CFE"
oPlanLine.DueDate = "07/07/2020"
oPlanLine.PrintDate = "07/07/2020"
oPlanLine.EffDate = "07/07/2020"

oInstallmentPlan.InstallmentType = oInstallmentPlan.InstallmentType.SIXTY_DAY
oInstallmentPlanLine = oPlanLine
oInstallmentPlanLines.Add(oInstallmentPlanLine)
oInstallmentPlan.InstallmentPlanLines = oInstallmentPlanLines

oResult = oConneXion.GenerateInstallmentPlan(oInstallmentPlan)
If oResult.Success = True Then
  MessageBox.Show("GenerateInstallmentPlan was Successful")
Else
  txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Description: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
End If