cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-19 21:59:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

cambio de ticket que solo imprima venta y validacion de usuario si no esta activo

Browse Source
This commit is contained in:
cvaldes1201
2024-06-12 17:10:30 -06:00
parent d10a9d324d
commit f884e7986c
5 changed files with 146 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
B4A/C_Principal.bas
View File

@@ -1076,25 +1076,50 @@ Sub JobDone(Job As HttpJob)
Next
Next
End If
' 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
' LogColor("**************************"&n, Colors.Green)
' If n = "OKActivo" Then
' Log("Usuario guardado en BD es 'Valido'")
' Else If n = "OKExpirado" Then
' Msgbox("Usuario Expirado llamar al administrador","") 'ignore
' B4XPages.ShowPage("B4XMainPage")
' Else If n = "OKCancelado" Then
' Msgbox("Usuario Cancelado llamar al administrador","") 'ignore
' B4XPages.ShowPage("B4XMainPage")
' Else
' Msgbox("Usuario o password No validos","") 'ignore
' B4XPages.ShowPage("B4XMainPage")
' End If
' Log("***************** "&n)
' 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
LogColor("**************************"&n, Colors.Green)
Log(n)
'Logcolor("**************************"&n, Colors.Green)
If n = "OKActivo" Then
Log("Usuario guardado en BD es 'Valido'")
Else If n = "OKExpirado" Then
Msgbox("Usuario Expirado llamar al administrador","") 'ignore
B4XPages.ShowPage("B4XMainPage")
Else If n = "OKCancelado" Then
Msgbox("Usuario Cancelado llamar al administrador","") 'ignore
B4XPages.ShowPage("B4XMainPage")
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
B4XPages.ShowPage("B4XMainPage")
B4XPages.MainPage.skmt.ExecNonQuery("delete from USUARIOA")
ExitApplication
End If
Log("***************** "&n)
'Log("***************** "&n)
End If
End If
@@ -1870,6 +1895,7 @@ Sub JobDone(Job As HttpJob)
Next
End If
End If
End If
Job.Release
End Sub
@@ -1915,12 +1941,26 @@ Sub connecta_Click
' End If
' c.Close
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_INTMEX_7"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
' Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
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_INTMEX_10"
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_INTMEX_7"
' cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
'' Log($"${ALMACEN},${e_ruta.text},${imei}"$)
' reqManager.ExecuteQuery(cmd , 0, "ruta")
If e_ruta.Text = "KMTS1" Then
cargar.Visible = True