Sub Activity_Create(firstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
If firstTime Then
SQL.Initialize(File.DirInternal , "lmwd_db1.db", True)
'Activity.AddMenuItem("Close Application", "mnuCloseApp")
End If
Activity.LoadLayout("Layout1")
'--------------Timers----------------------------------------
TmrInit.Initialize("TmrInit",70)
TmrDisableprinter.Initialize("TmrDisablePrinter",4)
TmrDisableprinter.Enabled = False
TmrInit.Enabled =True
flagExpress = False
MainBtnSelected = False
'-----------------------------------------------------
'DBUtils.DropTable(SQL, "Queno") 'table#1
'DBUtils.DropTable(SQL, "Quep") 'table#2
'DBUtils.DropTable(SQL, "Quen") 'table#3
'DBUtils.DropTable(SQL, "Quer") 'table#4
'DBUtils.DropTable(SQL, "Quec") 'table#5
'DBUtils.DropTable(SQL, "Quew") 'table#6
'DBUtils.DropTable(SQL, "Queb") 'table#7
'DBUtils.DropTable(SQL, "seque") 'table#8
'DBUtils.DropTable(SQL, "Utilities") 'table#9 (print alert & batt alert)
Try
'----'table Qno----------------------------------------
Dim m As Map
m.Initialize
m.Put("qno", DBUtils.DB_TEXT)
DBUtils.CreateTable(SQL, "Queno", m,"")
Catch
ToastMessageShow("Error creating table",False)
End Try
'----'table Qp-----------------------------------------
Try
Dim m As Map
m.Initialize
m.Put("qp", DBUtils.DB_TEXT)
m.Put("status", DBUtils.DB_INTEGER)
DBUtils.CreateTable(SQL, "Quep", m,"")
Catch
ToastMessageShow("Error creating table",False)
End Try
'----'table Qn-----------------------------------------
Try
Dim m As Map
m.Initialize
m.Put("qn", DBUtils.DB_TEXT)
m.Put("status", DBUtils.DB_INTEGER)
DBUtils.CreateTable(SQL, "Quen", m,"")
Catch
ToastMessageShow("Error creating table",False)
End Try
'----'table Qr-----------------------------------------
Try
Dim m As Map
m.Initialize
m.Put("qr", DBUtils.DB_TEXT)
m.Put("status", DBUtils.DB_INTEGER)
DBUtils.CreateTable(SQL, "Quer", m,"")
Catch
ToastMessageShow("Error creating table",False)
End Try
'----'table Qc-----------------------------------------
Try
Dim m As Map
m.Initialize
m.Put("qc", DBUtils.DB_TEXT)
m.Put("status", DBUtils.DB_INTEGER)
DBUtils.CreateTable(SQL, "Quec", m,"")
Catch
ToastMessageShow("Error creating table",False)
End Try
Try
'----'table Qw-----------------------------------------
Dim m As Map
m.Initialize
m.Put("qw", DBUtils.DB_TEXT)
m.Put("status", DBUtils.DB_INTEGER)
DBUtils.CreateTable(SQL, "Quew", m,"")
Catch
ToastMessageShow("Error creating table",False)
End Try
' '-----------------------------------------------------
'----'table Qb------------------
Try
Dim m1 As Map
m1.Initialize
m1.Put("qb", DBUtils.DB_TEXT)
m1.Put("status", DBUtils.DB_INTEGER)
DBUtils.CreateTable(SQL, "Queb", m1,"")
Catch
ToastMessageShow("Error creating table",False)
End Try
'--UTILITIES-------------------------------------------
'----'table util-----------------------------------------
Try
Dim m As Map
m.Initialize
m.Put("prntcnt", DBUtils.DB_TEXT)
m.Put("prntalert", DBUtils.DB_TEXT)
m.Put("battalert", DBUtils.DB_TEXT)
DBUtils.CreateTable(SQL, "Utilities", m,"")
Catch
ToastMessageShow("Error creating table",False)
End Try
' '-----------------------------------------------------
'----'table View Numbers in Sequence------------------
Try
Dim m As Map
m.Initialize
m.Put("number", DBUtils.DB_TEXT)
m.Put("teller", DBUtils.DB_TEXT)
DBUtils.CreateTable(SQL, "seque", m,"")
Catch
ToastMessageShow("Error creating table",False)
End Try
' '-----------------------------------------------------
'''----------
''CheckQuenumForIncerment
'ResetvalueQno
'
'InitvalueQno
'-----------------------------------------------------
'
'AdminResetVal ' use to reset only
'-----------------------------------------------------
'CheckQuenum
'CheckUtilities
Try
CheckQuenum
thePhoneEvents.Initialize("thePhoneEvents")
Catch
ToastMessageShow("Ooops!","errr")
End Try
Try
ICS.Initialize(Activity, Me)
ICS.NavBarOff
ICS.ActionBarOff
Catch
Log("Not ICS version")
End Try
flagUsbConnect = False
Delay(3000)
' If firstTimeConnect = False Then
' firstTimeConnect = True
Msgbox("Initializing!1","Tracking")
btnOpen
Msgbox("Initializing!2","Tracking")
'flagUsbConnect = False
'End If
'----Records Counter------
HowManyRec = 0
End Sub