From ddcae19244c824d3ab64862aed719c1b3f7d4616 Mon Sep 17 00:00:00 2001 From: cheveguerra Date: Tue, 5 Sep 2023 15:12:04 -0600 Subject: [PATCH] Update durakelo.b4a --- durakelo.b4a | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/durakelo.b4a b/durakelo.b4a index 9cd38a1..794dc8b 100644 --- a/durakelo.b4a +++ b/durakelo.b4a @@ -1351,10 +1351,9 @@ Sub copiaDB End If End Sub - 'Guarda la empresa y version de la app en CAT_VARIABLES. -Sub guardaAppInfo(skmt2 As SQL) - skmt2.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_VERSION'") - skmt2.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('EMPRESA', '${Application.LabelName}')"$) - skmt2.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$) +Sub guardaAppInfo(skmt1 As SQL) + skmt1.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'") + skmt1.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$) + skmt1.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$) End Sub \ No newline at end of file