cheveguerra/Intmex_Promotoria
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Promotoria.git synced 2026-04-17 21:06:28 +00:00
Code Issues Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
cheveguerra
2023-09-12 01:45:24 -06:00
parent 1454cf71fb
commit 2f39635413
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/Subs.bas
View File

@@ -23,4 +23,11 @@ Sub revisaBD 'ignore
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CUENTAA")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_PREGUNTAS")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CARGA")
End Sub
'Guarda la empresa y version de la app en CAT_VARIABLES.
Sub guardaAppInfo(skmt As SQL) 'ignore
skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'")
skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
End Sub

1
B4XMainPage.bas
View File

@@ -65,7 +65,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
ToastMessageShow("Sin permisos para GPS", True)
End If
Log(Result)
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
' If Result Then