ConneXionUpdateCustomDecProspect Method

public ConneXionResult UpdateCustomDecProspect(
	CustomDecProspect CustomDecProspect
)

Public Function UpdateCustomDecProspect ( 
	CustomDecProspect As CustomDecProspect
) As ConneXionResult

Dim oCustomDec As New ConneXion.CustomDecProspect
Dim oConneXion As New ConneXion.ConneXion
Dim oResult As ConneXion.ConneXionResult

oCustomDec.PolicyIndex = "BROWMI2-1001"
oCustomDec.TAMPassword = "PSWD"
oCustomDec.TAMUserName = "EXEC"
oCustomDec.TAMCentralAgency = "DEMOAG1"

ReDim oCustomDec.Screens(4)
oCustomDec.Screens(0) = New ConneXion.Screen
oCustomDec.Screens(1) = New ConneXion.Screen
oCustomDec.Screens(2) = New ConneXion.Screen
oCustomDec.Screens(3) = New ConneXion.Screen
oCustomDec.Screens(4) = New ConneXion.Screen

ReDim oCustomDec.Screens(0).Schedules(0)
oCustomDec.Screens(0).Schedules(0) = New ConneXion.Schedule

ReDim oCustomDec.Screens(0).Schedules(0).Fields(5)

oCustomDec.Screens(0).Schedules(0).Fields(0) = New ConneXion.Field
oCustomDec.Screens(0).Schedules(0).Fields(0).Value = "Field1"

oCustomDec.Screens(0).Schedules(0).Fields(1) = New ConneXion.Field
oCustomDec.Screens(0).Schedules(0).Fields(1).Value = "Field2"

oCustomDec.Screens(0).Schedules(0).Fields(2) = New ConneXion.Field
oCustomDec.Screens(0).Schedules(0).Fields(2).Value = "Field3"

oCustomDec.Screens(0).Schedules(0).Fields(3) = New ConneXion.Field
oCustomDec.Screens(0).Schedules(0).Fields(3).Value = "Field4"

oCustomDec.Screens(0).Schedules(0).Fields(4) = New ConneXion.Field
oCustomDec.Screens(0).Schedules(0).Fields(4).Value = "Field5"

oCustomDec.Screens(0).Schedules(0).Fields(5) = New ConneXion.Field
oCustomDec.Screens(0).Schedules(0).Fields(5).Value = "Field6"

ReDim oCustomDec.Screens(1).Schedules(0)
oCustomDec.Screens(1).Schedules(0) = New ConneXion.Schedule

ReDim oCustomDec.Screens(1).Schedules(0).Fields(5)

oCustomDec.Screens(1).Schedules(0).Fields(0) = New ConneXion.Field
oCustomDec.Screens(1).Schedules(0).Fields(0).Value = ""

oCustomDec.Screens(1).Schedules(0).Fields(1) = New ConneXion.Field
oCustomDec.Screens(1).Schedules(0).Fields(1).Value = ""

oCustomDec.Screens(1).Schedules(0).Fields(2) = New ConneXion.Field
oCustomDec.Screens(1).Schedules(0).Fields(2).Value = ""

oCustomDec.Screens(1).Schedules(0).Fields(3) = New ConneXion.Field
oCustomDec.Screens(1).Schedules(0).Fields(3).Value = ""

oCustomDec.Screens(1).Schedules(0).Fields(4) = New ConneXion.Field
oCustomDec.Screens(1).Schedules(0).Fields(4).Value = ""

oCustomDec.Screens(1).Schedules(0).Fields(5) = New ConneXion.Field
oCustomDec.Screens(1).Schedules(0).Fields(5).Value = ""

ReDim oCustomDec.Screens(2).Schedules(0)
oCustomDec.Screens(2).Schedules(0) = New ConneXion.Schedule

ReDim oCustomDec.Screens(2).Schedules(0).Fields(3)

oCustomDec.Screens(2).Schedules(0).Fields(0) = New ConneXion.Field
oCustomDec.Screens(2).Schedules(0).Fields(0).Value = ""

oCustomDec.Screens(2).Schedules(0).Fields(1) = New ConneXion.Field
oCustomDec.Screens(2).Schedules(0).Fields(1).Value = ""

oCustomDec.Screens(2).Schedules(0).Fields(2) = New ConneXion.Field
oCustomDec.Screens(2).Schedules(0).Fields(2).Value = ""

oCustomDec.Screens(2).Schedules(0).Fields(3) = New ConneXion.Field
oCustomDec.Screens(2).Schedules(0).Fields(3).Value = ""

ReDim oCustomDec.Screens(3).Schedules(0)
oCustomDec.Screens(3).Schedules(0) = New ConneXion.Schedule

ReDim oCustomDec.Screens(3).Schedules(0).Fields(8)

oCustomDec.Screens(3).Schedules(0).Fields(0) = New ConneXion.Field
oCustomDec.Screens(3).Schedules(0).Fields(0).Value = ""

oCustomDec.Screens(3).Schedules(0).Fields(1) = New ConneXion.Field
oCustomDec.Screens(3).Schedules(0).Fields(1).Value = ""

oCustomDec.Screens(3).Schedules(0).Fields(2) = New ConneXion.Field
oCustomDec.Screens(3).Schedules(0).Fields(2).Value = ""

oCustomDec.Screens(3).Schedules(0).Fields(3) = New ConneXion.Field
oCustomDec.Screens(3).Schedules(0).Fields(3).Value = ""

oCustomDec.Screens(3).Schedules(0).Fields(4) = New ConneXion.Field
oCustomDec.Screens(3).Schedules(0).Fields(4).Value = ""

oCustomDec.Screens(3).Schedules(0).Fields(5) = New ConneXion.Field
oCustomDec.Screens(3).Schedules(0).Fields(5).Value = ""

oCustomDec.Screens(3).Schedules(0).Fields(6) = New ConneXion.Field
oCustomDec.Screens(3).Schedules(0).Fields(6).Value = ""

oCustomDec.Screens(3).Schedules(0).Fields(7) = New ConneXion.Field
oCustomDec.Screens(3).Schedules(0).Fields(7).Value = ""

oCustomDec.Screens(3).Schedules(0).Fields(8) = New ConneXion.Field
oCustomDec.Screens(3).Schedules(0).Fields(8).Value = ""

ReDim oCustomDec.Screens(4).Schedules(0)
oCustomDec.Screens(4).Schedules(0) = New ConneXion.Schedule

ReDim oCustomDec.Screens(4).Schedules(0).Fields(0)

oCustomDec.Screens(4).Schedules(0).Fields(0) = New ConneXion.Field
oCustomDec.Screens(4).Schedules(0).Fields(0).Value = ""

oResult = oConneXion.UpdateCustomDecProspect(oCustomDec)

If oResult.Success = False Then
  txtCustomDecProspect.Text = "UpdateCustomDecProspect is false. " & oResult.Description & oResult.TAMDescription
Else
  txtCustomDecProspect.Text = "UpdateCustomDecProspect is successful. " & oResult.Description & oResult.TAMDescription
End If