diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm
index d35e9d0..c0fcc47 100644
--- a/Source/Cliente/uPantallaPrincipal.dfm
+++ b/Source/Cliente/uPantallaPrincipal.dfm
@@ -314,6 +314,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
       OnExecute = actInformacionEmpresaExecute
       OnUpdate = actMenuComprasUpdate
     end
+    object actAnadirEmpresa: TAction
+      Category = 'Empresa'
+      Caption = 'A'#241'adir empresa'
+      OnExecute = actAnadirEmpresaExecute
+    end
   end
   object ModulesSmallImageList: TPngImageList
     PngImages = <
@@ -610,6 +615,10 @@ object fPantallaPrincipal: TfPantallaPrincipal
         Tag = 10
         Action = actInformacionEmpresa
       end
+      object Cambiarmicontrasea1: TMenuItem
+        Tag = 20
+        Action = actAnadirEmpresa
+      end
     end
     object Datos1: TMenuItem
       Tag = 2000
diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 333e3d2..474ac26 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -92,6 +92,8 @@ type
     Informes1: TMenuItem;
     actMenuInformes: TAction;
     actInformacionEmpresa: TAction;
+    actAnadirEmpresa: TAction;
+    Cambiarmicontrasea1: TMenuItem;
     procedure FormCreate(Sender: TObject);
     procedure Salir1Click(Sender: TObject);
     procedure actSalirExecute(Sender: TObject);
@@ -118,6 +120,7 @@ type
     procedure actMenuInformesExecute(Sender: TObject);
     procedure Listadeempresas1_OLDClick(Sender: TObject);
     procedure actInformacionEmpresaExecute(Sender: TObject);
+    procedure actAnadirEmpresaExecute(Sender: TObject);
   private
     FContenido : TCustomEditor;
     procedure ShowEmbedded(AEditor : ICustomEditor);
@@ -526,6 +529,18 @@ begin
   end;}
 end;
 
+procedure TfPantallaPrincipal.actAnadirEmpresaExecute(Sender: TObject);
+var
+  AEmpresa: IBizEmpresa;
+begin
+  AEmpresa := AppFactuGES.EmpresasController.Nuevo;
+  AEmpresa.Open;
+  AppFactuGES.EmpresasController.Anadir(AEmpresa);
+  AppFactuGES.EmpresasController.Ver(AEmpresa);
+  if AEmpresa.ID > 0 then
+     ShowMessage('Empresa dada de alta, cierre la aplicación y vuelva a abrirla, para poder acceder a ella');
+end;
+
 procedure TfPantallaPrincipal.actCambiarPassExecute(Sender: TObject);
 begin
   AppFactuGES.UsuariosController._ShowChangePassword;