![]() | |
ConneXionFindNotesForClient Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oNote As New ConneXion.Note Dim oNotes() As ConneXion.Note Dim oResult As ConneXion.ConneXionResult oNote.TAMUserName = "EXEC" oNote.TAMPassword = "PSWD" oNote.EntityID = "BOOKR-1" oNote.EntityType = "C" oResult = oConneXion.FindNotesForClient(oNote, oNotes) If oResult.Success Then txtResult.Text = oResult.Description Else txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If