ConneXionInsertCommercialInfo Method

public ConneXionResult InsertCommercialInfo(
	ref CommercialInfo CommercialInfo
)

Public Function InsertCommercialInfo ( 
	ByRef CommercialInfo As CommercialInfo
) As ConneXionResult

Dim oConneXionCommercialInfo As New ConneXion.ConneXion
Dim oCommercialInfo As New ConneXion.CommercialInfo
Dim oResult As ConneXion.ConneXionResult

oCommercialInfo.TAMUserName = "EXEC"
oCommercialInfo.TAMPassword = "PSWD"
oCommercialInfo.LicenseKey = "1234567  1"
oCommercialInfo.TAMCentralAgency = "DEMOAG1"

oCommercialInfo.ClientKey = "C"
oCommercialInfo.ClientID = "BOXHI-1"
oCommercialInfo.DateCoverage = "19940111"
oCommercialInfo.ReferenceNumber = "D124-52"
oCommercialInfo.SICCode = "DISTRIB"
oCommercialInfo.DescBussiness = "Distributor"
oCommercialInfo.NumEmployees = "25"
oCommercialInfo.SquareFootage = "10000"
oCommercialInfo.Premise = "1"
oCommercialInfo.AnnualSales = "3000000"
oCommercialInfo.Owner = "Mark Schurr"
oCommercialInfo.Contact = "Same"
oCommercialInfo.Attorney = "Gabe Apratti"
oCommercialInfo.Manager = "Lee Ann Higdon"
oCommercialInfo.Banker = "Northern Trust"
oCommercialInfo.Accountant = "Greg Hull"
oCommercialInfo.Note = "Warehouse distributor to directs sales individuals"
oCommercialInfo.TypeConstruct = "1"

oResult = oConneXionCommercialInfo.InsertCommercialInfo(oCommercialInfo)

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