ConneXionInsertCompanyForm Method

public ConneXionResult InsertCompanyForm(
	ref CompanyForm CompanyForm
)

Public Function InsertCompanyForm ( 
	ByRef 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(0) As ConneXion.Screen
screens(0) = 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 = "March 3"
fieldsSChedule0(0).Description = "Date"

fieldsSChedule0(1) = New ConneXion.Field
fieldsSChedule0(1).Value = "Monday"
fieldsSChedule0(1).Description = "Day"

fieldsSChedule0(2) = New ConneXion.Field
fieldsSChedule0(2).Value = "some description here"
fieldsSChedule0(2).Description = "Description"

schedules(0).Fields = fieldsSChedule0


Dim fieldsSchedule1(0) As ConneXion.Field

fieldsSchedule1(0) = New ConneXion.Field
fieldsSchedule1(0).Value = "70 Zion Drive, MA"
fieldsSchedule1(0).Description = "Address"

schedules(1).Fields = fieldsSchedule1

screens(0).Schedules = schedules

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

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

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