Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso de releaciones entre modulos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@56 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-09-15 16:39:21 +00:00
parent 18cac885e2
commit 3f2b26177b
2 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -314,6 +314,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
OnExecute = actInformacionEmpresaExecute OnExecute = actInformacionEmpresaExecute
OnUpdate = actMenuComprasUpdate OnUpdate = actMenuComprasUpdate
end end
object actAnadirEmpresa: TAction
Category = 'Empresa'
Caption = 'A'#241'adir empresa'
OnExecute = actAnadirEmpresaExecute
end
end end
object ModulesSmallImageList: TPngImageList object ModulesSmallImageList: TPngImageList
PngImages = < PngImages = <
@ -610,6 +615,10 @@ object fPantallaPrincipal: TfPantallaPrincipal
Tag = 10 Tag = 10
Action = actInformacionEmpresa Action = actInformacionEmpresa
end end
object Cambiarmicontrasea1: TMenuItem
Tag = 20
Action = actAnadirEmpresa
end
end end
object Datos1: TMenuItem object Datos1: TMenuItem
Tag = 2000 Tag = 2000

15
Source/Cliente/uPantallaPrincipal.pas
View File

@ -92,6 +92,8 @@ type
Informes1: TMenuItem; Informes1: TMenuItem;
actMenuInformes: TAction; actMenuInformes: TAction;
actInformacionEmpresa: TAction; actInformacionEmpresa: TAction;
actAnadirEmpresa: TAction;
Cambiarmicontrasea1: TMenuItem;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure Salir1Click(Sender: TObject); procedure Salir1Click(Sender: TObject);
procedure actSalirExecute(Sender: TObject); procedure actSalirExecute(Sender: TObject);
@ -118,6 +120,7 @@ type
procedure actMenuInformesExecute(Sender: TObject); procedure actMenuInformesExecute(Sender: TObject);
procedure Listadeempresas1_OLDClick(Sender: TObject); procedure Listadeempresas1_OLDClick(Sender: TObject);
procedure actInformacionEmpresaExecute(Sender: TObject); procedure actInformacionEmpresaExecute(Sender: TObject);
procedure actAnadirEmpresaExecute(Sender: TObject);
private private
FContenido : TCustomEditor; FContenido : TCustomEditor;
procedure ShowEmbedded(AEditor : ICustomEditor); procedure ShowEmbedded(AEditor : ICustomEditor);
@ -526,6 +529,18 @@ begin
end;} end;}
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); procedure TfPantallaPrincipal.actCambiarPassExecute(Sender: TObject);
begin begin
AppFactuGES.UsuariosController._ShowChangePassword; AppFactuGES.UsuariosController._ShowChangePassword;