Function IMPLineToXml (sDonnee As String, IdXml As Integer, Id As Integer, iCol As Integer) As Integer
Dim Ret%
Dim sDataXml$
Dim s$
Dim sA$
Dim sB$
Dim i%
Dim j%
Dim iCur%
Dim Cpt%
Dim sMethod$

IMPLineToXml = 0
sDataXml = Chr$(9) + " 0 Then
	    iCur = Val(sA)
	    For j = 1 To CurMaxChamp(iCur)
		sDataXml = sDataXml + " " + CurNomChamp(iCur, j) + "=" + s
	    Next j
	    Cpt = Cpt + 1
	End If
    End If
Next i
IMPLineToXml = Cpt
If Cpt = iCol Then
    sDataXml = sDataXml + " > " + Chr$(13) + Chr$(10)
    Ret = IMPTrace(UCase$(GlobPU.XasName) + "_JOBTMP.XML", sDataXml)
End If
End Function