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:
2026-04-09 12:55:24 -06:00
parent e462283bc5
commit 0772cdab50
5 changed files with 920 additions and 830 deletions

View File

@@ -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