Function IMPSetGeoCodage (IdXml As Integer, iIndice As Integer) As Integer
Dim Ret%
Dim s$
Dim sData$
Dim sNum$
Dim sRue$
Dim sCP$
Dim sVille$
Dim sPays$
Dim iPoint%

sData = CurXmlData(iIndice)
Ret = InStr(1, UCase$(sData), UCase$("adresse"))
If Ret > 0 Then
    Ret = XasGeoSetConfigInfo(19, "1", 0)   'Reinit GeoCodage
    Ret = XasXMLGetAttributbyName(IdXml, "adresse", s)
    sData = IMPGetAdresse(s)
    sNum = GetCharByIndice(sData, ";", 1)
    sRue = GetCharByIndice(sData, ";", 2)
    Ret = XasXMLGetAttributbyName(IdXml, "Cp", sCP)
    Ret = XasXMLGetAttributbyName(IdXml, "Ville", sVille)
    sPays = "FRANCE"
    Ret = XasXMLSetAttributbyName(IdXml, "tpe_country", sPays)
    Ret = IMPGeoCodage(Val(sNum), sRue, sCP, sVille, sPays)
    If Ret = False Then
	Ret = IMPGeoCodage(0, "", "", sVille, sPays)
    End If
    If Ret = True Then
	Ret = XasXMLSetAttributbyName(IdXml, "tpe_longitude", XasGeoGetConfigInfo(10,""))
	Ret = XasXMLSetAttributbyName(IdXml, "tpe_latitude", XasGeoGetConfigInfo(11,""))
	iPoint = Val(XasGeoGetConfigInfo(14,""))
	Ret = XasXMLSetAttributbyName(IdXml, "tpe_cmd", CStr(iPoint))
	If iPoint >= 5 Then
	    CurMoyCodage = CurMoyCodage + 1
	End If
	CurMaxCodage = CurMaxCodage + 1
	CurNbCodage = CurNbCodage + 1
    Else
	Ret = XasXMLSetAttributbyName(IdXml, "tpe_longitude", "")
	Ret = XasXMLSetAttributbyName(IdXml, "tpe_latitude", "")
    End If
End If

End Function