Function IMPInsertPRODUIT (IdXml As Integer, iIndice As Integer, sCreation As String) As Integer
Dim Ret%
Dim sData$
Dim j%
Dim s$

IMPInsertPRODUIT = False

Ret = XasXMLGetAttributbyName(IdXml, CurXmlChamp(iIndice), s)
sData = "select CodeProduit,Name,Composition "
sData = sData + " FROM PRODUIT  "
sData = sData + " WHERE NumCompta.string='" + s + "'"
Ret = pExecute(sData)
If Ret = False Then
    sData = " INSERT INTO Produit (Type, codeclient,Creation,maj,numcompta,"
    For j = 1 To CurMaxChamp(iIndice)
	If CurNomChamp(iIndice, j) <> "" Then
	    sData = sData + CurNomChamp(iIndice, j) + ","
	End If
    Next j
    sData = sData + "pointsdebit, pointscredit) VALUES ("
    sData = sData + "'" + CStr(1) + "','0.0', '" + sCreation + "','" + sCreation + "',"
    Ret = XasXMLGetAttributbyName(IdXml, CurXmlChamp(iIndice), s)
    sData = sData + "'" + s + "',"
    For j = 1 To CurMaxChamp(iIndice)
	Ret = XasXMLGetAttributbyName(IdXml, CurNomChamp(iIndice, j), s)
	If CurNomChamp(iIndice, j) <> "" Then
	    sData = sData + "'" + XasSetChar(s, "'", "''", 0, 0) + "',"
	End If
    Next j
    sData = sData + "'1','1' ) "
    Ret = pExecute("CLEAR")
    Ret = pExecute(sData)
    If Ret = True And XasUserGetString(1, s) Then
	Ret = IMPSetxxKey(CurXmlChamp(iIndice), s)
	If s <> "" Then
	    sData = " INSERT INTO Produit.ArticleTarif (Creation,maj,CodeProduit, codeclient ) VALUES ( "
	    sData = sData + "'" + sCreation + "',"
	    sData = sData + "'" + sCreation + "',"
	    sData = sData + "'" + s + "',"
	    sData = sData + "'" + "0.0" + "' )"
	    Ret = pExecute(sData)
	    Ret = pExecute("Select CodeProduit From Produit WHERE CodeProduit.xxKey=" + s)
	    sData = " INSERT INTO Produit.ArticleStock (Creation,Maj,CodeProduit,codeclient,Inventaire ) VALUES ( "
	    sData = sData + "'" + sCreation + "',"
	    sData = sData + "'" + sCreation + "',"
	    sData = sData + "'" + s + "',"
	    sData = sData + "'" + "0.0" + "',"
	    sData = sData + "'" + sCreation + "' )"
	    Ret = pExecute(sData)
	End If
	sData = "select CodeProduit,Name,Composition "
	sData = sData + " FROM PRODUIT  "
	sData = sData + " WHERE CodeProduit.xxKey=" + s
	Ret = pExecute(sData)
	If Ret = True Then
	    s = OnSQLGetItem(1)
	    If s = "" Then
		sData = "UPDATE Produit Set  Name='" + Trim$(Left$(OnSQLGetItem(2), 30)) + "',designation='" + OnSQLGetItem(2) + "' WHERE CodeProduit.xxKey=" + OnSQLGetItem(0)
		Ret = pExecute(sData)
	    End If
	End If
    End If
End If
End Function