cheveguerra/Gabinete-Roit
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Gabinete-Roit.git synced 2026-04-17 19:37:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

4.04.17 se agrega codigos qr

Browse Source
This commit is contained in:
Javier
2025-09-01 13:34:06 -06:00
parent dea84574e5
commit 7df82c83ae
15 changed files with 483 additions and 423 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
B4A/Subs.bas
View File

@@ -9,7 +9,7 @@ Version=11.8
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim errorLog As SQL 'Requiere la libreria "SQL"
End Sub
Sub revisaBD 'ignore
@@ -23,24 +23,6 @@ Sub revisaBD 'ignore
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_SUPERVISOR(HIST_CHKS_PROYECTO TEXT, HIST_CHKS_NOMPROY TEXT, HIST_CHKS_SUCURSAL TEXT,HIST_CHKS_FORMATO TEXT, HIST_CHKS_SUPERVISOR TEXT, HIST_CHKS_PROMOTOR TEXT, HIST_CHKS_FECHA TEXT, HIST_CHKS_ID TEXT, HIST_CHKS_CALIF_MULTIPLE TEXT, HIST_CHKS_CALIF_ABIERTA TEXT, HIST_CHKS_HORARIO TEXT, ENVIADO INT)")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_SUPERVISOR")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS trabaja(sitrabaja TEXT)")
If Not(errorLog.IsInitialized) Then errorLog.Initialize(File.DirInternal, "errorLog.db", True)
errorLog.ExecNonQuery("CREATE TABLE IF NOT EXISTS errores(fecha INTEGER, error TEXT)")
End Sub
'Limpiamos la tabla errorLog de la BD
Sub deleteErrorLog_DB 'ignore
errorLog.ExecNonQuery("delete from errores")
errorLog.ExecNonQuery("vacuum;")
ToastMessageShow("BD Errores Borrada", False)
End Sub
'Borramos renglones extra de la tabla de errores
Sub borraArribaDe100Errores 'ignore
revisaBD
LogColor("Borramos BD de log", Colors.Magenta)
errorLog.ExecNonQuery("DELETE FROM errores WHERE fecha NOT in (SELECT fecha FROM errores ORDER BY fecha desc LIMIT 99 )")
errorLog.ExecNonQuery("vacuum;")
Log("Borramos mas de 100 de errorLog")
End Sub
'Genera una notificacion con importancia alta
@@ -69,12 +51,6 @@ Sub notiLowReturn(title As String, Body As String, id As Int) As Notification 'i
notification.Notify(id)
' Log("notiLowReturn SetInfo")
Return notification
' java.lang.SecurityException: Starting FGS with Type location callerApp=ProcessRecord{d39abd3 32668:gabinete.keymon.lat/u0a261}
' targetSDK=34 requires permissions: all of the permissions allOf=True [android.permission.FOREGROUND_SERVICE_LOCATION]
' any of the permissions allOf=False [android.permission.ACCESS_COARSE_LOCATION, android.permission.ACCESS_FINE_LOCATION]
' And the app must be in the eligible state/exemptions To access the foreground only permission
End Sub
Sub IsConnectedToInternet As Boolean 'ignore
@@ -88,15 +64,4 @@ Sub IsConnectedToInternet As Boolean 'ignore
End If
' If logger Then LogColor("Not connected", Colors.red)
Return False
End Sub
'Convierte una fecha al formato yyMMddHHmmss
Sub fechaKMT(fecha As String) As String 'ignore
' Log(fecha)
Dim OrigFormat As String = DateTime.DateFormat 'save orig date format
DateTime.DateFormat="yyMMddHHmmss"
Dim nuevaFecha As String=DateTime.Date(fecha)
DateTime.DateFormat=OrigFormat 'return to orig date format
' Log(nuevaFecha)
Return nuevaFecha
End Sub