mirror of
https://github.com/KeymonSoft/Mariana.git
synced 2026-04-17 21:06:16 +00:00
Jose Alberto Guerra Ugalde
a5280c4d43
- Cambio de 50 segundos a 10 segundos en la revision de la hora para los recordatorios. - Cambio en el envio de la ruta para la contraseña de la geocerca, si no habia cliente seleccionado, no regresaba la ruta correcta.
950 lines
38 KiB
QBasic
950 lines
38 KiB
QBasic
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
|
|
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
|
|
'###########################################################################################################
|
|
'###################### 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 ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
|
|
|
|
Sub Class_Globals
|
|
Private Root As B4XView
|
|
Private xui As XUI
|
|
' Dim ks As kms_helperSubs
|
|
Public login As B4XMainPage
|
|
Public principal As C_Principal
|
|
Public clientes As C_Clientes
|
|
Public cliente As C_Cliente
|
|
Public productos As C_Productos
|
|
Public updateAvailable As C_UpdateAvailable
|
|
Public mapas As C_Mapas
|
|
Public nuevoCliente As C_NuevoCliente
|
|
Public ticketsDia As C_TicketsDia
|
|
Public noVenta As C_NoVenta
|
|
Public nota As C_Nota
|
|
Public pedidos As C_Pedidos
|
|
Public promos As C_Promos
|
|
Public historico As C_Historico
|
|
|
|
Dim reqManager As DBRequestManager
|
|
Dim s As C_Subs
|
|
Dim v As String = Application.VersionName
|
|
Dim ruta As String
|
|
Dim tgl As Toggle
|
|
Dim lat_gps, lon_gps As String
|
|
Dim usuario As String
|
|
Dim batt As Int
|
|
' Dim Starter.skmt As SQL
|
|
Dim montoActual, clientesTotal, clientesVenta, clientesVisitados,almacen, rutaPreventa As String
|
|
Dim DBReqServer, fechaRuta As String
|
|
Dim Logger As Boolean
|
|
Dim mac_impresora As String
|
|
Dim Phn As PhoneId
|
|
|
|
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 = ""
|
|
Dim alterno As String
|
|
Private b_menu As Button
|
|
' Dim PopupMenu As RSPopupMenu
|
|
Dim cmd As DBCommand
|
|
Private PDF As Button
|
|
Private bpv1 As BatteryProgressView
|
|
Dim batterystatus(11) As Int
|
|
Private bu As BatteryUtilities
|
|
Private b_apk As Button
|
|
Private i_engrane As ImageView
|
|
Private p_Main As Panel
|
|
Private p_appUpdate As Panel
|
|
Private b_regesar As Button
|
|
Private l_version As Label
|
|
Private ImageView1 As ImageView
|
|
Private Label2 As Label
|
|
Private Entrar As Button
|
|
Dim tipo_venta As String
|
|
Dim bTerminarClicked As Boolean = False
|
|
Private lv_server As ListView
|
|
Private l_server As Label
|
|
Dim et_server As EditText
|
|
Private b_server As Button
|
|
Private b_envioBD As Button
|
|
Public Provider As FileProvider
|
|
Public rutaBDBackup As String = ""
|
|
Dim MES1 As ManageExternalStorage
|
|
Dim device As Phone
|
|
Private b_importarBD As Button
|
|
Private p_importarBDWA As Panel
|
|
Dim cb_importarBDWA As CheckBox
|
|
Private cb_geocerca As CheckBox
|
|
Private passSupervisor As String = ""
|
|
Private p_transparente As Panel
|
|
Private p_passGeocerca As Panel
|
|
Private et_passGeocerca As EditText
|
|
Private b_passGeocerca As Button
|
|
Private l_geocerca As Label
|
|
Private ime As IME
|
|
Dim latAlmacen As String = "0"
|
|
Dim lonAlmacen As String = "0"
|
|
Dim pantallaActual As B4XView
|
|
Dim recordatorio As C_Recordatorio
|
|
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)
|
|
B4XPages.GetManager.LogEvents = True
|
|
Root = Root1
|
|
Root.LoadLayout("login")
|
|
recordatorio.Initialize(Root)
|
|
s.Initialize(Me, "Subs")
|
|
B4XPages.SetTitle(Me, "Mariana Preventa")
|
|
login.Initialize
|
|
B4XPages.AddPage("Login", login)
|
|
principal.Initialize
|
|
B4XPages.AddPage("Principal", principal)
|
|
clientes.Initialize
|
|
B4XPages.AddPage("Clientes", clientes)
|
|
cliente.Initialize
|
|
B4XPages.AddPage("Cliente", cliente)
|
|
productos.Initialize
|
|
B4XPages.AddPage("Productos", productos)
|
|
updateAvailable.Initialize
|
|
B4XPages.AddPage("updateAvailable", updateAvailable)
|
|
mapas.Initialize
|
|
B4XPages.AddPage("Mapas", mapas)
|
|
nuevoCliente.Initialize
|
|
B4XPages.AddPage("NuevoCliente", nuevoCliente)
|
|
ticketsDia.Initialize
|
|
B4XPages.AddPage("TicketsDia", ticketsDia)
|
|
noVenta.Initialize
|
|
B4XPages.AddPage("NoVenta", noVenta)
|
|
nota.Initialize
|
|
B4XPages.AddPage("Nota", nota)
|
|
pedidos.Initialize
|
|
B4XPages.AddPage("Pedidos", pedidos)
|
|
promos.Initialize
|
|
B4XPages.AddPage("Promos", promos)
|
|
historico.Initialize
|
|
B4XPages.AddPage("Historico", historico)
|
|
ruta = Starter.ruta
|
|
|
|
' Dim px As B4XView = xui.CreatePanel("")
|
|
' px.SetLayoutAnimated(0, 500, 30, 200dip, 45dip)
|
|
' px.Color = Colors.Cyan
|
|
' Dim tf As Label
|
|
' tf.Initialize("")
|
|
' tf.TextSize = 20
|
|
' tf.Color = Colors.gray
|
|
' tf.Gravity = Gravity.CENTER_VERTICAL
|
|
' tf.Text = "Hola"
|
|
' px.AddView(tf, 0, 0, px.Width - 10dip, px.Height)
|
|
' B4XPages.GetManager.ActionBar.RunMethod("setCustomView", Array(px))
|
|
' B4XPages.GetManager.ActionBar.RunMethod("setDisplayOptions", Array(16, 16))
|
|
|
|
Provider.Initialize
|
|
' Subs.borraArribaDe100Errores ' Para Websockets
|
|
' Subs.borraArribaDe600RenglonesBitacora ' Para Websockets
|
|
If File.Exists(ruta, "kmt.db") = False Then
|
|
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
|
Log(File.DirAssets)
|
|
LogColor("copiamos kmt.db de "&File.DirAssets & " a " & ruta,Colors.Green)
|
|
End If
|
|
' Log(ruta)
|
|
' Starter.skmt.Initialize(ruta,"kmt.db", True)
|
|
s.guardaAppInfo(Starter.skmt)
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GPS (HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_STORE (HSS_CODIGO TEXT, HSS_IN TEXT, HSS_OUT TEXT, HSS_TOT TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_OUT (HSO_INI TEXT, HSO_FIN TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS INVENT_X_ENVIAR (ALMACEN TEXT, PROID TEXT, CANTIDAD TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_RESUM_APK (HIST_RA_OBJMES TEXT, HIST_RA_VENTA TEXT, HIST_RA_TENDENCIA TEXT, HIST_RA_ALCANCE TEXT, HISR_RA_DRAOBJ TEXT, HIST_RA_DRAVTA TEXT, HIST_RA_DSOBJ TEXT, HIST_RA_DSVTA TEXT, HIST_RA_VPOOBJ TEXT, HIST_RA_VPOVTA TEXT, HIST_RA_COBCCC TEXT, HIST_RA_CTES TEXT, HIST_RA_ECO TEXT, HIST_RA_VISITPLAN TEXT, HIST_RA_VISIREAL TEXT, HIST_RA_COBVISIT TEXT, HIST_RA_FRECCOMPOBJ TEXT, HIST_RA_FRECCOMREAL TEXT, HIST_RA_VENTAMES1 TEXT, HIST_RA_VENTAMES2 TEXT, HIST_RA_VENTAMES3 TEXT, HIST_RA_VENTAMES4 TEXT, HIST_RA_RECHAZO TEXT, HIST_RA_RECHAZOPORCEN TEXT, HIST_RA_SEMANA1 TEXT, HIST_RA_SEMANA1_DIAS TEXT, HIST_RA_SEMANA1_DRA TEXT, HIST_RA_SEMANA2 TEXT, HIST_RA_SEMANA2_DIAS TEXT, HIST_RA_SEMANA2_DRA TEXT, HIST_RA_SEMANA3 TEXT, HIST_RA_SEMANA3_DIAS TEXT, HIST_RA_SEMANA4 TEXT, HIST_RA_SEMANA3_DRA TEXT, HIST_RA_SEMANA4_DIAS TEXT, HIST_RA_SEMANA4_DRA TEXT, HIST_RA_SEMANA5 TEXT, HIST_RA_SEMANA5_DIAS TEXT, HIST_RA_SEMANA5_DRA TEXT, HIST_RA_SEMANA1_LPT TEXT, HIST_RA_SEMANA2_LPT TEXT, HIST_RA_SEMANA3_LPT TEXT, HIST_RA_SEMANA4_LPT TEXT, HIST_RA_SEMANA5_LPT TEXT, HIST_RA_RUTA TEXT, HIST_RA_IDALMACEN TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_COMISIONES_MOVIL (HCM_IDALMACEN TEXT, HCM_RUTA TEXT, HCM_TOTAL_V TEXT, HCM_TOTAL_VIVE TEXT, HCM_TOTAL_GUNA TEXT, HCM_TOTAL_BEB TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GEOCERCA (HGCLIENTE TEXT, HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FACE (HFCLIENTE TEXT, HFALIAS TEXT, HFRUTA TEXT, HFALMACEN TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_GPS(FECHA INTEGER, LAT TEXT, LON TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE VIEW IF NOT EXISTS CATALOGO AS Select CAT_GP_CLASIF, CAT_GP_ID FROM CAT_GUNAPROD UNION Select CAT_GP_CLASIF, CAT_GP_ID FROM CAT_GUNAPROD GROUP BY CAT_GP_CLASIF, CAT_GP_ID")
|
|
Starter.skmt.ExecNonQuery("CREATE VIEW IF NOT EXISTS total_marcas AS Select cat_gp_clasif, sum(pe_costo_tot) As total from CATALOGO, pedido where pe_proid = cat_gp_id And pe_cliente <> 0 group by cat_gp_clasif")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_MARCAS_CUOTAS (HMC_MARCA TEXT, HMC_TOTAL TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CODIGO_BARRAS(CODIGOKMTS TEXT, CODIGOB TEXT, LAT TEXT, LON TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOS (a_usuario TEXT, a_ruta TEXT, a_cliente TEXT, a_abono TEXT, a_fecha TEXT, a_enviado TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GIRO(GIRO TEXT)")
|
|
' Starter.skmt.ExecNonQuery("drop table kmt_info")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS kmt_info (CAT_CL_FOTO BLOB, CAT_CL_NUM_SERIEFISICO TEXT, CAT_CL_MTOCOMPRA TEXT, CAT_CL_CEDIS TEXT, CAT_CL_LAT TEXT, CAT_CL_LONG TEXT, CAT_CL_FBAJA TEXT, CAT_CL_FALTA TEXT, CAT_CL_CP TEXT, CAT_CL_EDO TEXT, CAT_CL_MUNI TEXT, CAT_CL_COLONIA TEXT, CAT_CL_CALLE2 TEXT, CAT_CL_CALLE1 TEXT, CAT_CL_NOINT TEXT, CAT_CL_NOEXT TEXT, CAT_CL_CALLE TEXT, CAT_CL_EMAIL TEXT, CAT_CL_TELEFONO TEXT, CAT_CL_ATIENTE2 TEXT, CAT_CL_ATIENDE1 TEXT, CAT_CL_NOMBRE TEXT, CAT_CL_GIRO TEXT, CAT_CL_DIAS_VISITA TEXT, CAT_CL_TIPO_RUTA TEXT, CAT_CL_RUTA TEXT, CAT_CL_CODIGO TEXT, gestion NUMERIC, CAT_CL_DIASEMANA TEXT, CAT_CL_SECUENCIA INT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS VENDIDOS(ID TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PROMOS_RUTA (CPR_IDALMACEN TEXT, CPR_RUTA TEXT, CPR_PROMO TEXT, CPR_CANT INT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PEDIDOS_YALO (PY_TICKET TEXT, PY_IDCLIENTE TEXT, PY_PRODID TEXT, PY_PRODNOMBRE TEXT, PY_MARCANOMBRE TEXT, PY_COSTO_TOT TEXT, PY_CANT TEXT, PY_FECHA TEXT)")
|
|
|
|
Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "TEXT")
|
|
Subs.agregaColumna("HIST_CLIENTE_CANT_PROMOS", "HCCP_CANT_VENDIDA", "TEXT")
|
|
|
|
|
|
'Revisamos si se disparo el intent de cargar la base de datos desde WhatApp.
|
|
If s.traeUsarIntentBDWA Then s.importaBDDesdeWhatsApp
|
|
|
|
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "CAT_CL_DIASEMANA" en la tabla
|
|
c=Starter.skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='CAT_CL_DIASEMANA'")
|
|
c.Position = 0
|
|
If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos
|
|
Starter.skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_DIASEMANA TEXT")
|
|
End If
|
|
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
|
Try
|
|
Starter.skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_DIASEMANA TEXT")
|
|
Catch
|
|
Log(LastException)
|
|
End Try
|
|
End Try
|
|
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "CAT_GP_TIPOPROD2" en la tabla
|
|
c=Starter.skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('CAT_GUNAPROD') WHERE name='CAT_GP_TIPOPROD2'")
|
|
c.Position = 0
|
|
If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos
|
|
Starter.skmt.ExecNonQuery("ALTER TABLE CAT_GUNAPROD ADD COLUMN CAT_GP_TIPOPROD2 TEXT")
|
|
End If
|
|
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
|
Try
|
|
Starter.skmt.ExecNonQuery("ALTER TABLE CAT_GUNAPROD ADD COLUMN CAT_GP_TIPOPROD2 TEXT")
|
|
Catch
|
|
Log(LastException)
|
|
End Try
|
|
End Try
|
|
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "CAT_CL_SECUENCIA" en la tabla
|
|
c=Starter.skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='CAT_CL_SECUENCIA'")
|
|
c.Position = 0
|
|
If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos
|
|
Starter.skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_SECUENCIA INT")
|
|
End If
|
|
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
|
Try
|
|
Starter.skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_SECUENCIA INT")
|
|
Catch
|
|
Log(LastException)
|
|
End Try
|
|
End Try
|
|
c=Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
|
|
C.Position = 0
|
|
If c.GetString("CUANTOS") = 0 Then
|
|
Starter.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
|
|
End If
|
|
C.Close
|
|
l_version.Text = Application.VersionName
|
|
montoActual = 0
|
|
clientesTotal = 0
|
|
clientesVenta = 0
|
|
clientesVisitados = 0
|
|
almacen = 0
|
|
rutaPreventa = 0
|
|
p_appUpdate.Visible = False
|
|
|
|
LogColor("Revisa permisos Phone_State", Colors.Green)
|
|
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
|
|
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
|
|
If Result Then
|
|
Log("Con permisos de ubicacion")
|
|
Else
|
|
Log("SIN permisos de ubicacion")
|
|
End If
|
|
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
|
|
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
|
|
If Result Then
|
|
' IMEN.Text = Phn.GetDeviceId
|
|
' IMEI = Phn.GetDeviceId
|
|
' LogColor($"////////////////// IMEI: ${IMEI} ////////////////// "$, Colors.Blue)
|
|
' IMEI="" 'Pruebas
|
|
End If
|
|
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
|
|
' Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
|
|
' If Result Then
|
|
' StartService(Tracker)
|
|
'' Log("Start Tracker")
|
|
' Else
|
|
' ToastMessageShow("No permission", True)
|
|
' End If
|
|
p_appUpdate.Visible = False
|
|
MES1.Initialize(Me, "MES1")
|
|
' get the device SDK version
|
|
Dim SdkVersion As Int = device.SdkVersion
|
|
' Choose which permission to request in order to access external storgage
|
|
If SdkVersion < 30 Then
|
|
' Log("SDK = " & SdkVersion & " : Requesting WRITE_EXTERNAL_STORAGE permission")
|
|
Dim rp As RuntimePermissions
|
|
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Implicit read capability if granted
|
|
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
|
|
' Log($"PERMISSION_WRITE_EXTERNAL_STORAGE = ${Result}"$)
|
|
Else
|
|
' Log("SDK = " & SdkVersion & " : Requesting MANAGE_EXTERNAL_STORAGE permission")
|
|
' Log("On Entry MANAGE_EXTERNAL_STORAGE = " & MES1.HasPermission)
|
|
If Not(MES1.HasPermission) Then
|
|
MsgboxAsync("This app requires access to all files, please enable the option", "Manage All Files")
|
|
Wait For Msgbox_Result(Res As Int)
|
|
' Log("Getting permission")
|
|
MES1.GetPermission
|
|
Wait For MES_StorageAvailable
|
|
End If
|
|
End If
|
|
p_transparente.Left = 0 : p_transparente.top = 0
|
|
p_transparente.Width = Root.Width : p_transparente.Height = Root.Height
|
|
Subs.centraPanel(p_passGeocerca, Root.Width)
|
|
End Sub
|
|
|
|
Sub B4XPage_Appear
|
|
B4XPages.mainpage.pantallaActual = Root
|
|
passSupervisor = ""
|
|
If Starter.muestraProgreso = 1 Then
|
|
muestraProgreso("Descargando actualización")
|
|
Starter.muestraProgreso = 0
|
|
End If
|
|
Dim ph As Phone 'Get Id Device
|
|
Dim DeviceID As String = ph.GetSettings("android_id").ToUpperCase
|
|
LogColor($"////////////////// DeviceID: ${DeviceID} ////////////////// "$, Colors.Blue)
|
|
DBReqServer = Starter.DBReqServer
|
|
reqManager.Initialize(Me, Starter.DBReqServer)
|
|
tgl.Initialize()
|
|
If Not(Starter.gps.GPSEnabled) Then
|
|
ToastMessageShow("Es necesario tener el GPS encendido", True)
|
|
Sleep(500)
|
|
StartActivity(Starter.gps.LocationSettingsIntent)
|
|
End If
|
|
c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
|
c.Position = 0
|
|
If c.GetString("CUANTOS") = 0 Then
|
|
LogColor($"No hay fecha: ${c.GetString("CUANTOS")}"$, Colors.Red)
|
|
cmd.Initialize
|
|
cmd.Name = "select_fecha"
|
|
reqManager.ExecuteQuery(cmd , 0, "fecha")
|
|
Msgbox("AJUSTAR FECHA","AVISO") 'Ignore
|
|
B4XPage_Appear
|
|
Else
|
|
' LogColor($"Si hay fecha: ${c.GetString("CUANTOS")}"$, Colors.Green)
|
|
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
|
c.Position =0
|
|
Dim sDate, sTime As String 'ignore
|
|
DateTime.DateFormat = "yyyyMMdd"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
' If sDate > "20220701" Then
|
|
' Msgbox("INSTALAR NUEVO APK" ,"AVISO") 'Ignore
|
|
' B4XPage_Appear
|
|
' End If
|
|
If c.GetString("CAT_VA_VALOR") > sDate Then
|
|
Msgbox("AJUSTAR LA FECHA YA QUE ES MENOR AL SISTEMA" ,"AVISO") 'Ignore
|
|
B4XPage_Appear
|
|
End If
|
|
End If
|
|
bu.Initialize
|
|
batterystatus = bu.BatteryInformation
|
|
'Obtenemos el usuario registrado
|
|
' CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
|
|
dameUsuario
|
|
If Not(CheckNotificationAccess) Then
|
|
Msgbox2Async($"Se necesita acceso a las notificaciones, haga clic en "Aceptar" y en la siguiente pantalla permita el acceso a la aplicación "${Application.LabelName}"."$, "Permisos necesarios", "Aceptar", "Cancelar", "", Null, True)
|
|
Wait For Msgbox_Result (resultado As Int)
|
|
If resultado = DialogResponse.POSITIVE Then
|
|
Dim In As Intent
|
|
In.Initialize("android.settings.ACTION_NOTIFICATION_LISTENER_SETTINGS", "")
|
|
StartActivity(In)
|
|
End If
|
|
' Private cd1 As ColorDrawable
|
|
' cd1.Initialize(Colors.red, 10dip)
|
|
' b_notifAccess.Background = cd1
|
|
' b_notifAccess.TextColor = Colors.White
|
|
' b_notifAccess.Text = "Activar Permisos"
|
|
Else
|
|
' Private cd1 As ColorDrawable
|
|
' cd1.Initialize(Colors.RGB(109, 221, 101), 10dip)
|
|
' b_notifAccess.Background = cd1
|
|
' b_notifAccess.TextColor = Colors.White
|
|
' b_notifAccess.Text = "Permisos Activos"
|
|
End If
|
|
' ks.Initialize(Me, "ks")
|
|
' ks.vacuum
|
|
' ks.centraEtiqueta(l_version, Root.Width)
|
|
End Sub
|
|
|
|
Sub ks_etiquetaCentrada(success As Boolean)
|
|
If success Then Log("Etiqueta Centrada") Else Log("Etiqueta Centrada")
|
|
End Sub
|
|
|
|
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
|
|
|
Sub Entrar_Click
|
|
Dim r As Reflector
|
|
Dim Api As Int
|
|
Dim PP As Phone
|
|
user.Text = user.Text.Trim
|
|
Api = r.GetStaticField("android.os.Build$VERSION", "SDK_INT")
|
|
If Api < 9 Then
|
|
'Old device
|
|
If File.Exists(File.DirInternal, "__id") Then
|
|
IMEI = File.ReadString(File.DirInternal, "__id")
|
|
Log(1&"-"&IMEI)
|
|
Else
|
|
Dim id As Int
|
|
id = Rnd(0x10000000, 0x7FFFFFFF)
|
|
File.WriteString(File.DirInternal, "__id", id)
|
|
IMEI = id
|
|
Log(2&"-"&IMEI)
|
|
End If
|
|
Else
|
|
'New device
|
|
IMEI = r.GetStaticField("android.os.Build", "SERIAL")
|
|
' Log(3&"-"&IMEI)
|
|
End If
|
|
If IMEI.ToLowerCase = "unknown" Then
|
|
IMEI = PP.GetSettings("android_id")
|
|
End If
|
|
' Log("IMEI = " & IMEI)
|
|
|
|
If user.Text = "ALTERNO" Then
|
|
c=Starter.skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
|
|
c.Position =0
|
|
DBReqServer = c.GetString("CAT_CO_CONFIGURACION")
|
|
alterno = c.GetString("CAT_CO_RESULTADO")
|
|
c.Close
|
|
If alterno = 1 Then
|
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
|
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
|
|
Else if alterno = 2 Then
|
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
|
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
|
|
End If
|
|
c=Starter.skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
|
|
c.Position =0
|
|
DBReqServer = c.GetString("CAT_CO_CONFIGURACION")
|
|
user.Text = DBReqServer
|
|
c.Close
|
|
' reqManager.Initialize(Me, DBReqServer)
|
|
else if user.Text = "KMTS1" 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 (pass.Text))
|
|
Starter.skmt.ExecNonQuery("delete from VERSION")
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
|
|
B4XPages.ShowPage("Clientes")
|
|
else if user.Text = "BERNA1" Then
|
|
Starter.skmt.ExecNonQuery("delete from usuarioa")
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, "1"))
|
|
Starter.skmt.ExecNonQuery("delete from cat_almacen")
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object ("1"))
|
|
Starter.skmt.ExecNonQuery("delete from VERSION")
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
|
|
B4XPages.ShowPage("Clientes")
|
|
else if user.Text = "IMEI" Then
|
|
user.Text = IMEI
|
|
End If
|
|
|
|
c=Starter.skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
|
|
c.Position=0
|
|
existe = c.GetString("EXISTE1")
|
|
If existe = 0 Then
|
|
If IMEI = "" Then
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "select_usuario_MARDS_10" 'Antes select_usuario_guna_GV2_1
|
|
cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.Trim)
|
|
reqManager.ExecuteQuery(cmd , 0, "usuario_10") 'Antes usuario
|
|
Else
|
|
If IMEI = "" Then
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "select_usuario_MARDS_10"
|
|
cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.Trim)
|
|
reqManager.ExecuteQuery(cmd , 0, "usuario_10")
|
|
Else
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "select_usuario_MARDS_10" 'Antes select_usuario_guna_GV2
|
|
cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.trim)
|
|
Log("Mandamos: "&user.Text&"|"& pass.Text)
|
|
reqManager.ExecuteQuery(cmd , 0, "usuario_10") 'Antes usuario
|
|
End If
|
|
End If
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "select_version_MARDS"
|
|
reqManager.ExecuteQuery(cmd , 0, "version")
|
|
Else
|
|
usuario = user.Text
|
|
B4XPages.ShowPage("Principal")
|
|
End If
|
|
End Sub
|
|
|
|
Sub JobDone(Job As HttpJob)
|
|
Log("JOBDONE MAINPAGE - " & Job.Success)
|
|
If Job.Success = False Then
|
|
' ToastMessageShow("Error: " & Job.ErrorMessage, True)
|
|
Else
|
|
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
|
|
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
|
|
|
|
If result.Tag = "select_fechat" Then 'query tag
|
|
For Each records() As Object In result.Rows
|
|
For Each k As String In result.Columns.Keys
|
|
Log("select_fechat: " & 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 = "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 = "fecha" Then 'query tag
|
|
For Each records() As Object In result.Rows
|
|
Dim FECHA_HOY As String = records(result.Columns.Get("FECHA"))
|
|
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim result As DBResult = reqManager.HandleJob(Job)
|
|
If result.Tag = "usuario" Then 'query tag
|
|
For Each records() As Object In result.Rows
|
|
Dim name As String = records(result.Columns.Get("USUARIO"))
|
|
Dim ID_ALMACEN As String = records(result.Columns.Get("CAT_LO_AGENCIA"))
|
|
Dim IMEI_BASE As String = records(result.Columns.Get("CAT_LO_IDTELEFONO"))
|
|
Log(records(result.Columns.Get("CAT_LO_IDTELEFONO")) )
|
|
Next
|
|
paso1 = 1
|
|
ToastMessageShow(name, False)
|
|
Log("////////////////////////// "&name)
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim result As DBResult = reqManager.HandleJob(Job)
|
|
If result.Tag = "usuario_10" Then 'query tag
|
|
For Each records() As Object In result.Rows
|
|
Dim name As String = records(result.Columns.Get("USUARIO"))
|
|
Dim ID_ALMACEN As String = records(result.Columns.Get("CAT_LO_AGENCIA"))
|
|
Dim IMEI_BASE As String = records(result.Columns.Get("CAT_LO_IDTELEFONO"))
|
|
Next
|
|
Log("|"&name&"|")
|
|
paso1 = 1
|
|
IMEI_BASE = ""
|
|
IMEI = ""
|
|
End If
|
|
If result.Tag = "traePassGeocerca" Then 'query tag
|
|
Subs.logJobDoneResultados(result)
|
|
Log(result.Rows.Size)
|
|
For Each records() As Object In result.Rows
|
|
Log($"|${records(result.Columns.Get("TMP_PASS"))}|"$)
|
|
Dim tmp_pass As String = records(result.Columns.Get("TMP_PASS")).As(String)
|
|
Log(tmp_pass)
|
|
|
|
If et_passGeocerca.Text = tmp_pass Then
|
|
passSupervisor = et_passGeocerca.Text
|
|
p_transparente.Visible = False
|
|
et_passGeocerca.Text = ""
|
|
p_geocerca_Click
|
|
Else
|
|
Msgbox("Contraseña equivocada","ATENCIÓN")
|
|
End If
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "borraPassGeocerca"
|
|
cmd.Parameters = Array As Object(Subs.traeAlmacen, Subs.traeRuta)
|
|
reqManager.ExecuteCommand(cmd , "borraPassGeocerca")
|
|
Next
|
|
If result.Rows.Size = 0 Then
|
|
Msgbox("Contraseña equivocada","ATENCIÓN")
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Job.Release
|
|
End If
|
|
Log($"Paso1 = ${paso1} - Name: ${name} - IMEI: ${IMEI} - IMEI_BASE: ${IMEI_BASE}"$)
|
|
If paso1 = 1 Then
|
|
If IMEI = "" Then
|
|
If user.Text = "KMTS1" Then name = "OKActivo"
|
|
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))
|
|
usuario = user.Text
|
|
B4XPages.ShowPage("Principal")
|
|
Else If name = "OKExpirado" Then
|
|
Msgbox("Usuario Expirado llamar al administrador","") 'Ignore
|
|
Else If name = "OKCancelado" Then
|
|
Msgbox("Usuario Cancelado llamar al administrador","") 'Ignore
|
|
Else
|
|
Msgbox("Usuario o password No validos","") 'Ignore
|
|
End If
|
|
paso1 = 0
|
|
Else
|
|
If name = "OKActivo" & IMEI And IMEI = IMEI_BASE Then
|
|
If name = "OKActivo" & IMEI 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))
|
|
usuario = user.Text
|
|
B4XPages.ShowPage("Clientes")
|
|
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
|
|
Else IF name = "OKActivo" Then
|
|
Msgbox("Telefono no VALIDO!","") 'ignore
|
|
Else
|
|
Msgbox("Usuario o password No validos","") 'ignore
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub B4XPage_CloseRequest As ResumableSub
|
|
Log("closreq")
|
|
Sleep(0)
|
|
If p_appUpdate.Visible Then
|
|
Log("update visible")
|
|
p_appUpdate.Visible = False
|
|
Return False
|
|
End If
|
|
If Not(p_appUpdate.Visible) Then
|
|
Log("ExitApplication")
|
|
ExitApplication
|
|
End If
|
|
Return True
|
|
End Sub
|
|
|
|
Sub GPS_LocationChanged (Location1 As Location)
|
|
Log("LocationChanged")
|
|
l_geocerca.Text = "Habilitar Geocerca"
|
|
Dim l2 As Location
|
|
l2.Initialize2(latAlmacen, lonAlmacen) ' Coordenadas del almacen
|
|
Dim distance As Long = Location1.DistanceTo(l2) 'the result is in meters
|
|
Log("Distancia a almacen: " & distance)
|
|
' If user.text = "GPS" Then
|
|
' user.Text=Location1.Latitude
|
|
' pass.text=Location1.Longitude
|
|
' End If
|
|
End Sub
|
|
|
|
Sub PopupMenu_Dismiss
|
|
ToastMessageShow("PopupMenu dismissed", False)
|
|
End Sub
|
|
|
|
Sub PopupMenu_MenuItemClick (ItemId As Int) As Boolean
|
|
ToastMessageShow("Item " & ItemId & " clicked.", False)
|
|
Return False
|
|
End Sub
|
|
|
|
Sub b_menu_Click
|
|
' PopupMenu.Show
|
|
End Sub
|
|
|
|
Sub PDF_Click
|
|
|
|
End Sub
|
|
|
|
'Private Sub GetAdvertisingId As ResumableSub
|
|
' Dim jo As JavaObject = Me
|
|
' jo.RunMethod("GetAdvertisingId", Null)
|
|
' Wait For AdvertisingId_Ready (Success As Boolean, Id As String)
|
|
' Return Id
|
|
'End Sub
|
|
|
|
Sub dameUsuario
|
|
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
|
|
If existe > 0 Then
|
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
|
c.Position=0
|
|
usuario = c.GetString("USUARIO")
|
|
Else
|
|
usuario = "SINUSUARIO"
|
|
End If
|
|
End Sub
|
|
|
|
'#if Java
|
|
'import java.util.concurrent.Callable;
|
|
'import com.google.android.gms.ads.identifier.AdvertisingIdClient;
|
|
'import com.google.android.gms.ads.identifier.AdvertisingIdClient.Info;
|
|
'
|
|
'public static void GetAdvertisingId() {
|
|
' BA.runAsync(processBA, mostCurrent, "advertisingid_ready", new Object[] {false, ""}
|
|
' , new Callable<Object[]>() {
|
|
' @Override
|
|
' public Object[] call() throws Exception {
|
|
' String id = AdvertisingIdClient.getAdvertisingIdInfo(mostCurrent).getId();
|
|
' return new Object[] {true, id};
|
|
' }
|
|
' }); }
|
|
'#End If
|
|
|
|
Sub copiaDB
|
|
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
|
|
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
|
|
Dim theDir As String = ""
|
|
If Result Then
|
|
' Private x As String
|
|
' If File.ExternalWritable Then
|
|
' x = File.DirInternal
|
|
' Else
|
|
' x = File.DirInternal
|
|
' End If
|
|
Dim theDir As String
|
|
Try
|
|
File.MakeDir(File.DirInternal,"kmts")
|
|
theDir = "/kmts"
|
|
Catch
|
|
theDir = ""
|
|
End Try
|
|
Try
|
|
File.Copy(File.DirInternal,"kmt.db",File.DirInternal&theDir, "mariana_kmt.db")
|
|
ToastMessageShow("Listo, copiado a " & File.DirInternal&theDir & "/mariana_kmt.db", False)
|
|
Catch
|
|
ToastMessageShow("No se pudo hacer la copia: "&LastException, True)
|
|
End Try
|
|
Else
|
|
ToastMessageShow("Sin permisos", False)
|
|
End If
|
|
End Sub
|
|
|
|
Sub b_apk_Click
|
|
StartService(appUpdater)
|
|
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
|
|
|
|
Sub i_engrane_Click
|
|
Log(123456789)
|
|
l_geocerca.Text = "Buscando ubicación ..."
|
|
CallSubDelayed(Tracker, "StartFLPSmall")
|
|
If Tracker.FLP.IsInitialized And Tracker.FLP.GetLastKnownLocation.IsInitialized Then 'Si tenemos "UltimaUbicaccionConocida" la usamos.
|
|
B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
|
|
B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
|
|
Log($"Tenemos UUC: ${Tracker.FLP.GetLastKnownLocation.Latitude},${Tracker.FLP.GetLastKnownLocation.Longitude}"$)
|
|
GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation)
|
|
End If
|
|
' Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$)
|
|
Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'COORDS_ALMACEN'"$)
|
|
If x.RowCount > 0 Then
|
|
x.Position = 0
|
|
' Log(x.GetString("CAT_VA_VALOR"))
|
|
Dim coords() As String = Regex.Split(",", x.GetString("CAT_VA_VALOR"))
|
|
Dim latAlmacen As String = coords(0)
|
|
Dim lonAlmacen As String = coords(1)
|
|
End If
|
|
Log($"lat:${latAlmacen}, lon: ${lonAlmacen}"$)
|
|
|
|
lv_server.Clear
|
|
lv_server.AddSingleLine("http://keymon.net:1781")
|
|
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://192.99.93.204:1781")
|
|
' l_server.Text = Starter.DBReqServer
|
|
et_server.Text = Starter.DBReqServer
|
|
p_transparente.Visible = False
|
|
passSupervisor = ""
|
|
Dim c As Cursor = Starter.skmt.ExecQuery("select * from cat_variables where cat_va_descripcion = 'GEOCERCA_ACTIVA'")
|
|
' cb_geocerca.Checked = True
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
' Log(c.GetString("CAT_VA_VALOR") & " <-------")
|
|
If c.GetString("CAT_VA_VALOR") = 0 Then cb_geocerca.Checked = False Else cb_geocerca.Checked = True
|
|
' Log("----> " & cb_geocerca.Checked)
|
|
End If
|
|
' Starter.skmt.ExecNonQuery("delete from cat_variables where cat_va_descripcion = 'GEOCERCA_ACTIVA'")
|
|
' Starter.skmt.ExecNonQuery($"insert into cat_variables (cat_va_descripcion, cat_va_valor) values ('GEOCERCA_ACTIVA', ${cb_geocerca.Checked})"$)
|
|
' Log("----> " & cb_geocerca.Checked)
|
|
cb_importarBDWA.Checked = s.traeUsarIntentBDWA
|
|
If user.Text.Trim = "KMTS1" Then
|
|
p_importarBDWA.Visible = True
|
|
Else
|
|
p_importarBDWA.Visible = False
|
|
End If
|
|
If user.Text = "KMTS1" Then b_importarBD.Visible = True Else b_importarBD.Visible = False
|
|
Subs.panelVisible(p_appUpdate,0,0)
|
|
End Sub
|
|
|
|
Sub b_regesar_Click
|
|
p_appUpdate.Visible = False
|
|
Subs.panelVisible(p_Main,0,0)
|
|
End Sub
|
|
|
|
Sub i_engrane_LongClick
|
|
copiaDB
|
|
End Sub
|
|
|
|
Sub B_SERVER_Click
|
|
Starter.DBReqServer = et_server.text
|
|
If Logger Then Log("Inicializamos reqManager con " & Starter.DBReqServer)
|
|
reqManager.Initialize(Me, Starter.DBReqServer)
|
|
CallSubDelayed2(Starter, "reinicializaReqManager", Starter.DBReqServer)
|
|
s.reqManagerReInit 'Inicializamos el reqManager de C_Subs.
|
|
Subs.panelVisible(p_Main,0,0)
|
|
p_appUpdate.Visible = False
|
|
' Entrar.Visible = True
|
|
End Sub
|
|
|
|
Sub Entrar_LongClick
|
|
' dim a as int = "a"
|
|
End Sub
|
|
|
|
Private Sub lv_server_ItemClick (Position As Int, Value As Object)
|
|
Starter.DBReqServer = Value
|
|
' l_server.Text = Value
|
|
et_server.Text = Value
|
|
Starter.reinicializaReqManager(Value)
|
|
' Starter.reqManager.Initialize(Me, Value)
|
|
ToastMessageShow("Servidor modificado", False)
|
|
End Sub
|
|
|
|
'Enviamos la base de datos por correo o Whatsapp
|
|
Private Sub b_envioBD_Click
|
|
' copiaDB
|
|
' Sleep(1000)
|
|
Dim FileName As String = "kmt.db"
|
|
'copy the shared file to the shared folder
|
|
Log("xxxxxx:"&Provider.SharedFolder)
|
|
Sleep(1000)
|
|
File.Copy(File.DirInternal, FileName, Provider.SharedFolder, "kmt.mariana.db")
|
|
Dim email As Email
|
|
email.To.Add("cheveguerra@gmail.com")
|
|
email.Subject = "subject"
|
|
email.Attachments.Add(Provider.GetFileUri("kmt.mariana.db"))
|
|
' 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
|
|
|
|
'Revisa si la aplicación tiene permiso para acceder a las notificaciones.
|
|
Sub CheckNotificationAccess As Boolean
|
|
Dim ph As Phone
|
|
Dim nstr, pstr As String
|
|
Dim r As Reflector
|
|
pstr = r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
|
|
nstr = ph.GetSettings("enabled_notification_listeners")
|
|
Return nstr.Contains(pstr)
|
|
End Sub
|
|
|
|
Private Sub b_importarBD_Click
|
|
Private FH As FileHandler
|
|
FH.Initialize
|
|
Wait For (FH.Load) Complete (Result As LoadResult) 'Abre un fileManager para seleccionar la base de datos a importar.
|
|
File.Copy(Result.Dir, Result.FileName, File.DirInternal, "kmt.db") 'Copia la base de datos seleccionada al directorio interno.
|
|
Starter.skmt.Initialize(Starter.ruta,"kmt.db", True) 'Reiniciliza la base de datos con la recien importada.
|
|
ToastMessageShow("¡BD importada!", False)
|
|
End Sub
|
|
|
|
Private Sub cb_importarBDWA_CheckedChange(Checked As Boolean)
|
|
' LogColor($"cb_importarBDWA_CheckedChange = ${Checked}"$, Colors.Red)
|
|
Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'IMPORTAR_BD_WA'")
|
|
Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('IMPORTAR_BD_WA', '${Checked}')"$)
|
|
End Sub
|
|
|
|
Private Sub p_transparente_Click
|
|
p_transparente.Visible = False
|
|
End Sub
|
|
|
|
Private Sub b_passGeocerca_Click
|
|
Log("b_passGeocerca clicked")
|
|
cmd.Initialize
|
|
cmd.Name = "traePassGeocerca"
|
|
cmd.Parameters = Array As Object(Subs.traeAlmacen, Subs.traeRuta, et_passGeocerca.text)
|
|
|
|
c=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
|
|
Private r As String = "0"
|
|
If c.RowCount > 0 Then
|
|
c.Position=0
|
|
r = c.GetString("CAT_CL_RUTA")
|
|
End If
|
|
|
|
Log($"${Subs.traeAlmacen}, ${r}, ${et_passGeocerca.text}"$)
|
|
reqManager.ExecuteQuery(cmd , 0, "traePassGeocerca")
|
|
|
|
' If et_passGeocerca.Text = "12345" Then
|
|
' passSupervisor = et_passGeocerca.Text
|
|
' p_transparente.Visible = False
|
|
' et_passGeocerca.Text = ""
|
|
' Else
|
|
' Msgbox("Contraseña equivocada","ATENCIÓN")
|
|
' End If
|
|
ime.HideKeyboard
|
|
End Sub
|
|
|
|
Private Sub p_geocerca_Click
|
|
Log("CLICKED")
|
|
Dim activa As Int = 1
|
|
If Subs.estamosEnAlmacen(500) Then
|
|
If l_geocerca.Text <> "Buscando ubicación ..." Then
|
|
If passSupervisor = "" Then
|
|
p_transparente.Visible = True
|
|
Else
|
|
If cb_geocerca.Checked = False Then
|
|
cb_geocerca.Checked = True
|
|
activa = 1
|
|
Else
|
|
cb_geocerca.Checked = False
|
|
activa = 0
|
|
End If
|
|
Starter.skmt.ExecNonQuery("delete from cat_variables where cat_va_descripcion = 'GEOCERCA_ACTIVA'")
|
|
Starter.skmt.ExecNonQuery($"insert into cat_variables (cat_va_descripcion, cat_va_valor) values ('GEOCERCA_ACTIVA', ${activa})"$)
|
|
End If
|
|
Else
|
|
ToastMessageShow("Es necesario tener ubicación", True)
|
|
End If
|
|
Else
|
|
ToastMessageShow("Es necesario estar en el almacen para esta operación", True)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub p_geocerca2_Click
|
|
p_geocerca_Click
|
|
End Sub |