ConneXionInsertCustomDec Method

public ConneXionResult InsertCustomDec(
	ref CustomDec CustomDec
)

Public Function InsertCustomDec ( 
	ByRef CustomDec As CustomDec
) As ConneXionResult

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

oCustomDec.PolicyIndex = "ABBOJO1-9001"
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 = "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.InsertCustomDec(oCustomDec)

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