cheveguerra/Monitor-Keymon
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Monitor-Keymon.git synced 2026-04-18 05:09:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
- Falta guardar los pings con exito.
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-04 21:32:46 -06:00
parent c9fec07fc3
commit 02e050e73c
4 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/monitor.bas
View File

@@ -113,12 +113,13 @@ Sub JobDone(Job As HttpJob)
' Log(Job)
If Job.Success = False Then
If Job.JobName = "DBRequest" Then DBReqServerOk = False
Dim cd1 As ColorDrawable
cd1.Initialize(Colors.Red, 10dip)
If B4XPages.IsInitialized Then B4XPages.MainPage.b_ping.Background = cd1
If B4XPages.IsInitialized Then B4XPages.MainPage.b_ping.Text = "DBReqServer KO"
s.notiHigh("ERROR ❌", $"El servidor ${Starter.DBReqServer} NO responde!!"$, nid, Main)
Log("Guardamos error en BD")
Starter.skmt.ExecNonQuery($"insert into error_log(error, fecha) values ('El servidor ${Starter.DBReqServer} NO responde!!', '${s.fechaKMT(DateTime.Now)}')"$)
If Job.ErrorMessage.Contains("failed to connect") Or Job.ErrorMessage.Contains("Failed to connect") Then
' ToastMessageShow("¡Hubo un error contactando al servidor, por favor revise su conexión!", True)
End If
@@ -128,6 +129,7 @@ Sub JobDone(Job As HttpJob)
If Job.JobName = "DBRequest" Then
Dim resultado As DBResult = reqManager.HandleJob(Job)
If resultado.Tag = "select_conexion" Then
Log("select_conexion")
For Each records() As Object In resultado.Rows
Private valor As String = records(resultado.Columns.Get("VALOR"))
If valor = "OK" Then
@@ -144,6 +146,8 @@ Sub JobDone(Job As HttpJob)
s.notiHigh("ERROR ❌", $"El servidor NO esta respondiendo!!"$, nid, Main)
If B4XPages.IsInitialized Then
B4XPages.MainPage.l_status.Text = "El servidor NO esta respondiendo!!"
Log("Guardamos error en BD")
Starter.skmt.ExecNonQuery($"insert into error_log(error, fecha) values ('La BD NO esta respondiendo!!', '${s.fechaKMT(DateTime.Now)}')"$)
Dim cd1 As ColorDrawable
cd1.Initialize(Colors.Red, 10dip)
B4XPages.MainPage.b_ping.Background = cd1