Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

uPantallaPrincipal -> Colocar las opciones del menú 'Empresa' y ocular el panel izq. de 'Inicio' cuando exista al menos una empresa (el panel Inicio no contiene nada ni sirve para nada).

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@441 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2009-10-06 12:17:19 +00:00
parent 8632ddac4e
commit 311ec4a0fd
2 changed files with 14 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -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

9
Source/Cliente/uPantallaPrincipal.pas
View File

@ -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);