Function ARTClientSearch (Id As Integer) As Integer
Dim sData$
Dim Ret%
Dim s1$
Dim i%
Dim sRef$
Dim iLig%
Dim s$

LinkModeCreation = False
FrmTarif.GridTarif.Clear
Ret = XasXMLDom(GlobCurFileDom, GlobCurService + ".FrmTarif.GridTarif", 0)
Ret = XasUserSetProperties(FrmTarif.BtnTar(0), 9, False)
Ret = XasUserSetProperties(FrmTarif.BtnTar(1), 9, False)
Ret = XasUserSetProperties(FrmTarif.CelA, 18, 1)
Ret = XasUserSetProperties(FrmTarif.LabMsg, 7, "")
Ret = XasUserSetProperties(FrmTarif.Bts, 9, True)
sData = "SELECT CodeClient.GetData(raisonsociale, Client, codeClient ), pu ,pupromo,remise,coef,puvente,qte,taxes1,taxes2,devise,id,codeclient "
sData = sData + " FROM articletarif"
sData = sData + " WHERE CodeProduit.xxKey = " + GlobCurEntity
sData = sData + " AND CodeClient.xxkey=0.0"
Ret = pExecute(sData)
If Ret > 0 Then
    FrmTarif.GridTarif.Row = 1
    sRef = TARoneRow(1)
End If
 
sData = "SELECT TOP 50 Raisonsociale,  CodeClient "
sData = sData + " FROM Client "
sData = sData + " AND type.integer=2"
s1 = FrmTarif.txs(0).Text
If s1 <> "" Then
    sData = sData + " AND RaisonSociale.string LIKE " + Chr$(3) + "*" + s1 + "*" + Chr$(4)
End If
Ret = pExecute(sData)
If Ret > 0 Then
    iLig = 1
    While (Ret > 0)
	iLig = iLig + 1
	FrmTarif.GridTarif.Row = iLig
	FrmTarif.GridTarif.Col = 1
	FrmTarif.GridTarif.Text = OnSQLGetItem(0)
	FrmTarif.GridTarif.Col = 12
	FrmTarif.GridTarif.Text = OnSQLGetItem(1)
	For i = 2 To 10
	    FrmTarif.GridTarif.Col = i
	    s = GetCharByIndice(sRef, ";", i - 1)
	    FrmTarif.GridTarif.Text = s
	Next i
	Ret = pMoveNext(0)
    Wend
    
Else
    FrmTarif.GridTarif.Rows = 2
    Ret = XasUserSetProperties(FrmTarif.LabMsg, 7, "")
End If

End Function