- Quitar warnings

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@377 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-05-21 14:53:12 +00:00
parent 66b2986321
commit 8750e65053
2 changed files with 54 additions and 3 deletions

View File

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

View File

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