Click or drag to resize

ConneXionUpdateCustomDec Method

Update an existing CustomDec.

Namespace:  ConneXion
Assembly:  ConneXion (in ConneXion.dll) Version: 2020.0
Syntax
public ConneXionResult UpdateCustomDec(
	CustomDec CustomDec
)

Parameters

CustomDec
Type: ConneXionCustomDec
CustomDec data object to update

Return Value

Type: ConneXionResult
ConneXionResult
Remarks

Required Fields

  • TAMUserName
  • TAMPassword
  • TAMCentralAgency - only if agency is on AppliedOnline
  • LicenseKey - only if agency is an Agency of Vendor
  • PolicyIndex

Note: When doing an update, it is best to do a find first. This will populate the object with all the existing data before the update is made. If a find is not executed first, the object will be empty except for the data elements set in the update code

Examples
VB
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 = "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.UpdateCustomDec(oCustomDec)

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