ConneXionInsertInstallmentPlan Method

public ConneXionResult InsertInstallmentPlan(
	ref InstallmentPlan InstallmentPlan
)

Public Function InsertInstallmentPlan ( 
	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 New ConneXion.InstallmentPlanLines
Dim oInstallments As New ConneXion.Installments
oInstallmentPlan.TAMUserName = "EXEC"
oInstallmentPlan.TAMPassword = "PSWD"
oInstallmentPlan.TAMCentralAgency = "DEMOAG1"
oInstallmentPlan.LicenseKey = "1234567  1"
oInstallmentPlan.PolicyIndex = "ABBOJO1-3"
oInstallmentPlan.InstallmentType = oInstallmentPlan.EnumInstallmentType.MONTHLY

oInstallmentPlan.Cycles = 5
Dim oPlanLine As 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"

oInstallmentPlanLine.Add(oPlanLine)
oInstallmentPlan.InstallmentPlanLines = oInstallmentPlanLine

Dim oInstallment As New ConneXion.Installment
oInstallment.Amount = "4"
oInstallment.Description = "Test Installment"
oInstallment.TransType = "CFE"
oInstallment.ActgMonth = "JAN2020"
oInstallment.Csr = "AR"
oInstallment.BinderBill = ""

oInstallments.Add(oInstallment)

Dim oInstallment1 As New ConneXion.Installment
oInstallment1.Amount = "4"
oInstallment1.TransType = "CFE"
oInstallment1.Description = "Test Installment 1"
oInstallment1.ActgMonth = "FEB2020"
oInstallment1.Csr = "AR"
oInstallment1.BinderBill = ""
oInstallments.Add(oInstallment1)

Dim oInstallment2 As New ConneXion.Installment
oInstallment2.Amount = "4"
oInstallment2.TransType = "CFE"
oInstallment2.Description = "Test Installment 2"
oInstallment2.ActgMonth = "MAR2020"
oInstallment2.Csr = "AR"
oInstallment2.BinderBill = ""
oInstallments.Add(oInstallment2)

Dim oInstallment3 As New ConneXion.Installment
oInstallment3.Amount = "4"
oInstallment3.TransType = "CFE"
oInstallment3.Description = "Test Installment 3"
oInstallment3.ActgMonth = "APR2020"
oInstallment3.Csr = "AR"
oInstallment3.BinderBill = ""
oInstallments.Add(oInstallment3)

Dim oInstallment4 As New ConneXion.Installment
oInstallment4.Amount = "4"
oInstallment4.TransType = "CFE"
oInstallment4.Description = "Test Installment 4"
oInstallment4.ActgMonth = "MAY2020"
oInstallment4.Csr = "AR"
oInstallment4.BinderBill = ""

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