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

21/10/23 - Se quitaron lineas extra y se agrega clase "FileHandler"

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-10-21 14:47:46 -06:00
parent 7351a8a617
commit d84f0c588b
6 changed files with 220 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/Subs.bas
View File

@@ -1095,4 +1095,11 @@ Sub traePromoIdDeBD As Map 'ignore
End If
c.Close
Return m
End Sub
'Guarda el nombre 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