From 2c252b2373639da52014330c9692f22775a09da4 Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Wed, 17 Sep 2025 21:35:40 -0600
Subject: [PATCH] - VERSION 5.09.04 - Se agregaron varios motivos de NoVenta.

---
 B4A/ADM.b4a              |   2 +-
 B4A/ADM.b4a.meta         |   2 +-
 B4A/B4XMainPage.bas      |   2 +-
 B4A/C_Clientes.bas       |  14 ++++++++++----
 B4A/C_TicketsDia.bas     |  15 +++++++++++----
 B4A/Files/clientes.bal   | Bin 21162 -> 22552 bytes
 B4A/Files/mapa_rutas.bal | Bin 18572 -> 19957 bytes
 B4A/Files/ticketsdia.bal | Bin 15229 -> 16624 bytes
 B4A/MAPA_RUTAS.bas       |  14 ++++++++++----
 9 files changed, 34 insertions(+), 15 deletions(-)

diff --git a/B4A/ADM.b4a b/B4A/ADM.b4a
index 7a9d3db..1d5b1f6 100644
--- a/B4A/ADM.b4a
+++ b/B4A/ADM.b4a
@@ -1121,7 +1121,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: ADM
 	#VersionCode: 1
-	#VersionName: 5.09.03
+	#VersionName: 5.09.04
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/ADM.b4a.meta b/B4A/ADM.b4a.meta
index 326b93e..b06bf16 100644
--- a/B4A/ADM.b4a.meta
+++ b/B4A/ADM.b4a.meta
@@ -97,6 +97,6 @@ ModuleClosedNodes6=3
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_TicketsDia,b_guardaNoVenta_Click,300,1,C_TicketsDia,GPS_LocationChanged,218,0,C_TicketsDia,ListView1_ItemLongClick,213,0,Diseñador Visual,mapa_rutas.bal,-100,2,C_TicketsDia,b_noventa0_Click,229,0,MAPA_RUTAS,b_guardaNoVenta_Click,575,0,Diseñador Visual,clientes.bal,-100,3,C_Clientes,B4XPage_Appear,141,6,Diseñador Visual,datosclienteBotones.bal,-100,2,C_Clientes,CreateListItem,210,0,Starter,reinicializaReqManager,164,0
+NavigationStack=Subs,fechanormal,1574,0,C_NoVenta,CANCELA_Click,71,0,C_NoVenta,GUARDA_Click,77,0,C_Clientes,Class_Globals,49,0,C_TicketsDia,Class_Globals,35,0,MAPA_RUTAS,b_noVenta_Click,550,0,MAPA_RUTAS,Globals,71,0,C_Clientes,b_guardaNoVenta_Click,706,0,C_TicketsDia,b_guardaNoVenta_Click,288,0,MAPA_RUTAS,b_guardaNoVenta_Click,568,0
 SelectedBuild=0
 VisibleModules=30,2,14,5,6,19,31,27,18,32,8,11
diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index 8f5de37..2977e3c 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -711,7 +711,7 @@ Sub JobDone(Job As HttpJob)
 						p_validacion.Visible = False
 						et_codigo.Text = ""
 						If recarga = "0" Then
-							Subs.panelVisible(P_CIEGO,0,0)
+							Subs.panelVisible(p_ciego,0,0)
 						Else If recarga = "1" Then
 							Starter.skmt.ExecNonQuery("delete from CUENTAA")
 							Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("1"))
diff --git a/B4A/C_Clientes.bas b/B4A/C_Clientes.bas
index b7cde98..2fcd6bd 100644
--- a/B4A/C_Clientes.bas
+++ b/B4A/C_Clientes.bas
@@ -53,6 +53,8 @@ Sub Class_Globals
 	Private b_guardaNoVenta As Button
 	Private p_botonesNoVenta As Panel
 	Private et_comentarioNoVenta As EditText
+	Private r_opcion7 As RadioButton
+	Private r_opcion6 As RadioButton
 	Private r_opcion5 As RadioButton
 	Private r_opcion4 As RadioButton
 	Private r_opcion3 As RadioButton
@@ -710,13 +712,17 @@ Private Sub b_guardaNoVenta_Click
 	If r_opcion1.Checked Then
 		motivo = "CERRADO"
 	Else If r_opcion2.Checked Then
-		motivo = "NO COMPRA"
+		motivo = "NO TIENE DINERO"
 	Else If r_opcion3.Checked Then
-		motivo = "CON PRODUCTO"
+		motivo = "NO ABRE MAÑANA"
 	Else If r_opcion4.Checked Then
-		motivo = "NO ESTA EL ENCARGADO"
+		motivo = "FALTA DE PRODUCTO"
+	Else If r_opcion5.Checked Then
+		motivo = "PROMOCION CON OTRO DISTRIBUIDOR"
+	Else If r_opcion6.Checked Then
+		motivo = "RECIBEN MUCHOS PROVEEDORES"
 	Else
-		motivo = "CANCELACION"
+		motivo = "NO LE QUEDA EL DIA"
 	End If
 	
 	Log("FOTOCERRADO: " & fotoCerrado)
diff --git a/B4A/C_TicketsDia.bas b/B4A/C_TicketsDia.bas
index c24cbee..6650679 100644
--- a/B4A/C_TicketsDia.bas
+++ b/B4A/C_TicketsDia.bas
@@ -33,6 +33,9 @@ Sub Class_Globals
 	Private Panel5 As Panel
 	Private et_comentarioNoVenta As EditText
 	Private Label3 As Label
+	Private r_opcion7 As RadioButton
+	Private r_opcion6 As RadioButton
+	Private r_opcion5 As RadioButton
 	Private r_opcion4 As RadioButton
 	Private r_opcion3 As RadioButton
 	Private r_opcion2 As RadioButton
@@ -277,13 +280,17 @@ Private Sub b_guardaNoVenta_Click
 	If r_opcion1.Checked Then
 		motivo = "CERRADO"
 	Else If r_opcion2.Checked Then
-		motivo = "NO COMPRA"
+		motivo = "NO TIENE DINERO"
 	Else If r_opcion3.Checked Then
-		motivo = "CON PRODUCTO"
+		motivo = "NO ABRE MAÑANA"
 	Else If r_opcion4.Checked Then
-		motivo = "NO ESTA EL ENCARGADO"
+		motivo = "FALTA DE PRODUCTO"
+	Else If r_opcion5.Checked Then
+		motivo = "PROMOCION CON OTRO DISTRIBUIDOR"
+	Else If r_opcion6.Checked Then
+		motivo = "RECIBEN MUCHOS PROVEEDORES"
 	Else
-		motivo = "CANCELACION"
+		motivo = "NO LE QUEDA EL DIA"
 	End If
 	If motivo = "CERRADO" And fotoCerrado = "" Then
 		nombreFoto = Subs.traeCliente & "_cerrado"
diff --git a/B4A/Files/clientes.bal b/B4A/Files/clientes.bal
index b4c5f87c3325a66a16c778a329c35c27ce450b95..6ea08bd27d2451ad00c38b08c4b917b1c40f8b0e 100644
GIT binary patch
delta 717
zcmZvX&rcIk5XU=92<d96v^5H1c%;PCKvHW;OHtc`B4V}OY+}5qWV^cw8`~~yTMouV
zBWKZM661lZ9#FLPp#nuc^k6hSVB$rM;ve9_csFrM0$CCdGjD!;zBBU{AHl;4xLO?!
zN3qS}5a~@;UG<iLlOk)<oK_99FlbLA_9PnQpIW>^=P9Cx$YNx1Tb$ruS}y~<<)OB}
zV%SZcw8@mLrL(+JuPOz_J}lfp{j*B0q%ciq)0U}~)e>esCvMrPK}M8hnR!z+>b$^I
zv%t)fWirhumMkM%HZ;=$Vq$hxq>C!Dt{Pdr!185v$}BcF%<4MPdQqTm=$Ks)^-_tB
z&FO4rPg&O#rstSeU*Zd%&wg0pGm%+AxB}cAiUMcD^P<oWymICM2!7xn#^wR;U?zDJ
z7BSS{h1U`%DY_W##$en7Pw-<xh9x|l48hYTg*@fM&E#pSZ8OhM9+9E3#XR4dRN0wS
z*`ccVbyS95O$s;CBEIVp@%p%enM@!49(TeE+!yJ=&T|c%lKNl{?@9qYKGA?>-0=DF
z-jI``2htd(WGBCIJ_hiTmU!`fDtz!2{ohCCd`<2s+1~xlY#DD4AHn;*B3?>&zzS}5
zGyEQG=W`cE0ai&pfIm}*(3N(&SN|jY5%%EK^dDHG0|v-9&s)eeptgOGyS7WUh9iL}
bev=-<I?a~c>$|!&?2R*cgVp{C`oiQty-3v3

delta 388
zcmbQSfpOJRMqXA11_ljw1_mx5ZM%{8Ff*gh<{!+$Oq=!Dd>9$GZLVSe%Voj?lyuI|
zQwS)^Pbp0<$>#*}i{kSOk~8!3OhkYjzkG$%;*vy#)EtG>yyV29^u(0OYlW;g7Ykoj
zX3UrzsG+&Jz}%OKk!$ll%VXS3dl)vixr#F~U1Zoi->r{vvVbnv<nun+jH@Q^3sIgN
z=gSFXeNdO5-0pjZaWzOxq8Vrj$Rf_wKtdCUc|<|HRg?Su?lP_cYn$ND$-f3ow${>o
z^L>9O#>qxrB9l!6O(fO<6@blIkD_wT<i<cp#toA%nCfl*80f^vxN-7CEuF~;!7BV4
zF%+sz?z0t|d^-5kWGi14rWA(B3BKx+`8Cug8-y;K9PFnu8R(M94Souf`z+NadxkAz
c+yXZ2pSjB9nf`o?n<oo+Dll%HToAqj01WkVYXATM

diff --git a/B4A/Files/mapa_rutas.bal b/B4A/Files/mapa_rutas.bal
index c5eac80607b407875c3d99c098b4c0bc42208c8a..c18ebc4178704698e87e18754a0bb6ba92a2bdc7 100644
GIT binary patch
delta 1337
zcmZ{iOH31C5XW~4Rog(<7HlXabP>WM0SdLWfIuk*(U6$hlLri0+C{6-g>7r17f3u9
z9`YIx5fBgokw-!{CVKL~$poYE=*fd8qX`E&>$E`J;`T7#&NuU)U*?<H;c+;ag>)^$
zFn8(D)7P<+{zp@+BTs4<d;CE$RHeK)l^0i$oSq_srIOU8WMyP_g?|Cxq=sQzF469v
z!BzGa)W{Zt1sp7Cu8ADqAqiYJzq`YScqP_hr2J*RE5dUDf$NdPK-3?>PWED-QdPx~
z$}5T8qCdDRhd93&;>3s~a)DqtA_Y65!GI_!3!K?h;1m484k5&KNBy_Oa14G=5J)J5
zHI%KaP!_l{C`5gB30!Yf2=Lr#p^FRbZt=42Y^xO;JcancR-kFs;G(SvcRYJAfZmLJ
z>?zdY_X-m>*&Vpwv<ic<Xx2l58OU^lbhydVVq?$^$X_nq2N*(6UIw-|JF<o;8rMBe
z)S)LQ6W=$N!3g%3mdiPpn*c_ssuVw&O*q$LVn<aAOz3r*@Sx=pjA5Sj4vZi7NZw+u
z6}@&7ZWLzXFIx`0MX;9Ojba`q;{ALqt~X93P{$bt%PqNpSX<)5&dPb1Jm#^JiAr?a
z8=+0^w^sv95zfm_B?u;uUSxtNc-?tb-Y%^J{A@f0({b^%x|m)wqkl@d*uHc#*jvzm
z@2byZxV{YgU8!la6xKreVRFos%|0Xd-?+!oQ^Ua=eszr~DaOno%5F1$tI}e~Wj>@Z
z3d+0+<vDiLoTR`4HJ`1{SWsas;*Z+@7)!|+ODc>PvQ!5E%kip_dZ%$YQFOGjm-xHh
zr!fFtX_$qT_&=EjNB`PNVg*{=jhcKw-tEJiEoS`SZo};s169ozRbZfT2w9u{#Qb0_
zdDm+v@Ub1dqUrfy3(Kl2Gsh^OLdNJ6o28w=dUEEv3iCBh(+7KT=0-B+W^(4H3Udpk
SIv@OuF|qHQe!^zZFz^>goIEc8

delta 869
zcmZva?@Lo*6vywmvhq%MH#eKkD6h7p6}oGzsc1Si-IiFkH$eq5rf3nn`6JL*1wv`A
zwe4$WXgd3W(Hn`2P|=&-3la3P!v2Ha^s?;C5PxuAoaZ^`Ip_O1&%<+m&r>2z7Ly<d
z3NL2fYu{QnMRM!DJe^Qr8l)9{)buM~Uzc6vE98Q9Ew1zoYkjw4qngC=aIbbNc3q46
ziaEHTDg7g(QKkQ;(h-kEhX<m4aM>D7#JL9a$piWiTd*9j>#ESDx^Y*LFs3RvT;D1V
z63FAqG+N>DL}?12!VWBY&K6Cvw1utE%8N892-tKTr3WZD8Nr8!XEcq9;$t}ydzspf
zf)Xyv8JS5RJ5@)NU{o1;{dV-Y-PQ!Bc5u@es;r`ic;gQ1cdDBR&He+F+#^Wt6I6KD
zaK&jhKjL$dO-dnE-;Bj@C8b%Y7H0U+M3(=lKjAWKn%$k2ldw4y0%`)u-HaZ488!kJ
zX=aBZ>|)FqFdid#K7#zVCL_+QF=y6*^8}x}B1p9xa^{RVa|WEJxZE8<X~!y7TB<R2
z$c}-K9e-QoyzO6`N2oI*eiX3KIZq2)A9pn<Sr_)fMuGwHi-5IY1m0FBj)bn^UaQQ4
z_z4y7LetpjHq#=0dT-Fu7DQ7e_J+#KF{iFmc6%bM**)MTWNW|EaxO~~NS<?2R)2qb
zoai~f(Sc5%uk-~AWH#yL9%VK+CQuz_eDxR6D_p9s(Zw@ugo7a`R*#n;TVlrqPuO@!
R&b9Z}<D36JUsDzZ`UfHX-hluB

diff --git a/B4A/Files/ticketsdia.bal b/B4A/Files/ticketsdia.bal
index 57b97ed944ea2a3e9557b99a3fc1e32086d4b579..8bb2f8889ee16556c399b6415f5de991fc89f913 100644
GIT binary patch
delta 1431
zcmaKrO-vI}5XU<!Xj)p9!fK!;bt&aTT4<pyl=_86Fopz4jqzf{rQJxObo&V+A|F;E
zqA1MSn0W9Y;XpPfh8yX{C<iVkCME_Cdh%ern>brd+(OgCn|(WP{=b>`=Dpt&Kj*<v
zs?lgXWOVd(ZW`V*&03lzhNM_9EJeNQpHB5pmsS46OhS!=qMK+m(`Z%A+welk2B7?_
z<lSMsVYmezd8>?rJ~hM5l3+mMh2ezAj|<sNAu0g5^0Io2<mnS4DS;1(d@Lb_(!mtg
z7<y-wP@kIT<;gRckjAB8I4ei_pcLh$R6^oI;bbZi9!`ftQbJL6t5uyQ@&v?Scvy_`
z<LTgtlvL78h$2OcNrqP2U1~vB6}bi^BOej@cv=hzycpp_*$qM7He@(-dKz)eYGe8t
zT(vggOV19B;8V_lAL}d8-QdBm-d7MNPd%=8YS}QslmpaPkkO9F+0H3|Q9SLtSUpA_
z<%qNqGO8FnSJ#OBZXNFUj4+Pz<889O`#eAtcP$Q__S@L#0f7&{`xik%u#Q4ZDTnM>
zO)q}2nwhtNb><qha4cRj3lPV3^B^0~L&Q*5%R>U~wE?_ldk#qj!6x^`xEgxkx*Tut
z0q)q%SW#(1zOIr@<%K1c@*yp|nw9}3sN_L*;y}O~+&!VwO_E<Zf9-ADF7LphdOg0j
zTVaYsCb)w)TaN0dX}J{2{|3#sn2b|2{eM<5jRuWP7PyNaT2}ITCY-Tf#*oXbCTUcp
znS!Kyc*T+7Bw9N}L!-^BF~@}2{q?D-vjwSh__;O1%@?CC6r(N_q~6D%GXojyF}LP6
zd&<Y*p8W`Ic+TZzALMIt9e#-4TmhyWu)Ey_i*#E~;#sc~mXzySt*5t>yN^rzlocI4
zOg&(rBY*?`W4P5(Mk$=8Gg#uT#25Z@(yy3Yc-6hkJu0@v<zic0&QJQUv5%=80oXu`
zy`6hfjJ;Bfy;6|<l$sKNogDjFG4^UP_G&@)8nq?>KNR*_l@9mlHSf7g7!CXZtSLW6

delta 973
zcmaKqOH30{6o%(iz|2@WwM;Fv1%|XhieOtP@+dUEFfkBNR&ESIAW$AH76bte<)Nqq
zHTf3?qrtdvD`s?KG!Zu%VnT4^!bI7)aL39W;%QN75nY@+ch3F)@1B!$*C%LWC_PmW
zgl{Q=An~{OY5KB`a<xs}FyUUxBf6>8roKzl`t%Cb6AOGIFOimTe_JpdD%11N@o-2z
z9SOHzY#R*66y=EupTe2Ou-Y*&*s6B)svV)W)<|b-JKm<(;S*&cN8hMDG(;7wWQ%Ap
zXXB*9i8-@~0f&l(5)+;%3Th78s0&{d7o7H1-mRK4FmJDwyBJ=`p*Qj(cH*mDr6BIu
z{8+OX(8R>&#Sf?(XB0<_$-6mcon&EgCI?B{N=YSA5Ay;zXEDh=oZaSi!;?`!y_#3O
zN*K4NQQse7-`_$kc;}@M=XD%n7)x2DST|bX4k*;mMk`%FOTes;@Np^`wnWi@72k^t
z)QP-Wl?LD{yOqQ!3u3R^mgp1`oM+v?oS1V<c;OpUh8VktLl6@yDGSo@&I%GZ@-Q2=
z+uo|>5|#tam_1yojQoo^`akCAF3d43RZP=m*z6_ft!YA$FV@=U%5wS24mA%Fi#`br
zRi|_>1>CLj&^R^~KRix1MPu`n^!(Ojwuw<5YA(jB-MUo)i`C6E!F8GO!@7^*k}ZJq
zev>?rbU_qBn+KYI7HdZ&8e;MZsEz`fjFanmf^qUB@{GBF<2_CNenRq85@-_MoC<t!
zKBnoo;(op;PbVp+v}gGvgg2E6ju!edukm4=J(H}8JvH36NqAMbpROY>`;fL#c#NR)
ZAHeHe3wm8n`Nl4m1+NJoT{GN=@h5jB>MsBQ

diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas
index b4a2f1d..2e4870f 100644
--- a/B4A/MAPA_RUTAS.bas
+++ b/B4A/MAPA_RUTAS.bas
@@ -73,6 +73,8 @@ Sub Globals
 	Private p_botonesNoVenta As Panel
 	Private Panel5 As Panel
 	Private et_comentarioNoVenta As EditText
+	Private r_opcion7 As RadioButton
+	Private r_opcion6 As RadioButton
 	Private r_opcion5 As RadioButton
 	Private r_opcion4 As RadioButton
 	Private r_opcion3 As RadioButton
@@ -559,13 +561,17 @@ Private Sub b_guardaNoVenta_Click
 	If r_opcion1.Checked Then
 		motivo = "CERRADO"
 	Else If r_opcion2.Checked Then
-		motivo = "NO COMPRA"
+		motivo = "NO TIENE DINERO"
 	Else If r_opcion3.Checked Then
-		motivo = "CON PRODUCTO"
+		motivo = "NO ABRE MAÑANA"
 	Else If r_opcion4.Checked Then
-		motivo = "NO ESTA EL ENCARGADO"
+		motivo = "FALTA DE PRODUCTO"
+	Else If r_opcion5.Checked Then
+		motivo = "PROMOCION CON OTRO DISTRIBUIDOR"
+	Else If r_opcion6.Checked Then
+		motivo = "RECIBEN MUCHOS PROVEEDORES"
 	Else
-		motivo = "CANCELACION"
+		motivo = "NO LE QUEDA EL DIA"
 	End If
 	If motivo = "CERRADO" And fotoCerrado = "" Then
 		nombreFoto = Subs.traeCliente & "_cerrado"