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 object Archivo2_OLD: TMenuItem
Tag = -90000 Tag = -90000
Caption = 'Archivo' Caption = 'Archivo'
object Listadeempresas1_OLD: TMenuItem
Tag = 10
Caption = 'Selecci'#243'n de empresas'
OnClick = Listadeempresas1_OLDClick
end
object Cambiarmicontrasea2_OLD: TMenuItem object Cambiarmicontrasea2_OLD: TMenuItem
Tag = 1 Tag = 11
Action = actCambiarPass Action = actCambiarPass
end end
object N3_OLD: TMenuItem object N3_OLD: TMenuItem
Tag = 2 Tag = 12
Caption = '-' Caption = '-'
end end
object Paneldeadministracin2_OLD: TMenuItem object Paneldeadministracin2_OLD: TMenuItem
Tag = 4 Tag = 40
Action = actAdministracion Action = actAdministracion
Visible = False Visible = False
end end
object N4_OLD: TMenuItem object N4_OLD: TMenuItem
Tag = 5 Tag = 50
Caption = '-' Caption = '-'
end end
object Salir2_OLD: TMenuItem object Salir2_OLD: TMenuItem
Tag = 6 Tag = 55
Action = actSalir Action = actSalir
end end
end end
@ -648,16 +653,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
object Empresa1_OLD: TMenuItem object Empresa1_OLD: TMenuItem
Tag = 1000 Tag = 1000
Action = actMenuEmpresa 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 object Informacindeempresa1: TMenuItem
Tag = 10 Tag = 10
Action = actInformacionEmpresa Action = actInformacionEmpresa

9
Source/Cliente/uPantallaPrincipal.pas
View File

@ -56,7 +56,6 @@ type
StatusPanelImageList: TPngImageList; StatusPanelImageList: TPngImageList;
Empresa1_OLD: TMenuItem; Empresa1_OLD: TMenuItem;
Listadeempresas1_OLD: TMenuItem; Listadeempresas1_OLD: TMenuItem;
N1_OLD: TMenuItem;
Opciones1_OLD: TMenuItem; Opciones1_OLD: TMenuItem;
Edicin1_OLD: TMenuItem; Edicin1_OLD: TMenuItem;
N1: TMenuItem; N1: TMenuItem;
@ -339,10 +338,10 @@ begin
if Assigned(AListaEmpresas) then if Assigned(AListaEmpresas) then
begin begin
AListaEmpresas.Active := True; AListaEmpresas.Active := True;
if AListaEmpresas.RecordCount = 1 then if AListaEmpresas.RecordCount > 0 then
begin begin
// Oculto la página de inicio para que no parezca // Oculto la página de inicio cuando
// que se pueden manejar varias empresas. // se pueden manejar varias empresas.
JvNavigationPane.ActivePageIndex := 1; JvNavigationPane.ActivePageIndex := 1;
pagInicio.PageList := NIL; pagInicio.PageList := NIL;
pagInicio.Visible := False; pagInicio.Visible := False;
@ -599,7 +598,7 @@ end;
procedure TfPantallaPrincipal.Listadeempresas1_OLDClick(Sender: TObject); procedure TfPantallaPrincipal.Listadeempresas1_OLDClick(Sender: TObject);
begin begin
AppFactuGES.SeleccionarEmpresa; AppFactuGES.SeleccionarEmpresa;
RefrescarUI; RefrescarUI;
end; end;
procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject); procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject);