From baf55c6111be2af3c967159561e0ba5a5ae139f7 Mon Sep 17 00:00:00 2001
From: cheveguerra <cheveguerra@gmail.com>
Date: Tue, 12 Sep 2023 01:50:42 -0600
Subject: [PATCH] 12/9/23 - Codigo para guardar app info en CAT_VARIABLES

---
 B4A/B4XMainPage.bas | 1 +
 B4A/Subs.bas        | 7 +++++++
 2 files changed, 8 insertions(+)

diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index f703f3f..2038414 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -60,6 +60,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	db.Initialize(Starter.rutaBD,"kmt.db",True)
 	Provider.Initialize
 	l_version.Text = Application.VersionName
+	Subs.guardaAppInfo(db)
 End Sub
 
 Sub B4XPage_Appear
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index 1b670f8..2225a2f 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -56,3 +56,10 @@ Sub revisaBD 'ignore
 '	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_VARIABLES")
 	
 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
\ No newline at end of file