From 311ec4a0fd0e84cdbec577857e8f96bb97ff23c6 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 6 Oct 2009 12:17:19 +0000
Subject: [PATCH] =?UTF-8?q?uPantallaPrincipal=20->=20Colocar=20las=20opcio?=
 =?UTF-8?q?nes=20del=20men=C3=BA=20'Empresa'=20y=20ocular=20el=20panel=20i?=
 =?UTF-8?q?zq.=20de=20'Inicio'=20cuando=20exista=20al=20menos=20una=20empr?=
 =?UTF-8?q?esa=20(el=20panel=20Inicio=20no=20contiene=20nada=20ni=20sirve?=
 =?UTF-8?q?=20para=20nada).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@441 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/Cliente/uPantallaPrincipal.dfm | 25 ++++++++++---------------
 Source/Cliente/uPantallaPrincipal.pas |  9 ++++-----
 2 files changed, 14 insertions(+), 20 deletions(-)

diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm
index d41617ce..1cf8a333 100644
--- a/Source/Cliente/uPantallaPrincipal.dfm
+++ b/Source/Cliente/uPantallaPrincipal.dfm
@@ -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
diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 584d13ca..514156a3 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -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);