mirror of
https://github.com/KeymonSoft/Mariana-Reparto-V5.git
synced 2026-04-20 06:09:22 +00:00
- VERSION 5.06.06
- Se agregó en MAPA_RUTAS que si la latitus es 'null' (string) no la muestre. - Se agregó que al iniciar MainPage lea de CAT_VARIABLES el servidor de reqManager.
This commit is contained in:
@@ -125,81 +125,56 @@ Sub MapFragment1_Ready
|
||||
'''''''----------------------------MARKER AZUL - POR ENTREGAR
|
||||
Private esteAzul As Int = 0
|
||||
Private esteAzul2 As String
|
||||
If azul = 1 Or todos = 1 Then
|
||||
c.IsInitialized
|
||||
c = Starter.skmt.ExecQuery("select CAT_CL_CODIGO, IFNULL(SECUENCIA,0) AS SECUENCIA, CAT_CL_NOMBRE, CAT_CL_LAT, CAT_CL_LONG, CAT_CL_RUTA from kmt_info where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
|
||||
rutaAnt = ""
|
||||
For i = 0 To c.RowCount -1
|
||||
c.Position = i
|
||||
LatitudRu = c.GetString("CAT_CL_LAT")
|
||||
LongitudRU = c.GetString("CAT_CL_LONG")
|
||||
CODIGO=c.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c.GetString("CAT_CL_NOMBRE")
|
||||
ruta = c.GetString("CAT_CL_RUTA")
|
||||
If c.GetString("SECUENCIA") = "null" Then
|
||||
NumSerie = 0
|
||||
Else
|
||||
NumSerie = c.GetString("SECUENCIA")
|
||||
End If
|
||||
Private s As Cursor = Starter.skmt.ExecQuery($"select indice from waypoints where codigo = '${CODIGO}'"$)
|
||||
If s.RowCount > 0 Then
|
||||
s.Position = 0
|
||||
NumSerie = s.GetString("indice")
|
||||
End If
|
||||
If rutaAnt <> ruta Then esteAzul = esteAzul + 1
|
||||
' Try
|
||||
If azul = 1 Or todos = 1 Then
|
||||
c.IsInitialized
|
||||
c = Starter.skmt.ExecQuery("select CAT_CL_CODIGO, IFNULL(SECUENCIA,0) AS SECUENCIA, CAT_CL_NOMBRE, CAT_CL_LAT, CAT_CL_LONG, CAT_CL_RUTA from kmt_info where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and cat_cl_lat <> 'null' AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
|
||||
rutaAnt = ""
|
||||
For i = 0 To c.RowCount -1
|
||||
c.Position = i
|
||||
LatitudRu = c.GetString("CAT_CL_LAT")
|
||||
LongitudRU = c.GetString("CAT_CL_LONG")
|
||||
CODIGO=c.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c.GetString("CAT_CL_NOMBRE")
|
||||
ruta = c.GetString("CAT_CL_RUTA")
|
||||
If c.GetString("SECUENCIA") = "null" Then
|
||||
NumSerie = 0
|
||||
Else
|
||||
NumSerie = c.GetString("SECUENCIA")
|
||||
End If
|
||||
Private s As Cursor = Starter.skmt.ExecQuery($"select indice from waypoints where codigo = '${CODIGO}'"$)
|
||||
If s.RowCount > 0 Then
|
||||
s.Position = 0
|
||||
NumSerie = s.GetString("indice")
|
||||
End If
|
||||
If rutaAnt <> ruta Then esteAzul = esteAzul + 1
|
||||
' If esteAzul = 1 Then esteAzul2= NumSerie&"marker-azul.png"
|
||||
' If esteAzul = 2 Then esteAzul2= NumSerie&"marker-azul1.png"
|
||||
' If esteAzul = 3 Then esteAzul2= NumSerie&"marker-azul2.png"
|
||||
' If esteAzul = 4 Then esteAzul2= NumSerie&"marker-azul3.png"
|
||||
' If esteAzul = 5 Then esteAzul2= NumSerie&"marker-azul4.png"
|
||||
|
||||
If esteAzul = 1 Then esteAzul2= "marker-azul.png"
|
||||
If esteAzul = 2 Then esteAzul2= "marker-azul1.png"
|
||||
If esteAzul = 3 Then esteAzul2= "marker-azul2.png"
|
||||
If esteAzul = 4 Then esteAzul2= "marker-azul3.png"
|
||||
If esteAzul = 5 Then esteAzul2= "marker-azul4.png"
|
||||
If esteAzul = 1 Then esteAzul2= "marker-azul.png"
|
||||
If esteAzul = 2 Then esteAzul2= "marker-azul1.png"
|
||||
If esteAzul = 3 Then esteAzul2= "marker-azul2.png"
|
||||
If esteAzul = 4 Then esteAzul2= "marker-azul3.png"
|
||||
If esteAzul = 5 Then esteAzul2= "marker-azul4.png"
|
||||
' MARK_VERDE = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-verde.png"), i+350))
|
||||
|
||||
' Log(ruta & "|" & esteAzul & "|" & esteAzul2)
|
||||
' Log(NumSerie&" "& Tienda&" --------"& esteAzul2&" --------"&esteAzul)
|
||||
MARK_AZUL = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, esteAzul2), NumSerie))
|
||||
MARK_AZUL.Snippet = "R: " & ruta & " - " & Tienda
|
||||
rutaAnt = ruta
|
||||
Next
|
||||
c .Close
|
||||
If MARK_AZUL.IsInitialized Then LIST_AZUL.Add(MARK_AZUL)
|
||||
End If
|
||||
'''''''----------------------------MARKER VERDE- ENTREGADO
|
||||
If verde = 1 Or todos = 1 Then
|
||||
rutaAnt = ""
|
||||
c2.IsInitialized
|
||||
c2=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, IFNULL(SECUENCIA,0) AS SECUENCIA, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
|
||||
For i = 0 To c2.RowCount -1
|
||||
c2.Position = i
|
||||
LongitudRU = c2.GetString("CAT_CL_LONG")
|
||||
LatitudRu = c2.GetString("CAT_CL_LAT")
|
||||
CODIGO=c2.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c2.GetString("CAT_CL_NOMBRE")
|
||||
ruta = c2.GetString("CAT_CL_RUTA")
|
||||
If c2.GetString("SECUENCIA") = "null" Then
|
||||
NumSerie = 0
|
||||
Else
|
||||
NumSerie = c2.GetString("SECUENCIA")
|
||||
End If
|
||||
Private s As Cursor = Starter.skmt.ExecQuery($"select indice from waypoints where codigo = '${CODIGO}'"$)
|
||||
If s.RowCount > 0 Then
|
||||
s.Position = 0
|
||||
NumSerie = s.GetString("indice")
|
||||
End If
|
||||
MARK_VERDE = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-verde.png"), NumSerie))
|
||||
' MARK_VERDE = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmapResize(File.DirAssets, NumSerie&"marker-verde.png" ,72, 115, True))
|
||||
MARK_VERDE.Snippet = "R:" & ruta & ", " & Tienda
|
||||
Next
|
||||
Else
|
||||
MARK_AZUL = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, esteAzul2), NumSerie))
|
||||
MARK_AZUL.Snippet = "R: " & ruta & " - " & Tienda
|
||||
rutaAnt = ruta
|
||||
Next
|
||||
c .Close
|
||||
If MARK_AZUL.IsInitialized Then LIST_AZUL.Add(MARK_AZUL)
|
||||
End If
|
||||
'''''''----------------------------MARKER VERDE- ENTREGADO
|
||||
If verde = 1 Or todos = 1 Then
|
||||
rutaAnt = ""
|
||||
c2.IsInitialized
|
||||
c2=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
|
||||
c2=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, IFNULL(SECUENCIA,0) AS SECUENCIA, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
|
||||
For i = 0 To c2.RowCount -1
|
||||
c2.Position = i
|
||||
LongitudRU = c2.GetString("CAT_CL_LONG")
|
||||
@@ -207,61 +182,91 @@ Sub MapFragment1_Ready
|
||||
CODIGO=c2.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c2.GetString("CAT_CL_NOMBRE")
|
||||
ruta = c2.GetString("CAT_CL_RUTA")
|
||||
MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU, CODIGO,gmap.HUE_GREEN)
|
||||
If c2.GetString("SECUENCIA") = "null" Then
|
||||
NumSerie = 0
|
||||
Else
|
||||
NumSerie = c2.GetString("SECUENCIA")
|
||||
End If
|
||||
Private s As Cursor = Starter.skmt.ExecQuery($"select indice from waypoints where codigo = '${CODIGO}'"$)
|
||||
If s.RowCount > 0 Then
|
||||
s.Position = 0
|
||||
NumSerie = s.GetString("indice")
|
||||
End If
|
||||
MARK_VERDE = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-verde.png"), NumSerie))
|
||||
' MARK_VERDE = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmapResize(File.DirAssets, NumSerie&"marker-verde.png" ,72, 115, True))
|
||||
MARK_VERDE.Snippet = "R:" & ruta & ", " & Tienda
|
||||
Next
|
||||
c2 .Close
|
||||
If MARK_VERDE.IsInitialized Then LIST_VERDE.Add(MARK_VERDE)
|
||||
Else
|
||||
If verde = 1 Or todos = 1 Then
|
||||
rutaAnt = ""
|
||||
c2.IsInitialized
|
||||
c2=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
|
||||
For i = 0 To c2.RowCount -1
|
||||
c2.Position = i
|
||||
LongitudRU = c2.GetString("CAT_CL_LONG")
|
||||
LatitudRu = c2.GetString("CAT_CL_LAT")
|
||||
CODIGO=c2.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c2.GetString("CAT_CL_NOMBRE")
|
||||
ruta = c2.GetString("CAT_CL_RUTA")
|
||||
MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU, CODIGO,gmap.HUE_GREEN)
|
||||
MARK_VERDE.Snippet = "R:" & ruta & ", " & Tienda
|
||||
Next
|
||||
c2 .Close
|
||||
If MARK_VERDE.IsInitialized Then LIST_VERDE.Add(MARK_VERDE)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
' '''''''----------------------------MARKER ROJO - NO ENTREGADO
|
||||
Private esteRojo As Int = 0
|
||||
Private esteRojo2 As String
|
||||
If rojo = 1 Or todos = 1 Then
|
||||
rutaAnt = ""
|
||||
c3.IsInitialized
|
||||
c3=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, IFNULL(SECUENCIA,0) AS SECUENCIA, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
|
||||
For i = 0 To c3.RowCount -1
|
||||
c3.Position = i
|
||||
LongitudRU = c3.GetDouble("CAT_CL_LONG")
|
||||
LatitudRu = c3.GetDouble("CAT_CL_LAT")
|
||||
Tienda= c3.GetString("CAT_CL_NOMBRE")
|
||||
ruta = c3.GetString("CAT_CL_RUTA")
|
||||
CODIGO=c3.GetString("CAT_CL_CODIGO")
|
||||
If c3.GetString("SECUENCIA") = "null" Then
|
||||
NumSerie = 0
|
||||
Else
|
||||
NumSerie = c3.GetString("SECUENCIA")
|
||||
End If
|
||||
Private s As Cursor = Starter.skmt.ExecQuery($"select indice from waypoints where codigo = '${CODIGO}'"$)
|
||||
If s.RowCount > 0 Then
|
||||
s.Position = 0
|
||||
NumSerie = s.GetString("indice")
|
||||
End If
|
||||
MARK_ROJO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-rojo.png"), NumSerie))
|
||||
' MARK_ROJO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmapResize(File.DirAssets, NumSerie&"marker-rojo.png" ,72, 115, True))
|
||||
|
||||
MARK_ROJO.Snippet= "R:" & ruta & ", " & Tienda
|
||||
Next
|
||||
Else
|
||||
If rojo = 1 Or todos = 1 Then
|
||||
Private esteRojo As Int = 0
|
||||
Private esteRojo2 As String
|
||||
If rojo = 1 Or todos = 1 Then
|
||||
rutaAnt = ""
|
||||
c3.IsInitialized
|
||||
c3=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
|
||||
c3=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, IFNULL(SECUENCIA,0) AS SECUENCIA, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
|
||||
For i = 0 To c3.RowCount -1
|
||||
c3.Position = i
|
||||
LongitudRU = c3.GetDouble("CAT_CL_LONG")
|
||||
LatitudRu = c3.GetDouble("CAT_CL_LAT")
|
||||
Tienda= c3.GetString("CAT_CL_NOMBRE")
|
||||
ruta = c2.GetString("CAT_CL_RUTA")
|
||||
ruta = c3.GetString("CAT_CL_RUTA")
|
||||
CODIGO=c3.GetString("CAT_CL_CODIGO")
|
||||
MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU, CODIGO,gmap.HUE_RED)
|
||||
If c3.GetString("SECUENCIA") = "null" Then
|
||||
NumSerie = 0
|
||||
Else
|
||||
NumSerie = c3.GetString("SECUENCIA")
|
||||
End If
|
||||
Private s As Cursor = Starter.skmt.ExecQuery($"select indice from waypoints where codigo = '${CODIGO}'"$)
|
||||
If s.RowCount > 0 Then
|
||||
s.Position = 0
|
||||
NumSerie = s.GetString("indice")
|
||||
End If
|
||||
MARK_ROJO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-rojo.png"), NumSerie))
|
||||
' MARK_ROJO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmapResize(File.DirAssets, NumSerie&"marker-rojo.png" ,72, 115, True))
|
||||
|
||||
MARK_ROJO.Snippet= "R:" & ruta & ", " & Tienda
|
||||
Next
|
||||
If MARK_ROJO.IsInitialized Then LIST_ROJO.Add(MARK_ROJO)
|
||||
c3.Close
|
||||
Else
|
||||
If rojo = 1 Or todos = 1 Then
|
||||
rutaAnt = ""
|
||||
c3.IsInitialized
|
||||
c3=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
|
||||
For i = 0 To c3.RowCount -1
|
||||
c3.Position = i
|
||||
LongitudRU = c3.GetDouble("CAT_CL_LONG")
|
||||
LatitudRu = c3.GetDouble("CAT_CL_LAT")
|
||||
Tienda= c3.GetString("CAT_CL_NOMBRE")
|
||||
ruta = c2.GetString("CAT_CL_RUTA")
|
||||
CODIGO=c3.GetString("CAT_CL_CODIGO")
|
||||
MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU, CODIGO,gmap.HUE_RED)
|
||||
MARK_ROJO.Snippet= "R:" & ruta & ", " & Tienda
|
||||
Next
|
||||
If MARK_ROJO.IsInitialized Then LIST_ROJO.Add(MARK_ROJO)
|
||||
c3.Close
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
' Catch
|
||||
' Log(LastException)
|
||||
' End Try
|
||||
|
||||
''------------------------------
|
||||
' MARK_CEDIS = gmap.AddMarker3("19.3961802","-99.0784293","CEDIS", LoadBitmap(File.DirAssets, "marker-azul-0.png"))
|
||||
' If MARK_VERDE.Visible Or MARK_ROJO.Visible Then
|
||||
|
||||
Reference in New Issue
Block a user