COM

Sub Find(ByVal ClientID As String, ByVal ContactNumber As Integer, ByVal List As Integer)<br />
' --------------------------------------------------------<br />
' Function:         Main<br />
' Description:      Examples use of SearchByClientId Method<br />
'<br />
' Arguments:        sClientId: Local variable which receives<br />
'                            getfieldvalue return value.<br />
' Returns:          n/a<br />
'<br />
' Comments:         Maximizer should be active while<br />
'                   running this code.<br />
' --------------------------------------------------------<br />
<br />
Dim objMaxAttach As New MaximizerTLB.AttachToCurrentInstance    ' Define CurrentInstance object of running Maximizer<br />
Dim objMaxCur As MaximizerTLB.CurrentRecord  ' Define Current Record Object variable<br />
<br />
Set objMaxCur = objMaxAttach.GetCurrentRecordObject   ' Set objMaxCur to Current Record<br />
<br />
' -------------------------------------------------------------<br />
' Use the GetFieldValue method to obtain the current record Id<br />
' then search for all matching records<br />
' -------------------------------------------------------------<br />
'sClientId = objMaxCur.GetFieldValue("IDentification")<br />
<br />
' ------------------------------------<br />
' Create new list whose IDentification<br />
' matches that of the current record.<br />
' ------------------------------------<br />
'Call objMaxCur.SearchByClientId(sClientId, 0, 2)<br />
<br />
<br />
<br />
<br />
'***************** this line does not execute in VB.NET ****************<br />
Call objMaxCur.SearchByClientID(ClientID, ContactNumber, List)<br />
'***************** this line does not execute in VB.NET ****************<br />
<br />
<br />
<br />
Set objMaxCur = Nothing ' Release object<br />
Set objMaxAttach = Nothing   ' Release Object<br />
<br />
End Sub

Public Sub AddIndividualNote(ByVal ClientID As String, ByVal ContactNumber As String, ByVal Message As String, ByVal BatchID As String)<br />
        Dim objMaxAttach As New MaximizerTLB.AttachToCurrentInstance<br />
        Dim objMaxCurrentRecord As MaximizerTLB.CurrentRecord<br />
<br />
        Try<br />
            objMaxAttach.GetApplicationObject.ActivateWindow("Client")<br />
            objMaxCurrentRecord = objMaxAttach.GetCurrentRecordObject<br />
<br />
<br />
<br />
'***************** this line does not execute in VB.NET ****************<br />
            'search for the person<br />
            objMaxCurrentRecord.SearchByClientID(ClientID, ContactNumber, 2)<br />
'***************** this line does not execute in VB.NET ****************<br />
<br />
<br />
<br />
            objMaxCurrentRecord.UndoSearch()<br />
        Catch ex As Exception<br />
            Throw ex<br />
        Finally<br />
            objMaxCurrentRecord = Nothing               'release object<br />
            objMaxAttach = Nothing                      'Release Object<br />
            GC.Collect()<br />
        End Try<br />
    End Sub