![]() | |
ConneXionUpdateCertificateLiabilitySimplified Method |
Namespace: ConneXion
public ConneXionResult UpdateCertificateLiabilitySimplified( CertificateLiabilitySimplified CertificateLiabilitySimplified )
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oCert As New ConneXion.CertificateLiabilitySimplified oCert.TAMUserName = "EXEC" oCert.TAMPassword = "PSWD" oCert.ClientID = "BOXHI-1" oCert.FixId = "99994" oResult = oConneXion.FindCertificateLiabilitySimplified(oCert) If oResult.Success = False Then txtCertificateLiabilitySimplified.Text = "FindCertificateLiabilitySimplified is false. " & oResult.Description & oResult.TAMDescription Else oCert.TAMUserName = "EXEC" oCert.TAMPassword = "PSWD" oCert.ClientID = "BOXHI-1" oCert.FixId = "99994" oCert.CommercialGeneralLiability = "X" oResult = oConneXion.UpdateCertificateLiabilitySimplified(oCert) If oResult.Success = False Then txtCertificateLiabilitySimplified.Text = "UpdateCertificateLiabilitySimplified is false. " & oResult.Description & oResult.TAMDescription Else txtCertificateLiabilitySimplified.Text = "UpdateCertificateLiabilitySimplified is successful. " & oResult.Description & oResult.TAMDescription End If End If