cheveguerra/Gabinete-Roit
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Gabinete-Roit.git synced 2026-04-20 04:39:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

- SE AGREGO CODIGO PARA EN ELNVIO DE ERRORES

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-03-23 16:04:24 -06:00
parent 79d74e2fdb
commit 2d4e8dd2d2
8 changed files with 302 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/login.bas
View File

@@ -122,6 +122,10 @@ Private Sub b_inicio_Click
' B4XPages.ShowPage ("Principal")
End Sub
Private Sub b_inicio_LongClick
Private X As Int = "A"
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success = False Then
ToastMessageShow("Error: " & Job.ErrorMessage, True)
@@ -133,7 +137,7 @@ Sub JobDone (Job As HttpJob)
If result.Tag = "usuario" Then 'query tag
For Each records() As Object In result.Rows
For Each k As String In result.Columns.Keys
Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k)))
' Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k)))
Next
If records(result.Columns.Get ("USUARIO")) = "OKActivo" Then
Starter.almacen = records(result.Columns.Get ("CAT_LO_AGENCIA"))
@@ -174,10 +178,10 @@ Sub JobDone (Job As HttpJob)
If perfil = 3 Then
CallSubDelayed(Starter,"ENVIA_ULTIMA_GPS")
B4XPages.ShowPage("Principal")
Log("AQUI ANDO")
' Log("AQUI ANDO")
Else If perfil = 2 Then
CallSubDelayed(Starter,"ENVIA_ULTIMA_GPS")
Log("AQUI ACA")
' Log("AQUI ACA")
B4XPages.ShowPage("Supervisor")
End If
Else If Starter.trabaja = 0 Then