cheveguerra/Marquez
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Marquez.git synced 2026-04-19 21:59:29 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se añade clientes nuevos, mapa por cliente y modificaciones de ticket para saber si es a credito

Browse Source
This commit is contained in:
cvaldes1201
2024-11-12 15:22:39 -06:00
parent d170b3bf67
commit 80cb490150
9 changed files with 115 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
B4A/MAPA_CLIENTE.bas
View File

@@ -55,7 +55,17 @@ Sub MapFragment1_Ready
JavaMapsObject = gmap.GetUiSettings
JavaMapsObject.RunMethod("setMapToolbarEnabled", Array As Object(True))
Dim marcador1 As Marker = gmap.AddMarker (latmarker,longmarker, "TIENDA")
marcador1.Snippet = B4XPages.MainPage.cliente.NOMBRE
c = Starter.skmt.ExecQuery("SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION ALL SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info2 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
If c.RowCount > 0 Then
c.Position = 0
' Subs.centraPanel(p_principal, Activity.Width)
' p_principal.Height = Activity.Height * 0.95
'' latmarker = c.GetString("CAT_CL_LAT")
' longmarker = c.GetString("CAT_CL_LONG")
'' NOMBRE_TIENDA = c.GetString("CAT_CL_NOMBRE")
marcador1.Snippet = c.GetString("CAT_CL_NOMBRE")
End If
'posicion inicial
Dim aa As CameraPosition
aa.Initialize(latmarker,longmarker,15)''' RECOMENDABLE CAMBIAR A 10 SI ES MAS DE 1 MARCADOR
@@ -92,11 +102,16 @@ Sub Activity_Resume
Else
GPS.Start(0, 0)
End If
Subs.centraPanel(p_principal, Activity.Width)
p_principal.Height = Activity.Height * 0.95
' latmarker = B4XPages.MainPage.cliente.LATITUD
' longmarker = B4XPages.MainPage.cliente.LONGITUD
' NOMBRE_TIENDA = B4XPages.MainPage.cliente.NOMBRE
c = Starter.skmt.ExecQuery("SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION ALL SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info2 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
If c.RowCount > 0 Then
c.Position = 0
Subs.centraPanel(p_principal, Activity.Width)
p_principal.Height = Activity.Height * 0.95
latmarker = c.GetString("CAT_CL_LAT")
longmarker = c.GetString("CAT_CL_LONG")
NOMBRE_TIENDA = c.GetString("CAT_CL_NOMBRE")
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)