23/10/23 - Version en Principal y Cliente

- Agregamos la version de la aplicación en la pantalla principal y en la del cliente

B4A/Subs.bas

@@ -647,16 +647,6 @@ Sub centraProgressBar(elemento As ProgressBar, anchoElementoSuperior As Int) 'ig
 	elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2)
 End Sub
 
-'Regresa el usuario de la tabla USUARIOA si es que existe, si no existe, regresa "SinUsuario".
-Sub buscaDBUsuario As String 'ignore
-	Private c As Cursor
-	Private usuario As String = "SinUsuario"
-	c=kmt.ExecQuery("select USUARIO from usuarioa")
-	c.Position=0
-	If c.RowCount > 0 Then usuario = c.GetString("USUARIO")
-	Return usuario
-End Sub
-
 'Saca el usuario de la tabla USUARIOA
 Sub dameUsuarioDeDB As String 'ignore
 	Private c As Cursor