cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-18 02:29:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.03.02

Browse Source 
- Se agregó código para las promos por monto.
- Se agregó codigo para validar la hora del telefono con la hora del servidor.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-03-04 13:25:42 -06:00
parent d87a3c3c63
commit 267a0e7bf9
13 changed files with 318 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
B4A/MAPA_RUTAS.bas
View File

@@ -59,6 +59,10 @@ Sub Globals
Private SEMANA As String
Private p_header As Panel
Private p_mapa As Panel
Dim Canvas1 As Canvas
Dim Counter As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
@@ -170,7 +174,13 @@ Sub MapFragment1_Ready
CODIGO=c2.GetString("CAT_CL_CODIGO")
Tienda= c2.GetString("CAT_CL_NOMBRE")
NumSerie=c2.GetInt("CAT_CL_NUM_SERIEFISICO")
MARK_VERDE = gmap.AddMarker3(LatitudRU,LongitudRU,CODIGO, LoadBitmap(File.DirAssets, "marker-verde-"&NumSerie&".png"))
Log("Ponemos marcador verde")
' Antes
' MARK_VERDE = gmap.AddMarker3(LatitudRU,LongitudRU,CODIGO, LoadBitmap(File.DirAssets, "marker-verde-"&NumSerie&".png"))
' Despues
MARK_VERDE = gmap.AddMarker3(LatitudRU,LongitudRU,CODIGO, CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-verde.png"), i+350))
MARK_VERDE.Snippet = Tienda
Next
c2 .Close
@@ -293,4 +303,85 @@ Sub Activity_KeyPress (key As Int) As Boolean 'ignore
'End If
End If
' Returning False signals the system to handle the key
End Sub
End Sub
Sub inicio
' Dim Bitmap1, Bitmap2 As Bitmap
'' Dim Canvas1 As Canvas
'' Dim Counter As Int
'
' Counter = 1
'
' ' Cargar la imagen del globito
' Bitmap1 = LoadBitmap(File.DirAssets, "marker-azul-1.png")
'
' ' Crear un nuevo Bitmap con el número dibujado
' Bitmap2 = CreateBitmapWithNumber(Bitmap1, Counter)
' Counter = Counter + 1
'
' ' Agregar el marker con el Bitmap personalizado
' Dim Marker1 As Marker
' Marker1 = gmap.AddMarker2(Latitud1, Longitud1, Bitmap2)
'
' ' Repetir para el siguiente marker
' Bitmap2 = CreateBitmapWithNumber(Bitmap1, Counter)
' Counter = Counter + 1
'
' Dim Marker2 As Marker
' Marker2 = gmap.AddMarker2(Latitud2, Longitud2, Bitmap2)
End Sub
' Función para crear un Bitmap con el número dibujado
'Sub CreateBitmapWithNumber2(OriginalBitmap As Bitmap, Number As Int) As Bitmap
' Dim NewBitmap As Bitmap
' NewBitmap.InitializeMutable(OriginalBitmap.Width, OriginalBitmap.Height)
'
' Dim Canvas As Canvas
' Canvas.Initialize2(NewBitmap)
'
' ' Definir el rectángulo donde se dibujará el Bitmap
' Dim DestRect(4) As Float
' DestRect(0) = 0 ' Left
' DestRect(1) = 0 ' Top
' DestRect(2) = OriginalBitmap.Width ' Right
' DestRect(3) = OriginalBitmap.Height ' Bottom
'
' ' Dibujar la imagen original
' Canvas.DrawBitmap(OriginalBitmap, Null, DestRect)
'
' ' Configurar el estilo del texto
' Canvas.DrawColor(Colors.Transparent) ' Fondo transparente
'' Canvas.TextSize = 24 ' Tamaño del texto
'' Canvas.DrawText( = "CENTER" ' Alinear el texto al centro
' Canvas.DrawText(Number, (OriginalBitmap.Width / 2), (OriginalBitmap.Height / 2), Typeface.DEFAULT, 20, Colors.Blue, "CENTER")
'
' ' Dibujar el número en el centro del Bitmap
'' Canvas.DrawText(Number, OriginalBitmap.Width / 2, OriginalBitmap.Height / 2)
' Return NewBitmap
'End Sub
Sub CreateBitmapWithNumber(OriginalBitmap As Bitmap, Number As Int) As Bitmap
Dim NewBitmap As Bitmap
NewBitmap.InitializeMutable(OriginalBitmap.Width, OriginalBitmap.Height)
Dim Canvas As Canvas
Canvas.Initialize2(NewBitmap)
' Definir el rectángulo donde se dibujará el Bitmap
Dim DestRect As Rect
DestRect.Initialize(0, 0, OriginalBitmap.Width, OriginalBitmap.Height)
' Dibujar la imagen original
Canvas.DrawBitmap(OriginalBitmap, Null, DestRect)
' Dibujar el número en el centro del Bitmap y configurar el estilo del texto
Canvas.DrawText(Number, (OriginalBitmap.Width / 2), (OriginalBitmap.Height / 2.4), Typeface.DEFAULT, 20, Colors.White, "CENTER")
Return NewBitmap
End Sub