cheveguerra/SoporteKeymonsoft
1
0
Fork 0
mirror of https://github.com/KeymonSoft/SoporteKeymonsoft.git synced 2026-04-17 20:56:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.07.30

Browse Source 
- Agrega el desbloqueo de usuarios de Intmex.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-08-01 22:26:39 -06:00
parent 4115e12660
commit 27093bd36e
3 changed files with 27 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
soporteKMS.b4a
View File

@@ -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)