Function DoSaveInXml (Id As Integer) As Integer
Dim Ret%
Dim i%
Dim s$

Ret = XasXMLToFile(-2, Sujet, 0)

XasTrace "Ret = " + CStr(Ret)
XasTrace GlobPU.XasName

Ret = XasUserSetPropByName("MaxCritere", -1, MaxCritere)
For i = 0 To MaxCritere
    If Labcritere(i) <> "" Then
        Ret = XasUserSetPropByName("LabCritere", i, Labcritere(i))
    End If
Next i
For i = 0 To MaxCritere
    If TabNomCol(i) <> "" Then
        Ret = XasUserSetPropByName("TabNomCol", i, TabNomCol(i))
    End If
Next i
For i = 0 To MaxCritere
    If TabNomRow(i) <> "" Then
        Ret = XasUserSetPropByName("TabNomRow", i, TabNomRow(i))
    End If
Next i
For i = 0 To MaxCritere
    If TabIdCaption(i) <> "" Then
        Ret = XasUserSetPropByName("TabIdCaption", i, TabIdCaption(i))
    Else
        If TabId(i) <> "" Then
            Ret = XasUserSetPropByName("TabId", i, TabId(i))
        End If
    End If
Next i
Ret = XasUserSetPropByName("TabFond", 0, TabFond(0))
Ret = XasUserSetPropByName("TabFond", 1, TabFond(1))
Ret = XasUserSetPropByName("TabFond", 2, TabFond(2))
Ret = XasXMLToFile(-1, Sujet, 0)
End Function