diff --git a/Files/layout1.bal b/Files/layout1.bal index 0806ee9..49ac39b 100644 Binary files a/Files/layout1.bal and b/Files/layout1.bal differ 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