cheveguerra/Tortillas_Guerreras
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Tortillas_Guerreras.git synced 2026-04-22 15:10:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 5.12.16

Browse Source 
- Se agregó el codigo para los recordatorios a las 13:00 y a las 14:00.
- Se cambio el timer para la ubicacion en tiempo real a 5 minutos (estaba en 10 seg)
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-12-26 14:19:35 -06:00
parent 6a0e127bc4
commit dde7af5066
15 changed files with 283 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/B4XMainPage.bas
View File

@@ -18,6 +18,9 @@ Version=9.85
'###################### PUSH TORTOISE GIT #########################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../../"&Args=/closeonend:2
'###########################################################################################################
'###################### PUSH TORTOISE GIT CON TAG ##################################################
'Ctrl + clic para Git: ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=-ExecutionPolicy&Args=Bypass&Args=-File&Args=..\_git_tag.ps1&Args=%22%PROJECT%%22&Args=%22%PROJECT_NAME%%22
'###########################################################################################################
#End Region
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
@@ -128,6 +131,8 @@ Sub Class_Globals
Private B_Can_Monto As Button
Private B_Aceptar_Monto As Button
Private ET_Add_Monto As EditText
Dim recordatorio As C_Recordatorio
Dim pantallaActual As B4XView
End Sub
Public Sub Initialize
@@ -177,6 +182,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' B4XPages.AddPageAndCreate("respaldoDiario", respaldoDiario)
ruta = Starter.ruta
Provider.Initialize
recordatorio.Initialize(Root)
' Subs.borraArribaDe100Errores ' Para Websockets
' Subs.borraArribaDe600RenglonesBitacora ' Para Websockets
If File.Exists(ruta, "kmt.db") = False Then
@@ -393,6 +399,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub
Sub B4XPage_Appear
B4XPages.mainpage.pantallaActual = Root
Log(recarga)
If Starter.muestraProgreso = 1 Then
muestraProgreso("Descargando actualización")
@@ -1376,3 +1383,8 @@ End Sub
Private Sub p_add_monto_Click
End Sub
Private Sub p_ticketsdia_LongClick
End Sub