Sub Process_Globals
Dim SQL As SQL
End Sub
Sub Globals
Dim ScanBarcodeButton As Button
Dim myABBarcode As ABZxing
Dim RRPLabel As Label
Dim SupplierLabel As Label
Dim mResult As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
SQL.Initialize(File.DirRootExternal, "sqlwayplof.db", True)
End If
DBUtils1.DropTable(SQL,"plof")
If SQL.IsInitialized Then SQL.Close
Try
SQL.Initialize(File.DirRootExternal, "sqlwayplof.db", False)
dbutils1.CopyDBFromAssets("sqlwayplof.db")
Catch
End Try
If File.Exists(File.DirDefaultExternal,"sqlwayplof.db") Then
Log("Exisits")
Else
Log("does not exists")
End If
Activity.LoadLayout("orderscreen")
RRPLabel.Text = mResult
End Sub
Sub ScanBarcodeButton_Click
myABBarcode.ABGetBarcode("myabbarcode", "")
End Sub
Sub myABBarcode_BarcodeFound(barCode As String, formatName As String)
RRPLabel.Text = barCode
mResult = barCode
Dim cur As Cursor
cur = SQL.ExecQuery2("SELECT field3 FROM plof WHERE _id=?",Array As String(5900852171444))
End Sub
Sub myABBarcode_Canceled
Msgbox("Canceled","")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub