- Modificacion de la subrutina horaentrada para el ingreso al abordo

B4A/Subs.bas

@@ -1659,13 +1659,23 @@ End Sub
 Sub fechanormal(fecha As String) As String 'ignore
 '	Log(fecha)
 	Dim OrigFormat As String = DateTime.DateFormat  'save orig date format
-	DateTime.DateFormat = "yyyy/MM/dd HH:mm:ss"
+	DateTime.DateFormat = "HH:mm:ss"
 	Dim nuevaFecha As String=DateTime.Date(fecha)
 	DateTime.DateFormat = OrigFormat  'return to orig date format
 '	Log(nuevaFecha)
 	Return nuevaFecha
 End Sub
 
+Sub horaNormal(fecha As String) As String 'ignore
+'	Log(fecha)
+	Dim OrigFormat As String = DateTime.DateFormat  'save orig date format
+	DateTime.TimeFormat = "HH:mm"
+	Dim nuevaFecha As String=DateTime.time(fecha)
+	DateTime.DateFormat = OrigFormat  'return to orig date format
+'	Log(nuevaFecha)
+	Return nuevaFecha
+End Sub
+
 'En geocerca si mete la contraseña poner 0 en precision gps y si esta dentro de los 50 mts poner 1 y 2 para eventos que no lo ocupen
 'Mandar fecha de sync(sysdate)
 Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As String, eventob As String, clienteb As String, iniciob As String, finb As String, latitudb As String, longitudb As String, precision As String, motivonoventa As String, motivonovisita As String )