If LOCKED_STATE = False Then
Dim td As TimeDialog
Dim huidige=lEttape.get(params.LastKnown) As Ettape
td.Is24Hours = True
If params.LastKnown > 0 Then
Log (huidige)
If huidige.rusttijd.Length < 5 Then huidige.rusttijd = 0 & huidige.rusttijd
Log (huidige)
td.Hour = huidige.rusttijd.SubString2(0,2)
td.Minute = huidige.rusttijd.SubString2(3,5)
If td.Show("Pauze","","ok","cancel","",Null) = DialogResponse.POSITIVE Then
Log (huidige)
huidige.rusttijd= NumberFormat(td.Hour,2,0) & ":" & NumberFormat(td.Minute,2,0)
huidige.Vertrek = DateTime.TIME(DateTime.TImeParse(huidige.Aankomst)+ DateTime.TimeParse(huidige.rusttijd))
lEttape.Set(params.LastKnown, huidige ) ''write in list
Log (huidige)
CalculateEtappes(True)
UpdatePanel1(params.LastKnown)
End If
End If
End If