Function IMPInsertCLIENT (IdXml As Integer, iIndice As Integer, sCreation As String) As Integer
Dim Ret%
Dim sData$
Dim j%
Dim s$
Dim IsEnabled%
Dim iSubType%
Dim iStatut%

Ret = XasXMLGetAttributbyName(IdXml, CurXmlChamp(iIndice), s)
sData = "select CodeClient "
sData = sData + " FROM CLIENT  "
sData = sData + " WHERE NumCompta.string=" + s
Ret = pExecute(sData)
If Ret = False Then
    IMPInsertCLIENT = False
    IsEnabled = 1
    iSubType = 1
    iStatut = 48
    If CurXmlType(iIndice) = 15 Then
	IsEnabled = 0
    End If
    If CurXmlType(iIndice) = 14 Then
	iSubType = 0
    End If
    If CurXmlType(iIndice) = 2 Then
	iStatut = 38
    End If
    sData = " INSERT INTO Client (Type,Enabled, CodeEnseigne,CodeSite,CodeProgramme,pays,langue,devise,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 + "CarteId,tpe_cmd,tpe_speed,pays,tpe_country,tpe_direction,tpe_statut  ) VALUES ("
    sData = sData + "'" + CStr(CurXmlType(iIndice)) + "','" + CStr(IsEnabled) + "', '" + CurCodeEnseigne + "','" + CurCodeSite + "','" + CurCodeProgramme + "',"
    sData = sData + "'" + CurPays + "','" + CurLangue + "','" + Curdevise + "',"
    sData = sData + "'" + 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
    Ret = XasXMLGetAttributbyName(IdXml, "tpe_cmd", s)
    sData = sData + "'0','" + CStr(iSubType) + "','" + s + "','33','FRANCE','300','" + CStr(iStatut) + "') "
    Ret = pExecute("CLEAR")
    Ret = pExecute(sData)
    If Ret = True Then
	Ret = XasUserGetString(1, s)
	Ret = IMPSetxxKey(CurXmlChamp(iIndice), s)
	Ret = XMLInsertCategorie(s, CurCategorie)
	IMPInsertCLIENT = True
    End If
Else
    sData = " UPDATE CLIENT SET "
    For j = 1 To CurMaxChamp(iIndice)
	If CurNomChamp(iIndice, j) <> "" Then
	    sData = sData + CurNomChamp(iIndice, j) + "="
	    Ret = XasXMLGetAttributbyName(IdXml, CurNomChamp(iIndice, j), s)
	    sData = sData + "'" + XasSetChar(s, "'", "''", 0, 0) + "',"
	End If
    Next j
    Ret = XasXMLGetAttributbyName(IdXml, "tpe_cmd", s)
    sData = sData + " tpe_speed='" + s + "' "
    s = OnSQLGetItem(0)
    sData = sData + " Where CodeClient.xxKey=" + s
    Ret = pExecute(sData)
    If Ret = True Then
	Ret = IMPSetxxKey(CurXmlChamp(iIndice), s)
	IMPInsertCLIENT = True
    End If
End If
End Function