Sub Activity_Create(FirstTime As Boolean)
TablePedidos.Initialize(Me, "TablePedidos", 4, Gravity.CENTER_HORIZONTAL, True)
TablePedidos.CellAlignment = Bit.OR(Gravity.LEFT, Gravity.CENTER_VERTICAL)
TablePedidos.HeaderColor = Colors.Blue
TablePedidos.HeaderTextColor = Colors.Yellow
TablePedidos.TextColor = Colors.Blue
TablePedidos.TableColor = Colors.Red
TablePedidos.RowHeight = 50dip
TablePedidos.AddToActivity(PanelTPCTabla, 0, 0, PanelTPCTabla.Width, PanelTPCTabla.Height)
TablePedidos.MultiSelect = False
TablePedidos.ClearAll
TablePedidos.LineWidth = 3dip
TablePedidos.TextSize = 20
Dim tf() As Typeface
tf = Array As Typeface(Typeface.DEFAULT, Typeface.DEFAULT_BOLD, Typeface.DEFAULT, Typeface.DEFAULT_BOLD, Typeface.DEFAULT)
TablePedidos.SetTypeFaces(tf)
Dim Query As String
Query = "select pedidoscabecera.idtransaccion as ID, pedidoscabecera.date as Fecha, clientes.razonsocial as Cliente from pedidoscabecera inner join clientes on pedidoscabecera.idcliente=clientes.idcliente"
TablePedidos.LoadSQLiteDB(Main.SQL1, Query, True)
End Sub