#Region Activity Attributes
#FullScreen: False
#IncludeTitle: False
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim container As Panel
Dim servicios As Button
Dim Scroll As ScrollView
Dim ServicioPanel As Panel
Dim txtpedido As Label
Dim txtcliente As Label
Dim txtinicio As Label
Dim txtdestino As Label
Dim txthoracto As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
container.Initialize("container")
Activity.AddView(container,0,0,100%x,100%y)
container.Color = Colors.RGB(0,0,0)
End Sub
Sub Activity_Resume
StartService("cargarservicios")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
CancelScheduledService(cargarservicios)
End Sub
Sub CargarDatos
Dim m As Map
m=cargarservicios.json.NextObject
Dim data As List
data=m.Get("data")
For z=0 To data.Size-1
Next
Dim height As Int
height = z * 12.2%y
Scroll.Initialize(height)
Activity.AddView(Scroll,0,20%y,100%x,70%y)
Dim lblAngle As Int = 0
Dim border As ColorDrawable
For i=0 To data.Size-1
m=data.Get(i)
Dim row As Int
row = i * 92
Dim pedido As Label
Dim cliente As Label
Dim inicio As Label
Dim estado As Label
ServicioPanel.Initialize("ServicioPanel")
pedido.Initialize("pedido")
cliente.Initialize("cliente")
inicio.Initialize("inicio")
estado.Initialize("estado")
txtpedido.Initialize("txtpedido")
txtcliente.Initialize("txtcliente")
txtinicio.Initialize("txtinicio")
txtdestino.Initialize("txtdestino")
txthoracto.Initialize("txthoracto")
Scroll.Panel.AddView(ServicioPanel, 0, 0 + row, 100%x, 12%y)
If i Mod 2 = 0 Then
Dim col2 As Int = Colors.RGB(227,254,255)
Else
Dim col2 As Int = Colors.RGB(255,255,255)
End If
border.Initialize(col2, lblAngle)
ServicioPanel.Background = border
ServicioPanel.Tag = (m.Get("tsp_num_ser"))
ServicioPanel.AddView(pedido, 0, 1%y, 20%x, 4%y)
pedido.Text = "Pedido"
pedido.TextSize = 14
pedido.TextColor = Colors.RGB (0,0,0)
ServicioPanel.AddView(estado, 80%x, 1%y, 20%x, 4%y)
estado.Text = ""
estado.TextSize = 14
estado.TextColor = Colors.RGB (0,0,0)
ServicioPanel.AddView(cliente, 0, 4%y, 20%x, 4%y)
cliente.Text = "Cliente"
cliente.TextSize = 14
cliente.TextColor = Colors.RGB (0,0,0)
ServicioPanel.AddView(inicio, 0, 7%y, 20%x, 11%y)
inicio.Text = "Inicio"
inicio.TextSize = 14
inicio.TextColor = Colors.RGB (0,0,0)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ServicioPanel.AddView(txtpedido, 20%x, 1%y, 40%x, 4%y)
txtpedido.Text = (m.Get("tsp_num_ser"))
txtpedido.TextColor = Colors.RGB (0,48,107)
ServicioPanel.AddView(txtcliente, 20%x, 4%y, 80%x, 4%y)
txtcliente.Text = (m.Get("tsp_nom_emp"))
txtcliente.TextColor = Colors.RGB (0,0,0)
ServicioPanel.AddView(txtinicio, 20%x, 7%y, 80%x, 11%y)
txtinicio.Text = ""
txtinicio.TextColor = Colors.RGB (0,0,0)
Next
End Sub
End Sub