Function IMPStartBookMark (IdXml As Integer, Id As Integer, iCol As Integer) As Integer
Dim Ret%
Dim i%
Dim j%
Dim jMax%
Dim iCur%
Dim sA$
Dim sB$

EndXmlFile = ""
For i = 0 To 10
    TypeTable(i) = 0
    NameTable(i) = ""
    NameBookMark(i) = ""
    ValueBookMark(i) = ""
    ChampNumCompta(i) = ""
Next i
For i = 0 To 30
    For j = 0 To 30
	CurNomChamp(i, j) = ""
    Next j
Next i
For i = 1 To iCol
    Ret = IMPGetParam(IdXml, Id, i)
    If Ret = True Then
	Ret = XasXMLGetAttributbyName(IdXml, "Index", sA)
	If Val(sA) > 0 Then
	    iCur = Val(sA)
	    sB = IMPGetNameAlias(IdXml, Id, Val(sA))
	    jMax = GetCharMaxIndice(sB, ",", "")
	    If jMax > 0 Then
		CurMaxChamp(iCur) = jMax
		For j = 1 To jMax
		    CurNomChamp(iCur, j) = GetCharByIndice(sB, ",", j)
		    Ret = IMPSetBookMark(IdXml, GetCharByIndice(sB, ",", j))
		Next j
	    End If
	End If
    End If
Next i
sA = ""
sB = " BookMark=" + Chr$(34)
For i = 1 To 10
    If ValueBookMark(i) <> "" Then
	sA = sA + " " + NameBookMark(i) + "=" + Chr$(34) + ValueBookMark(i) + Chr$(34)
	sB = sB + UCase$(NameTable(i)) + "," + NameBookMark(i) + "," + CStr(TypeTable(i)) + "," + ChampNumCompta(i) + ","
    End If
Next i
EndXmlFile = sA + sB + Chr$(34)
sA = "" + Chr$(13) + Chr$(10)
Ret = IMPTrace(UCase$(GlobPU.XasName) + "_JOBTMP.XML", sA)


End Function