Function IMPGestionInOut (FileXml As String, FileImport As String, FileHTml As String) As Integer
Dim Ret%
Dim CptJob%
Dim OnBoucle%
Dim NomFileTmp$
Dim NbLigne%
 


CurNbCodage = 0
NomFileTmp = UCase$(GlobPU.XasName) + "_BodyResu.htm"
Kill NomFileTmp
OnBoucle = True
While (OnBoucle = True)
    Select Case CptJob
	Case 0
	    Ret = IMPHtmlWrite(NomFileTmp, "Analyse du fichier en cours...", False)
	    CptJob = CptJob + 1
	Case 1
	    NbLigne = IMPClientFile("xFormat.XML", FileImport, CurIdFormat, FileHTml)
	    If NbLigne > 0 Then
		CptJob = CptJob + 1
	    Else
		Ret = IMPHtmlWrite(NomFileTmp, "Erreur lors du traitement!", False)
		CptJob = 100
	    End If
	Case 2
	    Ret = IMPHtmlWrite(NomFileTmp, CStr(NbLigne) + " Occurence(s) trouvée(s)", False)
	    CptJob = CptJob + 1
	Case 3
	    Ret = IMPHtmlWrite(NomFileTmp, "Traitement du fichier en Cours...", False)
	    CptJob = CptJob + 1
	Case 4
	    Ret = IMPDELTempClient(0)
	    Ret = IMPXmlQualifie(UCase$(GlobPU.XasName) + "_JOBTMP.XML", CurIdFormat)
	    If CurNbCodage > 0 Then
		CptJob = CptJob + 1
	    Else
		If CurNbCodage <> CurNbExist Then
		    Ret = IMPHtmlWrite(NomFileTmp, "Aucune Occurence géocodée(s)!", False)
		Else
		    Ret = IMPHtmlWrite(NomFileTmp, "Erreur lors du géocodage", False)
		End If
		CptJob = CptJob + 1
	    End If
	Case 5
	    Ret = IMPHtmlWrite(NomFileTmp, CStr(CurNbEntity) + " occurence(s) traitée(s)", False)
	    If CurNbCodage > 0 Then
		Ret = IMPHtmlWrite(NomFileTmp, CStr(CurNbCodage) + " occurence(s) géocodée(s)", False)
		Ret = IMPHtmlWrite(NomFileTmp, "Taux de réussite 'Niveau Moyen': " + IMPGetPourcent(CurMaxCodage, CurNbCodage) + "%", False)
		Ret = IMPHtmlWrite(NomFileTmp, "Taux de réussite 'Niveau Bon': " + IMPGetPourcent(CurMoyCodage, CurNbCodage) + "%", False)
	    End If
	    CptJob = CptJob + 1
	Case 6
	    If CurIdFormat = 15 Then
		Ret = IMPHtmlWrite(NomFileTmp, "Traitement tournée(s)/Mission(s) en cours...", False)
		CptJob = CptJob + 1
	    Else
		CptJob = 100
	    End If
	Case 7
	    If CurIdFormat = 15 Then
		'Ret = IMPCreateMission(CurIdFormat, "")
		'If Ret = True Then
		    Ret = IMPHtmlWrite(NomFileTmp, CStr(CurNbMission) + " occurence(s) générée(s) ", False)
		'End If
	    End If
	    CptJob = CptJob + 1
	Case Else
	    OnBoucle = False
    
    End Select
    Ret = XasUserCopyFile(0, UCase$(GlobPU.XasName) + "_DebutResu.htm", FileHTml)
    Ret = XasUserCopyFile(2, NomFileTmp, FileHTml)
    Ret = IMPTrace(FileHTml, "")
Wend
XasSleep 1000
Ret = XasUserCopyFile(0, "HELP.HTM", FileHTml)
Ret = IMPHTMLEntete(FileHTml, UCase$(GlobPU.XasName) + "_DebutResu.htm", False)
Ret = XasUserCopyFile(2, NomFileTmp, FileHTml)
Ret = IMPTrace(FileHTml, "")

End Function