Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("menuattrezzature")
Dim pathdb As String
pathdb=DBUtils.CopyDBFromAssets("rant.sqlite")
rant.Initialize(pathdb,"rant.sqlite",False)
Dim archivi As List
archivi.Initialize
archivi=DBUtils.ExecuteMemoryTable(rant,"SELECT id,tipologia,attrezzatura,descrizione,inventario,matricola,ubicazione FROM IMPIANTI ORDER BY TIPOLOGIA",Null,0)
Main.tipologia=""
B4XTree1.ItemHeight=100dip
B4XTree1.TextSize=10
If archivi.size > 0 Then
ToastMessageShow("sono qui",True)
Dim record() As String
For i= 0 To archivi.size-1
record=archivi.Get(i)
If Main.tipologia<>record(1) Then
Main.tipologia=record(1)
logo=Chr(0xf055)
B4XTree1.AddBranch(Main.tipologia,Main.tipologia,"",logo,Colors.Red)
End If
B4XTree1.BranchTextColor=Colors.White
index=record(0)
B4XTree1.AddLeaf(record(2) & CRLF & record(3) & "- " &record(6) & CRLF & "Inventario: " & record(4) & CRLF & "Matricola: " & record(5),"",index,Main.tipologia)
Log(record(0))
Log(record(1))
Log(record(2))
Log(record(3))
Log(record(4))
Log(record(5))
Log(record(6))
Next
End If
End Sub