ConneXionInsertCertificateProperty Method

public ConneXionResult InsertCertificateProperty(
	ref CertificateProperty CertificateProperty
)

Public Function InsertCertificateProperty ( 
	ByRef CertificateProperty As CertificateProperty
) As ConneXionResult

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

oCustomer.TAMUserName = "EXEC"
oCustomer.TAMPassword = "PSWD"
oCustomer.CustomerID = "ABBOJO1"

oResult = oConneXion.FindCustomer(oCustomer)

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

  oCert.TAMUserName = "EXEC"
  oCert.TAMPassword = "PSWD"
  oCert.CertificateTitle = "Insert Cert Prop"
  oCert.ClientID = oCustomer.CustomerID
  oCert.NameLineOne = oCustomer.Name
  oCert.Attention = oCustomer.Attention
  oCert.Street = oCustomer.Street
  oCert.State = oCustomer.State
  oCert.ZipCode = oCustomer.ZipCode
  oCert.CompanyLetterA = "AET"

  oResult = oConneXion.InsertCertificateProperty(oCert)

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