diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index e81dcda5..2d4ad558 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -59,6 +59,58 @@
       
       
       
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
diff --git a/Source/Cliente/uNavPaneController.pas b/Source/Cliente/uNavPaneController.pas
index 21fe3db1..1bc4c3ad 100644
--- a/Source/Cliente/uNavPaneController.pas
+++ b/Source/Cliente/uNavPaneController.pas
@@ -111,7 +111,8 @@ var
 begin
   AListaSecciones := TStringList.Create;
   AListaSecciones.Duplicates := dupIgnore;
-
+  AEmpresasCount := 0;
+  
   try
     // Guardar la lista de secciones (Ventas, Compras, etc...)
     for ASeccionCount := 0 to MainMenuController.MainMenu.Items.Count - 1 do
@@ -128,8 +129,6 @@ begin
       AEmpresas.DataTable.Active := True;
       while not AEmpresas.DataTable.EOF do
       begin
-        ASeccionPadre := NIL;
-        AIndex := -1;
 
         // Buscar la página si existe
         AIndex := EncontrarPagina(FNavigationPane, AEmpresas.NOMBRE);