Sub ObtenerMantencionesAbiertas
Id_Mantencion = 0
ModConn.s.BeginTransaction
ModConn.c = ModConn.s.ExecQuery("SELECT m.*, (SELECT t.mecanico FROM mecanico t WHERE t.id_mecanico = m.id_mecanico) mecanico FROM eventos m WHERE m.sync = 0 AND m.codigo_qr = '"&ValorQr&"' AND id_tipoevento = -1 ;")
If ModConn.c.RowCount <> 0 Then
For i = 0 To ModConn.c.RowCount-1
ModConn.c.Position = i
Id_Mantencion = ModConn.c.GetInt("id_evento")
ID_QrMantencion = ModConn.c.GetInt("codigo_qr")
Fecha_Creacion_Mantencion = ModConn.c.GetString("fecha_inicio")
Mecanico_Encontrado = ModConn.c.GetString("mecanico")
Next
Msgbox2Async("Mantención encontrada:"& Chr(13)&Chr(10)&Chr(13)&Chr(10) & _
"Mecanico : "&Mecanico_Encontrado& Chr(13)&Chr(10) & _
"Equipo : "&ID_QrMantencion& Chr(13)&Chr(10)& _
"Iniciado : "&Fecha_Creacion_Mantencion& Chr(13)&Chr(10) & _
"Duración : "&"?"& Chr(13)&Chr(10)&Chr(13)&Chr(10)& _
"Desea cerrar?", "Alerta", "Si", "", "Cancelar", LoadBitmap(File.DirAssets, "warning.png"), False)
Wait For Msgbox_Result (Result As Int)
If Result = DialogResponse.POSITIVE Then
GuardaActualizaMantencion
End If
If Result = DialogResponse.NEGATIVE Then
Activity.Finish
End If
Else
DialogMecanico
End If
ModConn.c.Close
ModConn.s.TransactionSuccessful
ModConn.s.EndTransaction
End Sub