- Se agregaron validaciones de conexion al hacer clic en el boton de CONECTAR en la pantalla principal

B4A/Starter.bas

@@ -52,6 +52,8 @@ Sub Process_Globals
 	Dim sesion As Map
 '	dim cp_running as Boolean = false
 	Dim enVenta As Boolean = False
+	Dim pingShell As Boolean = False
+	Dim errorConnDBReq As Boolean = False
 End Sub
 
 Sub Service_Create