mirror of
https://github.com/cheveguerra/Pusher_2.0.git
synced 2026-04-17 19:37:05 +00:00
cheveguerra
ebe76d6f87
- Se agregó la base de datos y el codigo para guardar y administrar las geocercas. - Se modificó el codigo de los mensajes push recibidos, para que mande una notificación si la ubicación recibida esta dentro de una geocerca.
865 lines
33 KiB
Plaintext
865 lines
33 KiB
Plaintext
Build1=Default,pusher.chv.com
|
|
File1=96761371-car-icon-white-icon-with-shadow-on-transparent-background.jpg
|
|
File10=marker-rojo-0.png
|
|
File11=marker-rojo-coche.png
|
|
File12=waze.png
|
|
File13=waze-moving.png
|
|
File14=waze-moving-2.png
|
|
File15=waze-moving-small.png
|
|
File16=waze-sleeping.png
|
|
File17=waze-sleeping-small.png
|
|
File18=zzz.png
|
|
File2=ballon280.png
|
|
File3=ballon50.png
|
|
File4=balloon_overlay_close.png
|
|
File5=datetimelayout.bal
|
|
File6=icon-transit.png
|
|
File7=icon-transit-small.png
|
|
File8=infowindow.bal
|
|
File9=Layout.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
|
|
FileGroup2=Default Group
|
|
FileGroup3=Default Group
|
|
FileGroup4=Default Group
|
|
FileGroup5=Default Group
|
|
FileGroup6=Default Group
|
|
FileGroup7=Default Group
|
|
FileGroup8=Default Group
|
|
FileGroup9=Default Group
|
|
Group=Default Group
|
|
Library1=administrator
|
|
Library10=googlemapsextras
|
|
Library11=gps
|
|
Library12=ime
|
|
Library13=javaobject
|
|
Library14=json
|
|
Library15=okhttputils2
|
|
Library16=phone
|
|
Library17=randomaccessfile
|
|
Library18=reflection
|
|
Library19=runtimepermissions
|
|
Library2=byteconverter
|
|
Library20=xcustomlistview
|
|
Library21=xui
|
|
Library22=sql
|
|
Library3=compressstrings
|
|
Library4=core
|
|
Library5=dateutils
|
|
Library6=firebaseanalytics
|
|
Library7=firebasenotifications
|
|
Library8=fusedlocationprovider
|
|
Library9=googlemaps
|
|
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="14" android:targetSdkVersion="27"/>~\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~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~AddPermission(android.permission.ACCESS_FINE_LOCATION)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE) ' Allows an application to write to external storage.~\n~'Lo siguiente es para la api de google maps, para mostrar un mapa en la app~\n~AddApplicationText(~\n~<uses-library~\n~ android:name="org.apache.http.legacy"~\n~ android:required="false" />~\n~<meta-data~\n~ android:name="com.google.android.geo.API_KEY"~\n~ android:value="AIzaSyCjm5WyRxaLGPvp-zD-OlAZqQjpqWb2VK0"/>~\n~) 'Obtener la llave del API en https://console.cloud.google.com/~\n~'SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~~\n~AddApplicationText(<receiver android:name="anywheresoftware.b4a.objects.AdminReceiver2"~\n~ android:permission="android.permission.BIND_DEVICE_ADMIN">~\n~ <meta-data android:name="android.app.device_admin"~\n~ android:resource="@xml/device_admin" />~\n~ <intent-filter>~\n~ <action android:name="android.app.action.DEVICE_ADMIN_ENABLED" />~\n~ </intent-filter>~\n~</receiver>)~\n~~\n~CreateResource(xml, device_admin.xml,~\n~<device-admin xmlns:android="http://schemas.android.com/apk/res/android">~\n~ <uses-policies>~\n~ <limit-password />~\n~ <reset-password />~\n~ <force-lock />~\n~ </uses-policies>~\n~</device-admin>~\n~)~\n~~\n~SetActivityAttribute(main, android:windowSoftInputMode, adjustPan|stateHidden)~\n~'SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden) 'Para que suba al abrir el teclado junto con la libreria IME
|
|
Module1=DBRequestManager
|
|
Module2=FirebaseMessaging
|
|
Module3=Mods
|
|
Module4=MyPopup
|
|
Module5=Starter
|
|
Module6=Subs
|
|
NumberOfFiles=18
|
|
NumberOfLibraries=22
|
|
NumberOfModules=6
|
|
Version=12.5
|
|
@EndOfDesignText@
|
|
#Region Project Attributes
|
|
#ApplicationLabel: Pusher 2.0
|
|
#VersionCode: 1
|
|
#VersionName: 3.09.27
|
|
'Ver. 3.09.18 - Se agregó la posibilidad de mostrar puntos internedios en la ruta y muestra icono diferente si esta en movimiento o parado.
|
|
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
|
#SupportedOrientations: portrait
|
|
#CanInstallToExternalStorage: False
|
|
#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
|
|
#AdditionalJar: com.android.support:support-v4
|
|
#AdditionalJar: com.google.android.gms:play-services-location
|
|
|
|
#Region Activity Attributes
|
|
#FullScreen: False
|
|
#IncludeTitle: 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.
|
|
'Api
|
|
Private const API_KEY As String = "AAAAv1qt3Lk:APA91bECIR-pHn6ul53eYyoVlpPuOo85RO-0zcAgEXwE7vqw8DFSbBtCaCINiqWQAkBBZXxHtQMdpU6B-jHIqgFKVL196UgwHv0Gw6_IgmipfV_NiItjzlH9d2QNpGLp9y_JUKVjUEhP"
|
|
Private rp As RuntimePermissions
|
|
Dim db As SQL
|
|
Dim phn As Phone
|
|
Dim devModel As String
|
|
Dim dUbicados As Int 'Dispositivos con ubicacion
|
|
Dim dispositivos As Map
|
|
Public GZip As GZipStrings
|
|
Dim base64 As String
|
|
Dim rutaGPS, rRuta, fechaInicioRutaGPS, fechaFinRutaGPS As String
|
|
Dim rutasGPS As Map
|
|
' Dim topics As List
|
|
Dim clientes As List
|
|
Dim dispLVClic As Map
|
|
Dim rutaClic, rutaAnt As String 'ignore
|
|
Dim colorAnt As Int = 1
|
|
Dim line, lineAnt As Polyline 'ignore
|
|
Dim tracker As String = "Trckr"
|
|
Dim wifi, montoTotal As String
|
|
Dim reqManager As DBRequestManager
|
|
Dim mapaDestino As Int = 1
|
|
Private hInicio, hFinal As String
|
|
Private distanciaRecorrida As String = "0"
|
|
Private usuario As String
|
|
dim punto as LatLng
|
|
End Sub
|
|
|
|
Sub Globals
|
|
'These global variables will be redeclared each time the activity is created.
|
|
Private gmap As GoogleMap
|
|
Dim MapFragment1 As MapFragment
|
|
Dim latmarker As String
|
|
Dim longmarker As String
|
|
Dim timemarker As Long
|
|
Dim batt As Int
|
|
Dim ListView1 As ListView
|
|
Private MapPanel As Panel
|
|
Dim InfoWindowPanel As Panel
|
|
Private TitleLabel As Label
|
|
Private SnippetLabel As Label
|
|
Private ThumbImage As ImageView
|
|
Private cuantos As Label
|
|
Private ubicados As Label
|
|
Private L_RutaInfo As Label
|
|
Private et_buscador As EditText
|
|
Private b_buscar As Button
|
|
'/////// Popup
|
|
Dim const popupItemSettings As String = Chr(0xF05B) & " Borrar Ruta"
|
|
Dim const popupItemContactUs As String = Chr(0xF1D9) & " Limpiar Mapa"
|
|
Dim const popupItemBorraTodosGPS As String = Chr(0xF059) & " Borrar GPS Todos"
|
|
|
|
Dim popExample As MyPopup
|
|
Private b_dameRuta As Button
|
|
Dim IME As IME
|
|
Private p_buscador As Panel
|
|
Dim topInicialBuscador As Int
|
|
Private L_RutaInfo As Label
|
|
Private s_tracker As Spinner
|
|
Dim aBuscar As String
|
|
Private p_principal As Panel
|
|
Private p_ruta As Panel
|
|
Private b_regresar As Button
|
|
Private b_getRuta As Button
|
|
Private MapFragment2 As MapFragment
|
|
' Private lv_hora As ListView
|
|
' Private s_hora As Spinner
|
|
Private b_limpiaMapa, b_inicioMenos, b_inicioMas, b_finalMenos, b_finalMas As Button
|
|
Private l_periodo As Label
|
|
Private et_inicio, et_final As EditText
|
|
Private p_periodoInfo As Panel
|
|
Private p_mapa2 As Panel
|
|
Private l_periodoTitulo As Label
|
|
Private l_distanciaRecorrida As Label
|
|
Private s_rutas As Spinner
|
|
Private l_rutas As Label 'ignore
|
|
Private rutaSeleccionada As String = ""
|
|
Private p_contenedor1 As Panel
|
|
Private cb_puntosIntermedios As CheckBox
|
|
Private p_addGeofence As Panel
|
|
Private et_gc_nombre As EditText
|
|
Private b_gc_cancelar As Button
|
|
Private b_gc_ok As Button
|
|
Private b_geocercas As Button
|
|
Private p_geocercas As Panel
|
|
Private lv_geocercas As ListView
|
|
Private b_cerrar As Button
|
|
End Sub
|
|
|
|
Sub Activity_Create(FirstTime As Boolean) 'ignore
|
|
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
|
|
' Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
|
|
db = Subs.dbInit
|
|
Dim p As String 'ignore
|
|
If File.ExternalWritable Then
|
|
p = File.DirRootExternal
|
|
Else
|
|
p = File.DirInternal
|
|
End If
|
|
' Log("rootExternal="&p)
|
|
' Log("File.DirInternal="&File.DirInternal)
|
|
' Log("File.DirRootExternal="&File.DirRootExternal)
|
|
|
|
Activity.LoadLayout("Layout")
|
|
clientes.Initialize
|
|
clientes.AddAll(Array As String("Trckr","Trckr-ML","Trckr-This","Trckr-Cedex","Trckr-GunaReparto","Trckr-Durakelo"))
|
|
IME.Initialize("IME")
|
|
dispLVClic.Initialize
|
|
Wait For MapFragment1_Ready
|
|
gmap.IsInitialized
|
|
gmap = MapFragment1.GetMap
|
|
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
|
|
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
|
|
If Result Then
|
|
gmap.MyLocationEnabled = True
|
|
Else
|
|
Log("Sin permisos de ubicacion")
|
|
End If
|
|
' For android_id
|
|
devModel = phn.Model
|
|
dispositivos.Initialize
|
|
rutaClic = ""
|
|
rutasGPS = CreateMap("r" : rRuta)
|
|
popExample.Initialize( Activity, Me, "popExample", Array As String( popupItemSettings, popupItemContactUs, popupItemBorraTodosGPS ), 100%x, 100%y, Typeface.FONTAWESOME )
|
|
IME.AddHeightChangedEvent
|
|
' Log(" BT="&b_buscar.Top)
|
|
topInicialBuscador = p_buscador.top
|
|
s_tracker.AddAll(clientes)
|
|
cb_puntosIntermedios.Checked = True
|
|
|
|
p_geocercas.BringToFront
|
|
p_geocercas.Left = (Activity.Width / 2) - (p_geocercas.Width / 2)
|
|
' reqManager.Initialize(Me, "http://10.0.0.205:1782")
|
|
' s_hora.AddAll(Array As String("00", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23"))
|
|
End Sub
|
|
|
|
Sub Activity_Resume
|
|
Subs.panelVisible(p_principal, 0, 0)
|
|
p_principal.Width = Activity.Width
|
|
p_principal.Height = Activity.Height
|
|
Subs.centraPanel(p_contenedor1, p_principal.Width)
|
|
devModel = phn.Model
|
|
reqManager.Initialize(Me, "http://keymon.lat:1782")
|
|
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("Sin permisos de ubicacion", True)
|
|
' End If
|
|
' Dim p As Period
|
|
' p.Hours = -2
|
|
' p.Minutes = -30
|
|
' Dim x As String = DateUtils.AddPeriod(DateTime.Now, p)
|
|
'' x = DateUtils.SetDateAndTime(2022, 2, 24, 20, 20, 20)
|
|
' Log(Subs.fechaKMT(x))
|
|
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "seleccionaRutasGPS"
|
|
reqManager.ExecuteQuery(cmd , 0, "seleccionaRutasGPS", 0)
|
|
calculaPeriodo
|
|
End Sub
|
|
|
|
Sub Activity_Pause (UserClosed As Boolean)
|
|
'Starter.StopFLP
|
|
' CallSub(Tracker, "StopFLP")
|
|
End Sub
|
|
|
|
Sub Button1_Click
|
|
Log("Peticion enviada")
|
|
Dim tipos As String
|
|
tipos="pu,ping"
|
|
ToastMessageShow("Solicitud Enviada : "&tipos,True)
|
|
Mensaje(tracker, "Peticion","DameUbicacion", tipos)
|
|
' Message("Trckr", "Ping","ping", "ping")
|
|
' gmap.Clear 'Limpiamos mapa
|
|
ListView1.Clear ' Limpiamos Listview
|
|
dispositivos.Initialize
|
|
End Sub
|
|
|
|
'Mandamos mensaje
|
|
Sub Mensaje(Topic As String, Title As String, Body As String, Tipos As String)
|
|
LogColor("Mandamos mensaje", Colors.Magenta)
|
|
Dim Job As HttpJob
|
|
Job.Initialize("fcm", Me)
|
|
Dim m As Map = CreateMap("to": $"/topics/${Topic}"$)
|
|
Dim data As Map = CreateMap("title": Title, "body": Body, "t": Tipos)
|
|
m.Put("data", data)
|
|
Dim jg As JSONGenerator
|
|
jg.Initialize(m)
|
|
Job.PostString("https://fcm.googleapis.com/fcm/send", jg.ToString)
|
|
Job.GetRequest.SetContentType("application/json;charset=UTF-8")
|
|
Job.GetRequest.SetHeader("Authorization", "key=" & API_KEY)
|
|
Log(m)
|
|
End Sub
|
|
|
|
Sub JobDone(Job As HttpJob)
|
|
If Job.Success = False Then
|
|
ToastMessageShow("Error: " & Job.ErrorMessage, True)
|
|
Else
|
|
If Job.JobName = "DBRequest" Then
|
|
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
|
|
Dim result As DBResult = reqManager.HandleJob(Job)
|
|
If result.Tag = "seleccionaRutaGPS2" Then 'query tag
|
|
rutaGPS = ""
|
|
Private estasCoords, coordsAnt As Location
|
|
estasCoords.Initialize
|
|
coordsAnt.Initialize
|
|
Private cont As Int = 0
|
|
Subs.SetDateFormat("es", "MX", "MMM d")
|
|
distanciaRecorrida = 0
|
|
cont = 0
|
|
Private c As Cursor = db.ExecQuery("select * from geocercas")
|
|
For Each records() As Object In result.Rows
|
|
' Log(records(result.Columns.Get("FECHA")))
|
|
If cont = 0 Then
|
|
usuario = records(result.Columns.Get("RUTA"))
|
|
fechaInicioRutaGPS = Subs.fechaKMT2Ticks(records(result.Columns.Get("FECHA")))
|
|
DateTime.timeformat = "HH:mm"
|
|
fechaInicioRutaGPS = DateTime.Date(fechaInicioRutaGPS) & ", " & DateTime.Time(fechaInicioRutaGPS)
|
|
End If
|
|
Private d As String = records(result.Columns.Get("DATOS")) & "," & records(result.Columns.Get("FECHA"))
|
|
Private l As List = Regex.Split(",", d)
|
|
estasCoords.Initialize
|
|
estasCoords.Latitude = l.Get(0)
|
|
estasCoords.Longitude = l.Get(1)
|
|
Private acc0 As List = Regex.Split(":", l.Get(2))
|
|
' Log(acc0)
|
|
Private acc As String
|
|
If acc0.Size = 1 Then acc = acc0.Get(0) Else acc = acc0.Get(1)
|
|
If acc < 30 Then
|
|
rutaGPS = rutaGPS & d & CRLF
|
|
If cont > 0 Then
|
|
distanciaRecorrida = distanciaRecorrida + coordsAnt.DistanceTo(estasCoords)
|
|
' Log($"Distancia: $1.0{coordsAnt.DistanceTo(estasCoords)} mts, Total: $1.0{distanciaRecorrida} mts"$)
|
|
End If
|
|
End If
|
|
cont = cont + 1
|
|
|
|
coordsAnt.Latitude = estasCoords.Latitude
|
|
coordsAnt.Longitude = estasCoords.Longitude
|
|
fechaFinRutaGPS = Subs.fechaKMT2Ticks(records(result.Columns.Get("FECHA")))
|
|
DateTime.timeformat = "HH:mm"
|
|
fechaFinRutaGPS = DateTime.Date(fechaFinRutaGPS) & ", " & DateTime.Time(fechaFinRutaGPS)
|
|
Next
|
|
Private estaGC As Location
|
|
If c.RowCount > 0 Then
|
|
For i = 0 To c.RowCount - 1
|
|
c.Position = i
|
|
estaGC.Initialize
|
|
estaGC.Latitude = c.GetString("lat")
|
|
estaGC.Longitude = c.GetString("lon")
|
|
' Log(estasCoords & "|" & thisGC)
|
|
Log(estasCoords.DistanceTo(estaGC))
|
|
If estasCoords.DistanceTo(estaGC) < 300 Then
|
|
ToastMessageShow($"Dentro de ${c.GetString("nombre")}"$, False)
|
|
' Subs.notiHigh("Dentro de Geocerca", $"${usuario} esta dentro de ${c.GetString("nombre")}"$, 777, "Main")
|
|
End If
|
|
Next
|
|
End If
|
|
c.Close
|
|
ToastMessageShow("Recibimos ruta con " & reqManager.HandleJob(Job).Rows.Size & " puntos.", False)
|
|
' Log(rutaGPS)
|
|
LogColor($"Distancia recorrida: $1.1{distanciaRecorrida/1000} kms."$, Colors.Magenta)
|
|
l_distanciaRecorrida.Text = $"Dist. recorrida: $1.1{distanciaRecorrida/1000} kms."$
|
|
muestraRuta
|
|
End If
|
|
End If
|
|
If Job.JobName = "DBRequest" Then
|
|
If result.Tag = "seleccionaRutasGPS" Then 'query tag
|
|
s_rutas.Clear
|
|
s_rutas.Add("Selecciona")
|
|
For Each records() As Object In result.Rows
|
|
For Each k As String In result.Columns.Keys
|
|
Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k)))
|
|
s_rutas.Add(records(result.Columns.Get(k)))
|
|
Next
|
|
Next
|
|
End If
|
|
End If
|
|
End If
|
|
Job.Release
|
|
End Sub
|
|
|
|
public Sub ubicacionRecibida(message As Map)
|
|
'Aqui mostramos la ubicacion recibida en el mapa
|
|
Dim coords As List = Regex.Split(",",message.Get("body"))
|
|
latmarker=coords.Get(0)
|
|
longmarker=coords.Get(1)
|
|
devModel=message.Get("d")
|
|
wifi=message.Get("w")
|
|
montoTotal =message.Get("mt")
|
|
batt=message.Get("b")
|
|
Dim v As String = message.Get("v")
|
|
Log("Ubicacion recibida : "&message.Get("d")&","&message.Get("t")&","&message.Get("body"))
|
|
If message.Get("t") = "au" Then 'Si es actualizacion
|
|
' For i=0 To message.Size-1
|
|
' Log(message.GetKeyAt(i)&"="&message.GetValueAt(i))
|
|
' Next
|
|
L_RutaInfo.Text = "Ruta: "&rutaClic&CRLF&"Bateria: "&message.Get("b")&"%"&CRLF& _
|
|
"Monto Total: $"&message.Get("mt")&CRLF&"Wifi: "&wifi&CRLF& _
|
|
"Version: "&message.Get("v")&CRLF
|
|
Subs.mueveCamaraMapa(MapFragment1, latmarker, longmarker)
|
|
End If
|
|
If coords.Size > 2 And IsNumber(coords.Get(2)) Then 'Si hay fecha en coordenadas ...
|
|
Dim timemarker As Long=coords.Get(2)
|
|
Else
|
|
Dim timemarker As Long=0
|
|
End If
|
|
Dim dispData As Map = CreateMap("coords" : coords.Get(0)&","&coords.Get(1), "tm" : timemarker, "d" : message.Get("d"), "b" : batt, "w" : wifi, "mt" : montoTotal, "v" : v)
|
|
dispositivos.Put(message.Get("d"), dispData)
|
|
' Log("dispositvos="&dispositivos)
|
|
Log(DateTime.Time(timemarker))
|
|
MapFragment1_Ready
|
|
Log("Dispositivos : "&dispositivos.Size)
|
|
End Sub
|
|
|
|
Sub agregaAListview
|
|
ListView1.Clear ' Limpiamos Listview
|
|
ListView1.SingleLineLayout.Label.TextSize = 13
|
|
ListView1.SingleLineLayout.ItemHeight = 30dip
|
|
ListView1.SingleLineLayout.Label.textColor=Colors.Black
|
|
dUbicados=0
|
|
For i = 0 To dispositivos.Size - 1
|
|
Dim vals As Map = dispositivos.GetValueAt(i)
|
|
Dim thisRuta As String = dispositivos.GetKeyAt(i)
|
|
thisRuta = thisRuta.ToUpperCase
|
|
aBuscar = et_buscador.Text
|
|
aBuscar = aBuscar.ToUpperCase
|
|
' Log(vals)
|
|
If vals.ContainsKey("tm") And vals.Get("tm") <>"" Then
|
|
Dim located As String = " *" 'Si ya tenemos ubicacion, agregamos un asterisco
|
|
dUbicados=dUbicados+1
|
|
Else
|
|
Dim located As String = ""
|
|
End If
|
|
If aBuscar <> "" Then
|
|
If thisRuta.IndexOf(aBuscar) > -1 Then
|
|
ListView1.AddSingleLine2(dispositivos.GetKeyAt(i)&located, dispositivos.GetValueAt(i))
|
|
End If
|
|
Else
|
|
ListView1.AddSingleLine2(dispositivos.GetKeyAt(i)&located, dispositivos.GetValueAt(i))
|
|
End If
|
|
Next
|
|
cuantos.Text = "Rutas"&CRLF&ListView1.Size
|
|
ubicados.Text = "Ubicados"&CRLF&dUbicados
|
|
Log("dUbicados="&dUbicados)
|
|
End Sub
|
|
|
|
Sub IME_HeightChanged(NewHeight As Int, OldHeight As Int)
|
|
If NewHeight < (topInicialBuscador + p_buscador.Height) Then ' Si el teclado tapa al buscador
|
|
If OldHeight > NewHeight Then 'Si se redujo la pantalla
|
|
p_buscador.Top = NewHeight - b_buscar.Height
|
|
Else ' Si se amplio la pantalla
|
|
p_buscador.Top = topInicialBuscador
|
|
End If
|
|
Else
|
|
p_buscador.Top = topInicialBuscador
|
|
End If
|
|
' ToastMessageShow("Height changed", False)
|
|
End Sub
|
|
|
|
Sub b_buscar_Click
|
|
agregaAListview
|
|
IME.HideKeyboard
|
|
End Sub
|
|
|
|
Sub ListView1_ItemClick (Position As Int, Value As Object)
|
|
dispLVClic = Value
|
|
rutaClic = dispLVClic.Get("d")
|
|
' Log("RutaClic="&dispLVClic.Get("d"))
|
|
Dim w As String = dispLVClic.Get("w")
|
|
Log("******************"&w&" - "&w.Length)
|
|
If w <> "" And w <> Null And w <> "null" Then
|
|
w = "Wifi: "&w&CRLF
|
|
Else
|
|
w = ""
|
|
End If
|
|
' L_RutaInfo.Text = "Ruta: "&rutaClic&CRLF
|
|
' For i=0 To dispLVClic.Size-1
|
|
' Log(dispLVClic.GetKeyAt(i)&"="&dispLVClic.GetValueAt(i))
|
|
'' If dispLVClic.GetKeyAt(i)="d" Then L_RutaInfo.Text = "Ruta: "&dispLVClic.GetValueAt(i)&CRLF
|
|
' If dispLVClic.GetKeyAt(i)="b" And dispLVClic.GetValueAt(i) <> "null" Then L_RutaInfo.Text = L_RutaInfo.Text&"Bateria: "&dispLVClic.GetValueAt(i)&"%"&CRLF
|
|
' If dispLVClic.GetKeyAt(i)="mt" And dispLVClic.GetValueAt(i) <> "null" Then L_RutaInfo.Text = L_RutaInfo.Text&"Monto Total: $"&dispLVClic.GetValueAt(i)&CRLF
|
|
' If dispLVClic.GetKeyAt(i)="w" And dispLVClic.GetValueAt(i) <> "null" Then L_RutaInfo.Text = L_RutaInfo.Text&"Wifi: "&dispLVClic.GetValueAt(i)&CRLF
|
|
' If dispLVClic.GetKeyAt(i)="v" And dispLVClic.GetValueAt(i) <> "null" Then L_RutaInfo.Text = L_RutaInfo.Text&"Version: "&dispLVClic.GetValueAt(i)&CRLF
|
|
' Next
|
|
L_RutaInfo.Text = "Ruta: "&rutaClic&CRLF&"Bateria: "&dispLVClic.Get("b")&"%"&CRLF& _
|
|
"Monto Total: $"&dispLVClic.Get("mt")&CRLF&w&"Version: "&dispLVClic.Get("v")&CRLF
|
|
|
|
Dim thisVals As Map = Value
|
|
Log(thisVals)
|
|
Dim coords As List = Regex.Split(",", thisVals.Get("coords"))
|
|
|
|
'Mueve el mapa a la posicion solicitada
|
|
Subs.mueveCamaraMapa(MapFragment1, coords.Get(0), coords.Get(1))
|
|
End Sub
|
|
|
|
Sub b_actUbic_click
|
|
Mensaje(dispLVClic.Get("d"), "Peticion","DameUbicacion", "pu,au")
|
|
ToastMessageShow("Solicitamos Ubicacion: "&rutaClic, True)
|
|
End Sub
|
|
|
|
Sub b_dameRuta_click
|
|
Mensaje(dispLVClic.Get("d"), "Peticion","DameRuta", "dr")
|
|
ToastMessageShow("Solicitamos Ruta: "&rutaClic, True)
|
|
End Sub
|
|
|
|
Sub b_dameRuta_LongClick
|
|
popExample.Show(b_dameRuta) 'Show the menu, anchored to the button.
|
|
End Sub
|
|
|
|
Sub MapFragment1_Ready
|
|
gmap = MapFragment1.GetMap
|
|
'///////////////////////////////////////////
|
|
Dim GoogleMapsExtras1 As GoogleMapsExtras
|
|
Dim InfoWindowAdapter1 As InfoWindowAdapter
|
|
|
|
InfoWindowAdapter1.Initialize("InfoWindowAdapter1")
|
|
GoogleMapsExtras1.SetInfoWindowAdapter(gmap, InfoWindowAdapter1)
|
|
InfoWindowPanel.Initialize("")
|
|
InfoWindowPanel.LoadLayout("InfoWindow")
|
|
' a hack(ish) way to set InfoWindowPanel width and height!
|
|
MapPanel.AddView(InfoWindowPanel, 0, 0, 240dip, 90dip)
|
|
InfoWindowPanel.RemoveView
|
|
'/////////////////////////////////////////////
|
|
Dim horaFecha As String = timemarker
|
|
Dim hms As String = horaFecha.SubString(6) 'Tomamos solo la parte de la hora
|
|
' Log("hms="&hms)
|
|
Dim horasMinsSegs As String = hms.SubString2(0,2)&":"&hms.SubString2(2,4)&":"&hms.SubString(4)
|
|
' Log(horasMinsSegs)
|
|
If wifi <> "" And wifi <> Null Then
|
|
wifi = $"Wifi: ${wifi&CRLF}"$
|
|
Else
|
|
wifi = ""
|
|
End If
|
|
|
|
If aBuscar <> "" Then
|
|
If devModel.IndexOf(aBuscar) > -1 Then
|
|
Dim Marker1 As Marker
|
|
Marker1 = gmap.AddMarker(latmarker, longmarker, devModel)
|
|
Marker1.Title = devModel
|
|
Marker1.Snippet = "Last Loc: "&horasMinsSegs&CRLF&"Monto Total: "&montoTotal&CRLF&"Bateria: "&batt&"%"
|
|
End If
|
|
Else
|
|
Dim Marker1 As Marker
|
|
Marker1 = gmap.AddMarker(latmarker, longmarker, devModel)
|
|
Marker1.Title = devModel
|
|
Marker1.Snippet = "Last Loc: "&horasMinsSegs&CRLF&"Monto Total: "&montoTotal&CRLF&"Bateria: "&batt&"%"
|
|
End If
|
|
|
|
' Subs.mueveCamaraMapa(MapFragment1, latmarker, longmarker)
|
|
End Sub
|
|
|
|
Sub MapFragment2_LongClick(Point As LatLng)
|
|
Log("LONG: " & Point)
|
|
p_addGeofence.BringToFront
|
|
p_addGeofence.Left = (Activity.Width / 2) - (p_addGeofence.Width / 2)
|
|
p_addGeofence.Visible = True
|
|
punto = Point
|
|
End Sub
|
|
|
|
Sub InfoWindowAdapter1_GetInfoContents(Marker1 As Marker) As View
|
|
' the default InfoContent will be used if this event Sub is not defined or if it returns Null
|
|
' Log("InfoWindowAdapter1_GetInfoContents")
|
|
TitleLabel.Text=Marker1.Title
|
|
SnippetLabel.Text=Marker1.Snippet
|
|
' ThumbImage.Bitmap=? how will you store the file path/file name of the image to display?
|
|
' it's a shame that the Marker object has no Tag property which could be used to store such info
|
|
Return InfoWindowPanel
|
|
End Sub
|
|
|
|
Sub muestraRuta
|
|
' Log("iniciamos MuestraRuta")
|
|
Private estasCoords, coordsAnt As Location
|
|
coordsAnt.Initialize
|
|
estasCoords.Initialize
|
|
' If lineAnt.IsInitialized Then lineAnt.Visible = False 'Ocultamos ruta anterior
|
|
If mapaDestino = 1 Then
|
|
gmap = MapFragment1.GetMap
|
|
Else
|
|
gmap = MapFragment2.GetMap
|
|
End If
|
|
Dim points As List
|
|
Dim point As LatLng
|
|
Dim lat1, lon1, latIn, lonIn, latOut, lonOut As Double
|
|
line=gmap.AddPolyline
|
|
line.Width=10
|
|
' Log("Color ruta")
|
|
'Cambiamos el color de la ruta cada vez que se solicite una nueva
|
|
If colorAnt = 1 Then line.color=Colors.RGB(255, 54, 54) ' Rojo
|
|
If colorAnt = 2 Then line.color=Colors.RGB(78, 85, 255) ' Azul
|
|
If colorAnt = 3 Then line.color=Colors.RGB(50, 205, 37) ' Verde
|
|
If colorAnt = 4 Then line.color=Colors.RGB(200, 46, 176) ' Purpura
|
|
If colorAnt = 5 Then line.color=Colors.RGB(193, 208, 0) ' Amarillo oscuro
|
|
If colorAnt = 6 Then line.color=Colors.RGB(247, 113, 252) ' Rosa oscuro
|
|
If colorAnt = 7 Then line.color=Colors.RGB(255, 190, 62) ' Naranja
|
|
If colorAnt = 8 Then line.color=Colors.RGB(62, 255, 196) ' Cyan
|
|
If colorAnt = 9 Then line.color=Colors.RGB(0, 167, 255) ' Azul claro
|
|
If colorAnt = 10 Then line.color=Colors.RGB(255, 0, 8) ' Rojo-rosa
|
|
colorAnt = colorAnt + 1
|
|
If colorAnt = 11 Then colorAnt = 1
|
|
points.Initialize
|
|
Dim point As LatLng
|
|
Dim listtemp As List
|
|
' Log(rutaGPS)
|
|
Dim speedOut As String = 0
|
|
If rutaGPS.Length > 10 Then
|
|
listtemp = Regex.Split(CRLF, rutaGPS)
|
|
' Log(listtemp.Size)
|
|
For i = 1 To listtemp.Size-1
|
|
Dim coords() As String = Regex.Split(",",listtemp.Get(i))
|
|
If i = 1 Then
|
|
latIn = coords(0)
|
|
lonIn = coords(1)
|
|
End If
|
|
latOut = coords(0)
|
|
lonOut = coords(1)
|
|
estasCoords.Latitude = latOut
|
|
estasCoords.Longitude = lonOut
|
|
' Log(coordsAnt)
|
|
' Log(estasCoords)
|
|
Private estaDist As String = coordsAnt.DistanceTo(estasCoords)
|
|
' Log(estaDist)
|
|
speedOut = coords(4)
|
|
Dim Marker0 As Marker
|
|
If (i Mod 2 = 0) And estaDist > 300 And cb_puntosIntermedios.Checked Then 'Solo ponemos la mitad de los puntos y si la distancia entre puntos es mayor de 300 mts.
|
|
Private hora As String = Subs.fechaKMT2Ticks(coords(6))
|
|
DateTime.timeformat = "HH:mm"
|
|
hora = DateTime.Time(hora)
|
|
If speedOut > 0.5 Then
|
|
Marker0 = gmap.AddMarker3(latOut, lonOut, "Fin " & usuario, LoadBitmap(File.DirAssets, "waze-moving-small.png"))
|
|
Else
|
|
Marker0 = gmap.AddMarker3(latOut, lonOut, "Fin " & usuario, LoadBitmap(File.DirAssets, "waze-sleeping-small.png"))
|
|
End If
|
|
Marker0.Snippet = "Hora: " & hora & ", Vel.: " & NumberFormat2((speedOut * 3.6), 1, 2, 2, True) & " km/h"
|
|
End If
|
|
lat1 = coords(0)
|
|
lon1 = coords(1)
|
|
point.Initialize(lat1,lon1)
|
|
points.Add(point)
|
|
coordsAnt.Latitude = latOut
|
|
coordsAnt.Longitude = lonOut
|
|
Next
|
|
line.Points = points ' Mapeamos la ruta en el mapa
|
|
lineAnt = line
|
|
Dim data As Map = CreateMap("ruta" : line)
|
|
rutasGPS.Put(rRuta, data)
|
|
' Log(rutasGPS)
|
|
Log("Puntos : "&listtemp.Size)
|
|
' ToastMessageShow("Recibimos ruta con "&listtemp.Size&" puntos", True)
|
|
rutaAnt = rRuta ' Ponemos en rutaAnt la ruta actual
|
|
'Mueve el mapa a las ultmas coordenadas de la ruta
|
|
If mapaDestino = 1 Then
|
|
Subs.mueveCamaraMapa(MapFragment1, latIn, lonIn)
|
|
Else 'Los puntos de la ruta de la base de datos se traen en orden ascendente (los mas viejos primero)
|
|
Subs.mueveCamaraMapa(MapFragment2, latOut, lonOut)
|
|
Dim Marker1 As Marker
|
|
' Marker1 = gmap.AddMarker(latOut, lonOut, "Fin " & usuario)
|
|
If speedOut > 1 Then
|
|
Marker1 = gmap.AddMarker3(latOut, lonOut, "Fin " & usuario, LoadBitmap(File.DirAssets, "waze-moving.png"))
|
|
Else
|
|
Marker1 = gmap.AddMarker3(latOut, lonOut, "Fin " & usuario, LoadBitmap(File.DirAssets, "waze-sleeping.png"))
|
|
End If
|
|
' Marker1.Title = "Fin " & usuario
|
|
Marker1.Snippet = "Fecha: " & fechaFinRutaGPS & ", Vel.: " & NumberFormat2((speedOut * 3.6), 1, 2, 2, True) & " km/h"
|
|
|
|
Dim Marker0 As Marker
|
|
Marker0 = gmap.AddMarker2(latIn, lonIn, "Inicio " & usuario, gmap.HUE_GREEN)
|
|
' Marker0.Title = "Inicio " & usuario
|
|
Marker0.Snippet = $"Fecha: ${fechaInicioRutaGPS}"$
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Sub popExample_BtnClick( btnText As String )
|
|
' ToastMessageShow(btnText & " selected", False)
|
|
If btnText.IndexOf("Borrar Ruta") <> -1 Then
|
|
Mensaje(rutaClic, "Peticion","borraRuta", "bgps2")
|
|
ToastMessageShow("Borramos Ruta:"&rutaClic, True)
|
|
End If
|
|
If btnText.IndexOf("Limpiar Mapa") <> -1 Then
|
|
gmap.Clear 'Limpiamos mapa
|
|
ToastMessageShow("Limpiamos mapa", True)
|
|
End If
|
|
If btnText.IndexOf("Borrar GPS Todos") <> -1 Then
|
|
For c = 0 To clientes.Size-1
|
|
Log(clientes.Get(c))
|
|
Mensaje(clientes.Get(c), "Peticion","borraRuta", "bgps2")
|
|
Next
|
|
ToastMessageShow("Borrar GPS Todos", True)
|
|
End If
|
|
End Sub
|
|
|
|
Sub s_tracker_ItemClick (Position As Int, Value As Object)
|
|
tracker = Value
|
|
End Sub
|
|
|
|
Sub b_buscar_longClick
|
|
mapaDestino = 2
|
|
Subs.panelVisible(p_ruta, 0, 0)
|
|
p_mapa2.Width = Activity.Width
|
|
p_mapa2.Height = Activity.Height - p_periodoInfo.Height - l_periodo.Height - l_periodoTitulo.Height
|
|
p_mapa2.GetView(0).SetLayout(10, 10, p_ruta.Width, p_mapa2.Height) 'ignore
|
|
p_ruta.Width = Activity.Width
|
|
p_ruta.Height = Activity.Height
|
|
p_periodoInfo.Top = Activity.Height - p_periodoInfo.Height - 5
|
|
b_regresar.Top = Activity.Height - b_regresar.Height - 5
|
|
b_geocercas.Top = Activity.Height - b_geocercas.Height - 130
|
|
l_periodoTitulo.Top = Activity.Height - (Activity.Height - p_mapa2.Height)
|
|
l_periodo.Top = Activity.Height - (Activity.Height - p_mapa2.Height) + 10
|
|
s_rutas.Top = l_periodoTitulo.Top + l_periodoTitulo.Height
|
|
l_rutas.Top = s_rutas.top
|
|
l_distanciaRecorrida.Top = l_periodo.Top + l_periodo.Height
|
|
End Sub
|
|
|
|
Sub traeRutaGPS
|
|
Log("traemos ruta del servidor")
|
|
Dim hi, hf As Period
|
|
hi.Hours = et_inicio.text
|
|
hf.Hours = et_final.text
|
|
' hi.Minutes = -30
|
|
' hInicio = DateUtils.AddPeriod(DateTime.Now, hi)
|
|
' hFinal = DateUtils.AddPeriod(DateTime.Now, hf)
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "seleccionaRutaGPS2"
|
|
' If et_final.Text = "0" Then hFinal = DateTime.now
|
|
calculaPeriodo
|
|
cmd.Parameters = Array As Object(Subs.fechaKMT(hInicio), Subs.fechaKMT(hFinal), rutaSeleccionada)
|
|
' Log($"Inicio: ${Subs.fechaKMT(hInicio)}, Fin: ${Subs.fechaKMT(hFinal)}, ${rutaSeleccionada}"$)
|
|
reqManager.ExecuteQuery(cmd , 0, "seleccionaRutaGPS2", 0)
|
|
ToastMessageShow("Solicitamos ruta", False)
|
|
End Sub
|
|
|
|
Private Sub b_getRuta_Click
|
|
traeRutaGPS
|
|
End Sub
|
|
|
|
Private Sub b_regresar_Click
|
|
p_principal.Visible = True
|
|
p_ruta.Visible = False
|
|
mapaDestino = 1
|
|
End Sub
|
|
|
|
Private Sub b_limpiaMapa_Click
|
|
Private gmap2 As GoogleMap
|
|
gmap2.IsInitialized
|
|
gmap2 = MapFragment2.GetMap
|
|
gmap2.Clear 'Limpiamos mapa
|
|
End Sub
|
|
|
|
Private Sub b_inicioMenos_Click
|
|
If et_inicio.text = "" Then et_inicio.Text = "0"
|
|
et_inicio.text = Regex.Replace("[ ]", et_inicio.text, "") 'Quitamos espacios
|
|
et_inicio.text = $"$1.1{et_inicio.text - 0.5}"$
|
|
calculaPeriodo
|
|
End Sub
|
|
|
|
Private Sub b_inicioMas_Click
|
|
If et_inicio.text = "" Then et_inicio.Text = "0"
|
|
et_inicio.text = Regex.Replace("[ ]", et_inicio.text, "") 'Quitamos espacios
|
|
Log(et_inicio.text)
|
|
et_inicio.text = $"$1.1{et_inicio.text + 0.5}"$
|
|
calculaPeriodo
|
|
End Sub
|
|
|
|
Private Sub b_finalMenos_Click
|
|
If et_final.text = "" Then et_final.Text = "0"
|
|
et_final.text = Regex.Replace("[ ]", et_final.text, "") 'Quitamos espacios
|
|
et_final.text =$"$1.1{ et_final.text - 0.5}"$
|
|
calculaPeriodo
|
|
End Sub
|
|
|
|
Private Sub b_finalMas_Click
|
|
If et_final.text = "" Then et_final.Text = "0"
|
|
et_final.text = Regex.Replace("[ ]", et_final.text, "") 'Quitamos espacios
|
|
et_final.text =$"$1.1{ et_final.text + 0.5}"$
|
|
calculaPeriodo
|
|
End Sub
|
|
|
|
Sub calculaPeriodo
|
|
Dim hi, hf As Period
|
|
Private minsInicio() As String
|
|
Private minsFinal() As String
|
|
minsInicio = Array As String("0","0")
|
|
minsFinal = Array As String("0","0")
|
|
hi.Hours = et_inicio.text
|
|
minsInicio = Regex.Split("\.", et_inicio.text)
|
|
If Regex.Split("\.", et_inicio.text).Length > 0 Then minsInicio = Regex.Split("\.", et_inicio.text)
|
|
If minsInicio.Length > 1 Then
|
|
hi.Minutes = minsInicio(1)*6
|
|
If et_inicio.Text < 0 Then hi.Minutes = minsInicio(1)*6*-1 'Si es negativo lo multiplicamos por -1 par restar los minutos
|
|
End If
|
|
hf.Hours = et_final.text
|
|
minsFinal = Regex.Split("\.", et_final.text)
|
|
If Regex.Split("\.", et_final.text).Length > 0 Then minsFinal = Regex.Split("\.", et_final.text)
|
|
If minsFinal.Length > 1 Then
|
|
hf.Minutes = minsFinal(1)*6
|
|
If et_final.Text < 0 Then hf.Minutes = minsFinal(1)*6*-1 'Si es negativo lo multiplicamos por -1 par restar los minutos
|
|
End If
|
|
hInicio = DateUtils.AddPeriod(DateTime.Now, hi)
|
|
hFinal = DateUtils.AddPeriod(DateTime.Now, hf)
|
|
l_periodo.Text = $"Del: ${Subs.diaSemanaString(DateTime.GetDayOfWeek(hInicio))} ${DateTime.Time(hInicio)}${CRLF}Al : ${Subs.diaSemanaString(DateTime.GetDayOfWeek(hFinal))} ${DateTime.Time(hFinal)}"$
|
|
End Sub
|
|
|
|
Private Sub s_rutas_ItemClick (Position As Int, Value As Object)
|
|
rutaSeleccionada = Value
|
|
End Sub
|
|
|
|
Private Sub p_addGeofence_Click
|
|
End Sub
|
|
|
|
Private Sub b_gc_ok_Click
|
|
p_addGeofence.Visible = False
|
|
db.ExecNonQuery($"insert into geocercas (nombre, lat, lon) values ('${et_gc_nombre.Text}', '${punto.Latitude}', '${punto.Longitude}')"$)
|
|
et_gc_nombre.Text = ""
|
|
End Sub
|
|
|
|
Private Sub b_gc_cancelar_Click
|
|
p_addGeofence.Visible = False
|
|
End Sub
|
|
|
|
Private Sub b_geocercas_Click
|
|
Private c As Cursor = db.ExecQuery("select * from geocercas")
|
|
Dim nombre As Label = lv_geocercas.SingleLineLayout.Label
|
|
nombre.TextColor = Colors.Black
|
|
nombre.TextSize = 14
|
|
lv_geocercas.SingleLineLayout.ItemHeight = 30dip
|
|
lv_geocercas.Clear
|
|
If c.RowCount > 1 Then
|
|
For i = 0 To c.RowCount - 1
|
|
c.Position = i
|
|
lv_geocercas.AddSingleLine($"${c.GetString("nombre")}"$)
|
|
Next
|
|
End If
|
|
c.Close
|
|
p_geocercas.BringToFront
|
|
p_geocercas.Visible = True
|
|
End Sub
|
|
|
|
Private Sub lv_geocercas_ItemClick (Position As Int, Value As Object)
|
|
ToastMessageShow("Clic largo para borrar", False)
|
|
End Sub
|
|
|
|
|
|
Private Sub lv_geocercas_ItemLongClick (Position As Int, Value As Object)
|
|
If Msgbox2($"Seguro que desea borrar la geocerca "${Value}""$, "AVISO", "Aceptar", "Cancelar", "", Null) = DialogResponse.POSITIVE Then 'ignore
|
|
db.ExecNonQuery($"delete from geocercas where nombre = '${Value}'"$)
|
|
End If
|
|
p_geocercas.Visible = False
|
|
End Sub
|
|
|
|
Private Sub p_geocercas_Click
|
|
|
|
End Sub
|
|
|
|
Private Sub b_cerrar_Click
|
|
p_geocercas.Visible = False
|
|
End Sub |