![]() | |
ConneXionUpdateCertificateFormNote Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oCertNote As New ConneXion.CertificateFormNote oCertNote.TAMUserName = "EXEC" oCertNote.TAMPassword = "PSWD" oCertNote.CertificateFixId = "99998" oCertNote.ClientID = "BOXHI-1" oCertNote.Key = "R2" oCertNote.ScheduleFixId = "002" oResult = oConneXion.FindCertificateFormNote(oCertNote) If oResult.Success = False Then txtResultCertificateFormNote.Text = "FindCertificateFormNote is false. " & oResult.Description & oResult.TAMDescription Else oCertNote.TAMUserName = "EXEC" oCertNote.TAMPassword = "PSWD" oCertNote.CertificateFixId = "99998" oCertNote.ClientID = "BOXHI-1" oCertNote.Key = "R2" oCertNote.ScheduleFixId = "002" oCertNote.RemarkLine2 = "Update to certificate note" oResult = oConneXion.UpdateCertificateFormNote(oCertNote) If oResult.Success = False Then txtResultCertificateFormNote.Text = "UpdateCertificateFormNote is false. " & oResult.Description & oResult.TAMDescription Else txtResultCertificateFormNote.Text = "UpdateCertificateFormNote is successful. " & oResult.Description & oResult.TAMDescription End If End If