From 3f2b26177b492f3d941c4b639ead2324b55a4037 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 15 Sep 2010 16:39:21 +0000
Subject: [PATCH] Repaso de releaciones entre modulos

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@56 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
---
 Source/Cliente/uPantallaPrincipal.dfm |  9 +++++++++
 Source/Cliente/uPantallaPrincipal.pas | 15 +++++++++++++++
 2 files changed, 24 insertions(+)

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;