cheveguerra/Intmex_Multiventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Multiventa.git synced 2026-04-17 21:06:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 6.02.21

Browse Source 
- Se agrego que cuando hagan clic en el nombre del cliente se actualicen automaticamente las coordenadas en web.
This commit is contained in:
Jose Alberto Guerra Ugalde
2026-02-26 16:12:42 -06:00
parent 57ac2ff737
commit 5426e434ca
5 changed files with 198 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
B4A/C_Cliente.bas
View File

@@ -337,9 +337,7 @@ Sub B4XPage_Appear
End If
c.Close
If ALMACEN = "1" Then
Tels.Visible = False
gest.Visible = False
' B_GPS.Visible = False
ocultamosBotonesPorGeocerca
End If
If ALMACEN = "4" Then
' b_like.Visible = True
@@ -361,12 +359,22 @@ Sub B4XPage_Appear
Else
' b_like.Visible = False
End If
If ALMACEN = "16" Or ALMACEN = "13" Then
If Not(Subs.geocercaActiva) And ALMACEN = "16" Or ALMACEN = "13" Then
Log("Mostramos botones venta")
Tels.Visible = True
gest.Visible = True
b_ventaabordo.Visible = True
End If
If Not(Subs.geocercaActiva) Then
Log("Mostramos botones venta")
Tels.Visible = True
gest.Visible = True
b_ventaabordo.Visible = True
Else
Log("Ocultamos botones venta")
ocultamosBotonesPorGeocerca
End If
Tels.Visible = True
gest.Visible = True
' h = B4XPages.MainPage.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
' h.Position = 0
@@ -446,42 +454,41 @@ Sub B4XPage_disappear
End Sub
Sub GPS_LocationChanged (Location1 As Location)
' LogColor($"Entrando a Cliente.GPS_LocationChanged"$, Colors.red)
' If Tracker.FLP.GetLastKnownLocation.IsInitialized And Tracker.FLP.GetLastKnownLocation.Latitude <> 0 Then
' B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
' B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
'' Log("Coords set to: " & B4XPages.MainPage.lat_gps & " and " & B4XPages.MainPage.lon_gps)
' End If
B4XPages.MainPage.lat_gps = Location1.Latitude
B4XPages.MainPage.lon_gps = Location1.Longitude
LogColor($"Entrando a Cliente.GPS_LocationChanged"$, Colors.red)
If Tracker.FLP.GetLastKnownLocation.IsInitialized And Tracker.FLP.GetLastKnownLocation.Latitude <> 0 Then
B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
' Log("Coords set to: " & B4XPages.MainPage.lat_gps & " and " & B4XPages.MainPage.lon_gps)
End If
Dim locTienda As Location
locTienda.Initialize2(m_lat, m_lon)
Dim l1, l2 As Location
l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
' Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$)
l2.Initialize2(m_lat, m_lon)
BT_QR.Enabled = True
LA_GPS.TextColor = Colors.Blue
LA_GPS.Text = "CON UBICACION GPS"
distance = Location1.DistanceTo(locTienda) 'Distancia de la ubicacion actual a coords de la tienda.
Log("Distancia a tienda: " & distance)
If distance < 50 Then
gest.Visible = True
Log("CON UBICACION GPS")
' B_GPS.Enabled = True
'now we need the distance between our location and the target location
distance = l1.DistanceTo(l2) 'the result is in meter
Log(distance)
Log((Subs.geocercaActiva And distance < 100))
Log(Not(Subs.geocercaActiva))
If (Subs.geocercaActiva And distance < 100) Or (Not(Subs.geocercaActiva)) Then
Log("Mostramos botones venta")
LA_GEO.TextColor = Colors.Blue
Tels.Visible = True
If la_cuenta.Text = "0" Then
b_ventaabordo.Visible = False
Else
b_ventaabordo.Visible = True
End If
gest.Visible = True
b_ventaabordo.Visible = True
Else
LA_GEO.TextColor = Colors.Red
If Subs.traeGeocerca Then
ocultamosBotonesPorGeocerca
End If
' LA_GEO.TextColor = Colors.Red
End If
LA_GEO.Text= $"$1.2{distance/1000} kms"$
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
' CallSubDelayed(Tracker, "CreateLocationRequest")
CallSubDelayed(Tracker, "CreateLocationRequest")
End Sub
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
@@ -1048,6 +1055,7 @@ Sub B_GUARDA_C_Click
Tar.Visible = True
Tels.Visible = True
gest.Visible = True
b_ventaabordo.Visible = True
' b_like.Visible = False
Guardar.Visible = True
End Sub
@@ -1445,6 +1453,14 @@ Sub JobDone(Job As HttpJob)
End If
End If
'Guarda coords nuevas
If Job.JobName = "DBRequest" Then
Dim resultado As DBResult = reqManager.HandleJob(Job)
If resultado.Tag = "insCoordsNuevas" Then
ToastMessageShow("Coordenadas actualizadas", False)
End If
End If
'CUESTIONARIO
If Job.JobName = "DBRequest" Then
Dim resultado As DBResult = reqManager.HandleJob(Job)
@@ -1737,4 +1753,22 @@ Sub ocultamosBotonesPorGeocerca
gest.Visible = False
b_ventaabordo.Visible = False
Tels.Visible = False
End Sub
Private Sub la_nombre_Click
Log("Clicked")
Log("Enviando coords")
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
B4XPages.MainPage.skmt.ExecNonQuery($"update kmt_info set cat_cl_lat = '${B4XPages.MainPage.lat_gps}', cat_cl_long = '${B4XPages.MainPage.lon_gps}' where cat_cl_codigo = '${la_cuenta.text}'"$)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_coordsNuevas_INTMEX"
cmd.Parameters = Array As Object(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, Subs.traeAlmacen, Subs.traeRuta, la_cuenta.text)
' cmd.Parameters = Array As Object("1", "1", "5", "6", "CLN13478")
Log($"${Subs.traeAlmacen}, ${Subs.traeRuta},${la_cuenta.text},${B4XPages.MainPage.lat_gps},${B4XPages.MainPage.lon_gps}"$)
reqManager.ExecuteCommand(cmd , "insCoordsNuevas")
B4XPage_Appear
End Sub