cheveguerra/Intmex_Promotoria
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Promotoria.git synced 2026-04-19 13:49:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'main' of https://github.com/jaguerrau/Intmex_Promotoria

Browse Source
This commit is contained in:
cvaldes1201
2024-02-26 11:02:24 -06:00
parent 7b0fa42d1b 846b108510
commit 2c5520e571
4 changed files with 50 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
B4A/Intmex-Promotoria.b4a.meta Normal file
View File

@@ -0,0 +1,30 @@
ModuleBookmarks0=
ModuleBookmarks1=
ModuleBookmarks2=
ModuleBookmarks3=
ModuleBookmarks4=
ModuleBookmarks5=
ModuleBookmarks6=
ModuleBookmarks7=
ModuleBookmarks8=
ModuleBreakpoints0=
ModuleBreakpoints1=
ModuleBreakpoints2=
ModuleBreakpoints3=
ModuleBreakpoints4=
ModuleBreakpoints5=
ModuleBreakpoints6=
ModuleBreakpoints7=
ModuleBreakpoints8=
ModuleClosedNodes0=
ModuleClosedNodes1=
ModuleClosedNodes2=
ModuleClosedNodes3=
ModuleClosedNodes4=
ModuleClosedNodes5=
ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
NavigationStack=C_principal,Class_Globals,0,0,C_cliente,GPS_LocationChanged,141,0,C_principal,b_carga_Click,64,0,C_principal,p_datosclie_Click,162,0,C_cliente,Class_Globals,0,0,C_cliente,B4XPage_Created,110,0,B4XMainPage,Class_Globals,28,0,Subs,guardaAppInfo,26,1,Subs,revisaBD,21,0,B4XMainPage,B4XPage_Created,60,4
SelectedBuild=0
VisibleModules=6,1,3,2,7,5,4,8

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