From 0d1472d1e9066d5e90c3fd653835700ba93490a2 Mon Sep 17 00:00:00 2001
From: Javier <cj.valdes@keymonsoft.com>
Date: Fri, 26 Sep 2025 13:06:40 -0600
Subject: [PATCH] =?UTF-8?q?Se=20a=C3=B1ade=20funcion=20para=20que=20no=20p?=
 =?UTF-8?q?uedan=20hacer=20el=20envio=20hasta=20que=20se=20visiten=20todos?=
 =?UTF-8?q?=20los=20clientes?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 B4A/C_Cliente.bas       |   4 ++--
 B4A/C_Principal.bas     |  42 +++++++++++++++++++++++++++++++++++++++-
 B4A/Files/principal.bal | Bin 46787 -> 48449 bytes
 B4A/Profina.b4a         |   2 +-
 B4A/Profina.b4a.meta    |   2 +-
 5 files changed, 45 insertions(+), 5 deletions(-)

diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index 224a9f6..9477b9d 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -388,8 +388,8 @@ Sub GPS_LocationChanged (Location1 As Location)
 	distance =    l1.DistanceTo(l2)  'the result is in meter
 	gest.Visible = True
 '	Log(distance)
-'	If distance < 3000000000000000000000000000000000000 Then
-	If distance < 30 Then
+	If distance < 3000000000000000000000000000000000000 Then
+'	If distance < 30 Then
 		Tels.Visible = True
 		gest.Visible = True
 		LA_GEO.TextColor = Colors.Blue
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 0c40aa8..5e2983e 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -229,6 +229,10 @@ Sub Class_Globals
 	Private l_version As Label
 	
 	Dim cpb As Cursor
+	Private Label22 As Label
+	Private Label27 As Label
+	Private l_faltan As Label
+	Private l_visitas As Label
 End Sub
 
 'You can add more parameters here.
@@ -319,6 +323,10 @@ End Sub
 
 Sub B4XPage_Appear
 	checaPedido
+	l_faltan.Text = 0
+	l_visitas.Text = 0
+	
+	
 	cpb = Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_MONTO FROM PEDIDO_CLIENTE")
 	If cpb.RowCount > 0 Then
 		For i = 0 To cpb.RowCount-1
@@ -403,6 +411,26 @@ Sub B4XPage_Appear
 		l_ruta.Text = f.GetString("CAT_CL_RUTA")
 		f.Close
 	End If
+	If l_ruta.Text = "0" Then
+		Label22.Visible = False
+		Label27.Visible = False
+		l_faltan.Visible = False
+		l_visitas.Visible = False
+		l_faltan.Text = 0
+		l_visitas.Text = 0
+	Else
+		Label22.Visible = True
+		Label27.Visible = True
+		l_faltan.Visible = True
+		l_visitas.Visible = True
+		Dim totalcisitas As Cursor = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUENTA FROM KMT_INFO")
+		totalcisitas.Position = 0
+		l_visitas.Text = totalcisitas.GetInt("CUENTA")
+		Dim visitasfaltantes As Cursor = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUENTA FROM KMT_INFO WHERE gestion = 0")
+		visitasfaltantes.Position = 0
+		l_faltan.Text = visitasfaltantes.GetInt("CUENTA")
+	End If
+	
 	If Cuantos  = 0 Then
 		L_MONTOD.Text =0
 		l_cuantosc.Text = 0
@@ -1680,7 +1708,13 @@ Sub JobDone(Job As HttpJob)
 					Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO"))
 					If VALIDO = "OK" Then
 						cargar.Visible = True
-						Subir.Visible = True
+						
+						If l_ruta.Text <> 0 And l_faltan.Text = 0 Then
+							Subir.Visible = True
+						Else
+							Subir.Visible = False
+						End If
+						
 						inv.Visible = True
 						connecta.Visible = False
 						If conn = "1" Then
@@ -1879,6 +1913,12 @@ Sub e_ruta_EnterPressed
 			Starter.skmt.ExecNonQuery("DELETE FROM HIST_CODIGO_BARRAS")
 			Starter.skmt.ExecNonQuery("DELETE FROM HIST_FOTO_CLIENTE")
 			Starter.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
+			
+			Label22.Visible = False
+			Label27.Visible = False
+			l_faltan.Visible = False
+			l_visitas.Visible = False
+			
 			B4XPage_Appear
 		End If
 	End If
diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal
index 7cdcdd4ec0f6ddb771968130b731e52232891eba..c751ba13da96d000ca722b7294edd2d86b4cd0bc 100644
GIT binary patch
delta 1259
zcma)+ZAcSw9LMi}rt@aEo3|_7H1kYN=ghWVNU2z1;ESSAO6ZNPbfrz_b5E9*<r~2l
z{ip~mM(K2!&UqTxn~JEny$C9ZqTU*%y$CV_``xX-yJbNyzT4;b{D0z}erBKiVEK54
zVXpBEW5oZ<VZMe<^wxUZ-VS#&9AV$`9J;-=T@CFG9qx80iMvBw@G?#o4d~zNK3eZ}
z6(>XxhEhC=d(9jntx8(LI7yb!zYbM|+KO^2uMM?q4|Uh0i?T<@$8~%HnV?uy1ImiB
zp&C&qQC?J&j+=Gt({W3bdzjX!!L;ePUB?~Bov1F<DIK3iri0HQ(*>PHrVBlXOgGl8
z<MSF9L=NQw8a=39)I}66zJyGh_9;b40!s>&a{i&IB6{MkBuqNsYs-vWOIsqE^wOeP
z#p<Ee)yG_*vXr)AfINeb&I&Mlcvu{<5)tIP4wwpwmfKjc4aFtnkD!7GL;iGllrLH=
zxWMh`N?2a}zN{{gltA)8vGFjXX1btvx0AfW)_Wk`zlBKH)&h@r6~LQe5v@q0Y<S;d
z2i|Tn9*h<?jW{8_-w5;0QneIr1|?bu^Fb2?{erp%c0B=E-l0~*;4Fs^5evz}%EXkI
zi7Bflnqwy}R2xYu$fJ#{m4GiJ3qqruinp#*u>Iuf*f48b@e4NGeje7ZRhw{D_%JpH
zeIW@Zf@S8km>3rMYjR-Yy(RcLCBgn<23W2V@qDvkU)V%!@b!Ksbcd_q(|7<nrzOak
zEQ9CMH1ch_8tNtj@I{G4%4hVEcas4kYum&sL5>})byn*SO$A7nmSql?30bSN$R_a3
zRKbgIfMnA=sGR*hiR5U}N+m#YX;jGlOP9@<H)zYli2BsHd<6Bi#S`^g!rAd4LXx8Z
kz445RCZr;0aqWHC|L9uyU?<#|E&XRt$A9#6tm=9F7t)>^#Q*>R

delta 861
zcma))%WD%+6vpqpHqnXBB#pOu;iIihEfi5fyE3R-QIJ^Lg$u34wy9R5^;KWVDk>@j
zKXBC+bTJ44oAkzFYF!k;zd#Uo?p%m;>w|)4W*oc$3ogF7zd7eSABW3b{wdyl6J~%h
z)@L#nqO({t2L<xtBl_1p2XBe54^s8$&>8%SkEn7>gYyY>Bv|3CyQ#j1w3j4FZ7R6o
zlqhgQK{`uHl2W7*(kN++l+$=z<8vCH*LXtX3mRY4I8S_ubeXXNoBaF3u4tyK#Qs9p
zi2X&c6TAD<c|+qVjc*d)BHbq4A^Ed+iT%t1vB?xRh6LZKX3a%QO>f!y5G(sbBFeE`
z%8AV!Gmm<m<4|b;bN39)Ztus+gD6&CriFC75lP`al(i{BAA`Kl`Z|#>No*^Ve{Kq~
zibQWUgVBoR%(RZDF;o2^VjQ1`lUN;$qP@`-jy1(d3@x<tILa!E+`P>bh^XV?#6LVq
z@_gqhx1U<0pT)^nHsV!@>3RlZRf~K1&TJMR7HmANNfZ||_)`1RLu~#8j=i=KR$k|{
z@;Z}v->`AN?o~h4{j3f*>)@LMsZQF$c~Qm=0)rsHotJ8KaU6ajccrNsV3u!45V-xY
k=g}{dZmYPj=gDIWZyN^Mme$Vh{*UbL=G$q?{<<{q8<o$m6#xJL

diff --git a/B4A/Profina.b4a b/B4A/Profina.b4a
index e04a88f..2920e26 100644
--- a/B4A/Profina.b4a
+++ b/B4A/Profina.b4a
@@ -1069,7 +1069,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Profina
 	#VersionCode: 1
-	#VersionName: 4.07.20
+	#VersionName: 5.09.20
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/Profina.b4a.meta b/B4A/Profina.b4a.meta
index 00876df..3a78f8f 100644
--- a/B4A/Profina.b4a.meta
+++ b/B4A/Profina.b4a.meta
@@ -82,6 +82,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=DBRequestManager,ExecuteQuery,36,0,appUpdater,CreateNotification,220,0,appUpdater,CreateNotification2,218,0,appUpdater,download_newApk,158,0,B4XMainPage,B4XPage_Created,172,0,C_Cliente,GPS_LocationChanged,385,0,C_Principal,B4XPage_Created,247,0,C_Principal,JobDone,1025,0,MAPA_RUTAS,MapFragment1_Ready,165,1,C_Principal,Class_Globals,66,0
+NavigationStack=MAPA_RUTAS,MapFragment1_Ready,143,2,appUpdater,download_newApk,158,0,B4XMainPage,B4XPage_Created,172,0,Diseñador Visual,login.bal,-100,2,C_Principal,Class_Globals,226,0,C_Cliente,GPS_LocationChanged,373,0,C_Principal,connecta_Click,1831,0,C_Principal,JobDone,1702,6,C_Principal,B4XPage_Created,276,0,C_Principal,B4XPage_Appear,420,6
 SelectedBuild=0
 VisibleModules=1,2,3,12,4,5,6,7,8,9,23