From 8750e65053898a207557974322c9dc6ab40afea9 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 21 May 2008 14:53:12 +0000
Subject: [PATCH] - Quitar warnings

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@377 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Cliente/FactuGES.dproj         | 52 +++++++++++++++++++++++++++
 Source/Cliente/uNavPaneController.pas |  5 ++-
 2 files changed, 54 insertions(+), 3 deletions(-)

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