Sub Class_Globals
Private B4XTable2 As B4XTable
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
' Create table
B4XTable2.Initialize(??????, ??????) --> What I need to have here?
B4XTable2.AddColumn("findoc", B4XTable2.COLUMN_TYPE_NUMBERS)
Dim ItemCode As B4XTableColumn =B4XTable2.AddColumn("Code", B4XTable2.COLUMN_TYPE_TEXT)
ItemCode.Width = 92dip
Dim Barcode As B4XTableColumn = B4XTable2.AddColumn("Barcode", B4XTable2.COLUMN_TYPE_TEXT)
Barcode.Width = 100dip
Dim item As B4XTableColumn = B4XTable2.AddColumn("Material", B4XTable2.COLUMN_TYPE_TEXT)
B4XTable2.AddColumn("Ποσότητα", B4XTable2.COLUMN_TYPE_NUMBERS)
item.Width = 100dip
Dim Qnt As B4XTableColumn = B4XTable2.AddColumn("Qnt", B4XTable2.COLUMN_TYPE_NUMBERS)
Qnt.Width = 100dip
Dim RealQnt As B4XTableColumn = B4XTable2.AddColumn("Pallete", B4XTable2.COLUMN_TYPE_NUMBERS)
RealQnt.Width = 100dip
B4XTable2.Refresh
GetRecordLines("select_Lines", Main.findoc)
End Sub