diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm
index d41617ce..1cf8a333 100644
--- a/Source/Cliente/uPantallaPrincipal.dfm
+++ b/Source/Cliente/uPantallaPrincipal.dfm
@@ -573,25 +573,30 @@ object fPantallaPrincipal: TfPantallaPrincipal
     object Archivo2_OLD: TMenuItem
       Tag = -90000
       Caption = 'Archivo'
+      object Listadeempresas1_OLD: TMenuItem
+        Tag = 10
+        Caption = 'Selecci'#243'n de empresas'
+        OnClick = Listadeempresas1_OLDClick
+      end
       object Cambiarmicontrasea2_OLD: TMenuItem
-        Tag = 1
+        Tag = 11
         Action = actCambiarPass
       end
       object N3_OLD: TMenuItem
-        Tag = 2
+        Tag = 12
         Caption = '-'
       end
       object Paneldeadministracin2_OLD: TMenuItem
-        Tag = 4
+        Tag = 40
         Action = actAdministracion
         Visible = False
       end
       object N4_OLD: TMenuItem
-        Tag = 5
+        Tag = 50
         Caption = '-'
       end
       object Salir2_OLD: TMenuItem
-        Tag = 6
+        Tag = 55
         Action = actSalir
       end
     end
@@ -648,16 +653,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
     object Empresa1_OLD: TMenuItem
       Tag = 1000
       Action = actMenuEmpresa
-      object Listadeempresas1_OLD: TMenuItem
-        Tag = 1
-        Caption = 'Selecci'#243'n de empresas'
-        OnClick = Listadeempresas1_OLDClick
-      end
-      object N1_OLD: TMenuItem
-        Tag = 2
-        Caption = '-'
-        Visible = False
-      end
       object Informacindeempresa1: TMenuItem
         Tag = 10
         Action = actInformacionEmpresa
diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 584d13ca..514156a3 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -56,7 +56,6 @@ type
     StatusPanelImageList: TPngImageList;
     Empresa1_OLD: TMenuItem;
     Listadeempresas1_OLD: TMenuItem;
-    N1_OLD: TMenuItem;
     Opciones1_OLD: TMenuItem;
     Edicin1_OLD: TMenuItem;
     N1: TMenuItem;
@@ -339,10 +338,10 @@ begin
       if Assigned(AListaEmpresas) then
       begin
         AListaEmpresas.Active := True;
-        if AListaEmpresas.RecordCount = 1 then
+        if AListaEmpresas.RecordCount > 0 then
         begin
-          // Oculto la página de inicio para que no parezca
-          // que se pueden manejar varias empresas.
+          // Oculto la página de inicio cuando
+          // se pueden manejar varias empresas.
           JvNavigationPane.ActivePageIndex := 1;
           pagInicio.PageList := NIL;
           pagInicio.Visible := False;
@@ -599,7 +598,7 @@ end;
 procedure TfPantallaPrincipal.Listadeempresas1_OLDClick(Sender: TObject);
 begin
   AppFactuGES.SeleccionarEmpresa;
-  RefrescarUI;  
+  RefrescarUI;
 end;
 
 procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject);