4/11/23 - Guardamos los errores en base de datos.

- Falta guardar los pings con exito.

B4A/Starter.bas

@@ -43,6 +43,7 @@ Sub Service_Start (StartingIntent As Intent)
 	s.Initialize
 	skmt = s.inicializaBD(File.DirInternal, "kmt.db")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS cat_variables(nombre TEXT, valor text)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS error_log(error TEXT, fecha text)")
 	If s.traeDBReqServerDeBD <> "N/A" Then DBReqServer = s.traeDBReqServerDeBD
 '	reqManager.Initialize(Me, DBReqServer)
 	StartService(Monitor)