cheveguerra/Android_durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Android_durakelo.git synced 2026-04-17 19:37:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Para que guarde app info en CAT_VARIABLES

Browse Source
This commit is contained in:
cheveguerra
2023-09-05 15:05:32 -06:00
parent ec48b616d2
commit 2be66abbb9
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
durakelo.b4a
View File

@@ -772,12 +772,12 @@ Module9=fila
NumberOfFiles=357 NumberOfFiles=357
NumberOfLibraries=30 NumberOfLibraries=30
NumberOfModules=24 NumberOfModules=24
Version=12.2 Version=11.5
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Durakelo-Venta #ApplicationLabel: Durakelo-Venta
#VersionCode: 1 #VersionCode: 1
#VersionName: 2.58Gi #VersionName: 3.09.05
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
@@ -873,6 +873,7 @@ Sub Activity_Create(FirstTime As Boolean)
If Logger Then Log("kmt en 0, copiamos kmt.db") If Logger Then Log("kmt en 0, copiamos kmt.db")
End If End If
skmt.Initialize(ruta,"kmt.db", True) skmt.Initialize(ruta,"kmt.db", True)
guardaAppInfo(skmt)
'c=skmt.ExecQuery2("select COUNT(*) AS CUANTOS from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER")) 'c=skmt.ExecQuery2("select COUNT(*) AS CUANTOS from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
'c.Position =0 'c.Position =0
@@ -1349,3 +1350,11 @@ Sub copiaDB
ToastMessageShow("Sin permisos", True) ToastMessageShow("Sin permisos", True)
End If End If
End Sub 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}')"$)
End Sub