Function IMPClientFile (sFileXml As String, sFileSrc As String, Id As Integer, FileHTml As String) As Integer
Dim Ret%
Dim s$
Dim sA$
Dim Fnum%
Dim sData$
Dim i%
Dim IdXml%
Dim Cpt%
Dim NbLigne%
Dim iSize%
Dim OnBoucle%
Dim NbTrace%
Dim NomFileTmp$

IMPClientFile = 0

IdXml = XasXmlOpen(sFileXml, 0, 0, 0, 0)
If IdXml <> 0 Then
    Ret = XasXmlSearchNode(IdXml, 5, "Id=" + CStr(Id), "", "")
    If Ret <> False Then
	Ret = XasXMLGetAttributbyName(IdXml, "Size", sA)
	iSize = Val(sA) + 10
	Ret = XasXMLGetAttributbyName(IdXml, "Max", sA)
	Cpt = Val(sA)
	Ret = XasXmlChildNode(IdXml, sA)
	If Ret <> False Then
	    Ret = IMPStartBookMark(IdXml, Id, Cpt)
	    s = sFileSrc
	    Open s For Input As Fnum
	    OnBoucle = True
	    While (OnBoucle = True)
		sData = String$(iSize, 0)
		Get #Fnum, -1, sData
		If Left$(sData, 1) = Chr$(0) Then
		    OnBoucle = False
		Else
		    XasSleep 1
		    Ret = IMPLineToXml(sData, IdXml, Id, Cpt)
		    If Ret = Cpt Then
			NbLigne = NbLigne + 1
			NbTrace = NbTrace + 1
		    End If
		    If NbTrace > 100 Then
			NbTrace = 0
			NomFileTmp = UCase$(GlobPU.XasName) + "_BodyResu.htm"
			Kill NomFileTmp
			Ret = IMPHtmlWrite(NomFileTmp, CStr(NbLigne) + " Occurence(s) trouvée(s)", False)
			Ret = XasUserCopyFile(0, UCase$(GlobPU.XasName) + "_DebutResu.htm", FileHTml)
			Ret = XasUserCopyFile(2, NomFileTmp, FileHTml)
			Ret = IMPTrace(FileHTml, "")
		    End If
		End If
	    Wend
	    Close Fnum
	    Ret = IMPTrace(UCase$(GlobPU.XasName) + "_JOBTMP.XML", "" + Chr$(13) + Chr$(10))

	End If
    End If
    Ret = XasXmlClose(IdXml)
End If
IMPClientFile = NbLigne
End Function