- VERSION 5.07.30

- Agrega el desbloqueo de usuarios de Intmex.

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)

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