If global.ultimoFichaje.Accion = "" Then
DB.procesarQuery("SELECT * FROM sisfichaje WHERE NoPersona = '" & global.IdPersona & "' ORDER BY anio desc, mes desc, dia desc LIMIT 1","BUSCA_ULTIMO_FICHAJE",Me)
End If
....
Sub procesarQuery(Query As String, JobName As String, who As Object)
Dim job As HttpJob
job.Initialize(JobName, who)
job.PostString("http://192.168.1.45/intranet/php/procesos/fichaje/procesoDBselect.php", Query)
job.GetRequest.Timeout = 5000
job.Release
End Sub
Sub JobDone(Job As HttpJob)
Try
ProgressDialogHide
If Job.Success Then
Dim res As String
Try
res = Job.GetString
Catch
res = ""
End Try
Dim parser As JSONParser
parser.Initialize(res)
If Job.JobName = "BUSCA_ULTIMO_FICHAJE" Then
Dim uFichaje As List
uFichaje = parser.NextArray
Dim m As Map
m = uFichaje.Get(0)
global.ultimoFichaje.Dia = m.Get("Dia")
global.ultimoFichaje.Mes = m.Get("Mes")
global.ultimoFichaje.Anio = m.Get("Anio")
global.ultimoFichaje.Hora = m.Get("Hora")
global.ultimoFichaje.Accion = m.Get("Accion")
Else if Job.JobName = "INSERT_FICHAJE" Then
If totalEnBaseDatos = contadorVolcados Then
DB.SQL1.ExecQuerySingleResult("DELETE FROM fichaje_local")
ToastMessageShow((contadorVolcados + 1) & " registros transferidos", False)
Else
contadorVolcados = contadorVolcados + 1
End If
End If
Else If Job.ErrorMessage <> Null Then
ToastMessageShow (global.msgErrorTPnoRegistros, True)
End If
Catch
ToastMessageShow (global.msgErrorTPbusquedaCatch, True)
End Try
Job.Release
End Sub
