mirror of
https://github.com/KeymonSoft/Android_Danvit.git
synced 2026-04-17 19:37:08 +00:00
VERSION 6.04.07
- Cambios en la clase DBRequestManager para que mande mas logs - Se agtego un parametro al query hist_comp_promos
This commit is contained in:
7
fila.bas
7
fila.bas
@@ -406,19 +406,18 @@ lon_gps=Location1.Longitude
|
||||
BT_QR.Enabled = True
|
||||
LA_GPS.TextColor = Colors.Blue
|
||||
LA_GPS.Text = "CON UBICACION GPS"
|
||||
|
||||
|
||||
|
||||
Dim l1, l2 As Location
|
||||
l1.Initialize2(lat_gps, lon_gps)
|
||||
l2.Initialize2(m_lat, m_lon)
|
||||
|
||||
|
||||
'now we need the distance between our location and the target location
|
||||
|
||||
Dim distance As Long
|
||||
distance = l1.DistanceTo(l2) 'the result is in meter
|
||||
|
||||
gest.Visible = True
|
||||
|
||||
|
||||
If distance < 20 Then
|
||||
LA_GEO.TextColor = Colors.Blue
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user