diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index 0c53795..7578f49 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -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
\ No newline at end of file
diff --git a/B4XMainPage.bas b/B4XMainPage.bas
index c7ed66a..f8591a4 100644
--- a/B4XMainPage.bas
+++ b/B4XMainPage.bas
@@ -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