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

- Falta guardar los pings con exito.

B4A/B4XMainPage.bas

@@ -174,7 +174,6 @@ Private Sub lv_server_ItemClick (Position As Int, Value As Object)
 	ToastMessageShow($"Servidor modificado"$, False)
 End Sub
 
-
 Private Sub clv_server_ItemClick (Index As Int, Value As Object)
 	If logger Then Log(Value)
 	et_server.Text = Value
@@ -221,10 +220,7 @@ Private Sub b_ping_Click
 	b_ping.Background = cd1
 	b_ping.Text = "Buscando ..."
 	CallSubDelayed(Monitor, "Timer1_Tick")
-	
 	CallSubDelayed(Monitor, "probamosConexion")
-	
-	
 '	Wait For (ph.ShellAsync("ping", Array As String("-c 1","-W 2", "8.8.8.8"))) Complete (Success As Boolean, ExitValue As Int, StdOut As String, StdErr As String)
 '	If Success Then
 '		Log("ExitValue:" & ExitValue)
@@ -261,7 +257,6 @@ Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel 'ignore
 	Return p
 End Sub
 
-
 Private Sub l_info_Click
 	l_info.Visible = False
 End Sub