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

IMPInsertTRAN = False
sData = " INSERT INTO Transaction (Type,Creation,maj,codeclient,codeprogramme,codesite,codevendeur,codechauffeur,codemobile,Name,Tpe_type,Tpe_statut, numcompta,"
For j = 1 To CurMaxChamp(iIndice)
    If CurNomChamp(iIndice, j) <> "" Then
	sData = sData + CurNomChamp(iIndice, j) + ","
    End If
Next j
sData = sData + "tpe_maj  ) VALUES ("
sData = sData + "'" + CStr(CurXmlType(iIndice)) + "',"
sData = sData + "'" + sCreation + "','" + sCreation + "',"
sData = sData + "'" + CurCodeClient + "',"
sData = sData + "'" + CurCodeProgramme + "',"
sData = sData + "'" + CurCodeSite + "',"
sData = sData + "'" + CurCodeVendeur + "',"
sData = sData + "'" + CurCodeChauffeur + "',"
sData = sData + "'" + CurCodeMobile + "',"
sData = sData + "'" + CurDataClient(1) + "',"
sData = sData + "'2','2',"
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 + "'-' ) "
Ret = pExecute("CLEAR")
Ret = pExecute(sData)
If Ret = True Then
    Ret = XasUserGetString(1, s)
    Ret = IMPSetxxKey(CurXmlChamp(iIndice), s)
    IMPInsertTRAN = True
End If

End Function