ConneXionInsertCertificateLiabilitySimplified Method

public ConneXionResult InsertCertificateLiabilitySimplified(
	ref CertificateLiabilitySimplified CertificateLiabilitySimplified
)

Public Function InsertCertificateLiabilitySimplified ( 
	ByRef CertificateLiabilitySimplified As CertificateLiabilitySimplified
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oResult As New ConneXion.ConneXionResult
Dim oCert As New ConneXion.CertificateLiabilitySimplified
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
  txtCertificateLiabilitySimplified.Text = "FindCustomer is false. " & oResult.Description & oResult.TAMDescription
Else

  oCert.TAMUserName = "EXEC"
  oCert.TAMPassword = "PSWD"
  oCert.ClientID = "BOXHI-1"
  oCert.CertificateTitle = "SIMP1"
  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.InsertCertificateLiabilitySimplified(oCert)

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