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

Dim Cpt%

GridTree.Visible = False
GlobIdXmlKey = 58

s = GlobPU.XasName + "_SiteRef.xml"
IdXmlSite = XasXmlOpen(s, 0, 0, 0, 0)
If IdXmlSite <> False Then
    Ret = XasXMlClose(IdXmlSite)
End If
Ret = XasUserCopyFile(0, "SiteRef.xml", s)
IdXmlSite = XasXmlOpen(s, 0, 0, 0, 0)
If IdXmlSite = False Then
    XasTrace "Failed to open Loc File"
    Exit Function
End If
Ret = XasXmlStart(IdXmlSite, 0)
Ret = XasXmlSearchNode(IdXmlSite, "XmlElement", "XmlBandeau=1", "", "")
If Ret <> False Then
    sData = "Select CodeSite,RaisonSociale From Site WHERE CodeSite.xxKey != 0.0 And numagent.integer IN(1,2,3) "
    Ret = pExecute(sData)
    While (Ret = True)
	s = OnSQLGetItem(0)
	If s <> "" Then
	    Ret = XasXmlInsertNode(IdXmlSite, 63, "")
	    If Ret <> False Then
		Cpt = Cpt + 1
		Ret = XasXmlSetAttributByName(IdXmlSite, "Id", CStr(Cpt))
		Ret = XasXmlSetAttributByName(IdXmlSite, "CodeSite", OnSQLGetItem(0))
		Ret = XasXmlSetAttributByName(IdXmlSite, "Name", OnSQLGetItem(1))
		Ret = XasXmlSetAttributByName(IdXmlSite, "value", "0")
		Ret = XasXmlSetAttributByName(IdXmlSite, "checked", "1")
		Ret = XasXmlSetAttributByName(IdXmlSite, "icon", "31")
		Ret = XasXmlParentNode(IdXmlSite, s)
	    End If
	End If
	Ret = pMoveNext(0)
    Wend
End If
If IdXmlSite <> False   Then
    Ret = XasXmlSetAttribut(IdXmlSite, -1, "")
    Ret = XasUserSetProperties(GridTree, 145, IdXmlSite)
    Ret = XasUserSetProperties(GridTree, 175, "XmlBandeau=1")
    Ret = XasUserSetProperties(GridTree, 165, GlobIdXmlKey)
    GridTree.Visible = True
End If
 
End Function