'*** Envio de datos eventos a servidor ***'
Sub EnviaEventos
Dim j As HttpJob
Dim estado As String
Dim id_evento As Int
j.Initialize("", Me) 'name is empty as it is no longer needed
ModConn.s.BeginTransaction
ModConn.c = ModConn.s.ExecQuery("SELECT * FROM eventos WHERE sync = 1;")
If ModConn.c.RowCount <> 0 Then
For i = 0 To ModConn.c.RowCount-1
ModConn.c.Position = i
id_evento = ModConn.c.GetInt("id_evento")
j.download2(ModConn.Url_php_mysql("GET_EVENT"), _
Array As String("REQUEST_METHOD", "SAVE_EVENT", _
"ID_EVENTO", ModConn.c.GetInt("id_evento"), _
"ID_TIPOEVENTO", ModConn.c.GetInt("id_tipoevento"), _
"FECHA_INICIO", ModConn.c.GetString("fecha_inicio"), _
"LAT_INI", ModConn.c.GetString("lat_ini"), _
"LONG_INI", ModConn.c.GetString("long_ini"), _
"FECHA_FIN", ModConn.c.GetString("fecha_fin"), _
"LAT_FIN", ModConn.c.GetString("lat_fin"), _
"LONG_FIN", ModConn.c.GetString("long_fin")) _
)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
'The result is a json string. We parse it and log the fields.
Dim jp As JSONParser
jp.Initialize(j.GetString)
Dim quotes As List = jp.NextArray
For Each quot As Map In quotes
estado = quot.Get("estado")
If estado == 1 Then
ModConn.s.ExecNonQuery2("UPDATE eventos SET sync = ? WHERE id_evento = '" & id_evento & "'", Array As Object(2))
Else
'ToastMessageShow(quot.Get("mensaje"), False)
Log(quot.Get("mensaje"))
End If
Next
End If
Next
End If
ModConn.c.Close
ModConn.s.TransactionSuccessful
ModConn.s.EndTransaction
'j.Release
Log("Fin Eventos Enviados")
EnviaDetalleEventos
End Sub