cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-18 21:29:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se agregó la función "guardaAppInfo" a Subs

Browse Source
This commit is contained in:
cheveguerra
2023-09-03 20:44:24 -06:00
parent dcc2226aa6
commit 4d66a09cb2
4 changed files with 19 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/B4XMainPage.bas
View File

@@ -11,7 +11,6 @@ Version=9.85
'Ctrl + click para sincronizar con Github Desktop ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
#End Region
Sub Class_Globals
Private Root As B4XView
Private xui As XUI
@@ -128,8 +127,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
B4XPages.AddPage("Historico", historico)
ruta = Starter.ruta
Provider.Initialize
Subs.borraArribaDe100Errores ' Para Websockets
Subs.borraArribaDe600RenglonesBitacora ' Para Websockets
' Subs.borraArribaDe100Errores ' Para Websockets
' Subs.borraArribaDe600RenglonesBitacora ' Para Websockets
If File.Exists(ruta, "kmt.db") = False Then
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
LogColor("copiamos kmt.db de "&File.DirAssets & " a " & ruta,Colors.Green)
@@ -137,6 +136,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Log(ruta)
skmt.Initialize(ruta,"kmt.db", True)
Subs.guardaAppInfo(skmt)
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GPS (HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_STORE (HSS_CODIGO TEXT, HSS_IN TEXT, HSS_OUT TEXT, HSS_TOT TEXT)")