From 9da6091ee5c784ae1ec51ec2ea9ead839ab0ba92 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Thu, 18 Apr 2024 10:30:04 -0600 Subject: [PATCH] guarda version --- B4A/B4XMainPage.bas | 2 +- B4A/Guna Vistas V3.1.b4a.meta | 2 +- B4A/Subs.bas | 7 +++++++ 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 2413fee..57f2621 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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 diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index 13adb43..c6255bf 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -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 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 67b416a..74c023a 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -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 \ No newline at end of file