ConneXionInsertCertificateLiabilityNonSimplified Method

public ConneXionResult InsertCertificateLiabilityNonSimplified(
	ref CertificateLiabilityNonSimplified CertificateLiabilityNonSimplified
)

Public Function InsertCertificateLiabilityNonSimplified ( 
	ByRef CertificateLiabilityNonSimplified As CertificateLiabilityNonSimplified
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oResult As New ConneXion.ConneXionResult
Dim oCert As New ConneXion.CertificateLiabilityNonSimplified
Dim oCustomer As New ConneXion.Customer

oCustomer.CustomerID = "BOXHI-1"
oCustomer.TAMUserName = "EXEC"
oCustomer.TAMPassword = "PSWD"

oResult = oConneXion.FindCustomer(oCustomer)

If oResult.Success = False Then
  txtCertificateLiabilityNonSimplified.Text = "FindCustomer is false. " & oResult.Description & oResult.TAMDescription
Else

  oCert.TAMUserName = "EXEC"
  oCert.TAMPassword = "PSWD"
  oCert.ClientID = "BOXHI-1"
  oCert.CertificateTitle = "NS1"
  oCert.Name1 = oCustomer.Name
  oCert.Attention = oCustomer.Attention
  oCert.Street = oCustomer.Street
  oCert.City = oCustomer.City
  oCert.State = oCustomer.State
  oCert.Zip = oCustomer.ZipCode
  oCert.CompanyLetterACode = "AET"

  oResult = oConneXion.InsertCertificateLiabilityNonSimplified(oCert)

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