From 27093bd36ea1d3afa42a06e248abfea63ae54aae Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Fri, 1 Aug 2025 22:26:39 -0600
Subject: [PATCH] - VERSION 5.07.30 - Agrega el desbloqueo de usuarios de
 Intmex.

---
 Files/layout1.bal   | Bin 83328 -> 83939 bytes
 soporteKMS.b4a      |  31 ++++++++++++++++++++++++++-----
 soporteKMS.b4a.meta |   2 +-
 3 files changed, 27 insertions(+), 6 deletions(-)

diff --git a/Files/layout1.bal b/Files/layout1.bal
index 0806ee9649cb4dff285445d0278d1ed87f3b09a8..49ac39b1a9c0a242d676dc3b52dbfae2fda7acfe 100644
GIT binary patch
delta 4304
zcmZ|SeOOc1836FS(Kr)<gouEJK7#1{mIV0<Bq1UosC>0(Rn!<N73E8-45vuYiFKAD
z^WA#1ma47Qebh~w+H{+%+HPyR)@fH;SNC-7o<7CLeM$Fh(`vWuJ@+Q$jdg#Vo8LX}
zx#ymH-gD1|uE%ws?$br<G#X86yhdZ7->U=BsSs}_)w$QyZ>no*-Pl&|DQnr>T))LP
z8}1n3E#LGgKj=nKlactx=p^rK(o8C|sH8Jnn61ni%yXDCnX{O)nRA$PReO~i+gKov
zIiK0i>>xX-6i{(7&m|X9nMb9FxtO_xdA`OQzMzx^%9s~0FJxZCT+Up<T*+L;Tpcpq
zU-Lldgnl1nu3=uxyoC87=B3Qbn3prxGOr+eL({dA1y(V;nO8G=nCqAyW?sWw&-_T(
zUd`I@iKc;h9rJqTM&>5wX66>=R^|=N8x_<1%f<323v6QE%-qKO4d!;{EzI9!-pag<
zxkKhZl!EQdoy@#V7pvdFyp#MbD!Zt3Gw&upMr99`Z!_-=+A9N(vp^5?6U@EL`<VNf
zzr(zr8JWM!{5@KK!=rnW1qAZ}=7Y>nF&|=nnz^6(8Ro;ornx;be4^1DWqy|VIp$-`
z&oduqKEeEb<{vQsP+I0zrr<{`@B;Hm<{vZvg!vTn0P~B?KIWI0y{Fm9%glb}SD1gw
z{4?gCGoNAp1@o)SXH|QZr$5I6=b2w)ex3Q3%)es(HS-(HZ!*8d{2RIdzfBeIP`N-Q
z<li!1WWL1wF7xl0-($Ya{66ysAx|P)37ydI@0mX&JE;`l-f`Puk8gDR)!4B{swf)%
zw5QB(Yw_UcQ%+#{w0Sek6#MFjKQ{6T^{)XuF!i*rZ(89Qtr2iXuLZr&88BvW5T3_@
zH>P6BB?I;ywu?&+nC#ngEk!Hpi@<@OUH6Wat0#d9)YBnR;t6?)@9>{z031`UuJktI
zs=sz<i`1^Szi&X(8V|Pr?GLibT5Q3g0fVpi?}?x^Ic>pYn*ncECF1QHLKzTMt$fMg
zyD(%2c}|!3^8c}61bitxsbKYe^e-pCr+7+OvHYeTFV&{wD>vPk^5y;7P2d}9$N{k7
zpWdu8+CZb3LSu}Q)27cAkPct>om}4okf+4+?iD}V)C2hLtt9MQo{dw#FpH7tkS0>J
zun*cXb=@({xLyZ#x_+!OE5yO;nOX;6&xz9T^vK;dJU#ePsR0A~Gq5ttjE8QT#K$us
z8l2+uB$x?Kym7}WOnDH8@2u5h<}Le}0vecBj@bq1`NWDZ+?tGg0!gBG2AE?@C{RcZ
zbeia3lL7a5{4fxsbplrJpMU|k0X<&~!aO-htiA0p&5L+YwHXxQj`zwi_D(UbZZ(KQ
zQDDI6Tsxj>oeaftWNE@Q3-siVZBUGjPwT~z5zsGA>S&;=4>-hsbr3@V&y^IIFS`=y
zF3<~;4*H=~x%1GI4r6J=ot4&jw#k4!Yq!Z|CeDlk50ohrA?$jkL%8ZfZ*K+~=QP3s
zC1PA~S1;5=G$lg~EEMOHA<MKdG7i|6SuOhYP$Nb~Lp-*)SC|&v-2_f|;?mU_7+jxF
zjvFsmY0D}1S#jE8Ig`iaLd7E=$h4(Hg%Yn|@d=_g8it@!9b;wW4G^y8VER+}awUtX
zG<wP^wO!Rc+I2Ye{_AOA1F>NoxT$4urJ4XQHg~`Sa<z&n2{b)wNG`{2<u$En-hmc-
zhZvhkSvhBS7$1!2UTsb@-i=+gabjOQG}5GmlUt)CS2QQUaagP*jWTOo9MMOOlHw&1
zDYnyY;SobgkPkKVq%IK{PuW;XJ&cpHE&iPhG1?kHb&~sGnfmO@?&^3rkIU6OE{}{4
z=h2SF%O0pzGEl2#fI6qOE;G;_N}>2qD#VGd3E&VF6Ja!7$x_CkCb9w#AG}{Qrv*o>
z<|f(JC?-y(nUhO(Rpia(QwNvoAh^}>yYFg3Ire{&28AF>rcvJ9p}f%!<B>TtdLk|e
z#^nwJbxOSM9&wr6gP6a|AX=xxB=5u2L@)pSSwnz-(xG0~JVJ-HR7M5P*=BquH-ZK_
zTPH*7>Ch-c4S_(Qi2(A`&@5}HBG5w6x6<L7ylMksqpVp<XO9w;Hk$|#MKzi+R7M8-
zN2_g#I651YjVOEkW@;4PUJcYR*kfoH5^v{%3s+pwi^`d_b0k<`lDem~$z^9n%c3~H
zdzPHOYZiJ<&%Kr}mRV_$xA|%P#{;yhv)&$YpEmhsiM<wB30s2eZHyRgg=*uL$aek)
zD<p$R$O5;vEwnS*g=-GH3R{()#rPaBiy<4tU{$YK*@8vI9NNUTX3}uy=F)?96+pIW
zTSUiOLwy<iN3&oGKnD%uKDjqfLe~j1bolSfk=5Hn)n?&Jr2BN`(&1(v#Q2ZoLM%Y1
z97AxE?UWPp7x0FwM2VALp-#Z_vnR@lqP;}#FUhAp0=kr?(-ko&ud?)n&H+QBzCc;g
zUlS%LWQ&&zXhyxtJG@hQhtE3UxF{~9S@8}(iMUY!gQB`9`2Lu7MRp!;=bj6L^v2Ov
nY3lwzZTuGtVJE<D8m0P)H13XUsSFh!L+k5h>U2*ph9&<4H?f1%

delta 4078
zcmZwIdsI}{6$jwi2$~te8Bi3XCXyI2m7)VWip<Dkc!)+`A;veL5>W(Es-YGfG%=5A
zFlINNJc>0<gR#blj&>Sj6>Xc?s!=pan|7_XrmMJ`Hdec``bbto_qmrDexv?zhVS0J
z&$;KGeeU7UJEK~+N5w>0ESBDQi^V2?KRFzeNd8><%0_4XS<wOF-k1d6M2RFzOOY1z
zB=BUg6PyZ815W`@1-ro0`t7q!@4v95gJ*y<z;3Ze+DvJg;4E>rv>a((a4t9xoNw4?
zb|`?rEN~%sHh2#BA@E#q5x5v!0xp&3hh|*{ei&R1egr%Z{3v)ncma4Jcu}8ydbt)u
zU<r6BxB^@Wt^zLuF9)vxSA!q3SbU+kUkQO4@G9_Xa4mQZxDH$oUJGsrS=N7D=)z)I
z4{ij13%mim5&Sr~3H)vFCh&K(b^Ub-njz2v-VDaQ(hB#th__06LfVtyZQ`e-JuU4S
z@Uvjwcj00?cnA17a2t3h_<8Uy@C#rDf6uhfnB9vI*bP?Tm%uNBUje@g{yw-Jya)UP
z*?*xW+6#f#z&`}P4*n7N4R8l|ANWo1{-AYDe;mA!zX!l?fe(V;1|I@<f)9g_fc@a3
zVqb8B9D~45zya`2!S8^NgWm<80RIepvfn<-ss0N~7x*;z4EX2ZUx0rJeh>UU_$>HW
z;$Q3fpA(!nE=*qle*nG+z69<DUj|<Re+d2v{P9@0_zn2CVvn?${8oGmJ>~z#@ZZJS
z2g{Az>c(Yj)~?%7UA3M^OxVZC4<6%_6TJSb59XYp%iP`O<V&yHxT2?r-g)sVP4L%W
z+aAH4^&WP8<{PSCdW1C6$8ds1laX}evx!7UHF>YEmJj{CnFg_=)X5)wWK++_P!*s3
z{P%Ket<T99t8M;2UQeKiLBx~OCUaf7jTd+mc+L%_CveQEcE*y;f6q-f$@P{zr+>#k
z8wSuR{=*@sKjmLDi8`2Ga`K*kyLs=_IQ1xzgB|%XZ2eD#>T=OA9#dmgH;CMW)5&6q
zkXc%15Z`n;RZRpvz@PqalsYwo;$rh9;+BjkOH5x*ci~7*`#O$~UKztBl{PhI0QHcE
zPoEpAMnsaw?vd;y$&I$_4%7MYm9aFFv(Fc*3z3w^@t@{%XUYSV$<E8k@_W4}kK4Yq
zM!3kIy=od!7I%MDV$TX2BvU00r}6%;SMMP8Tm+5cKb>&dv+tDRsM|r5V+@gVd;9=b
zzBx>dj-p!f%H!|nr5CK^RXbgDFSjqAqy`M6cFI++4WtrBZdi9OapL)VDNiL1qJOBp
z17!gZ7JBUY;YoppyU0OQpkK{V5FR7m)wYf+(`sp!5uSB>I8$A`hsq-giK~jIsDoA-
z5+TpMI;C`XG?mkAS>kwAnMQ-TIJH#0XEVc{shfF!Wol>>(HwdEWNuwKPU~j8ys1=x
zORmr6(JQRnUhU?$w^XU}Xd2Fy%QNU9Gbzw**HfQs%x&)Nb8~U)D;avz)l!j>Q*@^s
zDP&+{9HkQ#8#O2nODYPM(Lp@6zL`pNj!KH7AygEQ3LhbLXed>Xna7U0ZMt5(&~H<%
z4ssjYrc54g)~zg9xAE%INa|2mMo3XwmUtWwhds2+tX#RST$_BdRrH9Szk2^}Sw9Kt
zs?=YzsXe19f#!v+v18t?Bbkfcu6jmMhS|BVX7kOOO&DViYSzrnl^<5of>1p~Qjanv
zOZ`TFy%vVzA|1b_UhTBVSnx%+PG(n|Q4~2FYSqO=b4RMN_t9O0%ulZ@&^1nKstWE8
zPS(ZmW?221tI|nTj*|{@V%e954Z9>*BKeFej1pGdDXu>=wJk|%WppsUD?advjgNPX
z^HoU?t6M()Wdiy_ewOPyE99qI+Q8nf^of7bXTxK1wNi&_<Y$!*)%5oEt`<<7#B22(
zxzW2uV6Bs%Yr0pxV6DD0U#=PiM$S3`MavzFKENaU#%Jdf^Ju*kHF<XeSygljjY?QA
znf>RJO|s2l&1IJZEhR$^p@SE!>PU(l2aTZ(*BIPzaW8m>1<p*O98w>D(>#q-Qi|;2
zMq~AiQ}JXvC95tc9j6UO^)`e(wNdXom-;+a)-TdY!}Vvq*uF75CvYx}MiV_A+#hOR
zs(wb_Jl)*-<q&mvDs@tmegZY=>HSSzn<7<d3cgGraylguZNeq6s@3TfN1FmI=@L_$
zrjc>hyVSX9G$b$}gJOxALvP(2eCzS*X*YFHOEBVS37c*+sZuxHr?O&cOklr9p8=bV
z4YWBdt;JX(Rg+0K$j7l?+|7adIDJ|<eBpWKXWOd(aqy&#Ry8r3+SU9lW7m$<9n}6T
zS&o+Ao2s%L`9HKZxLEeB;lqW}&UmRuoz0d-3Uv*n=FwJC)4ekIfB))H&wBO1#zbiw
NH=Hh1PZm(c{{ch^Oe+8Y

diff --git a/soporteKMS.b4a b/soporteKMS.b4a
index ffbcc12..6632ead 100644
--- a/soporteKMS.b4a
+++ b/soporteKMS.b4a
@@ -34,7 +34,7 @@ Version=12.8
 @EndOfDesignText@
 #Region  Project Attributes 
 	#ApplicationLabel: Soporte Keymonsoft
-	#VersionName:  5.05.25
+	#VersionName:  5.07.30
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
@@ -85,7 +85,7 @@ End Sub
 Sub Globals
 	'These global variables will be redeclared each time the activity is created.
 	'These variables can only be accessed from this module.
-	Dim reqManager As DBRequestManager
+	Dim reqManager, reqManager1781 As DBRequestManager
 	Dim cmd As DBCommand
 	Dim kb As IME
 	Private WobbleMenu1 As WobbleMenu
@@ -529,6 +529,27 @@ Private Sub b_desbloquea_Click
 	kb.HideKeyboard
 End Sub
 
+'Desbloquea el usuario de Intmex especificado en "et_usuario".
+Private Sub b_desbloqueaIntmex_Click
+	If et_usuario.Text <> "" Then
+		reqManager1781.Initialize(Me, DBRS_1781)
+		cmd.Initialize
+		cmd.Name = "desbloqueaUsuarioIntmex"
+		Dim tempUsr As String = et_usuario.Text
+		tempUsr = tempUsr.Trim 'Quitamos espacios de antes y despues.
+		If Starter.mayusculasDesbloqueo = "1" Then tempUsr = tempUsr.ToUpperCase 'Mandamos el usuario en mayusculas.
+		cmd.Parameters = Array As Object(tempUsr)
+		Log("Mandamos DBRequest desbloqueo: " & tempUsr)
+		usrDesbloqueo = tempUsr
+		reqManager1781.ExecuteCommand(cmd , "desbloqueaUsuario")
+	Else
+		Toast("Por favor ingrese el usuario a desbloquear. 🙄", 650)
+	End If
+	kb.HideKeyboard
+End Sub
+
+
+
 Sub s_almacen1_ItemClick (Position As Int, Value As Object)
 	almacenGuna = spinnerGunaMap.Get(Value)
 	almacenDeRuta = Value
@@ -738,8 +759,8 @@ Sub JobDone(Job As HttpJob)
 '			ToastMessageShow("Venta Eliminada.", False) 'El request de eliminar venta (Stored Procedure) siempre regresa error, asi que asumimos que SI se borro la venta.
 		'///////////////////  Si hay error de conexion con keymon.lat nos cambiamos a 10.0.0.205  ///////////////////////
 		else If Job.Tag = "pruebaConexion" And Job.ErrorMessage.IndexOf("Failed to connect to keymon.lat") = -1 Then
-			DBRS_1782 = "http://10.0.0.205:1782"
-			Dim DBRS_1781 As String = "http://10.0.0.205:1782"
+			DBRS_1782 = "http://keymon.net:1782"
+			Dim DBRS_1781 As String = "http://keymon.net:1782"
 '			DBRS_1782 = "http://11.0.0.231:1783" 'Para pruebas locales
 			reqManager.Initialize(Me, DBRS_1782)
 			conexionDBRS = "interna"
@@ -788,7 +809,7 @@ Sub JobDone(Job As HttpJob)
 				For Each records() As Object In result.Rows
 					et_usuario.Text = ""
 					Private pp As BClipboard
-					pp.setText($"${Subs.generaSaludo}usuario *${usrDesbloqueo}* desbloqueado, por favor cerrar navegadores y reingresar."$) 'Copiamos el texto al portapapeles.
+					pp.setText($"${Subs.generaSaludo}usuario *${usrDesbloqueo}* desbloqueado, por favor *cerrar* navegadores por completo y reingresar."$) 'Copiamos el texto al portapapeles.
 '					ToastMessageShow("Mensaje copiado al portapapeles.", False)
 					Log("Usuario desbloqueado! 🔓")
 					Toast("Usuario desbloqueado 🔓", 0)
diff --git a/soporteKMS.b4a.meta b/soporteKMS.b4a.meta
index 1dd2ef0..cbf9401 100644
--- a/soporteKMS.b4a.meta
+++ b/soporteKMS.b4a.meta
@@ -10,6 +10,6 @@ ModuleClosedNodes0=2
 ModuleClosedNodes1=
 ModuleClosedNodes2=1
 ModuleClosedNodes3=1,9,11
-NavigationStack=Main,b_revisaAA_Click,1823,1,Main,Globals,174,6,Main,WobbleMenu1_Tab5Click,416,4,Main,b_abrirAvion_Click,1803,6,Main,s_empresaAA_ItemClick,1769,2,Main,s_almacenAA_ItemClick,1778,2,Main,b_borrarVentaBV_Click,1560,0,Main,JobDone,1281,6,Diseñador Visual,layout1.bal,-100,6,Main,Process_Globals,31,0
+NavigationStack=Main,WobbleMenu1_Tab5Click,416,4,Main,Process_Globals,31,0,Main,Activity_Create,271,0,Main,WobbleMenu1_Tab1Click,314,0,Main,Globals,53,0,Main,b_desbloqueaIntmex_Click,498,3,Diseñador Visual,layout1.bal,-100,6,Main,WobbleMenu1_Tab7Click,478,0,Main,b_desbloquea_Click,490,0,Main,JobDone,728,6
 SelectedBuild=0
 VisibleModules=2,3,1