Function IMPXmlQualifie (sFile As String, iFormat As Integer) As Integer
Dim Ret%
Dim IdXml%
Dim s$
Dim i%
Dim j%
Dim Cpt%
Dim jMax%
Dim OnBoucle%

CurMoyCodage = 0
CurNbCodage = 0
CurMaxCodage = 0
CurNbExist = 0
CurNbEntity = 0
CurNbMission = 0

IMPXmlQualifie = 0
IdXml = XasXmlOpen(sFile, 0, 0, 0, 0)
If IdXml > 0 Then
    Cpt = IMPStartXmlBook(IdXml, iFormat)
    If Cpt > 0 Then
	For i = 1 To Cpt
	    jMax = GetCharMaxIndice(CurXmlData(i), ",", "")
	    If jMax > 0 Then
		CurMaxChamp(i) = jMax
		For j = 1 To jMax
		    s = GetCharByIndice(CurXmlData(i), ",", j)
		    If UCase$(s) <> CurXmlChamp(i) Then
			CurNomChamp(i, j) = GetCharByIndice(CurXmlData(i), ",", j)
		    End If
		Next j
	    End If
	Next i
	Ret = XasXmlChildNode(IdXml, s)
	While (Ret <> False)
	    OnBoucle = OnBoucle + 1
	    XasSleep 1
	    For i = 1 To Cpt
		Ret = IMPCheckDatabase(IdXml, i)
		If Ret = False Then
		    Ret = IMPSetGeoCodage(IdXml, i)
		    Ret = IMPEntityCreate(IdXml, i)
		Else
		    CurNbExist = CurNbExist + 1
		End If
	    Next i
	    If OnBoucle > 3000 Then
		OnBoucle = False
		Ret = pExecute("RESTARTDATABASE('" + GlobPU.Connect + "')")
	    End If
	    Ret = XasXmlNextNode(IdXml, s)
	Wend
    End If
    Ret = XasXmlSetAttribut(IdXml, -1, "")
    Ret = XasXmlClose(IdXml)
End If
End Function