cheveguerra/Kelloggs_V3
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_V3.git synced 2026-04-20 22:29:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Rebased

Browse Source
This commit is contained in:
cheveguerra
2023-09-07 11:04:53 -06:00
parent a01fa48d39
commit 070c0846e9
6 changed files with 63 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
B4A/MAPA_RUTAS.bas
View File

@@ -117,8 +117,11 @@ End Sub
Sub MapFragment1_Ready
gmap = MapFragment1.GetMap
LongitudRU = 19.4316281
LatitudRU = -99.1333579
' LongitudRU = 19.4316281
' LatitudRU = -99.1333579
LongitudRU = Starter.lon_gps
LatitudRU = Starter.lat_gps
' todos= 1
'permisos
@@ -154,8 +157,8 @@ Sub MapFragment1_Ready
'''''''---------------------------- MARKER VERDE - VENTA
If verde = 1 Or todos = 1 Then
c2.IsInitialized
c2=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_NUM_SERIEFISICO from kmt_info WHERE CAT_CL_NOMBRE <>'VENTA ABORDO' AND CAT_CL_CODIGO IN (Select PE_CLIENTE from PEDIDO) AND CAT_CL_CODIGO NOT In (Select NV_CLIENTE from NOVENTA) and CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'DIA_VISITA')")
c2.IsInitialized ''''''''''''' AND CAT_CL_CODIGO NOT In (Select NV_CLIENTE from NOVENTA) and CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'DIA_VISITA')
c2=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_NUM_SERIEFISICO from kmt_info WHERE CAT_CL_NOMBRE <>'VENTA ABORDO' AND CAT_CL_CODIGO IN (Select PE_CLIENTE from PEDIDO)")
For i = 0 To c2.RowCount -1
c2.Position = i
LongitudRU = c2.GetDouble("CAT_CL_LONG")
@@ -163,13 +166,17 @@ Sub MapFragment1_Ready
CODIGO=c2.GetString("CAT_CL_CODIGO")
Tienda= c2.GetString("CAT_CL_NOMBRE")
NumSerie=c2.GetInt("CAT_CL_NUM_SERIEFISICO")
If LongitudRU < 0 Then
LatitudRU= c2.GetDouble("CAT_CL_LONG")
LongitudRU = c2.GetDouble("CAT_CL_LAT")
End If
MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRU,CODIGO, LoadBitmap(File.DirAssets, "marker-verde-"&NumSerie&".png"))
MARK_VERDE.Snippet = Tienda
Next
Else
If verde = 1 Or todos = 1 Then
c2.IsInitialized
c2=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_NUM_SERIEFISICO from kmt_info WHERE CAT_CL_NOMBRE <>'VENTA ABORDO' AND CAT_CL_CODIGO IN (Select PE_CLIENTE from PEDIDO) AND CAT_CL_CODIGO NOT In (Select NV_CLIENTE from NOVENTA ) AND CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'DIA_VISITA')")
c2.IsInitialized ''''''''''AND CAT_CL_CODIGO NOT In (Select NV_CLIENTE from NOVENTA ) AND CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'DIA_VISITA')
c2=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_NUM_SERIEFISICO from kmt_info WHERE CAT_CL_NOMBRE <>'VENTA ABORDO' AND CAT_CL_CODIGO IN (Select PE_CLIENTE from PEDIDO) ")
For i = 0 To c2.RowCount -1
c2.Position = i
LongitudRU = c2.GetDouble("CAT_CL_LONG")
@@ -177,6 +184,10 @@ Sub MapFragment1_Ready
CODIGO=c2.GetString("CAT_CL_CODIGO")
Tienda= c2.GetString("CAT_CL_NOMBRE")
NumSerie=c2.GetInt("CAT_CL_NUM_SERIEFISICO")
If LongitudRU < 0 Then
LatitudRU= c2.GetDouble("CAT_CL_LONG")
LongitudRU = c2.GetDouble("CAT_CL_LAT")
End If
MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRU,CODIGO, LoadBitmap(File.DirAssets, "marker-verde-"&NumSerie&".png"))
MARK_VERDE.Snippet = Tienda
Next
@@ -224,10 +235,26 @@ Sub MapFragment1_Ready
' If MARK_VERDE.Visible Or MARK_ROJO.Visible Then
' MARK_CEDIS.Remove
' End If
If LatitudRU > -1 Then
LongitudRU = 19.4316281
LatitudRU = -99.1333579
End If
' If LatitudRU > -1 Then
' LongitudRU = 19.4316281
' LatitudRU = -99.1333579
' End If
c.IsInitialized
c=Starter.skmt.ExecQuery2("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_NUM_SERIEFISICO from kmt_info where CAT_CL_NOMBRE <>'VENTA ABORDO' AND CAT_CL_CODIGO NOT IN (Select PE_CLIENTE from PEDIDO) AND CAT_CL_CODIGO NOT In (Select NV_CLIENTE from NOVENTA) AND CAT_CL_CODIGO NOT LIKE 'N%' and CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'DIA_VISITA') and cat_cl_codigo <> 0 AND CAT_CL_TIPO_RUTA IN (?,?) ORDER BY CAT_CL_NUM_SERIEFISICO", Array As String(SEMANA, "SEMANAL"))
' skmt.Initialize(ruta,"kmt.db", True)
If c.RowCount > 0 Then
' For i = 0 To c.RowCount -1
c.Position = 1
LongitudRU = c.GetDouble("CAT_CL_LONG")
LatitudRU = c.GetDouble("CAT_CL_LAT")
If LongitudRU < 0 Then
LatitudRU= c.GetDouble("CAT_CL_LONG")
LongitudRU = c.GetDouble("CAT_CL_LAT")
End If
End If
' Next
c .Close
Dim aa As CameraPosition
aa.Initialize(LongitudRU,LatitudRU,10)''' RECOMENDABLE CAMBIAR A 10 PARA QUE SE VEAN MAS MARCADORES
gmap.AnimateCamera(aa)
@@ -236,6 +263,7 @@ Sub MapFragment1_Ready
Dim OnInfoWindowClickListener1 As OnInfoWindowClickListener
OnInfoWindowClickListener1.Initialize("OnInfoWindowClickListener1")
GoogleMapEXTRA.SetOnInfoWindowClickListener(gmap, OnInfoWindowClickListener1)
End Sub
'
''''-------------------------- PRUEBA CON MARKER _CLICK