From aa1b409451ff5097f2c5738554ff06fbff2ada9f Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Tue, 30 Apr 2024 22:33:32 -0600
Subject: [PATCH] - Cambios para que el abordo en Resumen Dia se actualice
 automaticamente. - Cambio para ue los botones de Cliente Nuevo y Abordo no
 aparezcan si no esta cargada la ruta.

---
 B4A/C_Cliente.bas       |  9 ++-------
 B4A/C_Principal.bas     | 10 +++++++++-
 B4A/KelloggsV4.b4a      |  2 +-
 B4A/KelloggsV4.b4a.meta |  4 ++--
 4 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index 99daf16..50d442c 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -1087,21 +1087,16 @@ Sub B_IMP2_Click
 		Msgbox2Async("No tienes venta suficiente","Atención", "Modificar pedido", "", "Borrar pedido",LoadBitmap(File.DirAssets,"alert2.png"),False)
 		Wait For Msgbox_Result (result As Int)
 		If result = DialogResponse.POSITIVE Then
-				
-			ToastMessageShow("Positivo",True)
+'			ToastMessageShow("Positivo",True)
 			B4XPages.ShowPage("Productos")
-			
 		Else If result = DialogResponse.NEGATIVE Then
-
-			ToastMessageShow("Negativo",True)
+'			ToastMessageShow("Negativo",True)
 			B4XPages.MainPage.nota.borra_Click
 			B4XPage_Appear
-			
 		End If
 	Else If kh.traeDisponibleAbordo >= 0 Then
 		Imprime_ticket
 	End If
-
 End Sub
 
 Sub Imprime_ticket
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 95a5c9e..8d03ac3 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -2353,9 +2353,17 @@ Sub B_OK_RES_Click
 	connecta.Visible=True
 	Resumen.Visible= True
 	P_RESUMEN.Visible=False
+	If l_ruta.Text = "0" Then
+		NUEVO.Visible = False
+		B_PROXIMA.Visible = False
+	Else
+		NUEVO.Visible = True
+		B_PROXIMA.Visible = True
+	End If
 End Sub
 
 Sub Resumen_Click
+	L_ABORDO.Text = "0"
 	P_RESUMEN.Visible = True
 	P_RESUMEN.BringToFront
 	trabajar.Visible = False
@@ -2597,7 +2605,7 @@ Sub horaentrada As Boolean
 	Log(DateUtils.TicksToString(newDate))
 	Dim p2 As Period
 	p2.Hours = 0
-	p2.Minutes = 20
+	p2.Minutes = 0
 	DateTime.DateFormat = "MM/dd/yyyy HH:mm"
 	Dim fecha2 As String = DateTime.Date(DateTime.Now)
 	Dim pr2() As String = Regex.Split(" ",fecha2)
diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a
index 605ba36..a24ac68 100644
--- a/B4A/KelloggsV4.b4a
+++ b/B4A/KelloggsV4.b4a
@@ -864,7 +864,7 @@ Module9=C_NuevoCliente
 NumberOfFiles=401
 NumberOfLibraries=29
 NumberOfModules=29
-Version=12.5
+Version=12.8
 @EndOfDesignText@
 #Region  Project Attributes	
 	#ApplicationLabel: Kelloggs Venta
diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta
index 07bd417..4310f8a 100644
--- a/B4A/KelloggsV4.b4a.meta
+++ b/B4A/KelloggsV4.b4a.meta
@@ -88,6 +88,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Diseñador Visual,nota.bal,-100,1,C_NoVenta,Class_Globals,0,0,C_Nota,Class_Globals,0,0,C_Nota,B4XPage_CloseRequest,246,0,C_Nota,borra_Click,246,0,C_Cliente,B_IMP2_Click,1090,6,C_Productos,lv_catalogos_ItemClick,315,0,C_Productos,LlenaProdsLL,1270,2,C_Productos,Busca_TextChanged,1205,0,B4XMainPage,Class_Globals,23,0
+NavigationStack=C_Productos,LlenaProdsLL,1270,2,C_Productos,Busca_TextChanged,1205,0,C_Principal,Class_Globals,0,0,C_Principal,Resumen_Click,2359,0,C_Principal,horaentrada,2601,0,C_Principal,B_PROXIMA_Click,2590,0,C_Cliente,B_IMP2_Click,1088,6,C_Principal,B4XPage_CloseRequest,1963,0,C_Principal,B_OK_RES_Click,2341,0,B4XMainPage,Class_Globals,23,0
 SelectedBuild=0
-VisibleModules=1,27,11,3,12,4,28,17,23,29,8,7
+VisibleModules=1,27,11,3,12,4,28,17,23,29