Build1=Default,guna.keymon.com.mx
File1=alert2.png
File10=foto.bal
File11=guardagestion.bal
File12=guna_viejo.png
File13=info_gral.bal
File14=infonavit1.jpg
File15=itembuttonblue.png
File16=keymon_logo.png
File17=kmt.db
File18=login.bal
File19=LOGO SANFER.jpg
File2=alerta.jpg
File20=logo_exitus1.jpg
File21=Malo.jpg
File22=mapa.bal
File23=nopago.bal
File24=nuevocliente.bal
File25=palomita_verde.png
File26=pedido.bal
File27=planfia_logo.png
File28=planfia_logo_old.png
File29=planfia_logo_old2.png
File3=alerta_amarilla.png
File30=qr.bal
File31=ROJO.png
File32=salma.jpg
File33=seleccion.bal
File34=senial.jpg
File35=sync.png
File36=tache_rojo.png
File37=tarjeta.bal
File38=telefonos.bal
File39=Tiendita.jpg
File4=AMARILLO.png
File40=VERDE.png
File5=buscar.bal
File6=carrito.png
File7=detalle_promo.bal
File8=fila.bal
File9=fondo_kmt.jpg
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
FileGroup5=Default Group
FileGroup6=Default Group
FileGroup7=Default Group
FileGroup8=Default Group
FileGroup9=Default Group
Group=Default Group
Library1=baqrcode
Library10=jhsicezxing1
Library11=phone
Library12=randomaccessfile
Library13=reflection
Library14=rspopupmenu
Library15=runtimepermissions
Library16=serial
Library17=sql
Library18=stringutils
Library19=json
Library2=byteconverter
Library3=camera
Library4=compressstrings
Library5=core
Library6=firebaseadmob
Library7=gps
Library8=httputils2
Library9=javaobject
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="23"/>~\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~'AddApplicationText(<activity android:name="com.google.zxing.client.android.CaptureActivity"  'Quite esta linea para actualizar la libreria del scanner CHV 20211005~\n~'android:screenOrientation="landscape" ~\n~'android:configChanges="orientation|keyboardHidden"~\n~'android:theme="@android:style/Theme.NoTitleBar.Fullscreen"~\n~'android:windowSoftInputMode="stateAlwaysHidden">~\n~'</activity>)~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddManifestText(<uses-permission~\n~  android:name="android.permission.ACCESS_FINE_LOCATION"~\n~  android:maxSdkVersion="23" />~\n~)~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~AddManifestText(<uses-permission~\n~  android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~  android:maxSdkVersion="23" />~\n~)~\n~AddManifestText(<uses-permission android:name="android.permission.READ_PHONE_STATE" android:maxSdkVersion="19" />~\n~)~\n~AddManifestText(<uses-permission android:name="android.permission.READ_PRIVILEGED_PHONE_STATE" android:maxSdkVersion="19" />~\n~~\n~~\n~'Agregue las siguentes lineas para el nuevo scanner  CHV 20211005~\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~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.ACCESS_FINE_LOCATION)~\n~AddPermission(android.permission.WAKE_LOCK)~\n~AddPermission(android.permission.DEVICE_POWER)~\n~AddPermission("android.permission.READ_PHONE_STATE")~\n~AddPermission(android.permission.VIBRATE)~\n~AddPermission(android.permission.CAMERA)~\n~AddPermission(android.permission.FLASHLIGHT)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~AddPermission(android.hardware.camera)~\n~AddManifestText(~\n~<uses-permission~\n~  android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~  android:maxSdkVersion="18" />~\n~)~\n~CreateResourceFromFile(Macro, JhsIceZxing1.CaturePortrait)~\n~'CreateResourceFromFile(Macro, JhsIceZxing1.CatureLandscape)~\n~'End of default text.~\n~
Module1=BUSCAR
Module10=Historico
Module11=mapas
Module12=nopago
Module13=nuevocliente
Module14=pedidos
Module15=seleccion
Module16=Starter
Module17=Subs
Module18=tarjeta
Module19=telefonos
Module2=CameraExClass
Module3=colonia
Module4=colonia2
Module5=DBRequestManager
Module6=detalle_promo
Module7=fila
Module8=foto
Module9=gestion
NumberOfFiles=40
NumberOfLibraries=19
NumberOfModules=19
Version=12.8
@EndOfDesignText@
#Region  Project Attributes 
	#ApplicationLabel: Salma-Preventa
	#VersionCode: 1
	#VersionName: 1.11.02
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
	#IgnoreWarnings: 32
	#BridgeLogger: 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

#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 Logger As Boolean
	Dim fechaRuta As String
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
	Dim g As GPS
	Dim server As String
	Dim alterno As String
	Private b_menu As Button
    Dim PopupMenu As RSPopupMenu
	Dim cmd As DBCommand
	Private l_version As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	ruta = File.DirInternal
	If(FirstTime) Then
	 g.Initialize("GPS")
	End If
  	 
	' se crea o no el archivo de la base de ddatos 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(ruta, "kmt.db") = False Then
		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
	End If
	skmt.Initialize(ruta,"kmt.db", True)
	'c=skmt.ExecQuery2("select COUNT(*) AS CUANTOS from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
    'c.Position =0 
    
	'If c.GetString("CUANTOS") = 0 Then
	'skmt.ExecNonQuery2("INSERT INTO CAT_CODIGOS (CAT_CO_PONDERACION, CAT_CO_ACCION, CAT_CO_RESULTADO, CAT_CO_CONFIGURACION) VALUES (?,?,?,?)", Array As Object ("1","1","SERVER","http://masternoc.mx:1783"))
	'skmt.ExecNonQuery2("INSERT INTO CAT_CODIGOS (CAT_CO_PONDERACION, CAT_CO_ACCION, CAT_CO_RESULTADO, CAT_CO_CONFIGURACION) VALUES (?,?,?,?)", Array As Object ("0","2","SERVER","http://masternoc1.mx:1783"))
    
    'End If
	'c.Close
	'c=skmt.ExecQuery2("select CAT_CO_CONFIGURACION from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
    'c.Position =0 
	'server = c.GetString("CAT_CO_CONFIGURACION")
	'c.Close
	server =  "http://keymon.lat:1782"
	'server = "http://10.0.0.205:1782"
	'server = "http://177.244.63.54:1782"
	'server = "http://keymon.com.mx:1782"
	
	If FirstTime Then
		reqManager.Initialize(Me, server)
	End If
	Activity.LoadLayout("login")
	l_version.Text = Application.VersionName
	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
	Dim P As PhoneId
	IMEN.Text = P.GetDeviceId
	IMEI = 0

'este codigo es para lo del menu
  PopupMenu.Initialize("PopupMenu", b_menu)
    PopupMenu.AddMenuItem(0, 0, "View")
    PopupMenu.AddMenuItem(1, 1, "Edit")
    PopupMenu.AddMenuItem(2, 2, "Details")
    PopupMenu.AddMenuItem(3, 3, "Remove")
' menu fin
End Sub

Sub Activity_Resume
	'server = "http://177.244.63.54:1782"
	'server = "http://keymon.com.mx:1782"
	server =  "http://keymon.lat:1782"
	'server = "http://10.0.0.205:1782"
	reqManager.Initialize(Me, server)
	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
	If g.IsInitialized And Not(g.GPSEnabled) Then
    	  ToastMessageShow("Habilitar el GPS", True)
    	  StartActivity(g.LocationSettingsIntent)
    Else
		Try
    	  g.Start(0,0)
		Catch
			Log(LastException)
		End Try
    End If
	'	 user.Text ="GPS"
	c=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
		cmd.Initialize
		cmd.Name = "select_fecha"
		reqManager.ExecuteQuery(cmd , 0, "fecha")
		Msgbox("AJUSTAR FECHA","AVISO")
		Activity_Resume
	Else
		c=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

		DateTime.DateFormat = "yyyyMMdd"
		sDate=DateTime.Date(DateTime.Now)

		If sDate > "20230430" Then
			Msgbox("INSTALAR NUEVO APK" ,"AVISO")
			Activity_Resume
		End If

		DateTime.DateFormat = "yyyyMMdd"
		sDate=DateTime.Date(DateTime.Now)

		If c.GetString("CAT_VA_VALOR") > sDate Then
		Msgbox("AJUSTAR LA FECHA YA QUE ES MENOR AL SISTEMA" ,"AVISO")
		Activity_Resume
		End If	
	End If
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Entrar_Click
    If user.Text = "ALTERNO" Then
	c=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 
	server = c.GetString("CAT_CO_CONFIGURACION")
	alterno = c.GetString("CAT_CO_RESULTADO")
	c.Close
	If alterno = 1 Then
		skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
		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
		skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
		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=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 
	server = c.GetString("CAT_CO_CONFIGURACION")
	user.Text = server
	c.Close
	reqManager.Initialize(Me, server)
	else if user.Text = "ROOT" Then
		skmt.ExecNonQuery("delete from usuarioa")
		skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
		skmt.ExecNonQuery("delete from cat_almacen")
		skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (pass.Text))
		skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("PERFIL"))
		skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("PERFIL","1"))
		skmt.ExecNonQuery("delete from VERSION")
		skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
		StartActivity(seleccion)
	End If
    c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
	c.Position=0
	existe = c.GetString("EXISTE1")
    
	'existe = 1
	If existe = 0 Then
		'skmt.ExecNonQuery("delete from usuarioa")
	    Dim cmd As DBCommand
		cmd.Initialize
		cmd.Name = "select_usuario_guna_SAL_10"
		cmd.Parameters = Array As Object(user.Text, pass.Text)
		reqManager.ExecuteQuery(cmd , 0, "usuario")
		Dim cmd As DBCommand
		cmd.Initialize
		cmd.Name = "select_version_SAL"
		reqManager.ExecuteQuery(cmd , 0, "version")
		Dim cmd As DBCommand
		cmd.Initialize
		cmd.Name = "select_perfil_SAL"
		reqManager.ExecuteQuery(cmd , 0, "perfil")
	Else
		skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("PERFIL"))
		skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("PERFIL","10"))
		StartActivity(seleccion)
	End If
End Sub

Sub JobDone(Job As HttpJob)
	Log("Job.Success:"&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
	           skmt.ExecNonQuery("delete from VERSION")
			   Dim CAT_VE_VERSION As String = records(result.Columns.Get("CAT_VE_VERSION"))
			  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 = "fecha" Then 'query tag
				For Each records() As Object In result.Rows
					Dim FECHA_HOY As String = records(result.Columns.Get("FECHA"))
					skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
					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 = "perfil" Then 'query tag
				For Each records() As Object In result.Rows
					Dim PERFIL As String = records(result.Columns.Get("PERFIL"))
					skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("PERFIL"))
					skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("PERFIL",PERFIL))
				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"))
					Log("Name: "&name)
					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
				Log("paso = 1")
			End If
		End If

		Job.Release
	End If
	
	Log("name: "&name)

	If paso1 = 1 Then
'		If IMEI = 0 Then
			If  name.Contains("OKActivo") = True  Then
				skmt.ExecNonQuery("delete from usuarioa")
				skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
				skmt.ExecNonQuery("delete from cat_almacen")
				skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
				StartActivity(seleccion)
			Else If name  = "OKExpirado"& IMEI Then
				Msgbox("Usuario Expirado llamar al administrador","")
			Else If name = "OKCancelado"& IMEI Then
				Msgbox("Usuario Cancelado llamar al administrador","")
			Else
				Msgbox("Usuario o password No validos","")
			End If
			paso1 = 0
'		Else
'			If name = "OKActivo" & IMEI And  IMEI = IMEI_BASE Then
'				If name = "OKActivo" & IMEI Then
'					skmt.ExecNonQuery("delete from usuarioa")
'					skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
'					skmt.ExecNonQuery("delete from cat_almacen")
'					skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
'					StartActivity(seleccion) 
'				Else If name  = "OKExpirado"& IMEI Then
'					Msgbox("Usuario Expirado llamar al administrador","")
'				Else If name = "OKCancelado"& IMEI Then
'					Msgbox("Usuario Cancelado llamar al administrador","")
'				Else
'					Msgbox("Usuario o password No validos","")
'				End If
'				paso1 = 0
'			 Else if  name = "OKActivo" Then
'				 Msgbox("Telefono no VALIDO!","")
'			 Else
'			   Msgbox("Usuario o password No validos","")
'			End If
'		End If
		Log("end jobdone")
	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


Sub GPS_LocationChanged (Location1 As Location)
If user.text = "GPS" Then

'user.Text=Location1.ConvertToMinutes(Location1.Latitude)
'pass.text=Location1.ConvertToMinutes(Location1.Longitude)

user.Text=Location1.Latitude
pass.text=Location1.Longitude

'btnTakePicture.Enabled = True
's.ExecNonQuery2("INSERT INTO  HIST_GPS (HGDATE,HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, lat_gps, lon_gps))
End If
End Sub
public Sub Initialize
'Initialize the PopupMenu
  
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 ImageView1_LongClick
	copiaDB
End Sub

Sub copiaDB
	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
	If Result Then
		Dim p As String
		If File.ExternalWritable Then
			p = File.DirRootExternal
'			Log("Externo")
		Else
			p = File.DirInternal
'			Log("Interno")
		End If
		Dim theDir As String
		Try
			File.MakeDir(File.DirRootExternal,"kmts")
			theDir = "/kmts"
		Catch
			theDir = ""
		End Try
		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
'		Log("rootExternal="&p)
'		Log("File.DirInternal="&File.DirInternal)
'		Log("File.DirRootExternal="&File.DirRootExternal)
	Else
		ToastMessageShow("Sin permisos", False)
	End If
End Sub