Build1=Default,salma_rep.keymon.com.mx
File1=alert2.png
File10=guardagestion.bal
File11=guna_viejo.png
File12=guna_viejo2.png
File13=info_gral.bal
File14=infonavit1.jpg
File15=itembuttonblue.png
File16=kelloggs.png
File17=keymon_logo.png
File18=kmt.db
File19=login.bal
File2=alerta.jpg
File20=LOGO SANFER.jpg
File21=Logo.jpg
File22=logo.png
File23=logo_exitus1.jpg
File24=Malo.jpg
File25=mapa.bal
File26=mapa_cliente.bal
File27=mapa_rutas.bal
File28=nopago.bal
File29=nuevocliente.bal
File3=buscar.bal
File30=pedido.bal
File31=picking.bal
File32=planfia_logo.png
File33=planfia_logo_old.png
File34=planfia_logo_old2.png
File35=productos.bal
File36=profina.jpg
File37=PROFINA.png
File38=seleccion.bal
File39=sync.png
File4=dbc.png
File40=tarjeta.bal
File41=telefonos.bal
File5=detalle_promo.bal
File6=durakelo1.png
File7=fila.bal
File8=fondo_kmt.jpg
File9=foto.bal
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
FileGroup5=Default Group
FileGroup6=Default Group
FileGroup7=Default Group
FileGroup8=Default Group
FileGroup9=Default Group
Group=Default Group
Library1=b4xcollections
Library10=googlemaps
Library11=googlemapsextras
Library12=gps
Library13=ime
Library14=javaobject
Library15=json
Library16=okhttputils2
Library17=phone
Library18=randomaccessfile
Library19=reflection
Library2=baqrcode
Library20=runtimepermissions
Library21=serial
Library22=sql
Library23=togglelibrary
Library24=xui
Library25=xui views
Library26=zxing_scanner
Library3=byteconverter
Library4=camera
Library5=compressstrings
Library6=core
Library7=firebaseanalytics
Library8=firebasenotifications
Library9=fusedlocationprovider
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: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="28"/>~\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~'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~'End of default text.~\n~	  ~\n~	  	  '''''''''''PUSH~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddManifestText(<uses-permission android:name="android.permission.ACCESS_FINE_LOCATION" android:maxSdkVersion="23" />)~\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" />~\n~) '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 MOD Inicia /////////////////////~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'///////////////  FLP y FBMessageing MOD Termina /////////////////////~\n~AddApplicationText(<uses-library android:name="org.apache.http.legacy" android:required="false"/>)
Module1=BatteryUtilities
Module10=gestion
Module11=Historico
Module12=MAPA_CLIENTE
Module13=MAPA_RUTAS
Module14=mapas
Module15=nopago
Module16=nuevocliente
Module17=pedidos
Module18=seleccion
Module19=Starter
Module2=BUSCAR
Module20=Subs
Module21=tarjeta
Module22=telefonos
Module23=Tracker
Module3=CameraExClass
Module4=colonia
Module5=colonia2
Module6=DBRequestManager
Module7=detalle_promo
Module8=fila
Module9=foto
NumberOfFiles=41
NumberOfLibraries=26
NumberOfModules=23
Version=12.2
@EndOfDesignText@
#Region  Project Attributes 
	#ApplicationLabel: Salma-Reparto
	#VersionCode: 1
	#VersionName: 2.12.09
	'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
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region
#Region Service Attributes
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim reqManager As DBRequestManager
'	Dim ruta As String
	Dim usuario As String
	Dim logger As Boolean = True
	Dim batt As Int
	Dim lat_gps, lon_gps As String
'	Dim skmt As SQL
	Dim batt As Int
	Dim usuario As String
	Dim server As String
	Dim montoActual, clientesTotal, clientesVenta, clientesVisitados,almacen, rutaPreventa, CANTIDADPROD As String
	Dim ultimaActualizacionGPS As String = 235959
	Dim logger As Boolean = True
	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
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	'    Dim skmt As SQL
	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 ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
'	If File.ExternalWritable Then
'		ruta = Starter.rp.GetSafeDirDefaultExternal("")
'	Else
'		ruta = File.DirInternal
'	End If
	' se crea o no el archivo de la base de datos de kmt
	'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE
	'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA
	'SI SE REGRESA A ESTE ACTIVIDAD.
'	If File.Exists(Starter.ruta, "kmt.db") = False Then
'		File.Copy(File.DirAssets, "kmt.db", Starter.ruta, "kmt.db")
'	End If
'	Starter.skmt.Initialize(Starter.ruta,"kmt.db", True)
'	LogColor("Revisamos BD RUTAA", Colors.Magenta)
	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)")
	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICKING (CODIGO TEXT, RUTA TEXT, CANTIDAD_INICIAL TEXT, CANTIDAD_FINAL TEXT,CANTIDAD_ESCRITA)")
	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PLACAS (PLACA TEXT)")
	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS AUXILIAR (ID TEXT, NOMBRE TEXT)")
	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS DATOS (PLACAS TEXT, ID_AUXILIAR TEXT)")
'	Dim server As String = "http://187.189.244.154:1782"
	Dim server As String = "http://11.0.0.169:1782"
'	server = "http://10.0.0.205:1782"
'	server = "http://11.0.0.44:1782"
	If FirstTime Then
		reqManager.Initialize(Me, server)
		'reqManager.Initialize(Me,"http://201.99.139.28:1782")
		'reqManager.Initialize(Me,"http://177.244.63.54:1782")
		'reqManager.Initialize(Me,"http://keymon.com.mx:1782")
	End If
	Activity.LoadLayout("login")
	Label1.Text = Application.VersionName
	Dim P As PhoneId
	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
	If Result Then
		IMEN.Text = P.GetDeviceId
		IMEI = P.GetDeviceId
	End If
End Sub

Sub Activity_Resume
	Subs.centraPanel(p_principal, Activity.Width)
	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

	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
'	usuario=Subs.dameUsuarioDeDB
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Entrar_Click
	If pass.Text = "YA" 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"))
		StartActivity(seleccion)
	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_SALMA_REPG"
			cmd.Parameters = Array As Object(user.Text, pass.Text)
			reqManager.ExecuteQuery(cmd , 0, "usuario")
			Dim cmd As DBCommand
			cmd.Initialize
			cmd.Name = "select_version"
			reqManager.ExecuteQuery(cmd , 0, "version")
		Else
			StartActivity(seleccion)
		End If
	End If
End Sub

Sub JobDone(Job As HttpJob)
	If Job.Success = False Then
		ToastMessageShow("Error: " & Job.ErrorMessage, True)
	Else
		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
				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
				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))
		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

Sub Activity_KeyPress (key As Int) As Boolean
	' BACK key pressed
	If key=KeyCodes.KEYCODE_BACK Then
		' I want to capture the key here so I return True
		'StartActivity(Main)
		ExitApplication
		'Return True
	End If
	' Returning False signals the system to handle the key
	Return False
End Sub
'
Private Sub ImageView1_LongClick
	copiaDB
End Sub

Sub copiaDB
	Dim rutaBDBackup As String
	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
	Dim theDir As String = ""
	If Result Then
		Dim theDir As String
		Try
			File.MakeDir(File.DirRootExternal,"kmts")
			theDir = "/kmts"
		Catch
			theDir = ""
		End Try
		rutaBDBackup = File.DirRootExternal&theDir
		Try
			File.Copy(File.DirInternal,"kmt.db",File.DirRootExternal&theDir,"salma_kmt.db")
			ToastMessageShow("Listo", False)
		Catch
			ToastMessageShow("No se pudo hacer la copia: "&LastException, True)
		End Try
	Else
		ToastMessageShow("Sin permisos", False)
	End If
	Log(rutaBDBackup)
End Sub