Function ARTFormatTarif (IdOnglet As Integer) As Integer
Dim Ret%
Dim sData$
Dim s$
Dim iLig%
Dim sRef$

Ret = ARTTarifClearAll(5, 2)
Ret = SetContainer(FrmPage.CelCible, CComponent, GlobCurService, 99, "FrmTarif.CelTarif")
Ret = XasUserSetProperties(FrmPage.CelCible, 139, 1) 'HIGHLIGHT
Ret = XasUserSetProperties(FrmPage.CelCible, 18, 1)
Ret = XasUserSetProperties(FrmTarif.BtnTar(0), 9, False)
Ret = XasUserSetProperties(FrmTarif.BtnTar(1), 9, False)
Ret = XasUserSetProperties(FrmTarif.BtnTar(0), 78, GlobCurService + ".FrmTarif.GridTarif")
If GlobCurEntity <> "" Then
    FrmTarif.GridTarif.Clear
    Ret = XasXMLDom(GlobCurFileDom, GlobCurService + ".FrmTarif.GridTarif", 0)
    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
    s = " AND CodeClient.xxkey=0.0"
    Ret = pExecute(sData + s)
    If Ret > 0 Then
	iLig = iLig + 1
	FrmTarif.GridTarif.Row = iLig
	sRef = TARoneRow(iLig)
    End If
    s = " AND CodeClient.xxkey !=0.0"
    Ret = pExecute(sData + s)
    While (Ret = True)
	iLig = iLig + 1
	FrmTarif.GridTarif.Row = iLig
	sRef = TARoneRow(iLig)
	Ret = pMoveNext(0)
    Wend
Else
    Ret = XasUserSetProperties(FrmTarif.LabMsg, 7, MsgLabel(1))
End If

End Function