Function DoSearchArticle (id As Integer) As Integer
Dim sData$
Dim Ret%
Dim s1$
Dim s2$
Dim i%
Dim J%

Ret = DoGrid(GridList, 30)
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
PicBtn(5).Visible = False
PicBtn(6).Visible = False

sData = "SELECT  Reference,Name, Designation , TarifBase,CodeProduit"
sData = sData + " FROM Produit"
sData = sData + " WHERE CodeProduit.xxKey != 0.0"
If s1 <> "" Then
    sData = sData + " AND Reference Like '*" + s1 + "*' "
End If
If s2 <> "" Then
    sData = sData + " AND Name Like '*" + s2 + "*' "
End If
Ret = pTmpExecute(sData)
i = 1
If Ret = True Then
    While (Ret = True)
	GridList.Row = i
	For J = 0 To 4
	    GridList.Col = J + 1
	    GridList.Text = pTmpGetItem(J)
	Next J
	i = i + 1
	MaxRow = i
	GridList.Rows = i
	Ret = pTmpMoveNext(0)
	If i > 2 Then
	    Celframe(0).Visible = False
	    Celframe(1).Visible = True
	End If
    Wend
Else
    LabMsg(0).Caption = "Aucun Produit ne correspond à votre recherche ..."
    LabMsg(1).Caption = "Aucun Produit ne correspond à votre recherche ..."
    LabMsg(0).ForeColor = 255
    LabMsg(1).ForeColor = 255
End If

End Function