ConneXionInsertCustomDecProspect Method

public ConneXionResult InsertCustomDecProspect(
	ref CustomDecProspect CustomDecProspect
)

Public Function InsertCustomDecProspect ( 
	ByRef 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 = "EXEC"
oCustomDec.TAMUserName = "PSWD"
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 = "X"

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

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

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

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

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

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.InsertCustomDecProspect(oCustomDec)

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