![]() | |
ConneXionUpdateCustomDec Method |
Namespace: ConneXion
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
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