![]() | |
ConneXionUpdateCertificateHolder Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oHolder As New ConneXion.CertificateHolder oHolder.TAMUserName = "EXEC" oHolder.TAMPassword = "PSWD" oHolder.ClientID = "ABBOJO1" oHolder.Code = "CITYCHI" oHolder.HolderFixId = "001" oHolder.CertificateFixId = "99991" oResult = oConneXion.FindCertificateHolder(oHolder) If oResult.Success = False Then txtCertificateHolder.Text = "FindCertificateHolder is false. " & oResult.Description & oResult.TAMDescription Else oHolder.TAMUserName = "EXEC" oHolder.TAMPassword = "PSWD" oHolder.WrittenNoticeNumberOfDays = "20" oResult = oConneXion.UpdateCertificateHolder(oHolder) If oResult.Success = False Then txtCertificateHolder.Text = "UpdateCertificateHolder is false. " & oResult.Description & oResult.TAMDescription Else txtCertificateHolder.Text = "UpdateCertificateHolder is successful. " & oResult.Description & oResult.TAMDescription End If End If