From 929f86c74203fd61b4c9c0f546b058357320e78c Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 13 Mar 2025 19:27:45 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.03.10=20-=20Se=20agreg=C3=B3=20?= =?UTF-8?q?que=20cuando=20se=20carga=20una=20ruta=20de=20suplencia,=20se?= =?UTF-8?q?=20borre=20el=20registro=20en=20RUTA=5FSUPLENCIA=20para=20luego?= =?UTF-8?q?=20volverlo=20a=20agregar,=20antes=20solo=20se=20agregaba=20y?= =?UTF-8?q?=20si=20se=20cargaba=20dia=202=20veces,=20se=20generaban=20dos?= =?UTF-8?q?=20registros=20y=20en=20resumen=20dia=20se=20duplicaba=20el=20m?= =?UTF-8?q?onto=20de=20la=20ruta.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 1 - B4A/C_NoVenta.bas | 2 +- B4A/C_Principal.bas | 7 ++++--- B4A/Guna Vistas V3.1.b4a | 2 +- B4A/Guna Vistas V3.1.b4a.meta | 6 +++--- B4A/Subs.bas | 2 +- 6 files changed, 10 insertions(+), 10 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 37ef329..816d600 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -180,7 +180,6 @@ Private Sub B4XPage_Created (Root1 As B4XView) skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PRO3054(H_IDCLIENTE TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PRO3055(H_IDCLIENTE TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_SUPLENCIA(RS_RUTA TEXT)") - skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_SUPLENCIA(RS_RUTA TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TICKET_IMPRESO (idCliente TEXT)") ' skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_VARIABLES (CAT_VA_DESCRIPCION TEXT, CAT_VA_VALOR TEXT)") Subs.agregaColumna("HIST_ENCUESTA", "HE_LAT", "TEXT") diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas index 2f8b37c..73aa460 100644 --- a/B4A/C_NoVenta.bas +++ b/B4A/C_NoVenta.bas @@ -118,7 +118,7 @@ Sub GUARDA_Click sTime=DateTime.Time(DateTime.Now) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime)) ' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)") - + c=B4XPages.MainPage.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _ "Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _ " Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end MINUTOS_TOTALES, " & _ diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 6272256..9a08ad1 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1095,18 +1095,19 @@ Sub cargar_Click cmd.Name = "selectPromo3055Jul-Sep_Guna" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_pro3055") - + 'SUPLENCIA If E_RUTA2.text <> "" Then + Starter.skmt.ExecNonQuery("DELETE from RUTA_SUPLENCIA") B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text)) E_RUTA2.Visible = False p_ruta2.Visible = False - + cmd.Initialize cmd.Name = "select_cat_clientes_guna_GV2" cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos2") - + cmd.Initialize cmd.Name = "select_hist_datos_GV2_2" cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN,E_RUTA2.text, ALMACEN,E_RUTA2.text, ALMACEN) diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a index 0cc89ec..ba16883 100644 --- a/B4A/Guna Vistas V3.1.b4a +++ b/B4A/Guna Vistas V3.1.b4a @@ -261,7 +261,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Guna Preventa #VersionCode: 1 - #VersionName: 5.02.22 + #VersionName: 5.03.10 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index a98ded1..426aa6a 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -60,7 +60,7 @@ ModuleClosedNodes10= ModuleClosedNodes11= ModuleClosedNodes12= ModuleClosedNodes13= -ModuleClosedNodes14=14,17,18,22,28,29,30 +ModuleClosedNodes14=14,17,18,28,29,30 ModuleClosedNodes15=3,17 ModuleClosedNodes16= ModuleClosedNodes17= @@ -82,6 +82,6 @@ ModuleClosedNodes6= ModuleClosedNodes7=5,6,8,9,10,11 ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Nota,Initialize,37,0,B4XMainPage,Class_Globals,20,0,C_Cliente,B4XPage_Appear,837,0,C_Principal,Subir_Click,778,0,C_Nota,Class_Globals,32,0,C_Nota,B4XPage_Appear,114,0,Main,Globals,23,0,Main,Process_Globals,21,0,C_Principal,B4XPage_Appear,445,5,C_Nota,ListView1_ItemLongClick,251,6 +NavigationStack=C_NoVenta,Class_Globals,0,0,C_NoVenta,GUARDA_Click,114,0,Subs,traePromo,798,0,Subs,traeMaxPromos,934,0,Subs,procesaPromocion,982,1,C_Principal,Class_Globals,0,0,Diseñador Visual,resdia.bal,-100,4,C_Principal,resdia_Click,2604,0,B4XMainPage,B4XPage_Created,174,0,C_Principal,cargar_Click,1094,6 SelectedBuild=0 -VisibleModules=25,2,14,26,5,10,15 +VisibleModules=25,2,14,26,5,10,15,11 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 1da72ac..1caf67d 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -974,7 +974,7 @@ Sub traePromosVendidas(promo As String, cliente As String) As Int End Sub Sub procesaPromocion(idPromo As String, cliente As String) As Map 'ignore - Private thisLog As Boolean = False 'Si es verdadero, muestra los logs de este sub. + Private thisLog As Boolean = True 'Si es verdadero, muestra los logs de este sub. Private inicioContador As String = DateTime.Now If thisLog Then LogColor($"********* Iniciamos revision de Promo ${idPromo} *********"$, Colors.Magenta) 'Obtenemos el mapa con toda la info de la promoción.