Function DoSearchEntity (Typeid As Integer) As Integer
Dim sData$
Dim Ret%
Dim s1$
Dim s2$
Dim i%
Dim j%

Ret = DoGrid(GridList, 100)
Ret = DoClearAll(0)
LabMsg(0).ForeColor = 0
LabMsg(0).Caption = ""
LabMsg(1).ForeColor = 0
LabMsg(1).Caption = ""
s1 = TxR(0).Text
s2 = TxR(1).Text
PicBtn(7).Visible = False

sData = "SELECT  RaisonSociale, Name, prenom, adresse, cp, ville,CodeClient "
sData = sData + " FROM Client WHERE CodeClient.xxKey != 0"
sData = sData + " AND type.integer = " + CStr(Typeid)
If s1 <> "" Then
    sData = sData + " AND  RaisonSociale Like '*" + s1 + "*' "
End If
If s2 <> "" Then
    sData = sData + " AND  numcompta Like '*" + s2 + "*' "
End If
i = 1
Ret = pTmpExecute(sData)
If Ret = True Then
    While (Ret = True)
	GridList.Row = i
	For j = 0 To 6
	    GridList.Col = j + 1
	    GridList.Text = pTmpGetItem(j)
	Next j
	i = i + 1
	If i > MaxGridRow Then
	    MaxGridRow = i
	    GridList.Rows = i
	    Exit Function
	End If
	If i > 2 Then
	    Cel(2).Visible = False
	    Cel(1).Visible = True
	End If
	Ret = pTmpMoveNext(0)
    Wend
    MaxRow = i
    GridList.Rows = i
Else
    LabMsg(0).Caption = "Aucune Entité ne correspond à votre recherche ..."
    LabMsg(1).Caption = "Aucune Entité ne correspond à votre recherche ..."
    LabMsg(0).ForeColor = 255
    LabMsg(1).ForeColor = 255
End If

End Function