mirror of
https://github.com/KeymonSoft/Guna_CuentaKilometros_2.git
synced 2026-04-22 21:50:10 +00:00
COMMIT Inicial
This commit is contained in:
IsR0d
2
.gitignore
vendored
Normal file
2
.gitignore
vendored
Normal file
@@ -0,0 +1,2 @@
|
|||||||
|
**/Objects
|
||||||
|
**/AutoBackups
|
||||||
325
B4A/B4XMainPage.bas
Normal file
325
B4A/B4XMainPage.bas
Normal file
@@ -0,0 +1,325 @@
|
|||||||
|
B4A=true
|
||||||
|
Group=Default Group
|
||||||
|
ModulesStructureVersion=1
|
||||||
|
Type=Class
|
||||||
|
Version=9.85
|
||||||
|
@EndOfDesignText@
|
||||||
|
#Region Shared Files
|
||||||
|
'#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
|
||||||
|
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
|
||||||
|
'###########################################################################################################
|
||||||
|
'###################### PULL #############################################################
|
||||||
|
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
|
||||||
|
'###########################################################################################################
|
||||||
|
'###################### PUSH #############################################################
|
||||||
|
'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
|
||||||
|
'###########################################################################################################
|
||||||
|
'###################### PUSH TORTOISE GIT #########################################################
|
||||||
|
'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../../"&Args=/closeonend:2
|
||||||
|
'###########################################################################################################
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
|
||||||
|
|
||||||
|
Sub Class_Globals
|
||||||
|
Dim rp As RuntimePermissions
|
||||||
|
Private Root As B4XView
|
||||||
|
Private xui As XUI
|
||||||
|
Private Root As B4XView
|
||||||
|
Public rp As RuntimePermissions
|
||||||
|
Public login As B4XMainPage
|
||||||
|
Public principal As C_Principal
|
||||||
|
Public clientes As C_Clientes
|
||||||
|
Public updateAvailable As C_UpdateAvailable
|
||||||
|
Dim reqManager As DBRequestManager
|
||||||
|
' Dim ruta As String
|
||||||
|
Dim usuario As String
|
||||||
|
Dim logger As Boolean = True
|
||||||
|
Dim lat_gps, lon_gps As String
|
||||||
|
' Dim skmt As SQL
|
||||||
|
Dim usuario As String
|
||||||
|
Dim server As String
|
||||||
|
Dim montoActual, clientesTotal, clientesVenta, clientesRechazo, clientesVisitados, almacen, rutaPreventa, CANTIDADPROD As String
|
||||||
|
Dim ultimaActualizacionGPS As String = 235959
|
||||||
|
Dim fechaRuta As String
|
||||||
|
' Public wsServerLink As String = "ws://187.189.244.154:51042/push/b4a_ws2"
|
||||||
|
' Public wsServerLink As String = "ws://10.0.0.214:51042/push/b4a_ws2"
|
||||||
|
Dim srvIp As String
|
||||||
|
Dim phn As Phone
|
||||||
|
Dim user As EditText
|
||||||
|
Dim pass As EditText
|
||||||
|
Dim c As Cursor
|
||||||
|
Dim existe As String
|
||||||
|
Dim paso1 As String
|
||||||
|
Private IMEN As Label
|
||||||
|
Dim IMEI As String
|
||||||
|
Private Label1 As Label
|
||||||
|
Dim server As String
|
||||||
|
Private p_principal As Panel
|
||||||
|
Private Entrar As Button
|
||||||
|
Dim batt As Int
|
||||||
|
Dim porVisitar, entregas, rechazos, montoEntregado, montoRechazado As String
|
||||||
|
Private p_appUpdate As Panel
|
||||||
|
Private i_engrane As ImageView
|
||||||
|
Private b_server As Button
|
||||||
|
Private b_apk As Button
|
||||||
|
Private b_envioBD As Button
|
||||||
|
Private b_regesar As Button
|
||||||
|
Private et_server As EditText
|
||||||
|
Private p_serverList As Panel
|
||||||
|
Private lv_server As ListView
|
||||||
|
Public rutaBDBackup As String = ""
|
||||||
|
Dim ID_ALMACEN As String
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Initialize
|
||||||
|
' B4XPages.GetManager.LogEvents = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'This event will be called once, before the page becomes visible.
|
||||||
|
Private Sub B4XPage_Created (Root1 As B4XView)
|
||||||
|
Root = Root1
|
||||||
|
B4XPages.GetManager.LogEvents = True
|
||||||
|
Root.LoadLayout("login")
|
||||||
|
B4XPages.SetTitle(Me, "Guna - Control de Kilometraje")
|
||||||
|
login.Initialize
|
||||||
|
B4XPages.AddPage("Login", login)
|
||||||
|
principal.Initialize
|
||||||
|
B4XPages.AddPage("Principal", principal)
|
||||||
|
clientes.Initialize
|
||||||
|
B4XPages.AddPage("Clientes", clientes)
|
||||||
|
updateAvailable.Initialize
|
||||||
|
B4XPages.AddPage("updateAvailable", updateAvailable)
|
||||||
|
reqManager.Initialize(Me, Starter.server)
|
||||||
|
LogColor($"ReqServer = ${Starter.server}"$, Colors.red)
|
||||||
|
Label1.Text = Application.VersionName
|
||||||
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CONTROL_KMS(PLACAS TEXT, OPERADOR TEXT, RUTA TEXT, KMS_INICIAL TEXT, KMS_FINAL TEXT)")
|
||||||
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ALMACEN(ID_ALMACEN TEXT)")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub B4XPage_Appear
|
||||||
|
If Starter.muestraProgreso = 1 Then
|
||||||
|
muestraProgreso("Descargando actualización")
|
||||||
|
Starter.muestraProgreso = 0
|
||||||
|
End If
|
||||||
|
Subs.centraPanel(p_principal, Root.Width)
|
||||||
|
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
|
||||||
|
'' LogColor("Start Tracker1", Colors.red)
|
||||||
|
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
|
||||||
|
' If Result Then
|
||||||
|
'' StartService(Tracker)
|
||||||
|
'' LogColor("Start Tracker", Colors.red)
|
||||||
|
' Else
|
||||||
|
' ToastMessageShow("No permission", True)
|
||||||
|
' Log("Sin permisos")
|
||||||
|
' End If
|
||||||
|
' LogColor("Start Tracker3", Colors.red)
|
||||||
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
|
If c.RowCount > 0 Then
|
||||||
|
' c.Position=0
|
||||||
|
' c=skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
|
c.Position=0
|
||||||
|
usuario = c.GetString("USUARIO")
|
||||||
|
End If
|
||||||
|
c.Close
|
||||||
|
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
|
||||||
|
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
|
||||||
|
' If Result Then
|
||||||
|
' Log("Con permisos de escritura externa")
|
||||||
|
' End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||||
|
|
||||||
|
Sub Entrar_Click
|
||||||
|
If user.Text = "KMTS1" Then
|
||||||
|
Starter.skmt.ExecNonQuery("delete from usuarioa")
|
||||||
|
' Starter.skmt.ExecNonQuery("delete from VERSION")
|
||||||
|
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object("ROOT", "ROOT"))
|
||||||
|
' Starter.skmt.ExecNonQuery("delete from cat_almacen")
|
||||||
|
' Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (user.Text))
|
||||||
|
' Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
|
||||||
|
' principal.B_REGRESA_Click
|
||||||
|
' B4XPages.MainPage.principal.Subir.Visible = True
|
||||||
|
B4XPages.ShowPage("Principal")
|
||||||
|
Else
|
||||||
|
c=Starter.skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
|
||||||
|
c.Position=0
|
||||||
|
existe = c.GetString("EXISTE1")
|
||||||
|
c.Close
|
||||||
|
'existe = 1
|
||||||
|
If existe = 0 Then
|
||||||
|
'skmt.ExecNonQuery("delete from usuarioa")
|
||||||
|
Dim cmd As DBCommand
|
||||||
|
cmd.Initialize
|
||||||
|
cmd.Name = "select_usuario_GUNA_CK"
|
||||||
|
cmd.Parameters = Array As Object(user.Text, pass.Text)
|
||||||
|
reqManager.ExecuteQuery(cmd , 0, "usuario")
|
||||||
|
|
||||||
|
Dim cmd As DBCommand
|
||||||
|
cmd.Initialize
|
||||||
|
cmd.Name = "select_version_MARDS"
|
||||||
|
reqManager.ExecuteQuery(cmd , 0, "version")
|
||||||
|
Else
|
||||||
|
' principal.B_REGRESA_Click
|
||||||
|
B4XPages.ShowPage("Principal")
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub JobDone(Job As HttpJob)
|
||||||
|
If Job.Success = False Then
|
||||||
|
LogColor("** " & Job.Tag & " Error: " & Job.ErrorMessage, Colors.Red) ' Mod by CHV - 211023
|
||||||
|
ToastMessageShow("Error: " & Job.ErrorMessage, True)
|
||||||
|
Else
|
||||||
|
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211023
|
||||||
|
If Job.JobName = "DBRequest" Then
|
||||||
|
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||||
|
If result.Tag = "version" Then 'query tag
|
||||||
|
For Each records() As Object In result.Rows
|
||||||
|
Starter.skmt.ExecNonQuery("delete from VERSION")
|
||||||
|
Dim CAT_VE_VERSION As String = records(result.Columns.Get("CAT_VE_VERSION"))
|
||||||
|
' Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' If Job.JobName = "DBRequest" Then
|
||||||
|
' Dim result As DBResult = reqManager.HandleJob(Job)
|
||||||
|
' If result.Tag = "agencia" Then 'query tag
|
||||||
|
' For Each records() As Object In result.Rows
|
||||||
|
'
|
||||||
|
' Dim ID_ALMACEN As String = records(result.Columns.Get("ID_ALMACEN"))
|
||||||
|
' Next
|
||||||
|
' End If
|
||||||
|
' End If
|
||||||
|
|
||||||
|
If Job.JobName = "DBRequest" Then
|
||||||
|
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||||
|
If result.Tag = "usuario" Then 'query tag
|
||||||
|
Starter.skmt.ExecNonQuery("delete from CAT_ALMACEN")
|
||||||
|
Starter.skmt.ExecNonQuery("delete from usuarioa")
|
||||||
|
For Each records() As Object In result.Rows
|
||||||
|
Dim name As String = records(result.Columns.Get("USUARIO"))
|
||||||
|
ID_ALMACEN = records(result.Columns.Get("CAT_LO_AGENCIA"))
|
||||||
|
Dim IMEI_BASE As String = records(result.Columns.Get("CAT_LO_IDTELEFONO"))
|
||||||
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object(ID_ALMACEN))
|
||||||
|
Next
|
||||||
|
paso1 = 1
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Job.Release
|
||||||
|
End If
|
||||||
|
|
||||||
|
If paso1 = 1 Then
|
||||||
|
If name = "OKActivo" Then
|
||||||
|
Starter.skmt.ExecNonQuery("delete from usuarioa")
|
||||||
|
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
|
||||||
|
Starter.skmt.ExecNonQuery("delete from cat_almacen")
|
||||||
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
|
||||||
|
B4XPages.ShowPage("Principal")
|
||||||
|
Else If name = "OKExpirado"& IMEI Then
|
||||||
|
Msgbox("Usuario Expirado llamar al administrador","") 'ignore
|
||||||
|
Else If name = "OKCancelado"& IMEI Then
|
||||||
|
Msgbox("Usuario Cancelado llamar al administrador","") 'ignore
|
||||||
|
Else
|
||||||
|
Msgbox("Usuario o password No validos","") 'ignore
|
||||||
|
End If
|
||||||
|
paso1 = 0
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub i_engrane_Click
|
||||||
|
p_appUpdate.Width = Root.Width
|
||||||
|
p_appUpdate.Height = Root.Height
|
||||||
|
Subs.centraPanel(p_serverList, Root.Width)
|
||||||
|
Subs.centraBoton(b_server, Root.Width)
|
||||||
|
Subs.centraBoton(b_apk, Root.Width)
|
||||||
|
Subs.centraBoton(b_envioBD, Root.Width)
|
||||||
|
Subs.centraBoton(b_regesar, Root.Width)
|
||||||
|
Subs.centraBoton(b_server, p_serverList.Width)
|
||||||
|
lv_server.Clear
|
||||||
|
lv_server.AddSingleLine("http://keymon.lat:1782")
|
||||||
|
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
|
||||||
|
' l_server.Text = Starter.server
|
||||||
|
et_server.Text = Starter.server
|
||||||
|
Subs.panelVisible(p_appUpdate, 0, 0)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub B4XPage_CloseRequest As ResumableSub
|
||||||
|
' Log("closreq")
|
||||||
|
If p_appUpdate.Visible Then
|
||||||
|
p_appUpdate.Visible = False
|
||||||
|
Else
|
||||||
|
Sleep(0)
|
||||||
|
ExitApplication
|
||||||
|
End If
|
||||||
|
Return False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub b_regesar_Click
|
||||||
|
p_principal.Visible = True
|
||||||
|
p_appUpdate.Visible = False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Enviamos la base de datos por correo o Whatsapp
|
||||||
|
Private Sub b_envioBD_Click
|
||||||
|
Public Provider As FileProvider
|
||||||
|
Log("provider")
|
||||||
|
Provider.Initialize
|
||||||
|
Dim FileName As String = "kmt.db"
|
||||||
|
Log("********* : "&Provider.SharedFolder)
|
||||||
|
Sleep(1000)
|
||||||
|
'Copy the shared file to the shared folder
|
||||||
|
File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName)
|
||||||
|
Dim email As Email
|
||||||
|
email.To.Add("soporte@keymonsoft.com")
|
||||||
|
email.Subject = "Base de datos para revisión"
|
||||||
|
email.Attachments.Add(Provider.GetFileUri(FileName))
|
||||||
|
' email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
|
||||||
|
Dim in As Intent = email.GetIntent
|
||||||
|
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
|
||||||
|
StartActivity(in)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub b_apk_Click
|
||||||
|
StartService(appUpdater)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub b_server_Click
|
||||||
|
Log("Guardar servidor")
|
||||||
|
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
|
||||||
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",et_server.text))
|
||||||
|
Starter.server = et_server.text
|
||||||
|
If logger Then Log("Inicializamos reqManager con " & Starter.server)
|
||||||
|
reqManager.Initialize(Me, Starter.server)
|
||||||
|
LogColor($"ReqServer = ${Starter.server}"$, Colors.red)
|
||||||
|
reinicializaReqManager
|
||||||
|
p_appUpdate.Visible = False
|
||||||
|
' Entrar.Visible = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub lv_server_ItemClick (Position As Int, Value As Object)
|
||||||
|
' l_server.Text = Value
|
||||||
|
et_server.Text = Value
|
||||||
|
Starter.server = Value
|
||||||
|
reqManager.Initialize(Me, Value)
|
||||||
|
LogColor($"ReqServer = ${Value}"$, Colors.red)
|
||||||
|
ToastMessageShow("Servidor modificado", False)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub reinicializaReqManager
|
||||||
|
reqManager.Initialize(Me, Starter.server)
|
||||||
|
If logger Then Log(Starter.server)
|
||||||
|
LogColor($"ReqServer = ${Starter.server}"$, Colors.red)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'appUpdater - Mostramos el anuncio de que se esta descargando el nuevo apk
|
||||||
|
Sub muestraProgreso(mensaje As String)
|
||||||
|
ProgressDialogShow(mensaje)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'appUpdater - Ocultamos el anuncio de que se esta descargando el nuevo apk
|
||||||
|
Sub ocultaProgreso
|
||||||
|
ProgressDialogHide
|
||||||
|
End Sub
|
||||||
563
B4A/C_Clientes.bas
Normal file
563
B4A/C_Clientes.bas
Normal file
@@ -0,0 +1,563 @@
|
|||||||
|
B4A=true
|
||||||
|
Group=Default Group
|
||||||
|
ModulesStructureVersion=1
|
||||||
|
Type=Class
|
||||||
|
Version=12.2
|
||||||
|
@EndOfDesignText@
|
||||||
|
Sub Mods
|
||||||
|
'Los clientes con rechazo se estan mostrando en la lista ... se DEBEN de mostrar???
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Class_Globals
|
||||||
|
Private Root As B4XView 'ignore
|
||||||
|
Private xui As XUI 'ignore
|
||||||
|
Dim q_buscar As String
|
||||||
|
' Dim skmt As SQL
|
||||||
|
Dim entro As String
|
||||||
|
Dim c As Cursor
|
||||||
|
Dim c2 As Cursor
|
||||||
|
Dim ListView1 As ListView
|
||||||
|
' Dim gest As Button
|
||||||
|
Dim lfila As Label
|
||||||
|
Dim busca As EditText
|
||||||
|
Private p_colonia As Panel
|
||||||
|
' Dim distList As List
|
||||||
|
' Dim distMap As Map
|
||||||
|
Dim laRuta As String
|
||||||
|
Private b_GetDirs As Button
|
||||||
|
Private distOrderedMap, clientesMapaO As B4XOrderedMap
|
||||||
|
Private img_getDirs As ImageView
|
||||||
|
Private l_rutaInfo As Label
|
||||||
|
Private b_getRutaInfo As Button
|
||||||
|
Private conMapa As Boolean = False
|
||||||
|
Dim listaWayPoints As List
|
||||||
|
Dim lv1Top As String
|
||||||
|
Private b_limpiarRuta As Button
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'You can add more parameters here.
|
||||||
|
Public Sub Initialize As Object
|
||||||
|
Return Me
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'This event will be called once, before the page becomes visible.
|
||||||
|
Private Sub B4XPage_Created (Root1 As B4XView)
|
||||||
|
Root = Root1
|
||||||
|
'load the layout to Root
|
||||||
|
Root.LoadLayout("clientes")
|
||||||
|
entro ="2"
|
||||||
|
lv1Top = ListView1.Top
|
||||||
|
clientesMapaO.Initialize
|
||||||
|
Starter.skmt.ExecNonQuery("delete from waypoints")
|
||||||
|
' Log("Coordenadas del almacen: " & Starter.cedisLocation.Longitude & "," & Starter.cedisLocation.Latitude)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||||
|
|
||||||
|
Sub B4XPage_Appear
|
||||||
|
busca.Text = ""
|
||||||
|
b_GetDirs.Visible = False
|
||||||
|
' skmt.Initialize(Starter.ruta,"kmt.db", True)
|
||||||
|
entro ="2"
|
||||||
|
' esto es para rutas se quito por colonia
|
||||||
|
'SE COMENTA EL SIGUIENTE CODIGO PARA QUE TODAS LAS TIENDAS APAREZCAN.
|
||||||
|
'c=skmt.ExecQuery("select CAT_CL_COLONIA, count(*) as cuantos from kmt_info where gestion = 0 group by CAT_CL_COLONIA order by CAT_CL_COLONIA asc")
|
||||||
|
p_colonia.Width = Root.Width
|
||||||
|
p_colonia.Height = Root.Height
|
||||||
|
p_colonia.Top = 0
|
||||||
|
p_colonia.Left = 0
|
||||||
|
Subs.centraListView(ListView1, p_colonia.Width)
|
||||||
|
ListView1.Height = p_colonia.Height * 0.75
|
||||||
|
Subs.SetDivider(ListView1, Colors.LightGray, 2)
|
||||||
|
If Not(l_rutaInfo.Visible) Then
|
||||||
|
ListView1.Top = lv1Top
|
||||||
|
Else
|
||||||
|
ListView1.Top = lv1Top + 100
|
||||||
|
End If
|
||||||
|
c=Starter.skmt.ExecQuery("select codigo, indice, CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_NOEXT from waypoints inner join kmt_info on waypoints.codigo = kmt_info.CAT_CL_CODIGO where gestion = 0 order by indice")
|
||||||
|
If c.RowCount > 0 Then 'Ya hay waypoints en la base de datos
|
||||||
|
c.Position = 0
|
||||||
|
' Log("Ya hay waypoints.")
|
||||||
|
conMapa = True
|
||||||
|
' Private t1 As Map
|
||||||
|
ListView1.Clear
|
||||||
|
Dim cs, cs2 As CSBuilder
|
||||||
|
entro = 3
|
||||||
|
' Log("Generamos ListView1 en Activity_Resume")
|
||||||
|
For i=0 To c.RowCount -1 'Generamos el listView con la lista ordenada.
|
||||||
|
c.Position=i
|
||||||
|
cs.Initialize
|
||||||
|
cs2.Initialize
|
||||||
|
' t1 = Starter.waypointsOrdered.Get(k)
|
||||||
|
' c.GetString("codigo")
|
||||||
|
ListView1.AddTwoLines(cs.Color(Colors.RGB(100,149,237)).Append(c.GetString("codigo")).PopAll, cs2.append(c.GetString("CAT_CL_NOMBRE")).Color(Colors.RGB(100,149,237)).Append(" Calle: ").Pop.Append(c.GetString("CAT_CL_CALLE").Trim & " " & c.GetString("CAT_CL_NOEXT")).PopAll )
|
||||||
|
Next
|
||||||
|
Else
|
||||||
|
generaListViewRutas
|
||||||
|
End If
|
||||||
|
c.Close
|
||||||
|
p_colonia.Width = Root.Width
|
||||||
|
p_colonia.Height = Root.Height
|
||||||
|
Subs.centraEtiqueta(l_rutaInfo, Root.Width)
|
||||||
|
Subs.centraListView(ListView1, p_colonia.Width)
|
||||||
|
ListView1.Height = p_colonia.Height * 0.70
|
||||||
|
Subs.centraEtiqueta(lfila, Root.Width)
|
||||||
|
b_getRutaInfo.Visible = True
|
||||||
|
b_getRutaInfo.BringToFront
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Sub ListView1_ItemClick (Position As Int, Value As Object)
|
||||||
|
' Log($"Entro= ${entro}"$)
|
||||||
|
ListView1.Clear
|
||||||
|
Sleep(50)
|
||||||
|
Subs.SetDivider(ListView1, Colors.LightGray, 2)
|
||||||
|
If Not(l_rutaInfo.Visible) Then
|
||||||
|
ListView1.Top = lv1Top
|
||||||
|
Else
|
||||||
|
ListView1.Top = lv1Top + 100
|
||||||
|
End If
|
||||||
|
l_rutaInfo.Visible = False
|
||||||
|
b_GetDirs.Visible = False
|
||||||
|
If entro = "2" Then
|
||||||
|
b_GetDirs.Visible = True
|
||||||
|
img_getDirs.Visible = True
|
||||||
|
b_getRutaInfo.Visible = False
|
||||||
|
Private lrt As String
|
||||||
|
lrt = Value
|
||||||
|
laRuta = lrt.SubString(6) 'Quitamos el texto "Ruta: " para obtener el numero de la ruta.
|
||||||
|
' Log($"Original: ${Value} - Mod: |${lrt.SubString(6)}| - laRuta: ${laRuta}"$)
|
||||||
|
c2=Starter.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO, CAT_CL_LAT, CAT_CL_LONG from kmt_info where CAT_CL_RUTA = ? and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(laRuta))
|
||||||
|
' Private thisLoc As Location
|
||||||
|
Private label1 As Label
|
||||||
|
Private label2 As Label
|
||||||
|
label1 = ListView1.TwoLinesLayout.Label
|
||||||
|
label1.TextSize = 15
|
||||||
|
label1.TextColor = Colors.black
|
||||||
|
label2 = ListView1.TwoLinesLayout.SecondLabel
|
||||||
|
label2.TextSize = 15
|
||||||
|
label2.TextColor = Colors.black
|
||||||
|
label2.Height = 38dip
|
||||||
|
' thisLoc.Initialize
|
||||||
|
If entro = 2 Then ListView1.TwoLinesLayout.ItemHeight = 75dip
|
||||||
|
lfila.text = "Nombre y Calle"
|
||||||
|
distOrderedMap.Initialize
|
||||||
|
If c2.RowCount>0 Then
|
||||||
|
For i=0 To c2.RowCount -1 'Generamos mapa de clientes
|
||||||
|
c2.Position=i
|
||||||
|
' thisLoc.Latitude = c2.GetString("CAT_CL_LAT")
|
||||||
|
' thisLoc.Longitude = c2.GetString("CAT_CL_LONG")
|
||||||
|
' Log(Tracker.UUGCoords)
|
||||||
|
' Private distancia As Int = Tracker.UUGCoords.DistanceTo(thisLoc) 'Calculamos la distancia de la posicion ACTUAL a la tienda.
|
||||||
|
' Private esteCliente As Map = CreateMap("distancia": distancia, "ubicacion": thisLoc.Longitude&","&thisLoc.Latitude, "codigo": c2.GetString("CAT_CL_CODIGO"), "nomDirDist": $"${c2.GetString("CAT_CL_NOMBRE")} CALLE: ${c2.GetString("CAT_CL_CALLE")} ${CRLF}Distancia: $1.1{(distancia/1000)} kms"$)
|
||||||
|
' distOrderedMap.Put(distancia, esteCliente)
|
||||||
|
Next
|
||||||
|
distOrderedMap.Keys.Sort(True) 'Ordenamos la mapa de clientes por distancia.
|
||||||
|
ListView1.Clear
|
||||||
|
Private m1 As Map
|
||||||
|
For Each k As Object In distOrderedMap.Keys 'Generamos el listView con el mapa ordenada.
|
||||||
|
m1 = distOrderedMap.Get(k)
|
||||||
|
m1.Get("codigo")
|
||||||
|
ListView1.AddTwoLines(m1.Get("codigo"), m1.Get("nomDirDist"))
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
c2.Close
|
||||||
|
entro = "3"
|
||||||
|
Else If entro = "3" Then
|
||||||
|
Starter.skmt.ExecNonQuery("delete from CUENTAA")
|
||||||
|
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
|
||||||
|
B4XPages.ShowPage("Cliente")
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Genera el listview que muestra las rutas y clientes a visitar por ruta.
|
||||||
|
Sub generaListViewRutas
|
||||||
|
ListView1.Clear
|
||||||
|
Sleep(110)
|
||||||
|
lfila.Text = "RUTA PREVENTA"
|
||||||
|
Dim label1 As Label
|
||||||
|
label1 = ListView1.TwoLinesLayout.Label
|
||||||
|
label1.TextSize = 15
|
||||||
|
label1.TextColor = Colors.Black
|
||||||
|
Dim label2 As Label
|
||||||
|
label2 = ListView1.TwoLinesLayout.SecondLabel
|
||||||
|
label2.TextSize = 15
|
||||||
|
label2.TextColor = Colors.Black
|
||||||
|
ListView1.TwoLinesLayout.ItemHeight = 60dip
|
||||||
|
c=Starter.skmt.ExecQuery("select CAT_CL_RUTA, count(*) as cuantos from kmt_info where gestion = 0 group by CAT_CL_RUTA order by CAT_CL_RUTA asc")
|
||||||
|
If c.RowCount>0 Then
|
||||||
|
ListView1.Clear
|
||||||
|
For i=0 To c.RowCount -1
|
||||||
|
c.Position=i
|
||||||
|
ListView1.AddTwoLines("Ruta: " & c.GetString("CAT_CL_RUTA"), "Por visitar: " & c.GetString("cuantos"))
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
c.Close
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Activity_KeyPress (key As Int) As Boolean 'ignore
|
||||||
|
' BACK key pressed
|
||||||
|
If key=KeyCodes.KEYCODE_BACK Then
|
||||||
|
If entro = 3 And Not(conMapa) Then
|
||||||
|
b_GetDirs.Visible = False
|
||||||
|
' StartActivity(Activity_Create(False))
|
||||||
|
B4XPage_Created(Root)
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
B4XPages.ShowPage("Principal")
|
||||||
|
Return False
|
||||||
|
'End If
|
||||||
|
End If
|
||||||
|
' Returning False signals the system to handle the key
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub BUSCA_TextChanged (Old As String, New As String)
|
||||||
|
q_buscar = "%" & busca.Text & "%"
|
||||||
|
c2=Starter.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where CAT_CL_NOMBRE like ? and gestion = 0 order by CAT_CL_CODIGO ", Array As String(q_buscar))
|
||||||
|
ListView1.Clear
|
||||||
|
lfila.text = "Nombre y Calle"
|
||||||
|
Subs.SetDivider(ListView1, Colors.LightGray, 2)
|
||||||
|
If c2.RowCount>0 Then
|
||||||
|
For i=0 To c2.RowCount -1
|
||||||
|
c2.Position=i
|
||||||
|
Dim label1 As Label
|
||||||
|
label1 = ListView1.TwoLinesLayout.Label
|
||||||
|
label1.TextSize = 15
|
||||||
|
label1.TextColor = Colors.Black
|
||||||
|
Dim label2 As Label
|
||||||
|
label2 = ListView1.TwoLinesLayout.SecondLabel
|
||||||
|
label2.TextSize = 15
|
||||||
|
label2.TextColor = Colors.Black
|
||||||
|
ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE: "& c2.GetString("CAT_CL_CALLE"))
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
entro = "3"
|
||||||
|
c2.Close
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Regresa la distancia y tiempo de la ruta entre dos puntos, usa el API del projecto OSRM. (Parte de la funcionalidad OSRM)
|
||||||
|
'Para mas información ir a esta liga:
|
||||||
|
'http://project-osrm.org/docs/v5.24.0/api/?language=cURL#route-service
|
||||||
|
Sub distanciaEntreCoords(id As String, coords1 As String, coords2 As String) As ResumableSub 'ignore
|
||||||
|
' Sleep(1050)
|
||||||
|
' Private distanciaTotal As String = "0"
|
||||||
|
' Private tiempo As String = "0"
|
||||||
|
' Dim j As HttpJob
|
||||||
|
' j.Initialize("", Me)
|
||||||
|
' j.Download("https://router.project-osrm.org/route/v1/driving/"&coords1&";"&coords2&"?overview=false")
|
||||||
|
' Wait For (j) JobDone(j As HttpJob)
|
||||||
|
' If j.Success Then
|
||||||
|
' Dim jp As JSONParser
|
||||||
|
' jp.Initialize(j.GetString)
|
||||||
|
' Dim m As Map = jp.NextObject
|
||||||
|
' Log($"Respuesta: ${m.Get("code")}"$)
|
||||||
|
' If m.Get("code") = "Ok" Then
|
||||||
|
'' Log(m)
|
||||||
|
' Dim rutas As List = m.Get("routes")
|
||||||
|
' Dim rutas2 As Map = rutas.Get(0)
|
||||||
|
'' Log(rutas2)
|
||||||
|
'' Dim legs As List = rutas2.Get("legs")
|
||||||
|
'' Log(legs)
|
||||||
|
' distanciaTotal = rutas2.Get("distance")
|
||||||
|
' tiempo = rutas2.Get("duration")
|
||||||
|
' Log($"Distancia total: ${distanciaTotal}, Tiempo: ${tiempo}"$ )
|
||||||
|
' End If
|
||||||
|
' Else
|
||||||
|
' Log("Error!")
|
||||||
|
' End If
|
||||||
|
' j.Release
|
||||||
|
' Private r As List
|
||||||
|
' r.Initialize
|
||||||
|
' r.Add(id)
|
||||||
|
' r.Add(distanciaTotal)
|
||||||
|
' r.Add(tiempo)
|
||||||
|
' Return r
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Regresa la distancia y tiempo estimado de la ruta del repartidor, utiliza el API del projecto OSRM
|
||||||
|
'para calcular la distancia y tiempo de la ruta de un mapa de coordenadas a visitar dado. (Parte de la funcionalidad OSRM)
|
||||||
|
Sub traeRutaDia(aVisitar As B4XOrderedMap)
|
||||||
|
' Private coordsInicio As String = $"${Starter.cedisLocation.Longitude},${Starter.cedisLocation.Latitude}"$
|
||||||
|
' Log($"Coordenadas de inicio: ${Starter.cedisLocation.Longitude},${Starter.cedisLocation.Latitude}"$)
|
||||||
|
' Private rutaCompleta As String = coordsInicio
|
||||||
|
' Private preRuta As String = coordsInicio
|
||||||
|
' Private distanciaTotal, distanciaTotal0, tiempo0, tiempo As Double
|
||||||
|
' Private masDe100 As Boolean
|
||||||
|
' Private m4 As Map
|
||||||
|
' Private visitaActual As Int = 0
|
||||||
|
' Private cuantosAntes As Int = 0
|
||||||
|
' listaWayPoints.Initialize
|
||||||
|
' If aVisitar.Keys.Size > 98 Then 'Si los clientes a visitar son mas de 100 entonces hacemos 2 rutas, una inicial con pocas visitas (las que pasen de 100) y la final con el resto ...
|
||||||
|
' cuantosAntes = aVisitar.Keys.Size - 98 'Definimos de cuantos clientes va a ser la ruta inicial.
|
||||||
|
' preRuta = coordsInicio 'Ponemos las coordenadas de inicio (Las del CEDIS).
|
||||||
|
' rutaCompleta = ""
|
||||||
|
' masDe100 = True
|
||||||
|
' End If
|
||||||
|
' Log($"a visitar: ${aVisitar.Keys.Size}"$)
|
||||||
|
' For Each k As Object In aVisitar.Keys
|
||||||
|
' visitaActual = visitaActual + 1
|
||||||
|
' m4 = aVisitar.Get(k)
|
||||||
|
'' Log($"visitaActual: ${visitaActual} - cuantosAntes: ${cuantosAntes}"$)
|
||||||
|
' If visitaActual < cuantosAntes + 2 Then 'Si estas coordenadas son de la ruta inicial las agregamos ...
|
||||||
|
' preRuta = preRuta & ";" & m4.Get("coords")
|
||||||
|
'' LogColor($"PreRuta - visitaActual: ${visitaActual} - coords: ${m4.Get("coords")}"$, Colors.Magenta)
|
||||||
|
' End If
|
||||||
|
' If visitaActual >= cuantosAntes + 2 Then 'Si estas coordenadas son de la ruta final las agregamos ...
|
||||||
|
' rutaCompleta = rutaCompleta & ";" & m4.Get("coords")
|
||||||
|
'' LogColor($"RutaCompleta - visitaActual: ${visitaActual} - coords: ${m4.Get("coords")} - testRuta Size: ${testRutaCompleta.size}"$, Colors.Green)
|
||||||
|
' End If
|
||||||
|
' Next
|
||||||
|
' rutaCompleta = rutaCompleta & ";" & coordsInicio 'Agregamos las coordenadas del CEDIS al final para que sea viaje ida y vuelta.
|
||||||
|
'' rutaCompleta = rutaCompleta & ";" & coordsInicio
|
||||||
|
' If rutaCompleta.StartsWith(";") Then rutaCompleta = rutaCompleta.SubString(1) 'Si las cooredenadas tienen ";" al principio se lo quitamos.
|
||||||
|
'' LogColor(preRuta, Colors.magenta)
|
||||||
|
'' LogColor(rutaCompleta, Colors.Green)
|
||||||
|
' ProgressDialogShow2("Calculando distancia y tiempo, un momento por favor.", False)
|
||||||
|
' Private tiempoVisitas As Double 'TIMEPO DE 4 MINUTOS PROMEDIO POR TIENDA ESTO SE CAMBIA SEGUN EL CLIENTE
|
||||||
|
' tiempoVisitas = aVisitar.Keys.Size * 4 * 60 'Aqui se calcula el tiempo que duran las visitas x 4 mins cada una en segundos.
|
||||||
|
' tiempo0 = 0
|
||||||
|
' distanciaTotal0 = 0
|
||||||
|
' If masDe100 Then 'Si son mas de 100, entonces primero calculamos la ruta inicial.
|
||||||
|
' Dim j0 As HttpJob
|
||||||
|
' j0.Initialize("trip0", Me)
|
||||||
|
' j0.Download("https://router.project-osrm.org/trip/v1/driving/"&preRuta&"?source=first&destination=last&roundtrip=false&geometries=geojson")
|
||||||
|
'' LogColor("https://router.project-osrm.org/trip/v1/driving/"&preRuta&"?source=first&destination=last&roundtrip=false&geometries=geojson", Colors.Magenta)
|
||||||
|
' Wait For (j0) JobDone(j0 As HttpJob)
|
||||||
|
' If j0.Success Then
|
||||||
|
' Dim jp0 As JSONParser
|
||||||
|
' jp0.Initialize(j0.GetString)
|
||||||
|
' Dim m0 As Map = jp0.NextObject
|
||||||
|
' If m0.Get("code") = "Ok" Then
|
||||||
|
' Dim puntos0 As List = m0.Get("waypoints")
|
||||||
|
' Private esteWayPoint0 As Map
|
||||||
|
' For p = 0 To puntos0.Size -1
|
||||||
|
' esteWayPoint0 = puntos0.Get(p)
|
||||||
|
'' LogColor("WP:" & esteWayPoint0, Colors.magenta)
|
||||||
|
'' LogColor("WP: " & esteWayPoint0.Get("waypoint_index") & ", loc: " & esteWayPoint0.Get("location") & ", name: " & esteWayPoint0.Get("name"), Colors.Magenta)
|
||||||
|
' esteWayPoint0.Remove("hint")
|
||||||
|
' esteWayPoint0.Remove("distance")
|
||||||
|
' esteWayPoint0.Remove("trips_index")
|
||||||
|
' listaWayPoints.Add(esteWayPoint0)
|
||||||
|
'' LogColor("estewaypoint: "&esteWayPoint0, Colors.Magenta)
|
||||||
|
' Next
|
||||||
|
' Dim rutas0 As List = m0.Get("trips")
|
||||||
|
' Dim rutas20 As Map = rutas0.Get(0)
|
||||||
|
'' Dim geometry0 As Map = rutas20.Get("geometry")
|
||||||
|
'' Private coords0 As List = geometry0.Get("coordinates")
|
||||||
|
' distanciaTotal0 = rutas20.Get("distance")
|
||||||
|
' tiempo0 = rutas20.Get("duration")
|
||||||
|
' tiempo0 = ((tiempo0 * 2) ) 'Tiempo X 2 (es muy corto porque no toma encuenta el trafico).
|
||||||
|
' Log($"Distancia total ruta inicial: $1.1{distanciaTotal0/1000} kms, tiempo aprox: $1.1{tiempo0/60} mins. ($1.1{tiempo0/60/60} hrs)"$)
|
||||||
|
'' l_rutaInfo.Text = $"Distancia total: $1.1{distanciaTotal0/1000} kms, tiempo aprox: $1.1{tiempo0/60/60} hrs"$
|
||||||
|
' End If
|
||||||
|
' Else
|
||||||
|
' Log("Error!")
|
||||||
|
' End If
|
||||||
|
' j0.Release
|
||||||
|
' End If
|
||||||
|
'
|
||||||
|
' Dim j As HttpJob
|
||||||
|
' j.Initialize("trip", Me) 'Calculamos el resto de la ruta.
|
||||||
|
' j.Download("https://router.project-osrm.org/trip/v1/driving/"&rutaCompleta&"?source=first&destination=last&roundtrip=false&geometries=geojson")
|
||||||
|
'' LogColor("https://router.project-osrm.org/trip/v1/driving/"&rutaCompleta&"?source=first&destination=last&roundtrip=false&geometries=geojson", Colors.Green)
|
||||||
|
' Wait For (j) JobDone(j As HttpJob)
|
||||||
|
' If j.Success Then
|
||||||
|
' Dim jp As JSONParser
|
||||||
|
' jp.Initialize(j.GetString)
|
||||||
|
' Dim m As Map = jp.NextObject
|
||||||
|
' If m.Get("code") = "Ok" Then
|
||||||
|
' Dim puntos As List = m.Get("waypoints")
|
||||||
|
' Private esteWayPoint As Map
|
||||||
|
' Dim twpi As Int
|
||||||
|
' For p = 0 To puntos.Size -1
|
||||||
|
' esteWayPoint = puntos.Get(p)
|
||||||
|
'' LogColor("WP:" & esteWayPoint, Colors.green)
|
||||||
|
'' LogColor("WP: " & esteWayPoint.Get("waypoint_index") & ", loc: " & esteWayPoint.Get("location") & ", name: " & esteWayPoint.Get("name"), Colors.Green)
|
||||||
|
' esteWayPoint.Remove("hint")
|
||||||
|
' esteWayPoint.Remove("distance")
|
||||||
|
' esteWayPoint.Remove("trips_index")
|
||||||
|
' twpi = esteWayPoint.Get("waypoint_index")
|
||||||
|
' esteWayPoint.Remove("waypoint_index")
|
||||||
|
' esteWayPoint.Put("waypoint_index", (twpi + cuantosAntes + 2))
|
||||||
|
' listaWayPoints.Add(esteWayPoint)
|
||||||
|
'' LogColor("estewaypoint: "&esteWayPoint, Colors.Green)
|
||||||
|
' Next
|
||||||
|
' Dim rutas As List = m.Get("trips")
|
||||||
|
' Dim rutas2 As Map = rutas.Get(0)
|
||||||
|
' distanciaTotal = rutas2.Get("distance")
|
||||||
|
' Log("distancia ruta 2:" & (distanciaTotal) & "|" & rutas2.Get("distance"))
|
||||||
|
' distanciaTotal = distanciaTotal + distanciaTotal0
|
||||||
|
' tiempo = rutas2.Get("duration")
|
||||||
|
' tiempo = (((tiempo + tiempo0) * 2) + tiempoVisitas) 'Tiempo X 2 (es muy corto porque no toma encuenta el trafico) + tiempoVisitas.
|
||||||
|
' Log($"Distancia total: $1.1{distanciaTotal/1000} kms, tiempo aprox: $1.1{tiempo/60} mins. ($1.1{tiempo/60/60} hrs)"$)
|
||||||
|
' l_rutaInfo.Text = $"Distancia: $1.1{distanciaTotal/1000} kms, tiempo aprox: $1.1{tiempo/60/60} hrs${CRLF}Visitas restantes: ${aVisitar.Keys.Size}"$
|
||||||
|
' l_rutaInfo.Width = Root.Width * 0.9
|
||||||
|
' Subs.centraEtiqueta(l_rutaInfo, Root.Width)
|
||||||
|
' l_rutaInfo.Visible = True
|
||||||
|
' l_rutaInfo.BringToFront
|
||||||
|
' ListView1.Top = lv1Top + 100
|
||||||
|
' End If
|
||||||
|
' Else
|
||||||
|
' LogColor("**************** Error! ******************", Colors.red)
|
||||||
|
' End If
|
||||||
|
' j.Release
|
||||||
|
' ProgressDialogHide
|
||||||
|
'' LogColor("clientesMapaO size: " & clientesMapaO.Size & "|" & listaWayPoints.Size, Colors.Blue)
|
||||||
|
' Private r As Int = 1
|
||||||
|
' Private r1, wps As Map
|
||||||
|
' Starter.skmt.ExecNonQuery("delete from waypoints")
|
||||||
|
' For Each k As Object In clientesMapaO.Keys 'Guardamos en la BD el orden de los waypoints para luego generar el listview.
|
||||||
|
' r1 = clientesMapaO.Get(k)
|
||||||
|
' r1.Get("codigo")
|
||||||
|
'' Log(listaWayPoints.Get(r) & "|" & r1.Get("coords") & "|" & r1.Get("calle"))
|
||||||
|
' wps = listaWayPoints.Get(r)
|
||||||
|
' Starter.skmt.ExecNonQuery2("insert into waypoints values (?,?)", Array As Object(r1.Get("codigo"), wps.get("waypoint_index")))
|
||||||
|
' r = r + 1
|
||||||
|
' Next
|
||||||
|
' ListView1.Clear
|
||||||
|
' Sleep(100)
|
||||||
|
' Dim label2 As Label
|
||||||
|
' label2 = ListView1.TwoLinesLayout.SecondLabel
|
||||||
|
' label2.TextSize = 15
|
||||||
|
' label2.Height = 100dip
|
||||||
|
' ListView1.TwoLinesLayout.ItemHeight = 70dip
|
||||||
|
' Dim cs, cs2 As CSBuilder
|
||||||
|
' entro = 3
|
||||||
|
' Log("Generamos ListView1 en traeRutaDia")
|
||||||
|
' 'Traemos las visitas restantes ordenadas por el indice de waypoints (este indice nos indica el orden en la ruta calculada).
|
||||||
|
' c=Starter.skmt.ExecQuery("select codigo, indice, CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_NOEXT from waypoints inner join kmt_info on waypoints.codigo = kmt_info.CAT_CL_CODIGO where gestion = 0 order by indice")
|
||||||
|
' If c.RowCount > 0 Then
|
||||||
|
' For i=0 To c.RowCount -1 'Generamos el listView con la lista ordenada.
|
||||||
|
' c.Position=i
|
||||||
|
' cs.Initialize
|
||||||
|
' cs2.Initialize
|
||||||
|
' ListView1.AddTwoLines(cs.Color(Colors.RGB(100,149,237)).Append(c.GetString("codigo")).PopAll, cs2.append(c.GetString("CAT_CL_NOMBRE")).Color(Colors.RGB(100,149,237)).Append(" Calle: ").Pop.Append(c.GetString("CAT_CL_CALLE").Trim & " " & c.GetString("CAT_CL_NOEXT")).PopAll )
|
||||||
|
' Next
|
||||||
|
' End If
|
||||||
|
' c.Close
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Calcula distancia y tiempo de la ubicacion ACTUAL a las 8 primeras tiendas de la lista usando el API de OSRM. (Parte de la funcionalidad OSRM)
|
||||||
|
Private Sub b_GetDirs_Click
|
||||||
|
ProgressDialogShow("Calculando distancias y tiempos ...")
|
||||||
|
Private m2 As Map
|
||||||
|
Private f As Int = 0
|
||||||
|
For Each k As Object In distOrderedMap.Keys 'Traemos la distancia y tiempo desde OSRM (2 puntos)
|
||||||
|
m2 = distOrderedMap.Get(k)
|
||||||
|
Private distancia2 As String = m2.Get("distancia")
|
||||||
|
Private thisLoc1 As String = m2.Get("ubicacion")
|
||||||
|
' Private locActual As String = Tracker.UUGCoords.Longitude&","&Tracker.UUGCoords.Latitude
|
||||||
|
' If locActual = "0,0" Then 'Si no tenemos ubicacion actual de GPS, buscamos la ultima guardada en la base de datos.
|
||||||
|
' c = Starter.skmt.ExecQuery("select * from hist_gps")
|
||||||
|
' If c.RowCount > 0 Then
|
||||||
|
' c.Position = 0
|
||||||
|
'' locActual = c.GetString("hglon") & "," & c.GetString("hglat")
|
||||||
|
' End If
|
||||||
|
' c.Close
|
||||||
|
' End If
|
||||||
|
f = f+1
|
||||||
|
If f < 8 Then
|
||||||
|
' If locActual = "0,0" Then 'Si todavia no tenemos ubicacion actual, entonces avisamos.
|
||||||
|
' ToastMessageShow("No se pudo obtener la ubicacion actual!!", True)
|
||||||
|
' f = 8
|
||||||
|
' End If
|
||||||
|
' Log($"locActual: ${locActual}, thisLoc1: ${thisLoc1}"$)
|
||||||
|
Wait For(distanciaEntreCoords(distancia2, locActual, thisLoc1)) Complete (r As List)
|
||||||
|
LogColor($"R: ${r.Get(0)} - ${r.Get(1)} - ${r.Get(2)}"$, Colors.Green)
|
||||||
|
Private tId As Int = r.Get(0)
|
||||||
|
Private tMap As Map = distOrderedMap.Get(tId)
|
||||||
|
LogColor("|" & tId & "| - " &distOrderedMap.Get(tId), Colors.Blue)
|
||||||
|
Private tempNDD As String = tMap.Get("nomDirDist")
|
||||||
|
Private indexD As Int = tempNDD.IndexOf("Distancia:")
|
||||||
|
If indexD > -1 Then tempNDD = tempNDD.SubString2(0, indexD)
|
||||||
|
Log(tempNDD)
|
||||||
|
tempNDD = tempNDD & $"Dist: $1.1{(r.Get(1)/1000)} kms, Tiempo aprox: $1.0{((r.Get(2)*2)/60)} min."$ 'Multiplicamos el tiempo X 2 porque el tiempo estimado siempre es muy corto, X2 es mucho mas real con trafico.
|
||||||
|
Private esteCliente As Map = CreateMap("distancia": distancia2, "ubicacion": tMap.Get("ubicacion"), "codigo": tMap.Get("codigo"), "nomDirDist": tempNDD)
|
||||||
|
distOrderedMap.Put(tId, esteCliente)
|
||||||
|
ListView1.Clear
|
||||||
|
Private m3 As Map
|
||||||
|
For Each k As Object In distOrderedMap.Keys 'Generamos el listView con la lista ordenada.
|
||||||
|
m3 = distOrderedMap.Get(k)
|
||||||
|
m3.Get("codigo")
|
||||||
|
ListView1.AddTwoLines(m3.Get("codigo"), m3.Get("nomDirDist"))
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
ProgressDialogHide
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Regresa un mapa (B4XOrderedMap) con todos los clientes que tiene que visitar el repartidor. (Parte de la funcionalidad OSRM)
|
||||||
|
Sub traeTodosAVisitar As B4XOrderedMap 'ignore
|
||||||
|
' Log("Iniciamos traeTodosAVisitar")
|
||||||
|
'' If Starter.waypointsOrdered.isInitialized Then Log(Starter.waypointsOrdered.Size)
|
||||||
|
'' Private rutaCompleta As String = ""
|
||||||
|
' Private thisLoc, ubicacionInicial As Location
|
||||||
|
' ubicacionInicial = Starter.cedisLocation
|
||||||
|
' LogColor(ubicacionInicial, Colors.Gray)
|
||||||
|
' c=Starter.skmt.ExecQuery("select sum(gestion) as hayVisitados from kmt_info")
|
||||||
|
' If c.RowCount > 0 Then
|
||||||
|
' c.Position = 0
|
||||||
|
'' Log(c.GetString("hayVisitados"))
|
||||||
|
'' If c.GetString("hayVisitados") > 0 Then ubicacionInicial = Tracker.UUGCoords 'Si ya hay clientes visitados, entonces ya no estamos en el CEDIS y la ubicacion inicial debe de ser la ACTUAL.
|
||||||
|
' End If
|
||||||
|
' c.Close
|
||||||
|
' LogColor(ubicacionInicial, Colors.Red)
|
||||||
|
' thisLoc.Initialize
|
||||||
|
' clientesMapaO.Clear
|
||||||
|
' 'Traemos las rutas asignadas al repartidor.
|
||||||
|
' c=Starter.skmt.ExecQuery("select CAT_CL_RUTA, count(*) as cuantos from kmt_info where gestion = 0 group by CAT_CL_RUTA order by CAT_CL_RUTA asc")
|
||||||
|
' If c.RowCount>0 Then
|
||||||
|
' 'Traemos los clientes de cada ruta.
|
||||||
|
' For i=0 To c.RowCount -1
|
||||||
|
' c.Position=i
|
||||||
|
'' Log($"Renglones ruta: ${c.RowCount} - i=${i} - Ruta: ${c.GetString("CAT_CL_RUTA")}"$)
|
||||||
|
' c2=Starter.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO, CAT_CL_LAT, CAT_CL_LONG from kmt_info where CAT_CL_RUTA = ? and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(c.GetString("CAT_CL_RUTA")))
|
||||||
|
' If c2.RowCount>0 Then
|
||||||
|
' For j=0 To c2.RowCount -1 'Generamos lista de clientes
|
||||||
|
' c2.Position=j
|
||||||
|
'' Log($"Renglones clientes: ${c2.RowCount} - j=${j} - Ruta: ${c2.GetString("CAT_CL_CODIGO")}"$)
|
||||||
|
' thisLoc.Latitude = c2.GetString("CAT_CL_LAT")
|
||||||
|
' thisLoc.Longitude = c2.GetString("CAT_CL_LONG")
|
||||||
|
' If Not(thisLoc.Latitude = 0.0) And Not(thisLoc.Latitude = 0) Then 'Este IF es para que si las coordenadas no son válidas, entonces no las agregue al mapeo, porque el API de OSRM nos manda error.
|
||||||
|
' Private distancia As Int = ubicacionInicial.DistanceTo(thisLoc) 'Calculamos la distancia del cedis a la tienda.
|
||||||
|
' If clientesMapaO.ContainsKey(distancia) Then distancia = distancia + 1 'Si por alguna extraña razon hay dos tiendas a la misma distancia del CEDIS, le sumamos 1 para que sea diferente.
|
||||||
|
' Private esteCliente As Map = CreateMap("distancia": distancia, "ordenDist": j, "coords": c2.GetString("CAT_CL_LONG")&","&c2.GetString("CAT_CL_LAT"), "codigo": c2.GetString("CAT_CL_CODIGO"), "nombre": c2.GetString("CAT_CL_NOMBRE"), "calle": c2.GetString("CAT_CL_CALLE"))
|
||||||
|
' clientesMapaO.Put(distancia, esteCliente)
|
||||||
|
' Else
|
||||||
|
' ToastMessageShow("Hay tiendas SIN coordenadas, fueron excluidas!!", False)
|
||||||
|
' End If
|
||||||
|
'' Log($"${thisLoc}"$)
|
||||||
|
'' rutaCompleta = rutaCompleta & ";" & c2.GetString("CAT_CL_LONG")&","&c2.GetString("CAT_CL_LAT")
|
||||||
|
' Next
|
||||||
|
' End If
|
||||||
|
' Next
|
||||||
|
' End If
|
||||||
|
' clientesMapaO.Keys.Sort(True) 'Ordenamos la lista de clientes por distancia.
|
||||||
|
' c.Close
|
||||||
|
' c2.Close
|
||||||
|
' Log(c.RowCount & " rutas, " & clientesMapaO.Size & " clientes")
|
||||||
|
'' LogColor(rutaCompleta, Colors.Magenta)
|
||||||
|
'' Log(clientesMapaO)
|
||||||
|
' Return clientesMapaO
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Traemos la ruta de visitas via el API de OSRM usando el sub "traeRutaDia(traeTodosAVisitar)".
|
||||||
|
Private Sub b_getRutaInfo_Click
|
||||||
|
traeRutaDia(traeTodosAVisitar)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Mostramos u ocultamos el boton para borrar los waypoints de la ruta.
|
||||||
|
Private Sub b_getRutaInfo_LongClick
|
||||||
|
If b_limpiarRuta.Visible Then
|
||||||
|
b_limpiarRuta.Visible = False
|
||||||
|
Else
|
||||||
|
b_limpiarRuta.Visible = True
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Borramos los waypoints de la ruta.
|
||||||
|
Private Sub b_limpiarRuta_Click
|
||||||
|
Starter.skmt.ExecNonQuery("delete from waypoints")
|
||||||
|
b_limpiarRuta.Visible = False
|
||||||
|
B4XPage_Appear
|
||||||
|
End Sub
|
||||||
449
B4A/C_Principal.bas
Normal file
449
B4A/C_Principal.bas
Normal file
@@ -0,0 +1,449 @@
|
|||||||
|
B4A=true
|
||||||
|
Group=Default Group
|
||||||
|
ModulesStructureVersion=1
|
||||||
|
Type=Class
|
||||||
|
Version=12.2
|
||||||
|
@EndOfDesignText@
|
||||||
|
Sub Class_Globals
|
||||||
|
Private Root As B4XView 'ignore
|
||||||
|
Private xui As XUI 'ignore
|
||||||
|
Dim reqManager As DBRequestManager
|
||||||
|
Dim b_mapa As Button
|
||||||
|
Dim l_ruta As Label
|
||||||
|
Private inv As Button
|
||||||
|
Private p_principal As Panel
|
||||||
|
Dim ime As IME
|
||||||
|
Private et_placas As EditText
|
||||||
|
Private et_operador As EditText
|
||||||
|
Private et_rutaReparto As EditText
|
||||||
|
Private b_guardar As Button
|
||||||
|
Private ImageView1 As ImageView
|
||||||
|
Private ImageView1 As ImageView
|
||||||
|
Private p_datos As Panel
|
||||||
|
Private p_camara As Panel
|
||||||
|
Private b_cerrar As Button
|
||||||
|
Private pnlPreview As Panel
|
||||||
|
Private camEx As CameraExClass
|
||||||
|
|
||||||
|
Private toast As BCToast
|
||||||
|
Private Capturing As Boolean
|
||||||
|
Private rp As RuntimePermissions
|
||||||
|
Private detector As JavaObject
|
||||||
|
Private camEx As CameraExClass
|
||||||
|
Private LastPreview As Long
|
||||||
|
Private IntervalBetweenPreviewsMs As Int = 100
|
||||||
|
Dim codigoencontrado, codigoBuscado As String
|
||||||
|
Private b_escanRuta As Button
|
||||||
|
Private b_escanOperador As Button
|
||||||
|
Private b_escanPlacas As Button
|
||||||
|
Private et_kmsInicial As EditText
|
||||||
|
Private et_kmsFinal As EditText
|
||||||
|
Private B_Color As Button
|
||||||
|
Private P_Color As Panel
|
||||||
|
Dim OPERADOR_OK As String
|
||||||
|
Dim CHECK_LIST As String
|
||||||
|
Dim PLACA_OK As String
|
||||||
|
Dim CARTAPORTE_OK As String
|
||||||
|
Dim c As Cursor
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'You can add more parameters here.
|
||||||
|
Public Sub Initialize As Object
|
||||||
|
Return Me
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'This event will be called once, before the page becomes visible.
|
||||||
|
Private Sub B4XPage_Created (Root1 As B4XView)
|
||||||
|
Root = Root1
|
||||||
|
'load the layout to Root
|
||||||
|
Root.LoadLayout("principal")
|
||||||
|
reqManager.Initialize(Me, Starter.server)
|
||||||
|
B4XPages.MainPage.usuario=Subs.dameUsuarioDeDB
|
||||||
|
'Inicia camara
|
||||||
|
p_camara.Width = Root.Width
|
||||||
|
p_camara.Height= Root.Height
|
||||||
|
p_camara.Visible = False
|
||||||
|
toast.Initialize(Root)
|
||||||
|
StopCamera
|
||||||
|
B4XPages.SetTitle(Me, "Barcode Example")
|
||||||
|
CreateDetector (Array("AZTEC", "CODE_128", "CODE_39", "CODE_93", "CODABAR", "DATA_MATRIX", "EAN_13", "EAN_8", "ITF", "PDF417", "QR_CODE", "UPC_A", "UPC_E"))
|
||||||
|
'Termina camara
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub B4XPage_Appear
|
||||||
|
Subs.centraPanel(p_principal, Root.Width)
|
||||||
|
P_Color.Height = Root.Height
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub JobDone(Job As HttpJob)
|
||||||
|
' Private r As DBResult = reqManager.HandleJob(Job)
|
||||||
|
If Job.Success = False Then
|
||||||
|
LogColor("** " & Job.Tag & " Error: " & Job.ErrorMessage, Colors.Red) ' Mod by CHV - 211023
|
||||||
|
'ToastMessageShow("Error: " & Job.ErrorMessage, True)
|
||||||
|
Else
|
||||||
|
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211023
|
||||||
|
If Job.JobName = "DBRequest" Then
|
||||||
|
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||||
|
If result.Tag = "ins_rechazos" Then 'query tag
|
||||||
|
For Each records() As Object In result.Rows
|
||||||
|
For Each k As String In result.Columns.Keys
|
||||||
|
Log(k & ": " & records(result.Columns.Get(k)))
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Job.JobName = "DBRequest" Then
|
||||||
|
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||||
|
If result.Tag = "PLACA_OK" Then 'query tag
|
||||||
|
PLACA_OK = 0
|
||||||
|
For Each records() As Object In result.Rows
|
||||||
|
For Each k As String In result.Columns.Keys
|
||||||
|
Log(k & ": " & records(result.Columns.Get(k)))
|
||||||
|
PLACA_OK= records(result.Columns.Get("INFO_OK"))
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
|
||||||
|
' MsgboxAsync("Favo de revisar la placa, el operador y la descarga de la carta porte", "AVISO")
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Job.JobName = "DBRequest" Then
|
||||||
|
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||||
|
If result.Tag = "CheckList_OK" Then 'query tag
|
||||||
|
CHECK_LIST = 0
|
||||||
|
For Each records() As Object In result.Rows
|
||||||
|
For Each k As String In result.Columns.Keys
|
||||||
|
Log(k & ": " & records(result.Columns.Get(k)))
|
||||||
|
CHECK_LIST= records(result.Columns.Get("'OK'"))
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
|
||||||
|
' MsgboxAsync("Favo de revisar la placa, el operador y la descarga de la carta porte", "AVISO")
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Job.JobName = "DBRequest" Then
|
||||||
|
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||||
|
If result.Tag = "Operador_OK" Then 'query tag
|
||||||
|
OPERADOR_OK = 0
|
||||||
|
For Each records() As Object In result.Rows
|
||||||
|
For Each k As String In result.Columns.Keys
|
||||||
|
Log(k & ": " & records(result.Columns.Get(k)))
|
||||||
|
OPERADOR_OK = records(result.Columns.Get("INFO_OK"))
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
|
||||||
|
' MsgboxAsync("Favo de revisar la placa, el operador y la descarga de la carta porte", "AVISO")
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Job.JobName = "DBRequest" Then
|
||||||
|
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||||
|
If result.Tag = "CartaPorte_OK" Then 'query tag
|
||||||
|
CARTAPORTE_OK = 0
|
||||||
|
For Each records() As Object In result.Rows
|
||||||
|
For Each k As String In result.Columns.Keys
|
||||||
|
Log(k & ": " & records(result.Columns.Get(k)))
|
||||||
|
CARTAPORTE_OK= records(result.Columns.Get("INFO_OK"))
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
|
||||||
|
' MsgboxAsync("Favo de revisar la placa, el operador y la descarga de la carta porte", "AVISO")
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Job.Release
|
||||||
|
|
||||||
|
If PLACA_OK = "OK" And OPERADOR_OK = "OK" And CHECK_LIST = "OK" And CARTAPORTE_OK = "OK" Then
|
||||||
|
P_Color.Visible = True
|
||||||
|
P_Color.Color = Colors.Green
|
||||||
|
Else If PLACA_OK <> "OK" Or OPERADOR_OK <> "OK" Or CARTAPORTE_OK <> "OK" Then
|
||||||
|
P_Color.Visible = True
|
||||||
|
P_Color.Color = Colors.Red
|
||||||
|
Else If PLACA_OK = "OK" And OPERADOR_OK = "OK" And CHECK_LIST <> "OK" And CARTAPORTE_OK = "OK" Then
|
||||||
|
P_Color.Visible = True
|
||||||
|
P_Color.Color = Colors.Yellow
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub B4XPage_CloseRequest As ResumableSub
|
||||||
|
' BACK key pressed
|
||||||
|
If P_Color.Visible Then
|
||||||
|
P_Color.Visible = False
|
||||||
|
Else
|
||||||
|
B4XPages.ShowPage("Login")
|
||||||
|
End If
|
||||||
|
' Returning False signals the system to handle the key
|
||||||
|
Return False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Inicia camara
|
||||||
|
|
||||||
|
Private Sub B4XPage_Disappear
|
||||||
|
If p_camara.Visible = True Then
|
||||||
|
p_camara.Visible = False
|
||||||
|
StopCamera
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Sub btnStartStop_Click
|
||||||
|
If Capturing = False Then
|
||||||
|
p_camara.Visible = True
|
||||||
|
StartCamera
|
||||||
|
Else
|
||||||
|
p_camara.Visible = False
|
||||||
|
StopCamera
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub B_cerrar_Click
|
||||||
|
' If et_codigo.Text.Length = 0 Then
|
||||||
|
' p_camara.Visible = False
|
||||||
|
' Else
|
||||||
|
' p_camara.Visible = False
|
||||||
|
' et_codigo_EnterPressed
|
||||||
|
' End If
|
||||||
|
StopCamera
|
||||||
|
p_camara.Visible = False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub StopCamera
|
||||||
|
' et_codigo.Text = ""
|
||||||
|
Capturing = False
|
||||||
|
pnlPreview.Visible = False
|
||||||
|
If camEx.IsInitialized Then
|
||||||
|
camEx.Release
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub StartCameraShared
|
||||||
|
pnlPreview.Visible = True
|
||||||
|
Capturing = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub FoundBarcode (msg As String)
|
||||||
|
' et_codigo.Text = msg
|
||||||
|
toast.Show($"Found [Color=Red][b][plain]${msg}[/plain][/b][/Color]"$)
|
||||||
|
Log(msg)
|
||||||
|
codigoencontrado = msg
|
||||||
|
Log($"${codigoencontrado}, ${codigoBuscado}"$)
|
||||||
|
If codigoBuscado = "placas" Then
|
||||||
|
et_placas.text = codigoencontrado
|
||||||
|
Else If codigoBuscado = "operador" Then
|
||||||
|
Log("ponemos operador en HOLA")
|
||||||
|
et_operador.text = codigoencontrado
|
||||||
|
Else If codigoBuscado = "ruta" Then
|
||||||
|
et_rutaReparto.text = codigoencontrado
|
||||||
|
End If
|
||||||
|
' If et_codigo.Text.Length > 1 Then
|
||||||
|
B_cerrar_Click
|
||||||
|
' End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub StartCamera
|
||||||
|
rp.CheckAndRequest(rp.PERMISSION_CAMERA)
|
||||||
|
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
|
||||||
|
If Result = False Then
|
||||||
|
toast.Show("No permission!")
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
StartCameraShared
|
||||||
|
camEx.Initialize(pnlPreview, False, Me, "Camera1")
|
||||||
|
Wait For Camera1_Ready (Success As Boolean)
|
||||||
|
If Success Then
|
||||||
|
camEx.SetContinuousAutoFocus
|
||||||
|
camEx.CommitParameters
|
||||||
|
camEx.StartPreview
|
||||||
|
Else
|
||||||
|
toast.Show("Error opening camera")
|
||||||
|
StopCamera
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CreateDetector (Codes As List)
|
||||||
|
Dim ctxt As JavaObject
|
||||||
|
ctxt.InitializeContext
|
||||||
|
Dim builder As JavaObject
|
||||||
|
builder.InitializeNewInstance("com/google/android/gms/vision/barcode/BarcodeDetector.Builder".Replace("/", "."), Array(ctxt))
|
||||||
|
Dim barcodeClass As String = "com/google/android/gms/vision/barcode/Barcode".Replace("/", ".")
|
||||||
|
Dim barcodeStatic As JavaObject
|
||||||
|
barcodeStatic.InitializeStatic(barcodeClass)
|
||||||
|
Dim format As Int
|
||||||
|
For Each formatName As String In Codes
|
||||||
|
format = Bit.Or(format, barcodeStatic.GetField(formatName))
|
||||||
|
Next
|
||||||
|
builder.RunMethod("setBarcodeFormats", Array(format))
|
||||||
|
detector = builder.RunMethod("build", Null)
|
||||||
|
Dim operational As Boolean = detector.RunMethod("isOperational", Null)
|
||||||
|
If operational = False Then
|
||||||
|
toast.Show("Failed to create detector")
|
||||||
|
End If
|
||||||
|
b_escanOperador.Enabled = operational
|
||||||
|
b_escanPlacas.Enabled = operational
|
||||||
|
b_escanRuta.Enabled = operational
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Camera1_Preview (data() As Byte)
|
||||||
|
If DateTime.Now > LastPreview + IntervalBetweenPreviewsMs Then
|
||||||
|
'Dim n As Long = DateTime.Now
|
||||||
|
Dim frameBuilder As JavaObject
|
||||||
|
Dim bb As JavaObject
|
||||||
|
bb = bb.InitializeStatic("java.nio.ByteBuffer").RunMethod("wrap", Array(data))
|
||||||
|
frameBuilder.InitializeNewInstance("com/google/android/gms/vision/Frame.Builder".Replace("/", "."), Null)
|
||||||
|
Dim cs As CameraSize = camEx.GetPreviewSize
|
||||||
|
frameBuilder.RunMethod("setImageData", Array(bb, cs.Width, cs.Height, 842094169))
|
||||||
|
Dim frame As JavaObject = frameBuilder.RunMethod("build", Null)
|
||||||
|
Dim SparseArray As JavaObject = detector.RunMethod("detect", Array(frame))
|
||||||
|
LastPreview = DateTime.Now
|
||||||
|
Dim Matches As Int = SparseArray.RunMethod("size", Null)
|
||||||
|
If Matches > 0 Then
|
||||||
|
Dim barcode As JavaObject = SparseArray.RunMethod("valueAt", Array(0))
|
||||||
|
Dim raw As String = barcode.GetField("rawValue")
|
||||||
|
FoundBarcode(raw)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'fin camara
|
||||||
|
|
||||||
|
Private Sub b_guardar_Click
|
||||||
|
|
||||||
|
Starter.skmt.ExecNonQuery($"insert into CONTROL_KMS (PLACAS, OPERADOR, RUTA, KMS_INICIAL, KMS_FINAL) values ('${et_placas.text}', '${et_operador.text}', '${et_rutaReparto.text}', '${et_kmsInicial.text}', '${et_kmsFinal.text}')"$)
|
||||||
|
|
||||||
|
Dim ValDato As List
|
||||||
|
ValDato.Initialize
|
||||||
|
|
||||||
|
If et_placas.Text = "" Then
|
||||||
|
ValDato.Add("Las placas")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If et_operador.Text = "" Then
|
||||||
|
ValDato.Add("el operador")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If et_rutaReparto.Text = "" Then
|
||||||
|
ValDato.Add("la ruta")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ValDato.Size > 0 Then
|
||||||
|
Dim MS As String
|
||||||
|
If ValDato.Size = 1 Then
|
||||||
|
MS = ValDato.Get(0) & " debe ser obligatorio"
|
||||||
|
Else
|
||||||
|
MS = JoinStrings(ValDato, ", ") & " deben ser obligatorios"
|
||||||
|
End If
|
||||||
|
MsgboxAsync(MS, "AVISO")
|
||||||
|
Else
|
||||||
|
c = Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||||
|
Log(c.RowCount)
|
||||||
|
c.Position = 0
|
||||||
|
Dim ALM_ENV = c.GetString ("ID_ALMACEN")
|
||||||
|
c.Close
|
||||||
|
|
||||||
|
Dim cmd As DBCommand
|
||||||
|
cmd.Initialize
|
||||||
|
cmd.Name = "select_placa_GUNA"
|
||||||
|
cmd.Parameters = Array As Object(et_placas.Text ,et_rutaReparto.Text, ALM_ENV)
|
||||||
|
Log(et_placas.Text & " ," & et_rutaReparto.Text & " ," & ALM_ENV)
|
||||||
|
reqManager.ExecuteQuery(cmd , 0, "PLACA_OK")
|
||||||
|
|
||||||
|
Dim cmd As DBCommand
|
||||||
|
cmd.Initialize
|
||||||
|
cmd.Name = "select_Operador_GUNA"
|
||||||
|
cmd.Parameters = Array As Object(et_placas.Text, et_operador.Text, et_rutaReparto.Text, ALM_ENV)
|
||||||
|
Log(et_placas.Text & " ," & et_rutaReparto.Text & " ," & ALM_ENV)
|
||||||
|
reqManager.ExecuteQuery(cmd , 0, "Operador_OK")
|
||||||
|
|
||||||
|
Dim cmd As DBCommand
|
||||||
|
cmd.Initialize
|
||||||
|
cmd.Name = "select_CheckList_GUNA"
|
||||||
|
cmd.Parameters = Array As Object(et_placas.Text)
|
||||||
|
Log(et_placas.Text & " ," & et_rutaReparto.Text & " ," & ALM_ENV)
|
||||||
|
reqManager.ExecuteQuery(cmd , 0, "CheckList_OK")
|
||||||
|
|
||||||
|
Dim cmd As DBCommand
|
||||||
|
cmd.Initialize
|
||||||
|
cmd.Name = "select_CartaPorte_GUNA"
|
||||||
|
cmd.Parameters = Array As Object(et_rutaReparto.Text, ALM_ENV)
|
||||||
|
Log(et_placas.Text & " ," & et_rutaReparto.Text & " ," & ALM_ENV)
|
||||||
|
reqManager.ExecuteQuery(cmd , 0, "CartaPorte_OK")
|
||||||
|
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub JoinStrings(list As List, delimiter As String) As String
|
||||||
|
Dim result As String
|
||||||
|
For Each item As String In list
|
||||||
|
If result.Length > 0 Then
|
||||||
|
result = result & delimiter & " "
|
||||||
|
End If
|
||||||
|
result = result & item
|
||||||
|
Next
|
||||||
|
Return result
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub B_Color_Click
|
||||||
|
If P_Color.Visible = True Then
|
||||||
|
P_Color.Visible = False
|
||||||
|
' b_guardar.Visible = True
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub pnlPreview_Click
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub p_camara_Click
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub b_escanPlacas_Click
|
||||||
|
ime.HideKeyboard
|
||||||
|
codigoBuscado = "placas"
|
||||||
|
Subs.panelVisible(p_camara, 0, 0)
|
||||||
|
If Capturing = False Then
|
||||||
|
p_camara.Visible = True
|
||||||
|
StartCamera
|
||||||
|
Else
|
||||||
|
p_camara.Visible = False
|
||||||
|
StopCamera
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub b_escanOperador_Click
|
||||||
|
ime.HideKeyboard
|
||||||
|
codigoBuscado = "operador"
|
||||||
|
Subs.panelVisible(p_camara, 0, 0)
|
||||||
|
If Capturing = False Then
|
||||||
|
p_camara.Visible = True
|
||||||
|
StartCamera
|
||||||
|
Else
|
||||||
|
p_camara.Visible = False
|
||||||
|
StopCamera
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub b_escanRuta_Click
|
||||||
|
ime.HideKeyboard
|
||||||
|
codigoBuscado = "ruta"
|
||||||
|
Subs.panelVisible(p_camara, 0, 0)
|
||||||
|
If Capturing = False Then
|
||||||
|
p_camara.Visible = True
|
||||||
|
StartCamera
|
||||||
|
Else
|
||||||
|
p_camara.Visible = False
|
||||||
|
StopCamera
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
74
B4A/C_UpdateAvailable.bas
Normal file
74
B4A/C_UpdateAvailable.bas
Normal file
@@ -0,0 +1,74 @@
|
|||||||
|
B4A=true
|
||||||
|
Group=Default Group
|
||||||
|
ModulesStructureVersion=1
|
||||||
|
Type=Class
|
||||||
|
Version=11.5
|
||||||
|
@EndOfDesignText@
|
||||||
|
Sub Class_Globals
|
||||||
|
Private Root As B4XView 'ignore
|
||||||
|
Private xui As XUI 'ignore
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'You can add more parameters here.
|
||||||
|
Public Sub Initialize As Object
|
||||||
|
Return Me
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'This event will be called once, before the page becomes visible.
|
||||||
|
Private Sub B4XPage_Created (Root1 As B4XView)
|
||||||
|
Root = Root1
|
||||||
|
'load the layout to Root
|
||||||
|
Root.Color = Colors.Transparent
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub B4XPage_Appear
|
||||||
|
Try
|
||||||
|
Do While Not(CanRequestPackageInstalls)
|
||||||
|
MsgboxAsync($"Por favor permita que ${Application.PackageName} instale actualizaciones"$, "Instalar actualización")
|
||||||
|
Wait For Msgbox_Result(Result As Int)
|
||||||
|
Dim in As Intent
|
||||||
|
in.Initialize("android.settings.MANAGE_UNKNOWN_APP_SOURCES", "package:" & Application.PackageName)
|
||||||
|
StartActivity(in)
|
||||||
|
Loop
|
||||||
|
Catch
|
||||||
|
Log("updateAvailable() Error - " & LastException.Message)
|
||||||
|
End Try
|
||||||
|
If appUpdater.newApp.update Then
|
||||||
|
ofreceActualizacion
|
||||||
|
Else
|
||||||
|
sinActualizacion
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
'//// Esta es una actividad usada por el servicio appUpdater para mostrar notificaciones
|
||||||
|
'//// cuando hay alguna actualizacion de apk.
|
||||||
|
'////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
|
||||||
|
public Sub CanRequestPackageInstalls As Boolean
|
||||||
|
' // https://www.b4x.com/android/forum/threads/version-safe-apk-installation.87667/#content
|
||||||
|
Dim ctxt As JavaObject
|
||||||
|
ctxt.InitializeContext
|
||||||
|
Dim PackageManager As JavaObject = ctxt.RunMethod("getPackageManager", Null)
|
||||||
|
Return PackageManager.RunMethod("canRequestPackageInstalls", Null)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub ofreceActualizacion
|
||||||
|
If Msgbox2(appUpdater.newApp.newMsg,"Actualización disponible","Si","","No",Null) = DialogResponse.Positive Then 'ignore
|
||||||
|
' StartService(DownloadService)
|
||||||
|
CallSubDelayed(appUpdater, "download_newApk")
|
||||||
|
' ToastMessageShow("Descargando actualización", True)
|
||||||
|
End If
|
||||||
|
B4XPages.MainPage.ocultaProgreso
|
||||||
|
StartActivity(Main)
|
||||||
|
' Activity.Finish
|
||||||
|
B4XPages.ShowPage("Login")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub sinActualizacion
|
||||||
|
Msgbox(appUpdater.newApp.okMsg, "Aplicación al corriente") 'ignore
|
||||||
|
' StartActivity(Main)
|
||||||
|
B4XPages.MainPage.ocultaProgreso
|
||||||
|
B4XPages.ShowPage("Login")
|
||||||
|
End Sub
|
||||||
414
B4A/CameraExClass.bas
Normal file
414
B4A/CameraExClass.bas
Normal file
@@ -0,0 +1,414 @@
|
|||||||
|
B4A=true
|
||||||
|
Group=Default Group
|
||||||
|
ModulesStructureVersion=1
|
||||||
|
Type=Class
|
||||||
|
Version=7.01
|
||||||
|
@EndOfDesignText@
|
||||||
|
'Class module
|
||||||
|
'version 1.30
|
||||||
|
'See this page for the list of constants:
|
||||||
|
'http://developer.android.com/intl/fr/reference/android/hardware/Camera.Parameters.html
|
||||||
|
'Note that you should use the constant values instead of the names.
|
||||||
|
|
||||||
|
' Agregar a Main la siguientes lienas en Globals
|
||||||
|
'
|
||||||
|
' Type CameraInfoAndId (CameraInfo As Object, Id As Int)
|
||||||
|
' Type CameraSize (Width As Int, Height As Int)
|
||||||
|
'
|
||||||
|
' Agregar en main
|
||||||
|
' #AdditionalJar: com.google.android.gms:play-services-vision
|
||||||
|
|
||||||
|
'Necesita las librerias XUI y XUI Views
|
||||||
|
'
|
||||||
|
|
||||||
|
Sub Class_Globals
|
||||||
|
Private nativeCam As Object
|
||||||
|
Private cam As Camera
|
||||||
|
Private r As Reflector
|
||||||
|
Private target As Object
|
||||||
|
Private event As String
|
||||||
|
Public Front As Boolean
|
||||||
|
Private parameters As Object
|
||||||
|
|
||||||
|
Public PreviewOrientation As Int
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Initialize (Panel1 As Panel, FrontCamera As Boolean, TargetModule As Object, EventName As String)
|
||||||
|
target = TargetModule
|
||||||
|
event = EventName
|
||||||
|
Front = FrontCamera
|
||||||
|
Dim id As Int
|
||||||
|
id = FindCamera(Front).id
|
||||||
|
If id = -1 Then
|
||||||
|
Front = Not(Front) 'try different camera
|
||||||
|
id = FindCamera(Front).id
|
||||||
|
If id = -1 Then
|
||||||
|
ToastMessageShow("No camera found.", True)
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
cam.Initialize2(Panel1, "camera", id)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub FindCamera (frontCamera As Boolean) As CameraInfoAndId
|
||||||
|
Dim ci As CameraInfoAndId
|
||||||
|
Dim cameraInfo As Object
|
||||||
|
Dim cameraValue As Int
|
||||||
|
Log("findCamera")
|
||||||
|
If frontCamera Then cameraValue = 1 Else cameraValue = 0
|
||||||
|
cameraInfo = r.CreateObject("android.hardware.Camera$CameraInfo")
|
||||||
|
Dim numberOfCameras As Int = r.RunStaticMethod("android.hardware.Camera", "getNumberOfCameras", Null, Null)
|
||||||
|
Log(r.target)
|
||||||
|
Log(numberOfCameras)
|
||||||
|
For i = 0 To numberOfCameras - 1
|
||||||
|
r.RunStaticMethod("android.hardware.Camera", "getCameraInfo", Array As Object(i, cameraInfo), _
|
||||||
|
Array As String("java.lang.int", "android.hardware.Camera$CameraInfo"))
|
||||||
|
r.target = cameraInfo
|
||||||
|
Log("facing: " & r.GetField("facing") & ", " & cameraValue)
|
||||||
|
If r.GetField("facing") = cameraValue Then 'ignore
|
||||||
|
ci.cameraInfo = r.target
|
||||||
|
ci.Id = i
|
||||||
|
Return ci
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
ci.id = -1
|
||||||
|
Return ci
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub SetDisplayOrientation
|
||||||
|
r.target = r.GetActivity
|
||||||
|
r.target = r.RunMethod("getWindowManager")
|
||||||
|
r.target = r.RunMethod("getDefaultDisplay")
|
||||||
|
r.target = r.RunMethod("getRotation")
|
||||||
|
Dim result, degrees As Int = r.target * 90
|
||||||
|
Dim ci As CameraInfoAndId = FindCamera(Front)
|
||||||
|
r.target = ci.CameraInfo
|
||||||
|
Dim orientation As Int = r.GetField("orientation")
|
||||||
|
If Front Then
|
||||||
|
PreviewOrientation = (orientation + degrees) Mod 360
|
||||||
|
result = PreviewOrientation
|
||||||
|
PreviewOrientation = (360 - PreviewOrientation) Mod 360
|
||||||
|
Else
|
||||||
|
PreviewOrientation = (orientation - degrees + 360) Mod 360
|
||||||
|
result = PreviewOrientation
|
||||||
|
Log("Preview Orientation: " & PreviewOrientation)
|
||||||
|
End If
|
||||||
|
r.target = nativeCam
|
||||||
|
r.RunMethod2("setDisplayOrientation", PreviewOrientation, "java.lang.int")
|
||||||
|
r.target = parameters
|
||||||
|
r.RunMethod2("setRotation", result, "java.lang.int")
|
||||||
|
CommitParameters
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Camera_Ready (Success As Boolean)
|
||||||
|
If Success Then
|
||||||
|
r.target = cam
|
||||||
|
nativeCam = r.GetField("camera")
|
||||||
|
r.target = nativeCam
|
||||||
|
parameters = r.RunMethod("getParameters")
|
||||||
|
SetDisplayOrientation
|
||||||
|
Else
|
||||||
|
Log("success = false, " & LastException)
|
||||||
|
End If
|
||||||
|
CallSub2(target, event & "_ready", Success)
|
||||||
|
End Sub
|
||||||
|
'Uncomment this sub if you need to handle the Preview event
|
||||||
|
Sub Camera_Preview (Data() As Byte)
|
||||||
|
If SubExists(target, event & "_preview") Then
|
||||||
|
CallSub2(target, event & "_preview", Data)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub TakePicture
|
||||||
|
cam.TakePicture
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Camera_PictureTaken (Data() As Byte)
|
||||||
|
CallSub2(target, event & "_PictureTaken", Data)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub StartPreview
|
||||||
|
cam.StartPreview
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub StopPreview
|
||||||
|
cam.StopPreview
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Release
|
||||||
|
cam.Release
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Saves the data received from PictureTaken event
|
||||||
|
Public Sub SavePictureToFile(Data() As Byte, Dir As String, FileName As String)
|
||||||
|
Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)
|
||||||
|
out.WriteBytes(Data, 0, Data.Length)
|
||||||
|
out.Close
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SetParameter(Key As String, Value As String)
|
||||||
|
r.target = parameters
|
||||||
|
r.RunMethod3("set", Key, "java.lang.String", Value, "java.lang.String")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub GetParameter(Key As String) As String
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod2("get", Key, "java.lang.String")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub CommitParameters
|
||||||
|
'Try
|
||||||
|
r.target = nativeCam
|
||||||
|
r.RunMethod4("setParameters", Array As Object(parameters), Array As String("android.hardware.Camera$Parameters"))
|
||||||
|
'Catch
|
||||||
|
' ToastMessageShow("Error setting parameters.", True)
|
||||||
|
' Log(LastException)
|
||||||
|
' End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub GetColorEffect As String
|
||||||
|
Return GetParameter("effect")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SetColorEffect(Effect As String)
|
||||||
|
SetParameter("effect", Effect)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub GetSupportedPreviewSizes As CameraSize()
|
||||||
|
r.target = parameters
|
||||||
|
Dim list1 As List = r.RunMethod("getSupportedPreviewSizes")
|
||||||
|
Dim cs(list1.Size) As CameraSize
|
||||||
|
For i = 0 To list1.Size - 1
|
||||||
|
r.target = list1.get(i)
|
||||||
|
cs(i).Width = r.GetField("width")
|
||||||
|
cs(i).Height = r.GetField("height")
|
||||||
|
Next
|
||||||
|
Return cs
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SetPreviewSize(Width As Int, Height As Int)
|
||||||
|
r.target = parameters
|
||||||
|
r.RunMethod3("setPreviewSize", Width, "java.lang.int", Height, "java.lang.int")
|
||||||
|
End Sub
|
||||||
|
Public Sub GetSupportedPicturesSizes As CameraSize()
|
||||||
|
r.target = parameters
|
||||||
|
Dim list1 As List = r.RunMethod("getSupportedPictureSizes")
|
||||||
|
Dim cs(list1.Size) As CameraSize
|
||||||
|
For i = 0 To list1.Size - 1
|
||||||
|
r.target = list1.get(i)
|
||||||
|
cs(i).Width = r.GetField("width")
|
||||||
|
cs(i).Height = r.GetField("height")
|
||||||
|
Next
|
||||||
|
Return cs
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SetPictureSize(Width As Int, Height As Int)
|
||||||
|
r.target = parameters
|
||||||
|
r.RunMethod3("setPictureSize", Width, "java.lang.int", Height, "java.lang.int")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SetJpegQuality(Quality As Int)
|
||||||
|
r.target = parameters
|
||||||
|
r.RunMethod2("setJpegQuality", Quality, "java.lang.int")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SetFlashMode(Mode As String)
|
||||||
|
r.target = parameters
|
||||||
|
r.RunMethod2("setFlashMode", Mode, "java.lang.String")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub GetFlashMode As String
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod("getFlashMode")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub GetSupportedFlashModes As List
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod("getSupportedFlashModes")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub GetSupportedColorEffects As List
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod("getSupportedColorEffects")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Returns a list with the supported preview fps. Each item in the list is an array of two ints (minimum value and maximum value).
|
||||||
|
Public Sub GetSupportedPreviewFpsRange As List
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod("getSupportedPreviewFpsRange")
|
||||||
|
End Sub
|
||||||
|
'Returns the current preview fps range.
|
||||||
|
'Range is a two elements array. The minimum value and maximum value will be stored in this array.
|
||||||
|
Public Sub GetPreviewFpsRange(Range() As Int)
|
||||||
|
r.target = parameters
|
||||||
|
r.RunMethod4("getPreviewFpsRange", Array As Object(Range), Array As String("[I"))
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SetPreviewFpsRange(MinValue As Int, MaxValue As Int)
|
||||||
|
r.target = parameters
|
||||||
|
r.RunMethod4("setPreviewFpsRange", Array As Object(MinValue, MaxValue), _
|
||||||
|
Array As String("java.lang.int", "java.lang.int"))
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub GetPreviewSize As CameraSize
|
||||||
|
r.target = parameters
|
||||||
|
r.target = r.RunMethod("getPreviewSize")
|
||||||
|
Dim cs As CameraSize
|
||||||
|
cs.Width = r.GetField("width")
|
||||||
|
cs.Height = r.GetField("height")
|
||||||
|
Return cs
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub GetPictureSize As CameraSize
|
||||||
|
r.target = parameters
|
||||||
|
r.target = r.RunMethod("getPictureSize")
|
||||||
|
Dim cs As CameraSize
|
||||||
|
cs.Width = r.GetField("width")
|
||||||
|
cs.Height = r.GetField("height")
|
||||||
|
Return cs
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Converts a preview image formatted in YUV format to JPEG.
|
||||||
|
'Note that you should not save every preview image as it will slow down the whole process.
|
||||||
|
Public Sub PreviewImageToJpeg(data() As Byte, quality As Int) As Byte()
|
||||||
|
Dim size, previewFormat As Object
|
||||||
|
r.target = parameters
|
||||||
|
size = r.RunMethod("getPreviewSize")
|
||||||
|
previewFormat = r.RunMethod("getPreviewFormat")
|
||||||
|
r.target = size
|
||||||
|
Dim width = r.GetField("width"), height = r.GetField("height") As Int
|
||||||
|
Dim yuvImage As Object = r.CreateObject2("android.graphics.YuvImage", _
|
||||||
|
Array As Object(data, previewFormat, width, height, Null), _
|
||||||
|
Array As String("[B", "java.lang.int", "java.lang.int", "java.lang.int", "[I"))
|
||||||
|
r.target = yuvImage
|
||||||
|
Dim rect1 As Rect
|
||||||
|
rect1.Initialize(0, 0, r.RunMethod("getWidth"), r.RunMethod("getHeight"))
|
||||||
|
Dim out As OutputStream
|
||||||
|
out.InitializeToBytesArray(100)
|
||||||
|
r.RunMethod4("compressToJpeg", Array As Object(rect1, quality, out), _
|
||||||
|
Array As String("android.graphics.Rect", "java.lang.int", "java.io.OutputStream"))
|
||||||
|
|
||||||
|
Return out.ToBytesArray
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub GetSupportedFocusModes As List
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod("getSupportedFocusModes")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SetContinuousAutoFocus
|
||||||
|
Dim modes As List = GetSupportedFocusModes
|
||||||
|
If modes.IndexOf("continuous-picture") > -1 Then
|
||||||
|
SetFocusMode("continuous-picture")
|
||||||
|
Else If modes.IndexOf("continuous-video") > -1 Then
|
||||||
|
SetFocusMode("continuous-video")
|
||||||
|
Else
|
||||||
|
Log("Continuous focus mode is not available")
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SetFocusMode(Mode As String)
|
||||||
|
r.target = parameters
|
||||||
|
r.RunMethod2("setFocusMode", Mode, "java.lang.String")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub GetFocusDistances As Float()
|
||||||
|
Dim F(3) As Float
|
||||||
|
r.target = parameters
|
||||||
|
r.RunMethod4("getFocusDistances", Array As Object(F), Array As String("[F"))
|
||||||
|
Return F
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub GetSupportedPictureFormats As List
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod("getSupportedPictureFormats")
|
||||||
|
End Sub
|
||||||
|
'This method should only be called if you need to immediately release the camera.
|
||||||
|
'For example if you need to start another application that depends on the camera.
|
||||||
|
Public Sub CloseNow
|
||||||
|
cam.Release
|
||||||
|
r.target = cam
|
||||||
|
r.RunMethod2("releaseCameras", True, "java.lang.boolean")
|
||||||
|
End Sub
|
||||||
|
'Calls AutoFocus and then takes the picture if focus was successfull.
|
||||||
|
Public Sub FocusAndTakePicture
|
||||||
|
cam.AutoFocus
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub Camera_FocusDone (Success As Boolean)
|
||||||
|
If Success Then
|
||||||
|
Sleep(100)
|
||||||
|
TakePicture
|
||||||
|
Else
|
||||||
|
Log("AutoFocus error.")
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub IsZoomSupported As Boolean
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod("isZoomSupported")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub GetMaxZoom As Int
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod("getMaxZoom")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub getZoom() As Int
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod("getZoom")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub setZoom(ZoomValue As Int)
|
||||||
|
r.target = parameters
|
||||||
|
r.RunMethod2("setZoom", ZoomValue, "java.lang.int")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub getExposureCompensation As Int
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod("getExposureCompensation")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub setExposureCompensation(v As Int)
|
||||||
|
r.target = parameters
|
||||||
|
r.RunMethod2("setExposureCompensation", v, "java.lang.int")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub getMinExposureCompensation As Int
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod("getMinExposureCompensation")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub getMaxExposureCompensation As Int
|
||||||
|
r.target = parameters
|
||||||
|
Return r.RunMethod("getMaxExposureCompensation")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SetFaceDetectionListener
|
||||||
|
Dim jo As JavaObject = nativeCam
|
||||||
|
Dim e As Object = jo.CreateEvent("android.hardware.Camera.FaceDetectionListener", "FaceDetection", Null)
|
||||||
|
jo.RunMethod("setFaceDetectionListener", Array(e))
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub FaceDetection_Event (MethodName As String, Args() As Object) As Object
|
||||||
|
Dim faces() As Object = Args(0)
|
||||||
|
For Each f As Object In faces
|
||||||
|
Dim jo As JavaObject = f
|
||||||
|
Dim faceRect As Rect = jo.GetField("rect") 'ignore
|
||||||
|
Next
|
||||||
|
Return Null
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub StartFaceDetection
|
||||||
|
Dim jo As JavaObject = nativeCam
|
||||||
|
jo.RunMethod("startFaceDetection", Null)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub StopFaceDetection
|
||||||
|
Dim jo As JavaObject = nativeCam
|
||||||
|
jo.RunMethod("stopFaceDetection", Null)
|
||||||
|
End Sub
|
||||||
|
|
||||||
272
B4A/DBRequestManager.bas
Normal file
272
B4A/DBRequestManager.bas
Normal file
@@ -0,0 +1,272 @@
|
|||||||
|
B4A=true
|
||||||
|
Group=Default Group
|
||||||
|
ModulesStructureVersion=1
|
||||||
|
Type=Class
|
||||||
|
Version=7.01
|
||||||
|
@EndOfDesignText@
|
||||||
|
'Class module
|
||||||
|
Sub Class_Globals
|
||||||
|
Private mTarget As Object
|
||||||
|
Type DBResult (Tag As Object, Columns As Map, Rows As List)
|
||||||
|
Type DBCommand (Name As String, Parameters() As Object)
|
||||||
|
Private link As String
|
||||||
|
Private bc As ByteConverter
|
||||||
|
Private T_NULL = 0, T_STRING = 1, T_SHORT = 2, T_INT = 3, T_LONG = 4, T_FLOAT = 5 _
|
||||||
|
,T_DOUBLE = 6, T_BOOLEAN = 7, T_BLOB = 8 As Byte
|
||||||
|
Private VERSION As Float = 0.9
|
||||||
|
Private tempArray(1) As Object
|
||||||
|
Dim jobTagAnterior As String = "" 'Mod por CHV - 211023
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Target - The module that handles JobDone (usually Me).
|
||||||
|
'ConnectorLink - URL of the Java server.
|
||||||
|
Public Sub Initialize (Target As Object, ConnectorLink As String)
|
||||||
|
mTarget = Target
|
||||||
|
link = ConnectorLink
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Sends a query request.
|
||||||
|
'Command - Query name and parameters.
|
||||||
|
'Limit - Maximum rows to return or 0 for no limit.
|
||||||
|
'Tag - An object that will be returned in the result.
|
||||||
|
Public Sub ExecuteQuery(Command As DBCommand, Limit As Int, Tag As Object)
|
||||||
|
Dim j As HttpJob
|
||||||
|
Dim ms As OutputStream
|
||||||
|
Dim out2 As OutputStream = StartJob(j,ms, Tag)
|
||||||
|
|
||||||
|
WriteObject(Command.Name, out2)
|
||||||
|
WriteInt(Limit, out2)
|
||||||
|
WriteList(Command.Parameters, out2)
|
||||||
|
out2.Close
|
||||||
|
j.PostBytes(link & "?method=query", ms.ToBytesArray)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Executes a batch of (non-select) commands.
|
||||||
|
'ListOfCommands - List of the commands that will be executes.
|
||||||
|
'Tag - An object that will be returned in the result.
|
||||||
|
Public Sub ExecuteBatch(ListOfCommands As List, Tag As Object)
|
||||||
|
Dim j As HttpJob
|
||||||
|
Dim ms As OutputStream
|
||||||
|
Dim out2 As OutputStream = StartJob(j,ms, Tag)
|
||||||
|
WriteInt(ListOfCommands.Size, out2)
|
||||||
|
For Each Command As DBCommand In ListOfCommands
|
||||||
|
WriteObject(Command.Name, out2)
|
||||||
|
WriteList(Command.Parameters, out2)
|
||||||
|
Next
|
||||||
|
out2.Close
|
||||||
|
j.PostBytes(link & "?method=batch", ms.ToBytesArray)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Similar to ExecuteBatch. Sends a single command.
|
||||||
|
Public Sub ExecuteCommand(Command As DBCommand, Tag As Object)
|
||||||
|
ExecuteBatch(Array As DBCommand(Command), Tag)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub StartJob(j As HttpJob, MemoryStream As OutputStream, Tag As Object) As OutputStream
|
||||||
|
j.Initialize("DBRequest", mTarget)
|
||||||
|
j.Tag = Tag
|
||||||
|
MemoryStream.InitializeToBytesArray(0)
|
||||||
|
Dim compress As CompressedStreams
|
||||||
|
Dim out As OutputStream = compress.WrapOutputStream(MemoryStream, "gzip")
|
||||||
|
WriteObject(VERSION, out)
|
||||||
|
Return out
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub WriteList(Parameters As List, out As OutputStream)
|
||||||
|
Dim data() As Byte
|
||||||
|
If Parameters = Null Or Parameters.IsInitialized = False Then
|
||||||
|
Dim Parameters As List
|
||||||
|
Parameters.Initialize
|
||||||
|
End If
|
||||||
|
data = bc.IntsToBytes(Array As Int(Parameters.Size))
|
||||||
|
out.WriteBytes(data, 0, data.Length)
|
||||||
|
For Each o As Object In Parameters
|
||||||
|
WriteObject(o, out)
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub WriteObject(o As Object, out As OutputStream)
|
||||||
|
Dim data() As Byte
|
||||||
|
tempArray(0) = o
|
||||||
|
If tempArray(0) = Null Then
|
||||||
|
out.WriteBytes(Array As Byte(T_NULL), 0, 1)
|
||||||
|
Else If tempArray(0) Is Short Then
|
||||||
|
out.WriteBytes(Array As Byte(T_SHORT), 0, 1)
|
||||||
|
data = bc.ShortsToBytes(Array As Short(o))
|
||||||
|
Else If tempArray(0) Is Int Then
|
||||||
|
out.WriteBytes(Array As Byte(T_INT), 0, 1)
|
||||||
|
data = bc.IntsToBytes(Array As Int(o))
|
||||||
|
Else If tempArray(0) Is Float Then
|
||||||
|
out.WriteBytes(Array As Byte(T_FLOAT), 0, 1)
|
||||||
|
data = bc.FloatsToBytes(Array As Float(o))
|
||||||
|
Else If tempArray(0) Is Double Then
|
||||||
|
out.WriteBytes(Array As Byte(T_DOUBLE), 0, 1)
|
||||||
|
data = bc.DoublesToBytes(Array As Double(o))
|
||||||
|
Else If tempArray(0) Is Long Then
|
||||||
|
out.WriteBytes(Array As Byte(T_LONG), 0, 1)
|
||||||
|
data = bc.LongsToBytes(Array As Long(o))
|
||||||
|
Else If tempArray(0) Is Boolean Then
|
||||||
|
out.WriteBytes(Array As Byte(T_BOOLEAN), 0, 1)
|
||||||
|
Dim b As Boolean = 0
|
||||||
|
Dim data(1) As Byte
|
||||||
|
If b Then data(0) = 1 Else data(0) = 0
|
||||||
|
Else If GetType(tempArray(0)) = "[B" Then
|
||||||
|
data = o
|
||||||
|
out.WriteBytes(Array As Byte(T_BLOB), 0, 1)
|
||||||
|
WriteInt(data.Length, out)
|
||||||
|
Else 'If o Is String Then (treat all other values as string)
|
||||||
|
out.WriteBytes(Array As Byte(T_STRING), 0, 1)
|
||||||
|
data = bc.StringToBytes(o, "UTF8")
|
||||||
|
WriteInt(data.Length, out)
|
||||||
|
End If
|
||||||
|
If data.Length > 0 Then out.WriteBytes(data, 0, data.Length)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ReadObject(In As InputStream) As Object
|
||||||
|
Dim data(1) As Byte
|
||||||
|
In.ReadBytes(data, 0, 1)
|
||||||
|
Select data(0)
|
||||||
|
Case T_NULL
|
||||||
|
Return Null
|
||||||
|
Case T_SHORT
|
||||||
|
Dim data(2) As Byte
|
||||||
|
Return bc.ShortsFromBytes(ReadBytesFully(In, data, data.Length))(0)
|
||||||
|
Case T_INT
|
||||||
|
Dim data(4) As Byte
|
||||||
|
Return bc.IntsFromBytes(ReadBytesFully(In, data, data.Length))(0)
|
||||||
|
Case T_LONG
|
||||||
|
Dim data(8) As Byte
|
||||||
|
Return bc.LongsFromBytes(ReadBytesFully(In, data, data.Length))(0)
|
||||||
|
Case T_FLOAT
|
||||||
|
Dim data(4) As Byte
|
||||||
|
Return bc.FloatsFromBytes(ReadBytesFully(In, data, data.Length))(0)
|
||||||
|
Case T_DOUBLE
|
||||||
|
Dim data(8) As Byte
|
||||||
|
Return bc.DoublesFromBytes(ReadBytesFully(In, data, data.Length))(0)
|
||||||
|
Case T_BOOLEAN
|
||||||
|
Dim b As Byte = ReadByte(In)
|
||||||
|
Return b = 1
|
||||||
|
Case T_BLOB
|
||||||
|
Dim len As Int = ReadInt(In)
|
||||||
|
Dim data(len) As Byte
|
||||||
|
Return ReadBytesFully(In, data, data.Length)
|
||||||
|
Case Else
|
||||||
|
Dim len As Int = ReadInt(In)
|
||||||
|
Dim data(len) As Byte
|
||||||
|
ReadBytesFully(In, data, data.Length)
|
||||||
|
Return BytesToString(data, 0, data.Length, "UTF8")
|
||||||
|
End Select
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ReadBytesFully(In As InputStream, Data() As Byte, Len As Int) As Byte()
|
||||||
|
Dim count = 0, read As Int
|
||||||
|
Do While count < Len And read > -1
|
||||||
|
read = In.ReadBytes(Data, count, Len - count)
|
||||||
|
count = count + read
|
||||||
|
Loop
|
||||||
|
Return Data
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub WriteInt(i As Int, out As OutputStream)
|
||||||
|
Dim data() As Byte
|
||||||
|
data = bc.IntsToBytes(Array As Int(i))
|
||||||
|
out.WriteBytes(data, 0, data.Length)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ReadInt(In As InputStream) As Int
|
||||||
|
Dim data(4) As Byte
|
||||||
|
Return bc.IntsFromBytes(ReadBytesFully(In, data, data.Length))(0)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ReadByte(In As InputStream) As Byte
|
||||||
|
Dim data(1) As Byte
|
||||||
|
In.ReadBytes(data, 0, 1)
|
||||||
|
Return data(0)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Handles the Job result and returns a DBResult.
|
||||||
|
Public Sub HandleJob(Job As HttpJob) As DBResult
|
||||||
|
' Dim start As Long = DateTime.Now
|
||||||
|
Dim In As InputStream = Job.GetInputStream
|
||||||
|
Dim cs As CompressedStreams
|
||||||
|
In = cs.WrapInputStream(In, "gzip")
|
||||||
|
Dim serverVersion As Float = ReadObject(In) 'ignore
|
||||||
|
Dim method As String = ReadObject(In)
|
||||||
|
Dim table As DBResult
|
||||||
|
table.Initialize
|
||||||
|
table.Columns.Initialize
|
||||||
|
table.rows.Initialize
|
||||||
|
table.Tag = Job.Tag
|
||||||
|
If jobTagAnterior <> Job.Tag Then LogColor("HandleJob: '"&Job.Tag&"'", Colors.Blue) 'Mod por CHV - 211023
|
||||||
|
jobTagAnterior = Job.Tag 'Mod por CHV - 211023
|
||||||
|
If method = "query" Then
|
||||||
|
Dim numberOfColumns As Int = ReadInt(In)
|
||||||
|
For i = 0 To numberOfColumns - 1
|
||||||
|
table.Columns.Put(ReadObject(In), i)
|
||||||
|
Next
|
||||||
|
Do While ReadByte(In) = 1
|
||||||
|
Dim rowObjects(numberOfColumns) As Object
|
||||||
|
table.rows.Add(rowObjects)
|
||||||
|
For col = 0 To numberOfColumns - 1
|
||||||
|
Dim o As Object = ReadObject(In)
|
||||||
|
rowObjects(col) = o
|
||||||
|
Next
|
||||||
|
Loop
|
||||||
|
Else If method = "batch" Then
|
||||||
|
table.Columns.Put("AffectedRows", 0)
|
||||||
|
Dim rows As Int = ReadInt(In)
|
||||||
|
For i = 0 To rows - 1
|
||||||
|
table.rows.Add(Array As Object(ReadInt(In)))
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
In.Close
|
||||||
|
Return table
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Reads a file and returns the file as a bytes array.
|
||||||
|
Public Sub FileToBytes(Dir As String, FileName As String) As Byte()
|
||||||
|
Dim out As OutputStream
|
||||||
|
out.InitializeToBytesArray(0)
|
||||||
|
Dim In As InputStream = File.OpenInput(Dir, FileName)
|
||||||
|
File.Copy2(In, out)
|
||||||
|
out.Close
|
||||||
|
Return out.ToBytesArray
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Converts an image to a bytes array (for BLOB fields).
|
||||||
|
Public Sub ImageToBytes(Image As Bitmap) As Byte()
|
||||||
|
Dim out As OutputStream
|
||||||
|
out.InitializeToBytesArray(0)
|
||||||
|
Image.WriteToStream(out, 100, "JPEG")
|
||||||
|
out.Close
|
||||||
|
Return out.ToBytesArray
|
||||||
|
End Sub
|
||||||
|
'Converts a bytes array to an image (for BLOB fields).
|
||||||
|
Public Sub BytesToImage(bytes() As Byte) As Bitmap
|
||||||
|
Dim In As InputStream
|
||||||
|
In.InitializeFromBytesArray(bytes, 0, bytes.Length)
|
||||||
|
Dim bmp As Bitmap
|
||||||
|
bmp.Initialize2(In)
|
||||||
|
Return bmp
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Prints the table to the logs.
|
||||||
|
Public Sub PrintTable(Table As DBResult)
|
||||||
|
Log("Tag: " & Table.Tag & ", Columns: " & Table.Columns.Size & ", Rows: " & Table.Rows.Size)
|
||||||
|
Dim sb As StringBuilder
|
||||||
|
sb.Initialize
|
||||||
|
For Each col In Table.Columns.Keys
|
||||||
|
sb.Append(col).Append(TAB)
|
||||||
|
Next
|
||||||
|
Log(sb.ToString)
|
||||||
|
For Each row() As Object In Table.Rows
|
||||||
|
Dim sb As StringBuilder
|
||||||
|
sb.Initialize
|
||||||
|
For Each record As Object In row
|
||||||
|
sb.Append(record).Append(TAB)
|
||||||
|
Next
|
||||||
|
ToastMessageShow(sb.ToString, True)
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
BIN
B4A/Files/alert2.png
Normal file
BIN
B4A/Files/alert2.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 632 B |
BIN
B4A/Files/alerta.jpg
Normal file
BIN
B4A/Files/alerta.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.4 KiB |
BIN
B4A/Files/buscar.bal
Normal file
BIN
B4A/Files/buscar.bal
Normal file
Binary file not shown.
BIN
B4A/Files/cliente.bal
Normal file
BIN
B4A/Files/cliente.bal
Normal file
Binary file not shown.
BIN
B4A/Files/clientes.bal
Normal file
BIN
B4A/Files/clientes.bal
Normal file
Binary file not shown.
BIN
B4A/Files/dbc.png
Normal file
BIN
B4A/Files/dbc.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 52 KiB |
BIN
B4A/Files/detalle_promo.bal
Normal file
BIN
B4A/Files/detalle_promo.bal
Normal file
Binary file not shown.
BIN
B4A/Files/detalleventa.bal
Normal file
BIN
B4A/Files/detalleventa.bal
Normal file
Binary file not shown.
BIN
B4A/Files/durakelo1.png
Normal file
BIN
B4A/Files/durakelo1.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 5.8 KiB |
BIN
B4A/Files/engrane.jpg
Normal file
BIN
B4A/Files/engrane.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.0 KiB |
BIN
B4A/Files/fondo_kmt.jpg
Normal file
BIN
B4A/Files/fondo_kmt.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 33 KiB |
BIN
B4A/Files/foto.bal
Normal file
BIN
B4A/Files/foto.bal
Normal file
Binary file not shown.
BIN
B4A/Files/guardagestion.bal
Normal file
BIN
B4A/Files/guardagestion.bal
Normal file
Binary file not shown.
BIN
B4A/Files/guna_viejo.png
Normal file
BIN
B4A/Files/guna_viejo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 20 KiB |
BIN
B4A/Files/guna_viejo2.png
Normal file
BIN
B4A/Files/guna_viejo2.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 3.5 KiB |
BIN
B4A/Files/historico.bal
Normal file
BIN
B4A/Files/historico.bal
Normal file
Binary file not shown.
BIN
B4A/Files/infonavit1.jpg
Normal file
BIN
B4A/Files/infonavit1.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 30 KiB |
BIN
B4A/Files/itembuttonblue.png
Normal file
BIN
B4A/Files/itembuttonblue.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.6 KiB |
BIN
B4A/Files/kelloggs.png
Normal file
BIN
B4A/Files/kelloggs.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.6 KiB |
BIN
B4A/Files/keymon_logo.png
Normal file
BIN
B4A/Files/keymon_logo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 11 KiB |
BIN
B4A/Files/kmt.db
Normal file
BIN
B4A/Files/kmt.db
Normal file
Binary file not shown.
BIN
B4A/Files/kmt.dbx
Normal file
BIN
B4A/Files/kmt.dbx
Normal file
Binary file not shown.
BIN
B4A/Files/login.bal
Normal file
BIN
B4A/Files/login.bal
Normal file
Binary file not shown.
BIN
B4A/Files/logo guna_192x192.png
Normal file
BIN
B4A/Files/logo guna_192x192.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 6.6 KiB |
BIN
B4A/Files/logo sanfer.jpg
Normal file
BIN
B4A/Files/logo sanfer.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 7.8 KiB |
BIN
B4A/Files/logo_exitus1.jpg
Normal file
BIN
B4A/Files/logo_exitus1.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 30 KiB |
BIN
B4A/Files/logo_mariana.jpg
Normal file
BIN
B4A/Files/logo_mariana.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 7.1 KiB |
BIN
B4A/Files/mainpage.bal
Normal file
BIN
B4A/Files/mainpage.bal
Normal file
Binary file not shown.
BIN
B4A/Files/malo.jpg
Normal file
BIN
B4A/Files/malo.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.6 KiB |
BIN
B4A/Files/mapa.bal
Normal file
BIN
B4A/Files/mapa.bal
Normal file
Binary file not shown.
BIN
B4A/Files/mapa_cliente.bal
Normal file
BIN
B4A/Files/mapa_cliente.bal
Normal file
Binary file not shown.
BIN
B4A/Files/mapa_rutas.bal
Normal file
BIN
B4A/Files/mapa_rutas.bal
Normal file
Binary file not shown.
BIN
B4A/Files/mariana_logo_192x192.jpg
Normal file
BIN
B4A/Files/mariana_logo_192x192.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 5.9 KiB |
BIN
B4A/Files/no_venta.bal
Normal file
BIN
B4A/Files/no_venta.bal
Normal file
Binary file not shown.
BIN
B4A/Files/nuevocliente.bal
Normal file
BIN
B4A/Files/nuevocliente.bal
Normal file
Binary file not shown.
BIN
B4A/Files/pedido.bal
Normal file
BIN
B4A/Files/pedido.bal
Normal file
Binary file not shown.
BIN
B4A/Files/planfia_logo.png
Normal file
BIN
B4A/Files/planfia_logo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 22 KiB |
BIN
B4A/Files/planfia_logo_old.png
Normal file
BIN
B4A/Files/planfia_logo_old.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 33 KiB |
BIN
B4A/Files/planfia_logo_old2.png
Normal file
BIN
B4A/Files/planfia_logo_old2.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 40 KiB |
BIN
B4A/Files/principal.bal
Normal file
BIN
B4A/Files/principal.bal
Normal file
Binary file not shown.
BIN
B4A/Files/proditem.bal
Normal file
BIN
B4A/Files/proditem.bal
Normal file
Binary file not shown.
BIN
B4A/Files/productos.bal
Normal file
BIN
B4A/Files/productos.bal
Normal file
Binary file not shown.
BIN
B4A/Files/profina.jpg
Normal file
BIN
B4A/Files/profina.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.6 KiB |
BIN
B4A/Files/profina.png
Normal file
BIN
B4A/Files/profina.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 5.0 KiB |
BIN
B4A/Files/sync.png
Normal file
BIN
B4A/Files/sync.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 763 B |
BIN
B4A/Files/tabulador.bal
Normal file
BIN
B4A/Files/tabulador.bal
Normal file
Binary file not shown.
BIN
B4A/Files/telefonos.bal
Normal file
BIN
B4A/Files/telefonos.bal
Normal file
Binary file not shown.
BIN
B4A/Files/thumbs.db
Normal file
BIN
B4A/Files/thumbs.db
Normal file
Binary file not shown.
200
B4A/Guna_CK.b4a
Normal file
200
B4A/Guna_CK.b4a
Normal file
@@ -0,0 +1,200 @@
|
|||||||
|
Build1=Default,guna_ck.keymon.lat,HU2_PUBLIC
|
||||||
|
File1=alert2.png
|
||||||
|
File10=engrane.jpg
|
||||||
|
File11=fondo_kmt.jpg
|
||||||
|
File12=foto.bal
|
||||||
|
File13=guardagestion.bal
|
||||||
|
File14=guna_viejo.png
|
||||||
|
File15=guna_viejo2.png
|
||||||
|
File16=historico.bal
|
||||||
|
File17=infonavit1.jpg
|
||||||
|
File18=itembuttonblue.png
|
||||||
|
File19=kelloggs.png
|
||||||
|
File2=alerta.jpg
|
||||||
|
File20=keymon_logo.png
|
||||||
|
File21=kmt.db
|
||||||
|
File22=kmt.dbx
|
||||||
|
File23=login.bal
|
||||||
|
File24=Logo Guna_192x192.png
|
||||||
|
File25=logo sanfer.jpg
|
||||||
|
File26=logo_exitus1.jpg
|
||||||
|
File27=logo_mariana.jpg
|
||||||
|
File28=MainPage.bal
|
||||||
|
File29=malo.jpg
|
||||||
|
File3=buscar.bal
|
||||||
|
File30=mapa.bal
|
||||||
|
File31=mapa_cliente.bal
|
||||||
|
File32=mapa_rutas.bal
|
||||||
|
File33=mariana_logo_192x192.jpg
|
||||||
|
File34=no_venta.bal
|
||||||
|
File35=nuevocliente.bal
|
||||||
|
File36=pedido.bal
|
||||||
|
File37=planfia_logo.png
|
||||||
|
File38=planfia_logo_old.png
|
||||||
|
File39=planfia_logo_old2.png
|
||||||
|
File4=cliente.bal
|
||||||
|
File40=principal.bal
|
||||||
|
File41=proditem.bal
|
||||||
|
File42=productos.bal
|
||||||
|
File43=profina.jpg
|
||||||
|
File44=PROFINA.png
|
||||||
|
File45=sync.png
|
||||||
|
File46=tabulador.bal
|
||||||
|
File47=telefonos.bal
|
||||||
|
File48=Thumbs.db
|
||||||
|
File5=clientes.bal
|
||||||
|
File6=dbc.png
|
||||||
|
File7=detalle_promo.bal
|
||||||
|
File8=detalleVenta.bal
|
||||||
|
File9=durakelo1.png
|
||||||
|
FileGroup1=Default Group
|
||||||
|
FileGroup10=Default Group
|
||||||
|
FileGroup11=Default Group
|
||||||
|
FileGroup12=Default Group
|
||||||
|
FileGroup13=Default Group
|
||||||
|
FileGroup14=Default Group
|
||||||
|
FileGroup15=Default Group
|
||||||
|
FileGroup16=Default Group
|
||||||
|
FileGroup17=Default Group
|
||||||
|
FileGroup18=Default Group
|
||||||
|
FileGroup19=Default Group
|
||||||
|
FileGroup2=Default Group
|
||||||
|
FileGroup20=Default Group
|
||||||
|
FileGroup21=Default Group
|
||||||
|
FileGroup22=Default Group
|
||||||
|
FileGroup23=Default Group
|
||||||
|
FileGroup24=Default Group
|
||||||
|
FileGroup25=Default Group
|
||||||
|
FileGroup26=Default Group
|
||||||
|
FileGroup27=Default Group
|
||||||
|
FileGroup28=Default Group
|
||||||
|
FileGroup29=Default Group
|
||||||
|
FileGroup3=Default Group
|
||||||
|
FileGroup30=Default Group
|
||||||
|
FileGroup31=Default Group
|
||||||
|
FileGroup32=Default Group
|
||||||
|
FileGroup33=Default Group
|
||||||
|
FileGroup34=Default Group
|
||||||
|
FileGroup35=Default Group
|
||||||
|
FileGroup36=Default Group
|
||||||
|
FileGroup37=Default Group
|
||||||
|
FileGroup38=Default Group
|
||||||
|
FileGroup39=Default Group
|
||||||
|
FileGroup4=Default Group
|
||||||
|
FileGroup40=Default Group
|
||||||
|
FileGroup41=Default Group
|
||||||
|
FileGroup42=Default Group
|
||||||
|
FileGroup43=Default Group
|
||||||
|
FileGroup44=Default Group
|
||||||
|
FileGroup45=Default Group
|
||||||
|
FileGroup46=Default Group
|
||||||
|
FileGroup47=Default Group
|
||||||
|
FileGroup48=Default Group
|
||||||
|
FileGroup5=Default Group
|
||||||
|
FileGroup6=Default Group
|
||||||
|
FileGroup7=Default Group
|
||||||
|
FileGroup8=Default Group
|
||||||
|
FileGroup9=Default Group
|
||||||
|
Group=Default Group
|
||||||
|
Library1=appupdating
|
||||||
|
Library10=phone
|
||||||
|
Library11=randomaccessfile
|
||||||
|
Library12=reflection
|
||||||
|
Library13=runtimepermissions
|
||||||
|
Library14=sql
|
||||||
|
Library15=xcustomlistview
|
||||||
|
Library16=xui
|
||||||
|
Library17=xui views
|
||||||
|
Library2=b4xpages
|
||||||
|
Library3=bctoast
|
||||||
|
Library4=byteconverter
|
||||||
|
Library5=camera
|
||||||
|
Library6=core
|
||||||
|
Library7=fileprovider
|
||||||
|
Library8=ime
|
||||||
|
Library9=okhttputils2
|
||||||
|
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="33"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~''''' CAMBIA LA CLAVE API~\n~'AddApplicationText(~\n~'<meta-data~\n~' android:name="com.google.android.geo.API_KEY"~\n~' android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~' <meta-data android:name="com.google.android.gms.version"~\n~' android:value="@integer/google_play_services_version" />~\n~')~\n~~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~'AddManifestText(<uses-permission android:name="android.permission.ACCESS_FINE_LOCATION" android:maxSdkVersion="33" />)~\n~'AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~'AddManifestText(<uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE" android:maxSdkVersion="23" />)~\n~'AddManifestText(<uses-permission android:name="android.permission.READ_PHONE_STATE" android:maxSdkVersion="19" />)~\n~'AddManifestText(<uses-permission android:name="android.permission.READ_PRIVILEGED_PHONE_STATE" android:maxSdkVersion="19" />) 'in order to access the device non-resettable identifiers such as IMEI and serial number.~\n~'AddManifestText(<uses-permission android:name="android.permission.BLUETOOTH_ADMIN" />)~\n~'/////////////// FLP y FBMessageing MOD Inicia /////////////////////~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~'CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~'SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'/////////////// FLP y FBMessageing MOD Termina /////////////////////~\n~~\n~'Si al cargar un mapa de google mande este error "java.lang.NoClassDefFoundError: Failed resolution of: Lorg/apache/http/ProtocolVersion". agregar la siguiente linea:~\n~AddApplicationText(<uses-library android:name="org.apache.http.legacy" android:required="false"/>)~\n~~\n~'/////////////////////// App Updating ////////////////~\n~ AddManifestText(<uses-permission~\n~ android:name="android.permission.WRITE_EXTERNAL_STORAGE" android:maxSdkVersion="33" />~\n~ )~\n~ AddApplicationText(~\n~ <provider~\n~ android:name="android.support.v4.content.FileProvider"~\n~ android:authorities="$PACKAGE$.provider"~\n~ android:exported="false"~\n~ android:grantUriPermissions="true">~\n~ <meta-data~\n~ android:name="android.support.FILE_PROVIDER_PATHS"~\n~ android:resource="@xml/provider_paths"/>~\n~ </provider>~\n~ )~\n~ CreateResource(xml, provider_paths,~\n~ <paths>~\n~ <external-files-path name="name" path="" />~\n~ <files-path name="name" path="" />~\n~ <files-path name="name" path="shared" />~\n~ </paths>~\n~ )~\n~AddManifestText(<uses-feature android:name="android.hardware.telephony" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.autofocus" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.flash" android:required="false" />)~\n~~\n~AddPermission(android.permission.REQUEST_INSTALL_PACKAGES)~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.INSTALL_PACKAGES)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.READ_PHONE_STATE)~\n~AddPermission(android.permission.WAKE_LOCK)~\n~CreateResourceFromFile(Macro, JhsIceZxing1.CaturePortrait)~\n~ ~\n~SetApplicationAttribute(android:largeHeap, "true")~\n~~\n~
|
||||||
|
Module1=appUpdater
|
||||||
|
Module2=B4XMainPage
|
||||||
|
Module3=C_Clientes
|
||||||
|
Module4=C_Principal
|
||||||
|
Module5=C_UpdateAvailable
|
||||||
|
Module6=CameraExClass
|
||||||
|
Module7=DBRequestManager
|
||||||
|
Module8=Starter
|
||||||
|
Module9=Subs
|
||||||
|
NumberOfFiles=48
|
||||||
|
NumberOfLibraries=17
|
||||||
|
NumberOfModules=9
|
||||||
|
Version=12.8
|
||||||
|
@EndOfDesignText@
|
||||||
|
#Region Project Attributes
|
||||||
|
#ApplicationLabel: Guna CK
|
||||||
|
#VersionCode: 1
|
||||||
|
#VersionName: 3.06.28
|
||||||
|
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||||
|
#SupportedOrientations: portrait
|
||||||
|
#CanInstallToExternalStorage: False
|
||||||
|
#AdditionalJar: com.android.support:support-v4
|
||||||
|
#AdditionalJar: com.google.android.gms:play-services-location
|
||||||
|
#BridgeLogger: True
|
||||||
|
#AdditionalJar: com.google.android.gms:play-services-vision
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region Activity Attributes
|
||||||
|
#FullScreen: False
|
||||||
|
#IncludeTitle: True
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Sub Process_Globals
|
||||||
|
Public ActionBarHomeClicked As Boolean
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Globals
|
||||||
|
Type CameraInfoAndId (CameraInfo As Object, Id As Int)
|
||||||
|
Type CameraSize (Width As Int, Height As Int)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Activity_Create(FirstTime As Boolean)
|
||||||
|
Dim pm As B4XPagesManager
|
||||||
|
pm.Initialize(Activity)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Template version: B4A-1.01
|
||||||
|
#Region Delegates
|
||||||
|
|
||||||
|
Sub Activity_ActionBarHomeClick
|
||||||
|
ActionBarHomeClicked = True
|
||||||
|
B4XPages.Delegate.Activity_ActionBarHomeClick
|
||||||
|
ActionBarHomeClicked = False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Activity_KeyPress (KeyCode As Int) As Boolean
|
||||||
|
Return B4XPages.Delegate.Activity_KeyPress(KeyCode)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Activity_Resume
|
||||||
|
B4XPages.Delegate.Activity_Resume
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Activity_Pause (UserClosed As Boolean)
|
||||||
|
B4XPages.Delegate.Activity_Pause
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
|
||||||
|
B4XPages.Delegate.Activity_PermissionResult(Permission, Result)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Create_Menu (Menu As Object)
|
||||||
|
B4XPages.Delegate.Create_Menu(Menu)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#if Java
|
||||||
|
public boolean _onCreateOptionsMenu(android.view.Menu menu) {
|
||||||
|
processBA.raiseEvent(null, "create_menu", menu);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
'Program code should go into B4XMainPage and other pages.
|
||||||
33
B4A/Guna_CK.b4a.meta
Normal file
33
B4A/Guna_CK.b4a.meta
Normal file
@@ -0,0 +1,33 @@
|
|||||||
|
ModuleBookmarks0=
|
||||||
|
ModuleBookmarks1=
|
||||||
|
ModuleBookmarks2=
|
||||||
|
ModuleBookmarks3=
|
||||||
|
ModuleBookmarks4=
|
||||||
|
ModuleBookmarks5=
|
||||||
|
ModuleBookmarks6=
|
||||||
|
ModuleBookmarks7=
|
||||||
|
ModuleBookmarks8=
|
||||||
|
ModuleBookmarks9=
|
||||||
|
ModuleBreakpoints0=
|
||||||
|
ModuleBreakpoints1=
|
||||||
|
ModuleBreakpoints2=
|
||||||
|
ModuleBreakpoints3=
|
||||||
|
ModuleBreakpoints4=
|
||||||
|
ModuleBreakpoints5=
|
||||||
|
ModuleBreakpoints6=
|
||||||
|
ModuleBreakpoints7=
|
||||||
|
ModuleBreakpoints8=
|
||||||
|
ModuleBreakpoints9=
|
||||||
|
ModuleClosedNodes0=
|
||||||
|
ModuleClosedNodes1=
|
||||||
|
ModuleClosedNodes2=
|
||||||
|
ModuleClosedNodes3=2
|
||||||
|
ModuleClosedNodes4=
|
||||||
|
ModuleClosedNodes5=
|
||||||
|
ModuleClosedNodes6=
|
||||||
|
ModuleClosedNodes7=
|
||||||
|
ModuleClosedNodes8=
|
||||||
|
ModuleClosedNodes9=
|
||||||
|
NavigationStack=B4XMainPage,Entrar_Click,131,0,C_Clientes,traeTodosAVisitar,535,0,B4XMainPage,Class_Globals,23,0,C_Principal,JoinStrings,327,0,C_Principal,Class_Globals,28,4,C_Principal,B4XPage_Appear,68,3,Diseñador Visual,principal.bal,-100,6,C_Principal,b_guardar_Click,308,6,C_Principal,JobDone,103,6,B4XMainPage,JobDone,163,2
|
||||||
|
SelectedBuild=0
|
||||||
|
VisibleModules=2,8,4,9,6,7,3
|
||||||
155
B4A/Starter.bas
Normal file
155
B4A/Starter.bas
Normal file
@@ -0,0 +1,155 @@
|
|||||||
|
B4A=true
|
||||||
|
Group=Default Group
|
||||||
|
ModulesStructureVersion=1
|
||||||
|
Type=Service
|
||||||
|
Version=9.85
|
||||||
|
@EndOfDesignText@
|
||||||
|
#Region Service Attributes
|
||||||
|
#StartAtBoot: False
|
||||||
|
#ExcludeFromLibrary: True
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Sub Process_Globals
|
||||||
|
'These global variables will be declared once when the application starts.
|
||||||
|
'These variables can be accessed from all modules.
|
||||||
|
Public rp As RuntimePermissions
|
||||||
|
' Public FLP As FusedLocationProvider
|
||||||
|
Private flpStarted As Boolean
|
||||||
|
Dim skmt As SQL
|
||||||
|
Dim ruta As String
|
||||||
|
' Private BTAdmin As BluetoothAdmin
|
||||||
|
Public BluetoothState As Boolean
|
||||||
|
Dim Timer1 As Timer
|
||||||
|
Dim Interval As Int = 300
|
||||||
|
'Para WebSockets
|
||||||
|
' Dim monitor As Timer 'Lo usamos para monitorear los servicios Tracker y PushService
|
||||||
|
' Dim monitorTicks As Int = 0
|
||||||
|
Dim trackerActividad As String = "501231235959"
|
||||||
|
Dim pushServiceActividad As String = "501231235959"
|
||||||
|
'Para los Logs
|
||||||
|
Private logs As StringBuilder
|
||||||
|
Private logcat As LogCat
|
||||||
|
Public SharedFolder As String 'Para actualizar apk
|
||||||
|
' Dim cedisLocation As Location
|
||||||
|
Dim reqManager As DBRequestManager
|
||||||
|
Dim server As String = "http://187.189.244.154:1782"
|
||||||
|
Dim muestraProgreso = 0
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Service_Create
|
||||||
|
'This is the program entry point.
|
||||||
|
'This is a good place to load resources that are not specific to a single activity.
|
||||||
|
ruta = File.DirInternal 'Ruta de la base de datos por defecto.
|
||||||
|
' If File.ExternalWritable Then ruta = rp.GetSafeDirDefaultExternal("") 'Si podemos escribir a la tarjeta, cambiamos la ruta.
|
||||||
|
If Not(File.Exists(ruta, "kmt.db")) Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") 'Si no existe el archivo de la base de datos, lo copiamos.
|
||||||
|
Log(ruta)
|
||||||
|
Log(File.DirAssets)
|
||||||
|
skmt.Initialize(ruta,"kmt.db", True)
|
||||||
|
' CallSubDelayed(PushService, "SubscribeToTopics")
|
||||||
|
' CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
|
||||||
|
' BTAdmin.Initialize("admin")
|
||||||
|
' If BTAdmin.IsEnabled = False Then
|
||||||
|
' If BTAdmin.Enable = False Then
|
||||||
|
' ToastMessageShow("Error enabling Bluetooth adapter.", True)
|
||||||
|
' Else
|
||||||
|
' ToastMessageShow("Enabling Bluetooth adapter...", False)
|
||||||
|
' End If
|
||||||
|
' Else
|
||||||
|
' BluetoothState = True
|
||||||
|
' End If
|
||||||
|
' reqManager.Initialize(Me, Main.server)
|
||||||
|
Timer1.Initialize("Timer1", Interval * 1000)
|
||||||
|
Timer1.Enabled = True
|
||||||
|
SharedFolder = rp.GetSafeDirDefaultExternal("")
|
||||||
|
' cedisLocation.Initialize
|
||||||
|
' cedisLocation.Latitude = "19.48118148992086"
|
||||||
|
' cedisLocation.Longitude = "-99.15295579261536"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Service_Start (StartingIntent As Intent)
|
||||||
|
Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
|
||||||
|
' StartService(PushService)
|
||||||
|
' monitor.Initialize("monitor", 30000)
|
||||||
|
' monitor.Enabled = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Service_TaskRemoved
|
||||||
|
'This event will be raised when the user removes the app from the recent apps list.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Return true to allow the OS default exceptions handler to handle the uncaught exception.
|
||||||
|
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
|
||||||
|
Return True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Service_Destroy
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Timer1_Tick
|
||||||
|
' ToastMessageShow("Timer",False)
|
||||||
|
' LogColor("Siguiente actualizacion " & DateTime.Time(DateTime.Now + Interval * 1000),Colors.Blue)
|
||||||
|
ENVIA_ULTIMA_GPS
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub ENVIA_ULTIMA_GPS
|
||||||
|
' If IsConnectedToInternet Then
|
||||||
|
' Log("Con internet, enviamos UTR!")
|
||||||
|
' Dim skmt As SQL
|
||||||
|
' Dim cmd As DBCommand
|
||||||
|
' Dim reqManager As DBRequestManager
|
||||||
|
' reqManager.Initialize(Me, server)
|
||||||
|
'' LogColor($"ReqServer = ${server}"$, Colors.red)
|
||||||
|
' skmt.Initialize(ruta,"kmt.db", True)
|
||||||
|
'' Log("server: "&Main.server)
|
||||||
|
' skmt.Initialize(ruta,"kmt.db", True)
|
||||||
|
' If B4XPages.MainPage.logger Then LogColor("Iniciamos ENVIA_ULTIMA_GPS", Colors.red)
|
||||||
|
' DateTime.TimeFormat = "HHmmss"
|
||||||
|
' B4XPages.MainPage.ultimaActualizacionGPS = DateTime.Time(DateTime.Now)
|
||||||
|
' cmd.Initialize
|
||||||
|
' cmd.Name = "select_fechat"
|
||||||
|
' reqManager.ExecuteQuery(cmd , 0, "fechat")
|
||||||
|
'
|
||||||
|
' Dim cmd As DBCommand
|
||||||
|
' cmd.Initialize
|
||||||
|
' cmd.Name = "UPDATE_MARDS_ACTUALR3_GPS"
|
||||||
|
' cmd.Parameters = Array As Object(B4XPages.MainPage.montoActual, B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesventa, B4XPages.MainPage.clientesvisitados, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, B4XPages.MainPage.batt, B4XPages.MainPage.montoRechazado, B4XPages.MainPage.montoEntregado, B4XPages.MainPage.clientestotal, B4XPages.MainPage.porVisitar, B4XPages.MainPage.entregas, B4XPages.MainPage.rechazos, Application.VersionName, B4XPages.MainPage.ALMACEN, B4XPages.MainPage.rutapreventa )
|
||||||
|
' If B4XPages.MainPage.logger Then Log($"montoActual: ${B4XPages.MainPage.montoActual}, cTotal: ${B4XPages.MainPage.clientestotal}, cVenta: ${B4XPages.MainPage.clientesventa}, cVisitados: ${B4XPages.MainPage.clientesvisitados}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}, Batt: ${B4XPages.MainPage.batt}, montoRechazado: ${B4XPages.MainPage.montoRechazado}, montoEntregado: ${B4XPages.MainPage.montoEntregado}, porVisitar: ${B4XPages.MainPage.porVisitar}, entregas: ${B4XPages.MainPage.entregas}, rechazos: ${B4XPages.MainPage.rechazos}, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${B4XPages.MainPage.rutapreventa}"$)
|
||||||
|
'
|
||||||
|
' reqManager.ExecuteCommand(cmd, "inst_visitas")
|
||||||
|
' skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
||||||
|
'
|
||||||
|
' 'Reiniciamos el timer para cuando llamamos el Sub desde otra actividad
|
||||||
|
' Timer1.Enabled = False
|
||||||
|
' Timer1.Interval = Interval * 1000
|
||||||
|
' Timer1.Enabled = True
|
||||||
|
' Else
|
||||||
|
' Log("Sin conexión a internet, no se envió UTR!")
|
||||||
|
' End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub IsConnectedToInternet As Boolean 'ignore
|
||||||
|
' Dim r As Reflector
|
||||||
|
' r.Target = r.GetContext
|
||||||
|
' r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
|
||||||
|
' r.Target = r.RunMethod("getActiveNetworkInfo")
|
||||||
|
' If r.Target <> Null Then
|
||||||
|
' Return r.RunMethod("isConnectedOrConnecting")
|
||||||
|
' End If
|
||||||
|
' Return False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub JobDone(Job As HttpJob)
|
||||||
|
' LogColor("starter jobdone", Colors.Red)
|
||||||
|
' Log(Job.ErrorMessage)
|
||||||
|
' Private r As DBResult = reqManager.HandleJob(Job)
|
||||||
|
If Job.Success = False Then
|
||||||
|
' LogColor("** " & Job.Tag & " Error: " & Job.ErrorMessage, Colors.Red) ' Mod by CHV - 211023
|
||||||
|
If Job.ErrorMessage.Contains("failed to connect") Or Job.ErrorMessage.Contains("Failed to connect") Then
|
||||||
|
ToastMessageShow("!Hubo un error contactando al servidor, por favor revise su conexión!", True)
|
||||||
|
End If
|
||||||
|
'ToastMessageShow("Error: " & Job.ErrorMessage, True)
|
||||||
|
Else
|
||||||
|
' LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211023
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
228
B4A/Subs.bas
Normal file
228
B4A/Subs.bas
Normal file
@@ -0,0 +1,228 @@
|
|||||||
|
B4A=true
|
||||||
|
Group=Default Group
|
||||||
|
ModulesStructureVersion=1
|
||||||
|
Type=StaticCode
|
||||||
|
Version=11
|
||||||
|
@EndOfDesignText@
|
||||||
|
'Code module
|
||||||
|
'Subs in this code module will be accessible from all modules.
|
||||||
|
Sub Process_Globals
|
||||||
|
'These global variables will be declared once when the application starts.
|
||||||
|
'These variables can be accessed from all modules.
|
||||||
|
' Public GZip As GZipStrings
|
||||||
|
Private su As StringUtils
|
||||||
|
Dim phn As Phone
|
||||||
|
Dim devModel As String
|
||||||
|
Dim kmt As SQL 'Requiere la libreria "SQL"
|
||||||
|
' Dim wifi As MLwifi
|
||||||
|
Dim ssid As String 'ignore
|
||||||
|
Dim rutaMaxPoints As Int = 3000
|
||||||
|
Dim rutaHrsAtras As Int = 48
|
||||||
|
' Dim rutaInicioHoy As String = ""
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Convierte una fecha al formato yyMMddHHmmss
|
||||||
|
Sub fechaKMT(fecha As String) As String 'ignore
|
||||||
|
' Log(fecha)
|
||||||
|
Dim OrigFormat As String = DateTime.DateFormat 'save orig date format
|
||||||
|
DateTime.DateFormat="yyMMddHHmmss"
|
||||||
|
Dim nuevaFecha As String=DateTime.Date(fecha)
|
||||||
|
DateTime.DateFormat=OrigFormat 'return to orig date format
|
||||||
|
' Log(nuevaFecha)
|
||||||
|
Return nuevaFecha
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Trae un string con hora, minutos y segundos - HHmmss
|
||||||
|
Sub hmsKMT As String 'ignore
|
||||||
|
' Log(fecha)
|
||||||
|
Dim OrigFormat As String = DateTime.DateFormat 'save orig date format
|
||||||
|
DateTime.DateFormat="HHmmss"
|
||||||
|
Private nuevaHora As String=DateTime.Date(DateTime.Now)
|
||||||
|
DateTime.DateFormat=OrigFormat 'return to orig date format
|
||||||
|
' Log(nuevaFecha)
|
||||||
|
Return nuevaHora
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Genera una notificacion con importancia alta
|
||||||
|
Sub notiHigh(title As String, body As String, activity As Object) 'ignore
|
||||||
|
Private notif As Notification
|
||||||
|
notif.Initialize2(notif.IMPORTANCE_HIGH)
|
||||||
|
notif.Icon = "icon"
|
||||||
|
notif.Vibrate = False
|
||||||
|
notif.Sound = False
|
||||||
|
notif.AutoCancel = True
|
||||||
|
Log("notiHigh: "&title)
|
||||||
|
notif.SetInfo(title, body, activity)
|
||||||
|
' Log("notiHigh SetInfo")
|
||||||
|
notif.Notify(777)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Regresa el objeto de una notificacion con importancia baja
|
||||||
|
Sub notiLowReturn(title As String, Body As String, id As Int) As Notification 'ignore
|
||||||
|
Private notification As Notification
|
||||||
|
notification.Initialize2(notification.IMPORTANCE_LOW)
|
||||||
|
Log("notiLowReturn: "&title)
|
||||||
|
notification.Icon = "icon"
|
||||||
|
notification.Sound = False
|
||||||
|
notification.Vibrate = False
|
||||||
|
notification.SetInfo(title, Body, Main)
|
||||||
|
notification.Notify(id)
|
||||||
|
' Log("notiLowReturn SetInfo")
|
||||||
|
Return notification
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Revisa que exista la BD y si es necesario crea algunas tablas dentro de ella
|
||||||
|
Sub revisaBD 'ignore
|
||||||
|
If Not(File.Exists(Starter.ruta, "kmt.db")) Then File.Copy(File.DirAssets, "kmt.db", Starter.ruta, "kmt.db")
|
||||||
|
If Not(kmt.IsInitialized) Then kmt.Initialize(Starter.ruta, "kmt.db", True)
|
||||||
|
' kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_GPS(FECHA INTEGER, LAT TEXT, LON TEXT)")
|
||||||
|
' kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS UUC(fecha INTEGER, lat TEXT, lon TEXT)") 'LastKnownLocation
|
||||||
|
' kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS bitacora(fecha INTEGER, texto TEXT)") 'Bitacora
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Regresa la fecha y hora de hoy a las 00:00 en el formato "yyMMddHHMMSS"
|
||||||
|
Sub fechaInicioHoy As String 'ignore
|
||||||
|
Dim OrigFormat As String = DateTime.DateFormat 'save orig date format
|
||||||
|
DateTime.DateFormat="yyMMdd"
|
||||||
|
Private h As String = DateTime.Date(DateTime.Now)&"000000"
|
||||||
|
DateTime.DateFormat=OrigFormat 'return to orig date format
|
||||||
|
Log("Hoy="&h)
|
||||||
|
Return h
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Regresa verdadero si ya pasaron XX minutos de la fecha dada
|
||||||
|
Sub masDeXXMins(hora As Int, mins As Int) As Boolean 'ignore
|
||||||
|
If (hora + mins * DateTime.TicksPerMinute) < DateTime.Now Then
|
||||||
|
Return True
|
||||||
|
Else
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Regresa verdadero si ya pasaron XX minutos de la fechaKMT dada
|
||||||
|
Sub masDeXXMinsKMT(hora As String, mins As Int) As Boolean 'ignore
|
||||||
|
Try
|
||||||
|
' LogColor($"Hora=${fechaKMT(fechaKMT2Ticks(hora) + mins * DateTime.TicksPerMinute)}, Mins=${mins}, Actual=${fechaKMT(DateTime.Now)}"$,Colors.red)
|
||||||
|
If fechaKMT2Ticks(hora) + mins * DateTime.TicksPerMinute < DateTime.Now Then
|
||||||
|
' Log("+++ +++ "&fechaKMT(fechaKMT2Ticks(hora) + mins * DateTime.TicksPerMinute) & " < " & fechaKMT(DateTime.Now))
|
||||||
|
Return True
|
||||||
|
Else
|
||||||
|
' Log("+++ +++ "&fechaKMT(fechaKMT2Ticks(hora) + mins * DateTime.TicksPerMinute) & " > " & fechaKMT(DateTime.Now))
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
Catch
|
||||||
|
Log(LastException)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Convierte una fecha en formato YYMMDDHHMMSS a Ticks
|
||||||
|
Sub fechaKMT2Ticks(fKMT As String) As Long 'ignore
|
||||||
|
Try
|
||||||
|
If fKMT.Length = 12 Then
|
||||||
|
Private parteFecha As String = fKMT.SubString2(0,6)
|
||||||
|
Private parteHora As String = fKMT.SubString(6)
|
||||||
|
Private OrigFormat As String = DateTime.DateFormat 'save original date format
|
||||||
|
DateTime.DateFormat="yyMMdd"
|
||||||
|
DateTime.TimeFormat="HHmmss"
|
||||||
|
Private ticks As Long = DateTime.DateTimeParse(parteFecha,parteHora)
|
||||||
|
' Log(" +++ +++ pFecha:"&parteFecha&" | pHora:"&parteHora)
|
||||||
|
DateTime.DateFormat=OrigFormat 'return to original date format
|
||||||
|
Return ticks
|
||||||
|
Else
|
||||||
|
Log("Formato de fecha incorrecto, debe de ser 'YYMMDDHHMMSS', no '"&fKMT&"' largo="&fKMT.Length)
|
||||||
|
Return 0
|
||||||
|
End If
|
||||||
|
Catch
|
||||||
|
Log(LastException)
|
||||||
|
LogColor($"Fecha dada: ${fKMT}, Parte Fecha: ${parteFecha}, Parte Hora: ${parteHora}"$, Colors.Red)
|
||||||
|
Return 0
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub InstallAPK(dir As String, apk As String) 'ignore
|
||||||
|
If File.Exists(dir, apk) Then
|
||||||
|
Dim i As Intent
|
||||||
|
i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(dir, apk))
|
||||||
|
i.SetType("application/vnd.android.package-archive")
|
||||||
|
StartActivity(i)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Hace visible el panel con los parametros "Top" y "Left" dados
|
||||||
|
Sub panelVisible(panel As Panel, top As Int, left As Int) 'ignore
|
||||||
|
panel.BringToFront
|
||||||
|
panel.Visible = True
|
||||||
|
panel.Top = top
|
||||||
|
panel.Left = left
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Saca el usuario de la tabla USUARIOA
|
||||||
|
Sub dameUsuarioDeDB As String 'ignore
|
||||||
|
Private c As Cursor
|
||||||
|
Private u As String = "SinUsuario"
|
||||||
|
If Not(kmt.IsInitialized) Then revisaBD
|
||||||
|
c=kmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
|
c.Position=0
|
||||||
|
If c.RowCount > 0 Then u = c.GetString("USUARIO")
|
||||||
|
c.Close
|
||||||
|
Return u
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub SetDivider(lv As ListView, Color As Int, Height As Int) 'ignore
|
||||||
|
Dim r As Reflector
|
||||||
|
r.Target = lv
|
||||||
|
Dim CD As ColorDrawable
|
||||||
|
CD.Initialize(Color, 0)
|
||||||
|
r.RunMethod4("setDivider", Array As Object(CD), Array As String("android.graphics.drawable.Drawable"))
|
||||||
|
r.RunMethod2("setDividerHeight", Height, "java.lang.int")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Centra un listview dentro de un elemento superior
|
||||||
|
Sub centraListView(elemento As ListView, anchoElementoSuperior As Int) 'ignore
|
||||||
|
elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Centra un panel dentro de un elemento superior
|
||||||
|
Sub centraPanel(elemento As Panel, anchoElementoSuperior As Int) 'ignore
|
||||||
|
elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Centra una etiqueta dentro de un elemento superior
|
||||||
|
Sub centraEtiqueta(elemento As Label, anchoElementoSuperior As Int) 'ignore
|
||||||
|
elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Centra un boton dentro de un elemento superior
|
||||||
|
Sub centraBoton(elemento As Button, anchoElementoSuperior As Int) 'ignore
|
||||||
|
elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Trae el cliente desde la BD.
|
||||||
|
Sub traeCliente As String 'ignore
|
||||||
|
Private cli As Cursor = Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
|
cli.Position = 0
|
||||||
|
Private cl As String = cli.GetString("CUENTA")
|
||||||
|
cli.Close
|
||||||
|
Return cl
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Agrega una columna a la tabla especificada.
|
||||||
|
'Hay que indicar el "tipo" de la columna (TEXT, INTEGER, ETC)
|
||||||
|
'Ej. agregaColumna("TABLA", "COLUMNA", "TIPO")
|
||||||
|
Sub agregaColumna(tabla As String, columna As String, tipo As String)
|
||||||
|
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna en la tabla
|
||||||
|
Private c As Cursor = Starter.skmt.ExecQuery($"SELECT COUNT(*) AS fCol FROM pragma_table_info('${tabla}') WHERE name='${columna}'"$)
|
||||||
|
c.Position = 0
|
||||||
|
If c.GetString("fCol") = 0 Then 'Si no esta la columna la agregamos
|
||||||
|
Starter.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
|
||||||
|
Log($"Columna "${columna} ${tipo}", agregada a "${tabla}"."$)
|
||||||
|
End If
|
||||||
|
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
||||||
|
Try
|
||||||
|
Starter.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
|
||||||
|
Log($"Columna "${columna} ${tipo}", agregada a "${tabla}".."$)
|
||||||
|
Catch
|
||||||
|
Log(LastException)
|
||||||
|
End Try
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
284
B4A/appUpdater.bas
Normal file
284
B4A/appUpdater.bas
Normal file
@@ -0,0 +1,284 @@
|
|||||||
|
B4A=true
|
||||||
|
Group=Default Group
|
||||||
|
ModulesStructureVersion=1
|
||||||
|
Type=Service
|
||||||
|
Version=10.2
|
||||||
|
@EndOfDesignText@
|
||||||
|
#Region Service Attributes
|
||||||
|
#StartAtBoot: False
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
'////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
'//// Servicio para revisar si hay actualizacion de aplicación, usa la
|
||||||
|
'//// actividad "updateAvailable" para mostrar mensajes.
|
||||||
|
'////
|
||||||
|
'//// https://www.b4x.com/android/forum/threads/update-your-app-without-using-the-gplaystore.109720/#content
|
||||||
|
'////
|
||||||
|
'//// En la actividad del la cual se va a llamar la revision de actualizacion
|
||||||
|
'//// hay que agregar los siguientes Subs:
|
||||||
|
'////
|
||||||
|
' Sub boton_que_llama_revision_Click
|
||||||
|
' StartService(appUpdater)
|
||||||
|
' End Sub
|
||||||
|
'
|
||||||
|
' appUpdater - Mostramos el anuncio de que se esta descargando el nuevo apk
|
||||||
|
' Sub muestraProgreso
|
||||||
|
' ProgressDialogShow("Descargando actualización")
|
||||||
|
' End Sub
|
||||||
|
'
|
||||||
|
' appUpdater - Ocultamos el anuncio de que se esta descargando el nuevo apk
|
||||||
|
' Sub ocultaProgreso
|
||||||
|
' ProgressDialogHide
|
||||||
|
' End Sub
|
||||||
|
'////
|
||||||
|
'//// Requiere las siguientes librerias:
|
||||||
|
'////
|
||||||
|
'//// * appUpdating
|
||||||
|
'//// * JavaObject
|
||||||
|
'//// * OkHttpUtils2
|
||||||
|
'//// * Phone
|
||||||
|
'//// * RuntimePermissions
|
||||||
|
'////
|
||||||
|
'//// Requiere las siguientes lineas en el manifiesto:
|
||||||
|
'////
|
||||||
|
' AddManifestText(<uses-permission
|
||||||
|
' android:name="android.permission.WRITE_EXTERNAL_STORAGE"
|
||||||
|
' android:maxSdkVersion="18" />
|
||||||
|
' )
|
||||||
|
' AddApplicationText(
|
||||||
|
' <provider
|
||||||
|
' android:name="android.support.v4.content.FileProvider"
|
||||||
|
' android:authorities="$PACKAGE$.provider"
|
||||||
|
' android:exported="false"
|
||||||
|
' android:grantUriPermissions="true">
|
||||||
|
' <meta-data
|
||||||
|
' android:name="android.support.FILE_PROVIDER_PATHS"
|
||||||
|
' android:resource="@xml/provider_paths"/>
|
||||||
|
' </provider>
|
||||||
|
' )
|
||||||
|
' CreateResource(xml, provider_paths,
|
||||||
|
' <paths>
|
||||||
|
' <external-files-path name="name" path="" />
|
||||||
|
' <files-path name="name" path="" />
|
||||||
|
' <files-path name="name" path="shared" />
|
||||||
|
' </paths>
|
||||||
|
' )
|
||||||
|
' AddPermission(android.permission.REQUEST_INSTALL_PACKAGES)
|
||||||
|
' AddPermission(android.permission.INTERNET)
|
||||||
|
' AddPermission(android.permission.INSTALL_PACKAGES)
|
||||||
|
' AddPermission(android.permission.READ_EXTERNAL_STORAGE)
|
||||||
|
' AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)
|
||||||
|
' AddPermission(android.permission.READ_PHONE_STATE)
|
||||||
|
' AddPermission(android.permission.WAKE_LOCK)
|
||||||
|
'////
|
||||||
|
'////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
Sub Process_Globals
|
||||||
|
'These global variables will be declared once when the application starts.
|
||||||
|
'These variables can be accessed from all modules.
|
||||||
|
|
||||||
|
'Aqui va la liga al archivo .ver en el servidor que contiene la información de la aplicacion
|
||||||
|
Public lnk As String = "https://keymon.lat/movil/mariana/mariana_reparto.ver"
|
||||||
|
|
||||||
|
'/// En el servidor se necesita un archivo de texto (.ver) que tenga los siguientes
|
||||||
|
'/// datos separados por un tabulador
|
||||||
|
'/// contents of ver file, each field is seperated by a tab
|
||||||
|
' Field 0 = 2.226.19.09.19.01a <-- Esta es la version de la aplicación disponible
|
||||||
|
' Field 1 = A new version of the MyAPP is available, Download and update now ? <-- Mensaje para cuando hay actualización
|
||||||
|
' Field 2 = MyApp is up to date <--- Mensaje para cuando no hay actualización
|
||||||
|
' Field 3 = http://www.mydomain.com/Public/myapp.apk <--- Liga al apk de la actualización
|
||||||
|
|
||||||
|
Public nNewApp As Notification
|
||||||
|
Public nNewAppnID As Int = 16
|
||||||
|
'Para Download
|
||||||
|
Dim nativeMe As JavaObject
|
||||||
|
Dim n2 As Notification
|
||||||
|
Dim n2ID As Int = 16
|
||||||
|
'Para fileProvider
|
||||||
|
Public SharedFolder As String
|
||||||
|
Public UseFileProvider As Boolean
|
||||||
|
Private rp As RuntimePermissions
|
||||||
|
|
||||||
|
Type mNewVersion(update As Boolean, nonewAPP As Boolean, notifyUser As Boolean, _
|
||||||
|
version As String, newMsg As String, okMsg As String, appLink As String)
|
||||||
|
Public newApp As mNewVersion
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Service_Create
|
||||||
|
Log("appUpdater(), Service_Create")
|
||||||
|
newApp.Initialize
|
||||||
|
Service.AutomaticForegroundMode = Service.AUTOMATIC_FOREGROUND_NEVER
|
||||||
|
n2.Initialize
|
||||||
|
nativeMe.InitializeContext
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Service_Start (StartingIntent As Intent)
|
||||||
|
Log("appUpdater(), Service_Start")
|
||||||
|
' CallSubDelayed2(Main, "muestraProgreso", "Buscando actualización")
|
||||||
|
B4XPages.MainPage.muestraProgreso("Buscando actualización")
|
||||||
|
Log("Buscando actualización")
|
||||||
|
fileProvider_init
|
||||||
|
Wait For (Download(Me, lnk)) JobDone (j As HttpJob)
|
||||||
|
If j.Success Then
|
||||||
|
Try
|
||||||
|
Dim app() As String = Regex.Split(Chr(9),j.GetString)
|
||||||
|
' // Set the data
|
||||||
|
newApp.appLink = app(3) 'Liga a nueva app
|
||||||
|
newApp.newMsg = app(1) 'Texto de que hay actualizacion
|
||||||
|
newApp.okMsg = app(2) 'Texto de app al corriente
|
||||||
|
newApp.version = app(0) 'Version actual
|
||||||
|
|
||||||
|
Log($"Application.VersionName=${Application.VersionName}, newApp=${newApp}"$)
|
||||||
|
|
||||||
|
' // App version check
|
||||||
|
If newApp.version = Application.VersionName Then
|
||||||
|
newApp.update = False
|
||||||
|
Log("No new app")
|
||||||
|
B4XPages.ShowPage("updateAvailable")
|
||||||
|
'Se puede mandar tambien una notificacion avisando que NO hay actualizaciones
|
||||||
|
CreateNotification2("Aplicacion al corriente","No hay actualizaciones disponibles","ic_file_download_white_24dp",Main,True,True,nNewApp,nNewAppnID)
|
||||||
|
End If
|
||||||
|
If newApp.version <> Application.VersionName Then
|
||||||
|
newApp.update = True
|
||||||
|
Log("New app true")
|
||||||
|
B4XPages.ShowPage("updateAvailable")
|
||||||
|
'Se puede mandar tambien una notificacion avisando que hay actualizacion disponible
|
||||||
|
' CreateNotification2("Nueva aplicación disponible","Haga clic para descargar.","ic_file_download_white_24dp",C_UpdateAvailable,True,True,nNewApp,nNewAppnID)
|
||||||
|
End If
|
||||||
|
Catch
|
||||||
|
Log("appUpdater(), Job Failed, error " & LastException.Message)
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
Log("appUpdater(), Job Failed " & lnk)
|
||||||
|
End If
|
||||||
|
j.Release
|
||||||
|
' StopService(Me)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub download_Start (StartingIntent As Intent)
|
||||||
|
download_newApk
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub download_newApk
|
||||||
|
' CreateNotification("Descargando actualización", "Descargando apk", "ic_file_download_white_24dp", Main, False, True)
|
||||||
|
' CallSubDelayed2(Main, "muestraProgreso", "Descargando actualización")
|
||||||
|
Log("Descargando actualización")
|
||||||
|
B4XPages.ShowPage("login")
|
||||||
|
B4XPages.MainPage.muestraProgreso("Descargando actualización")
|
||||||
|
Starter.muestraProgreso = 1
|
||||||
|
Dim job_newAPP As HttpJob
|
||||||
|
job_newAPP.Initialize("job_newAPP",Me)
|
||||||
|
job_newAPP.Download(newApp.appLink)
|
||||||
|
Wait for (job_newAPP) JobDone (job_newAPP As HttpJob)
|
||||||
|
If job_newAPP.Success = True Then
|
||||||
|
' // Delete existing file
|
||||||
|
If File.Exists(SharedFolder,"newapp.apk") Then
|
||||||
|
File.Delete(SharedFolder,"newapp.apk")
|
||||||
|
End If
|
||||||
|
' // Save new file
|
||||||
|
Dim outNewAPK As OutputStream = File.OpenOutput(SharedFolder,"newapp.apk", False)
|
||||||
|
File.Copy2(job_newAPP.GetInputStream, outNewAPK)
|
||||||
|
outNewAPK.Close
|
||||||
|
' If Starter.Logger Then Log("APK dir: "&SharedFolder)
|
||||||
|
B4XPages.MainPage.ocultaProgreso
|
||||||
|
Log("ocultamos prigreso DOWNLOAD APK")
|
||||||
|
End If
|
||||||
|
job_newAPP.Release
|
||||||
|
' // Install the app
|
||||||
|
Dim in As Intent
|
||||||
|
in.Initialize(in.ACTION_VIEW,"" )
|
||||||
|
SetFileUriAsIntentData(in, "newapp.apk")
|
||||||
|
' // Type must be set after calling SetFileUriAsIntentData
|
||||||
|
in.SetType("application/vnd.android.package-archive")
|
||||||
|
StartActivity(in)
|
||||||
|
n2.Cancel(nNewAppnID)
|
||||||
|
' Service.StopForeground(nNewAppnID)
|
||||||
|
StopService(Me)
|
||||||
|
' CallSubDelayed(Main,"ocultaProgreso")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub download_Destroy
|
||||||
|
n2.Cancel(n2ID)
|
||||||
|
Service.StopForeground(n2ID)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Download (Callback As Object, link As String) As HttpJob
|
||||||
|
Dim j As HttpJob
|
||||||
|
j.Initialize("", Callback)
|
||||||
|
j.Download(link)
|
||||||
|
Return j
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CreateNotification2(Title As String, Content As String, _ 'ignore
|
||||||
|
Icon As String, TargetActivity As Object, Sound As Boolean, _
|
||||||
|
Vibrate As Boolean, pN As Notification,pNID As Int) As Notification
|
||||||
|
pN.Initialize2(pN.IMPORTANCE_HIGH)
|
||||||
|
' pN.Number = pNID
|
||||||
|
' pN.Light = False
|
||||||
|
pN.Vibrate = Vibrate
|
||||||
|
pN.Sound = Sound
|
||||||
|
' pN.OnGoingEvent = False
|
||||||
|
pN.Icon = Icon
|
||||||
|
pN.AutoCancel = True
|
||||||
|
pN.SetInfo(Title, Content, TargetActivity)
|
||||||
|
pN.Notify(pNID)
|
||||||
|
Return pN
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CreateNotification(Title As String, Content As String, Icon As String, TargetActivity As Object, Sound As Boolean, Vibrate As Boolean) As Notification 'ignore
|
||||||
|
n2.Initialize
|
||||||
|
n2.Light = False
|
||||||
|
n2.Vibrate = Vibrate
|
||||||
|
n2.Sound = Sound
|
||||||
|
n2.OnGoingEvent = True
|
||||||
|
n2.Icon = Icon
|
||||||
|
n2.SetInfo(Title, Content, TargetActivity)
|
||||||
|
n2.Notify(nNewAppnID)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Service_Destroy
|
||||||
|
Log("appUpdater(), Service_Destroy")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub fileProvider_init
|
||||||
|
Dim p As Phone
|
||||||
|
If p.SdkVersion >= 24 Or File.ExternalWritable = False Then
|
||||||
|
UseFileProvider = True
|
||||||
|
SharedFolder = File.Combine(File.DirInternal, "shared")
|
||||||
|
If Not(File.IsDirectory(File.DirInternal,"shared")) Then
|
||||||
|
File.MakeDir("", SharedFolder)
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
UseFileProvider = False
|
||||||
|
SharedFolder = rp.GetSafeDirDefaultExternal("shared")
|
||||||
|
End If
|
||||||
|
Log($"Using FileProvider? - ${UseFileProvider}"$)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Returns the file uri.
|
||||||
|
Sub GetFileUri (FileName As String) As Object
|
||||||
|
Try
|
||||||
|
If Not(UseFileProvider) Then
|
||||||
|
Dim uri As JavaObject
|
||||||
|
Return uri.InitializeStatic("android.net.Uri").RunMethod("parse", Array("file://" & File.Combine(SharedFolder, FileName)))
|
||||||
|
End If
|
||||||
|
Dim f As JavaObject
|
||||||
|
f.InitializeNewInstance("java.io.File", Array(SharedFolder, FileName))
|
||||||
|
Dim fp As JavaObject
|
||||||
|
Dim context As JavaObject
|
||||||
|
context.InitializeContext
|
||||||
|
fp.InitializeStatic("android.support.v4.content.FileProvider")
|
||||||
|
Return fp.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))
|
||||||
|
Catch
|
||||||
|
Log("FileProvider::GetFileUri - error - " & LastException.Message)
|
||||||
|
Return ""
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Replaces the intent Data field with the file uri.
|
||||||
|
'Resets the type field. Make sure to call Intent.SetType after calling this method
|
||||||
|
Sub SetFileUriAsIntentData (Intent As Intent, FileName As String)
|
||||||
|
Dim jo As JavaObject = Intent
|
||||||
|
jo.RunMethod("setData", Array(GetFileUri(FileName)))
|
||||||
|
Intent.Flags = Bit.Or(Intent.Flags, 1) 'FLAG_GRANT_READ_URI_PERMISSION
|
||||||
|
End Sub
|
||||||
Reference in New Issue
Block a user