cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-17 19:36:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Actualizacion para que si el usuario esta expirado o cancelado no pueda hacer movimientos.

Browse Source
This commit is contained in:
cvaldes1201
2024-06-11 15:07:21 -06:00
parent bbc7cfe654
commit 62c147bf26
3 changed files with 47 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
B4A/C_Principal.bas
View File

@@ -1196,6 +1196,31 @@ Sub JobDone(Job As HttpJob)
skmt.EndTransaction
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "usuarioA" Then 'query tag
Private n As String = "Sin Usuario"
For Each records() As Object In RESULT.Rows
n = records(RESULT.Columns.Get("USUARIO"))
Next
Log(n)
'Logcolor("**************************"&n, Colors.Green)
If n = "OKActivo" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_DUR3" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores.
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
Else
Msgbox("Usuario o password No validos","") 'ignore
Starter.skmt.ExecNonQuery("delete from usuarioa")
ExitApplication
End If
'Log("***************** "&n)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
@@ -1959,13 +1984,27 @@ Sub connecta_Click
cmd.Initialize
cmd.Name = "select_version_DUR"
reqManager.ExecuteQuery(cmd , 0, "version")
c=Starter.skmt.ExecQuery("select USUARIO, PASS from usuarioa")
c.Position=0
If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then
Private usrT As String = c.GetString("USUARIO")
Private passT As String = c.GetString("PASS")
Log(usrT)
Log(passT)
cmd.Initialize
cmd.Name = "select_usuario_guna_DUR"
cmd.Parameters = Array As Object(usrT, passT)
reqManager.ExecuteQuery(cmd , 0, "usuarioA")
End If
c.Close
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_DUR3" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores.
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "select_ruta_DUR3" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores.
' cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
' Log($"${ALMACEN},${e_ruta.text},${imei}"$)
' reqManager.ExecuteQuery(cmd , 0, "ruta")
If e_ruta.Text = "ROOT" Then
cargar.Visible = True

2
B4A/Durakelo.b4a
View File

@@ -1398,7 +1398,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Durakelo
#VersionCode: 1
#VersionName: 4.05.29
#VersionName: 4.06.08
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/Durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Cuestionario,r_CheckedChange,118,0,C_Cuestionario,agregaPregunta,98,0,C_Cuestionario,pSombra_Click,115,0,C_Cuestionario,preguntaContestada,112,0,C_Cliente,initialize,167,0,C_Cliente,Class_Globals,163,0,C_Cliente,B4XPage_Created,174,0,C_Cliente,B4XPage_CloseRequest,497,0,C_Cliente,rb_p7no_CheckedChange,1768,0,C_Cliente,cuest_preguntaContestada,1784,0,C_Cliente,B_VENTA_Click,1243,0
NavigationStack=C_Cliente,initialize,167,0,C_Cliente,Class_Globals,163,0,C_Cliente,B4XPage_Created,174,0,C_Cliente,B4XPage_CloseRequest,497,0,C_Cliente,rb_p7no_CheckedChange,1768,0,C_Cliente,cuest_preguntaContestada,1784,0,C_Cliente,B_VENTA_Click,1243,0,C_Principal,Class_Globals,1,0,C_Principal,connecta_Click,1991,3,C_Principal,JobDone,1218,2
SelectedBuild=0
VisibleModules=2,10,4,19,5,6,8,9,11,24