ConneXionUpdateCompanyForm Method

public ConneXionResult UpdateCompanyForm(
	CompanyForm CompanyForm
)

Public Function UpdateCompanyForm ( 
	CompanyForm As CompanyForm
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oResult As New ConneXion.ConneXionResult
Dim oCustomer As New ConneXion.CompanyForm

oCustomer.TAMUserName = "EXEC"
oCustomer.TAMPassword = "PSWD"
oCustomer.PolicyIndex = "GALAX-1-2001"

Dim screens(7) As ConneXion.Screen
screens(0) = New ConneXion.Screen
screens(1) = New ConneXion.Screen
screens(2) = New ConneXion.Screen
screens(3) = New ConneXion.Screen
screens(4) = New ConneXion.Screen
screens(5) = New ConneXion.Screen
screens(6) = New ConneXion.Screen
screens(7) = New ConneXion.Screen

Dim schedules(1) As ConneXion.Schedule
schedules(0) = New ConneXion.Schedule
schedules(1) = New ConneXion.Schedule

Dim fieldsSchedule0(2) As ConneXion.Field

fieldsSchedule0(0) = New ConneXion.Field
fieldsSchedule0(0).Value = "8800"

fieldsSchedule0(1) = New ConneXion.Field
fieldsSchedule0(1).Value = ""

fieldsSchedule0(2) = New ConneXion.Field
fieldsSchedule0(2).Value = "120 Zion "

schedules(0).Fields = fieldsSchedule0

Dim fieldsSchedule1(0) As ConneXion.Field

fieldsSchedule1(0) = New ConneXion.Field
fieldsSchedule1(0).Value = "update"

schedules(1).Fields = fieldsSchedule1

screens(0).Schedules = schedules
screens(1).Schedules = schedules
screens(2).Schedules = schedules
screens(3).Schedules = schedules
screens(4).Schedules = schedules
screens(5).Schedules = schedules
screens(6).Schedules = schedules
screens(7).Schedules = schedules

Dim screens0 As New ConneXion.Screens
oCustomer.Screens = screens0
screens0.Add(screens(0))

oCustomer.FormCode = "CF1"
oResult = oConneXion.UpdateCompanyForm(oCustomer)

If oResult.Success = False Then
    txtResult.Text = "UpdateCompanyForm is false" & vbCrLf & "Number: " & oResult.Number & vbCrLf & "Desc: " &
        oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
End If