From 4d66a09cb2bb923659e1bf5a11c3f1a8ebce777a Mon Sep 17 00:00:00 2001 From: cheveguerra Date: Sun, 3 Sep 2023 20:44:24 -0600 Subject: [PATCH] =?UTF-8?q?Se=20agreg=C3=B3=20la=20funci=C3=B3n=20"guardaA?= =?UTF-8?q?ppInfo"=20a=20Subs?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 6 +++--- B4A/C_Principal.bas | 18 +++++++++--------- B4A/FileHandler.bas | 1 - B4A/Subs.bas | 7 +++++++ 4 files changed, 19 insertions(+), 13 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 831fe0d..a1f8c62 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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)") diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 8429817..521b382 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1020,7 +1020,7 @@ Sub JobDone(Job As HttpJob) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) Next Listo1 = 1 - S_CC.Text = "REVISANDO ..." + S_CC.Text = "LISTO" If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True) If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then B4XPage_Appear @@ -1085,7 +1085,7 @@ Sub JobDone(Job As HttpJob) ' Msgbox("pasa","alo") Next Listo1 = 1 - S_CC.Text = "REVISANDO ..." + S_CC.Text = "LISTO" If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Resumen Actualizado." , True) End If End If @@ -1106,7 +1106,7 @@ Sub JobDone(Job As HttpJob) PB1.Progress = 60 ELSE IF PB1.Progress = 60 Then PB1.Progress = 100 - S_CH.Text = "REVISANDO ..." + S_CH.Text = "LISTO" End If End If End If @@ -1153,7 +1153,7 @@ Sub JobDone(Job As HttpJob) PB1.Progress = 60 ELSE IF PB1.Progress = 60 Then PB1.Progress = 100 - S_CH.Text = "REVISANDO ..." + S_CH.Text = "LISTO" End If End If End If @@ -1250,7 +1250,7 @@ Sub JobDone(Job As HttpJob) PB2.Progress = 60 ELSE IF PB2.Progress = 60 Then PB2.Progress = 100 - S_CP.Text = "REVISANDO ..." + S_CP.Text = "LISTO" End If If Starter.marcaCel <> "Sony" Then ToastMessageShow("Productos Actualizados." , True) If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then @@ -1291,7 +1291,7 @@ Sub JobDone(Job As HttpJob) PB2.Progress = 60 ELSE IF PB2.Progress = 60 Then PB2.Progress = 100 - S_CP.Text = "REVISANDO ..." + S_CP.Text = "LISTO" End If If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones Actualizados." , True) Listo4=1 @@ -1335,7 +1335,7 @@ Sub JobDone(Job As HttpJob) PB2.Progress = 60 ELSE IF PB2.Progress = 60 Then PB2.Progress = 100 - S_CP.Text = "REVISANDO ..." + S_CP.Text = "LISTO" Log("3") End If If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones especiales Actualizados." , True) @@ -1377,7 +1377,7 @@ Sub JobDone(Job As HttpJob) PB2.Progress = 60 ELSE IF PB2.Progress = 60 Then PB2.Progress = 100 - S_CP.Text = "REVISANDO ..." + S_CP.Text = "LISTO" End If Listo3 =1 If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then @@ -1411,7 +1411,7 @@ Sub JobDone(Job As HttpJob) PB1.Progress = 60 ELSE IF PB1.Progress = 60 Then PB1.Progress = 100 - S_CH.Text = "REVISANDO ..." + S_CH.Text = "LISTO" End If If Starter.marcaCel <> "Sony" Then ToastMessageShow("Venta historico Actualizado." , True) If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then diff --git a/B4A/FileHandler.bas b/B4A/FileHandler.bas index 64516e1..4bf86e7 100644 --- a/B4A/FileHandler.bas +++ b/B4A/FileHandler.bas @@ -17,7 +17,6 @@ Version=11 ' ToastMessageShow("¡BD importada!", False) ' End Sub - Sub Class_Globals #if B4A Private ion As Object diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 5109bd3..9a0251e 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -1317,4 +1317,11 @@ Sub logJobDoneResultados(resultado As DBResult) LogColor(k & " = " & records(resultado.Columns.Get(k)), Colors.RGB(215,37,0)) Next Next +End Sub + +'Guarda la empresa y version de la app en CAT_VARIABLES. +Sub guardaAppInfo(skmt As SQL) + skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_VERSION'") + skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('EMPRESA', 'Intmex')"$) + 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