Function DoSqlArticle (sId As String, sIdClient As String) As Integer
Dim sData$
Dim Ret%
Dim i%
Dim J%
Dim k%

Dim s$
Dim s1$
Dim s2$

Ret = DoClearAll(0)
TypeArticle = 0
Celfond(4).Visible = False
Celfond(8).Visible = False
PicSite.Visible = False
Lb(17).Visible = True
picfilename = GlobPu.XasIdBase + "-" + CStr(sId)
Ret = XasUserSetString(6, "ARTICLE\" + picfilename)
Ret = XasUserSetString(7, "ITLIB")
Ret = XasUserSetString(8, ".JPG")

sData = "SELECT CodeProduit,creation,maj,type,Name,"
sData = sData + " Reference,RefFour,PointsCredit,PointsDebit,"
sData = sData + " Designation, Info1,Composition,Info2,"
sData = sData + " TarifAchat,TarifBase,"
sData = sData + " photo,action,"
sData = sData + " c13,c14,c15,c16,devise"
sData = sData + " FROM Produit"
sData = sData + " WHERE CodeProduit.xxKey = " + CStr(sId)
i = 0
Ret = pExecute(sData)
DoSqlArticle = Ret
While (Ret = True)
    For i = 0 To 12
	s = OnSQLGetItem(i)
	If i = 3 Then
	    TypeArticle = Val(s)
	End If
	txP(i).Text = s
    Next i
    s = OnSQLGetItem(i)
    txP(13).Text = s
    i = i + 1
    s = OnSQLGetItem(i)
    txP(17).Text = s
    i = i + 1
    s = OnSQLGetItem(i)
    If Trim$(s) <> "" Then
	Ret = loadPixJPG(PicSite, "\ARTICLE\" + s)
	If Ret <> False Then
	    PicSite.Visible = True
	    Lb(17).Visible = False
	End If
    End If
    i = i + 1
    s = OnSQLGetItem(i)
    txP(25).Text = s
    i = i + 1
    For J = 0 To 4
	Ret = pGetItem(s, i)
	Ret = PosCombo(Cb(J), s)
	i = i + 1
    Next J
    Ret = pMoveNext(0)
Wend
Ret = PosCombo(Cb(8), CStr(TypeArticle))
Celfond(8).Visible = True

Select Case TypeArticle
    Case 2, 3
	Celfond(4).Visible = True
	If TypeArticle = 2 Then
	    Lb(13).Caption = "Couleurs"
	    Lb(14).Caption = "Tailles"
	Else
	    Lb(13).Caption = "Matières"
	    Lb(14).Caption = "Géométries"
	End If
	Ret = pExecute("select couleurs_id from ArticleCouleurs where IdArticle.xxKey =" + CStr(sId))
	While (Ret = True)
	    Ret = PosListe(0, OnSQLGetItem(0))
	    Ret = pMoveNext(0)
	Wend
	Ret = pExecute("select Tailles_id from ArticleTailles where IdArticle.xxKey=" + CStr(sId))
	While (Ret = True)
	    Ret = PosListe(1, OnSQLGetItem(0))
	    Ret = pMoveNext(0)
	Wend
    Case 4
	Celfond(8).Visible = True
	List1(3).Clear
	s = ""
	Ret = pExecute("select cle from ArticleCompo where Id.xxKey=" + CStr(sId))
	If Ret = True Then
	    While (Ret = True)
		s = s + OnSQLGetItem(0) + ","
		Ret = pMoveNext(0)
	    Wend
	    If s <> "" Then
		Ret = pExecute("select CodeProduit, Reference, Name from Produit where CodeProduit.xxKey IN (" + Left$(s, Len(s) - 1) + ")")
		While (Ret = True)
		    s2 = OnSQLGetItem(0)
		    sData = Trim$(OnSQLGetItem(1)) + "-"
		    sData = sData + Trim$(OnSQLGetItem(2)) + "-"
		    List1(3).AddItem Trim$(sData) + Space(40) + s2
		    Ret = pMoveNext(0)
		Wend
	    End If
	End If
End Select

sData = "Select ArticleTarif.pU,ArticleTarif.QTE,"
sData = sData + " ArticleTarif.Remise,ArticleTarif.Coef,ArticleTarif.pUVente,"
sData = sData + " ArticleTarif.devise,ArticleTarif.Taxes1,ArticleTarif.Taxes2"
sData = sData + " from Produit,ArticleTarif"
sData = sData + " WHERE Produit.CodeProduit.xxKey=" + CStr(sId)
sData = sData + " AND ArticleTarif.CodeClient.xxKey= " + CStr(sIdClient)
Ret = pExecute(sData)
If Ret = True Then
    For i = 13 To 17
	s = OnSQLGetItem(i - 13)
	txP(i).Text = s
    Next i
    For J = 4 To 6
	s = OnSQLGetItem(i - 13)
	Ret = PosCombo(Cb(J), s)
	i = i + 1
    Next J
End If

sData = "select  ArticleStock.Inventaire,"
sData = sData + " ArticleStock.QteInv,ArticleStock.QteStock,ArticleStock.SeuilReappro,"
sData = sData + " ArticleStock.QteCmdMini,ArticleStock.QteEnCmd,ArticleStock.QteEnLiv "
sData = sData + " from Produit,ArticleStock"
sData = sData + " WHERE Produit.CodeProduit.xxKey=" + CStr(sId)
sData = sData + " AND ArticleTarif.CodeClient.xxKey= " + CStr(sIdClient)
Ret = pExecute(sData)
If Ret = True Then
    For i = 18 To 24
	s = OnSQLGetItem(i - 18)
	txP(i).Text = s
    Next i
End If

Ret = XasUserGetProperties(FromDelete, 181, k)
s = "Id" + CStr(Ret)
s1 = "Voulez-vous effacer ce produit ?"
Ret = XasUserSetProperties(PicBtn(7), 241, "javascript:DelConfirm(self,'" + s + "','" + s1 + "');")

End Function