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

guarda version

Browse Source
This commit is contained in:
cvaldes1201
2024-04-18 10:30:04 -06:00
parent 47a9186140
commit 9da6091ee5
3 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/B4XMainPage.bas
View File

@@ -234,7 +234,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
almacen = 0
rutaPreventa = 0
p_appUpdate.Visible = False
Subs.guardaAppInfo
End Sub
Sub B4XPage_Appear

2
B4A/Guna Vistas V3.1.b4a.meta
View File

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=B4XMainPage,B4XPage_Appear,323,1,C_Principal,Subir_Click,717,0,B4XMainPage,b_aceptar_Click,798,6,C_Principal,e_ruta_EnterPressed,1809,6,C_Principal,cargar_Click,734,3,C_Cliente,GPS_LocationChanged,743,6,C_Cliente,B4XPage_Appear,671,1,C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,1707,0,C_Principal,JobDone,992,6
NavigationStack=C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,1707,0,C_Principal,JobDone,992,6,C_Productos,Class_Globals,0,0,Subs,notiHigh,78,0,Subs,agregaColumna,1128,0,Subs,guardaAppInfo,1133,0,B4XMainPage,Initialize,99,0,B4XMainPage,B4XPage_Created,230,0,C_Cliente,B4XPage_Appear,451,1,C_Cliente,GPS_LocationChanged,802,0
SelectedBuild=0
VisibleModules=21,2,22,12,13,4,8,11,5,10

7
B4A/Subs.bas
View File

@@ -1130,4 +1130,11 @@ Sub agregaColumna(tabla As String, columna As String, tipo As String) 'ignore
End Try
Log(2)
End Try
End Sub
'Guarda el nombre y version de la app en CAT_VARIABLES.
Sub guardaAppInfo 'ignore
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'")
B4XPages.MainPage.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
B4XPages.MainPage.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
End Sub