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

20/9/23 - Se modificaron las notificaciones.

Browse Source 
- Se cambiaron los textos de las diferentes notificaciones para que sea mas fácil entender los mensajes.
This commit is contained in:
cheveguerra
2023-09-20 22:43:06 -06:00
parent f402c1221e
commit 4d7469e36b
3 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/monitor.bas
View File

@@ -81,7 +81,7 @@ Sub probamosConexion
B4XPages.MainPage.b_ping.Text = "Internet Ok"
End If
Dim cmd As DBCommand
s.notiLowReturn("Con internet", "Hay conexion a internet", nid)
s.notiLowReturn("Hay conexion a internet ✅️", "Revisando servidor ...", nid)
If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "Hay conexion a internet!!"
Dim cmd As DBCommand
cmd.Initialize
@@ -93,7 +93,7 @@ Sub probamosConexion
Timer1.Enabled = True
Else
If logger Then Log("Sin conexión a internet!!!")
s.notiLowReturn("Sin internet", "NO hay conexion a internet", nid)
s.notiLowReturn("SIN INTERNET ❌", "NO hay conexion a internet.", nid)
If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "NO hay conexion a internet!!"
End If
@@ -114,7 +114,7 @@ Sub JobDone(Job As HttpJob)
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("Con internet", $"El servidor ${Starter.DBReqServer} NO responde!!"$, nid, Main)
s.notiHigh("ERROR ❌", $"El servidor ${Starter.DBReqServer} NO responde!!"$, nid, Main)
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,7 +128,7 @@ Sub JobDone(Job As HttpJob)
Private valor As String = records(resultado.Columns.Get("VALOR"))
If valor = "OK" Then
DBOk = True
s.notiLowReturn("Con internet", $"El servidor esta respondiendo!!"$, nid)
s.notiLowReturn($"El servidor esta respondiendo ✅"$, "Servidor OK ✅", nid)
If B4XPages.IsInitialized Then
B4XPages.MainPage.l_status.Text = "El servidor esta respondiendo!!"
Dim cd1 As ColorDrawable
@@ -137,7 +137,7 @@ Sub JobDone(Job As HttpJob)
B4XPages.MainPage.b_ping.Text = "Servidor Ok"
End If
Else
s.notiHigh("Con internet", $"El servidor NO esta respondiendo!!"$, nid, Main)
s.notiHigh("ERROR ❌", $"El servidor NO esta respondiendo!!"$, nid, Main)
If B4XPages.IsInitialized Then
B4XPages.MainPage.l_status.Text = "El servidor NO esta respondiendo!!"
Dim cd1 As ColorDrawable