diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm
index cc32d99b..b828cd90 100644
--- a/Source/Cliente/uPantallaPrincipal.dfm
+++ b/Source/Cliente/uPantallaPrincipal.dfm
@@ -2,7 +2,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
   Left = 358
   Top = 250
   Caption = 'Pantalla principal'
-  ClientHeight = 601
+  ClientHeight = 453
   ClientWidth = 751
   Color = clWindow
   Font.Charset = DEFAULT_CHARSET
@@ -25,7 +25,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
     Left = 0
     Top = 0
     Width = 751
-    Height = 579
+    Height = 431
     Margins.Left = 5
     Margins.Top = 5
     Margins.Right = 5
@@ -37,7 +37,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Left = 215
       Top = 5
       Width = 5
-      Height = 569
+      Height = 421
       ResizeStyle = rsPattern
       ExplicitLeft = 210
       ExplicitHeight = 570
@@ -46,7 +46,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Left = 5
       Top = 5
       Width = 210
-      Height = 569
+      Height = 421
       ActivePage = pagInicio
       Align = alLeft
       AutoHeaders = True
@@ -91,7 +91,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
         Left = 0
         Top = 0
         Width = 208
-        Height = 496
+        Height = 348
         Background.Stretch = False
         Background.Proportional = False
         Background.Center = False
@@ -101,7 +101,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
         ImageIndex = 0
         object Panel1: TPanel
           Left = 0
-          Top = 410
+          Top = 262
           Width = 208
           Height = 86
           Align = alBottom
@@ -155,7 +155,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Left = 220
       Top = 5
       Width = 526
-      Height = 569
+      Height = 421
       BoundColor = clActiveCaption
       BoundLines = [blLeft, blTop, blRight, blBottom]
       Caption = 'pnlBorde'
@@ -164,7 +164,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
         Left = 1
         Top = 1
         Width = 524
-        Height = 567
+        Height = 419
         Align = alClient
         Color = clWindow
         TabOrder = 0
@@ -204,7 +204,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
   end
   object TBXStatusBar1: TTBXStatusBar
     Left = 0
-    Top = 579
+    Top = 431
     Width = 751
     Images = StatusPanelImageList
     Panels = <
@@ -559,18 +559,20 @@ object fPantallaPrincipal: TfPantallaPrincipal
         Action = actConexion
       end
       object N2: TMenuItem
-        Tag = 2
+        Tag = 102
         Caption = '-'
       end
       object Administracin1: TMenuItem
-        Tag = 1
+        Tag = 200
         Caption = 'Administraci'#243'n'
         object Usuarios1: TMenuItem
+          Tag = 1
           Caption = 'Usuarios'
           OnClick = Usuarios1Click
         end
         object Perfiles1: TMenuItem
-          Caption = 'Perfiles'
+          Tag = 2
+          Caption = 'Perfiles de usuario'
           OnClick = Perfiles1Click
         end
       end
diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 157aa24f..171089df 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -427,7 +427,7 @@ end;
 
 procedure TfPantallaPrincipal.Perfiles1Click(Sender: TObject);
 begin
-  AppFactuGES.UsuariosController.ShowProfileManager;
+  AppFactuGES.UsuariosController.VerPerfiles;
 end;
 
 procedure TfPantallaPrincipal.ShowEmbedded(AEditor: ICustomEditor);
@@ -464,7 +464,7 @@ end;
 
 procedure TfPantallaPrincipal.Usuarios1Click(Sender: TObject);
 begin
-  AppFactuGES.UsuariosController.ShowUserManager;
+  AppFactuGES.UsuariosController.VerUsuarios;
 end;
 
 procedure TfPantallaPrincipal.WMSysCommand(var Msg: TMessage);
@@ -514,7 +514,7 @@ end;
 
 procedure TfPantallaPrincipal.actCambiarPassExecute(Sender: TObject);
 begin
-  AppFactuGES.UsuariosController.ShowChangePassword;
+  AppFactuGES.UsuariosController._ShowChangePassword;
   RefrescarUI;
 end;