14/9/23 - Clase Subs y otros

- Se agrego la clase Subs
- Se cambió "skmt" por "db"
- Se arreglo el reqmanager que no se reinicaba bien cuando se cambiaba en el engrane.
- Se agregó dbInit a C_Subs, que inicializa la BD.

B4A/errorManager.bas

@@ -100,7 +100,7 @@ Sub Activity_Resume
 	End If
 	c.Close
 	Dim usuario As String = ""
-	c = Starter.skmt.ExecQuery("select usuario from usuarioa")
+	c = Starter.db.ExecQuery("select usuario from usuarioa")
 	If c.RowCount > 0 Then
 		c.Position = 0
 		usuario = c.GetString("USUARIO")