- 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

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

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