From 2425a71f8a6f7654eaf8c391b36779a0530520cf Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 24 Apr 2008 16:32:58 +0000
Subject: [PATCH] =?UTF-8?q?-=20Repaso=20general=20-=20No=20guardar=20en=20?=
 =?UTF-8?q?el=20registro=20el=20estado=20de=20la=20ventana=20de=20la=20apl?=
 =?UTF-8?q?icaci=C3=B3n=20principal.=20Siempre=20aparece=20maximizada.=20-?=
 =?UTF-8?q?=20Se=20sigue=20guardando=20el=20estado=20del=20grid.?=
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@212 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/ApplicationBase/uFactuGES_App.pas      |  17 ++--
 Source/Base/Base.dproj                        |  89 ++++++++++--------
 Source/Cliente/uPantallaPrincipal.dfm         |  41 +++++---
 Source/Cliente/uPantallaPrincipal.pas         |   6 ++
 Source/GUIBase/GUIBase.dproj                  |  36 +++----
 Source/GUIBase/GUIBase.res                    | Bin 384 -> 4748 bytes
 Source/GUIBase/uEditorBase.dfm                |  23 ++---
 Source/GUIBase/uEditorDBBase.dfm              |   1 -
 Source/GUIBase/uEditorGridBase.dfm            |   8 +-
 .../Modulos/Contactos/Data/Contactos_data.res | Bin 4748 -> 384 bytes
 .../Model/schContactosClient_Intf.pas         |  28 +++---
 Source/Servicios/RODLFILE.res                 | Bin 25804 -> 26675 bytes
 Source/Servidor/FactuGES_Server.RES           | Bin 23352 -> 23344 bytes
 Source/Servidor/FactuGES_Server.dproj         |   3 +
 Source/Servidor/FactuGES_Server.rc            |   2 +-
 15 files changed, 142 insertions(+), 112 deletions(-)

diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas
index c1ef3fe3..6b47b0e2 100644
--- a/Source/ApplicationBase/uFactuGES_App.pas
+++ b/Source/ApplicationBase/uFactuGES_App.pas
@@ -120,6 +120,7 @@ type
 
     procedure AfterLoadModule(Sender: TObject; AModuleInfo: TModuleInfo);
     procedure RegisterModule(AModuleInfo : TModuleInfo);
+    procedure PonerTiendaPorDefecto;
   protected
     procedure DoMainForm;
 
@@ -212,18 +213,20 @@ begin
 end;
 
 procedure TAppFactuGES.CargarModulos;
-var
-  Fichero : String;
 begin
   if not Assigned(FDoLoadModulesEvent) then
     raise Exception.Create('Evento para la carga de los módulos de la aplicación no asignado (CargarModulos)');
 
   FDoLoadModulesEvent();
+end;
+
 
 //TEMPORAL
+procedure TAppFactuGES.PonerTiendaPorDefecto;
+var
+  Fichero : String;
+begin
   Fichero := ExtractFileDir(ParamStr(0))+ '\' + 'FACTUGES.INI';
-  if not FileExists(Fichero) then
-     raise Exception.Create('No se ha encontrado el fichero de configuración' + #10#13 + Fichero);
 
   with TIniFile.Create(Fichero) do
   begin
@@ -231,7 +234,6 @@ begin
     VAR_TIENDA := ReadString ('VARIABLES', 'Tienda', 'Todas');
     Free;
   end;
-
 end;
 
 constructor TAppFactuGES.Create;
@@ -389,12 +391,13 @@ begin
       //ShowSplashForm;
       CargarModulos;
       DoMainForm;
+      PonerTiendaPorDefecto;
     finally
       HideHourglassCursor;
       HideSplashForm;
     end;
-  end; 
-  Application.Run;
+    Application.Run;
+  end;
   Terminate;
 end;
 
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 8706ea4f..63747715 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,13 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -58,48 +65,48 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\designide.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\PluginSDK_D10R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>
diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm
index 59acd12a..710cebe7 100644
--- a/Source/Cliente/uPantallaPrincipal.dfm
+++ b/Source/Cliente/uPantallaPrincipal.dfm
@@ -2,8 +2,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
   Left = 358
   Top = 250
   Caption = 'Pantalla principal'
-  ClientHeight = 601
-  ClientWidth = 751
+  ClientHeight = 599
+  ClientWidth = 836
   Color = clWindow
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -14,7 +14,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
   OldCreateOrder = False
   Position = poScreenCenter
   Visible = True
-  WindowState = wsMaximized
   OnClose = FormClose
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
@@ -24,8 +23,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
   object pnlContenido: TTBXAlignmentPanel
     Left = 0
     Top = 0
-    Width = 751
-    Height = 579
+    Width = 836
+    Height = 577
     Margins.Left = 5
     Margins.Top = 5
     Margins.Right = 5
@@ -33,11 +32,13 @@ object fPantallaPrincipal: TfPantallaPrincipal
     ParentColor = True
     Align = alClient
     TabOrder = 0
+    ExplicitWidth = 751
+    ExplicitHeight = 579
     object JvSyncSplitter1: TJvSyncSplitter
       Left = 215
       Top = 5
       Width = 5
-      Height = 569
+      Height = 567
       ResizeStyle = rsPattern
       ExplicitLeft = 210
       ExplicitHeight = 570
@@ -46,7 +47,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Left = 5
       Top = 5
       Width = 210
-      Height = 569
+      Height = 567
       ActivePage = pagInicio
       Align = alLeft
       AutoHeaders = True
@@ -87,11 +88,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
       NavPanelHotTrackFont.Style = []
       SmallImages = ModulesSmallImageList
       OnChange = JvNavigationPaneChange
+      ExplicitHeight = 569
       object pagInicio: TJvNavPanelPage
         Left = 0
         Top = 0
         Width = 208
-        Height = 496
+        Height = 494
         Background.Stretch = False
         Background.Proportional = False
         Background.Center = False
@@ -99,15 +101,17 @@ object fPantallaPrincipal: TfPantallaPrincipal
         Background.Transparent = False
         Caption = 'Inicio'
         ImageIndex = 0
+        ExplicitHeight = 496
         object Panel1: TPanel
           Left = 0
-          Top = 410
+          Top = 408
           Width = 208
           Height = 86
           Align = alBottom
           Color = clWindow
           ParentBackground = False
           TabOrder = 1
+          ExplicitTop = 410
           object Label1: TLabel
             Left = 38
             Top = 29
@@ -154,20 +158,24 @@ object fPantallaPrincipal: TfPantallaPrincipal
     object pnlBorde: TJvXPContainer
       Left = 220
       Top = 5
-      Width = 526
-      Height = 569
+      Width = 611
+      Height = 567
       BoundColor = clActiveCaption
       BoundLines = [blLeft, blTop, blRight, blBottom]
       Caption = 'pnlBorde'
       Align = alClient
+      ExplicitWidth = 526
+      ExplicitHeight = 569
       object pnlMain: TTBXAlignmentPanel
         Left = 1
         Top = 1
-        Width = 524
-        Height = 567
+        Width = 609
+        Height = 565
         Align = alClient
         Color = clWindow
         TabOrder = 0
+        ExplicitWidth = 524
+        ExplicitHeight = 567
         object lblBienvenido: TLabel
           Left = 8
           Top = 8
@@ -204,8 +212,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
   end
   object TBXStatusBar1: TTBXStatusBar
     Left = 0
-    Top = 579
-    Width = 751
+    Top = 577
+    Width = 836
     Images = StatusPanelImageList
     Panels = <
       item
@@ -226,6 +234,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
         Tag = 0
       end>
     UseSystemFont = False
+    ExplicitTop = 579
+    ExplicitWidth = 751
   end
   object XPManifest1: TXPManifest
     Left = 248
@@ -518,6 +528,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
   object JvFormStorage: TJvFormStorage
     AppStorage = JvAppRegistryStorage
     AppStoragePath = 'fPantallaPrincipal\'
+    Options = []
     VersionCheck = fpvcNocheck
     StoredProps.Strings = (
       'JvNavigationPane.Visible'
diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 0b92d3c0..a00f5062 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -185,6 +185,12 @@ end;
 procedure TfPantallaPrincipal.FormShow(Sender: TObject);
 begin
   InicializarUI;
+
+  { Go full screen }
+  WindowState  := wsmaximized;
+  ClientWidth  := Screen.Width ;
+  ClientHeight := Screen.Height;
+  Refresh;
 end;
 
 procedure TfPantallaPrincipal.RefrescarUI;
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index b4bbe1e1..630e0107 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -50,30 +50,30 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GUIBase.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GUIBase.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Lib\Base.dcp" />
-    <DCCReference Include="..\Modulos\Lib\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Lib\dxBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Lib\dxBarExtItemsD11.dcp" />
-    <DCCReference Include="..\Modulos\Lib\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Lib\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Lib\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Lib\dxPsPrVwAdvD11.dcp" />
-    <DCCReference Include="..\Modulos\Lib\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Lib\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Lib\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Lib\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Lib\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Lib\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\Modulos\Lib\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Lib\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Lib\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res
index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644
GIT binary patch
literal 4748
zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg
zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?<w4U-ol;S2jC7
zx4(byej2@_#)0HWvg0i^wC4Xli+W*aXJ^(njceK|Kb@c3qFNX>p${kR>3GhM`oH*q
zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W
zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7
z{BT%G%irdMe*|oDJmgvJ<ltI;x5J<Oc>aA2`9B<Z5Toyra?r{a4$fnJHGXo6Pmcq8
z{JGCD500t1h4|yI?-f&xoj9;YT&Ch&JLO*X#NC3sCI0Xmc<f_vh`jn-1E!?th$%QM
znzGM|)$vl3f7;nE+9qR}|A?C$H3K&BFdq9?uxrIqHIne#5?8G@da2ybWLGKA686M2
z*LJMMMk4<U`dzFC9}HrSxLfOGll{P#??xir)$c2}C;ql+y-&Wa(LP{PgPk1E1@{uR
zIMCNz;u9;r(axhQvEx%?i#p<Vn=Z!SK%f10?4_`0@RY8lXRM3(t(nFSzJ$4kJr6&x
ze)~B%biu*TY$HDstHD=|UGxJceYiUQQa0Gu(p3og@%ZJ><6Xi*?M~Q;)@Sbfwf3uf
zVaWkbU<NjR3%=~AdoZbkXp`f@b0%GBT^$^V5e(n|#O(?P)hBbF)4n%2cw6U#adPM!
zz(!`V|Bfl{aH0)Y&w;SK7R4<z{p;Gwz1D%l86L3ZFZQ&=pB$<&esXT|OZ?=AGaWoe
z{>jU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv
zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N|
z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc
z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0
zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38=
zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W
zVvPDBKHh;i=RU4J_ta3E;)M<P+=2X7;VbzliQZ=IHV#+fr#{!(ukt%UJMS8=332qg
z7jD)rSbpCW+^j*cd6LUEe8#9n&v!NEJM(@?SHvB$=h@|)fjw|&qD?NQ5A&R>n>Y+L
zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m
z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJu<OVP
zzHjp+hnwo*3NQE$JTA(agu~silV5T`du+GJgWGi_7mAy`Nk8fLt~%GF$;XXcE-ri?
zyIglyyzA`K-);4Eem2MZm07RBza@W3UP)d`Rz=RFk-I);`s{$L%yyBNX0OTjo5Gk0
zs}g44uXg*l%xo^{`#0=kd*2?}Cz22Bv2;Gu?;3o~(D#gk1OKYQSCAb$(&vu@_pvWO
z>gbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T
z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC
zy(^m((;DnQmDQ<zX+PK(Lfu@ox#mOnbZjSDl}IBqv$qwK+2@))5$ba>Katmw!@c`|
G?EMQ&4NnpP

delta 11
ScmeBCZD5|Duvteife`=|>;pCc

diff --git a/Source/GUIBase/uEditorBase.dfm b/Source/GUIBase/uEditorBase.dfm
index 1d32df43..8a20caa8 100644
--- a/Source/GUIBase/uEditorBase.dfm
+++ b/Source/GUIBase/uEditorBase.dfm
@@ -2,8 +2,8 @@ object fEditorBase: TfEditorBase
   Left = 222
   Top = 127
   Caption = 'EditorBase'
-  ClientHeight = 456
-  ClientWidth = 793
+  ClientHeight = 509
+  ClientWidth = 946
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -23,7 +23,7 @@ object fEditorBase: TfEditorBase
   object JvNavPanelHeader: TJvNavPanelHeader
     Left = 0
     Top = 49
-    Width = 793
+    Width = 946
     Align = alTop
     Caption = 'Editor'
     Font.Charset = DEFAULT_CHARSET
@@ -37,9 +37,9 @@ object fEditorBase: TfEditorBase
     ImageIndex = 0
     StyleManager = dmBase.StyleManager
     ParentStyleManager = False
-    ExplicitWidth = 795
+    ExplicitWidth = 793
     object Image1: TImage
-      Left = 768
+      Left = 919
       Top = 0
       Width = 27
       Height = 27
@@ -71,9 +71,9 @@ object fEditorBase: TfEditorBase
   object TBXDock: TTBXDock
     Left = 0
     Top = 0
-    Width = 793
+    Width = 946
     Height = 49
-    ExplicitWidth = 795
+    ExplicitWidth = 793
     object tbxMain: TTBXToolbar
       Left = 0
       Top = 23
@@ -246,12 +246,12 @@ object fEditorBase: TfEditorBase
   end
   object StatusBar: TJvStatusBar
     Left = 0
-    Top = 437
-    Width = 793
+    Top = 490
+    Width = 946
     Height = 19
     Panels = <>
-    ExplicitTop = 439
-    ExplicitWidth = 795
+    ExplicitTop = 437
+    ExplicitWidth = 793
   end
   object EditorActionList: TActionList
     Images = SmallImages
@@ -1665,6 +1665,7 @@ object fEditorBase: TfEditorBase
   object JvFormStorage: TJvFormStorage
     AppStorage = JvAppRegistryStorage
     AppStoragePath = 'fEditorBase\'
+    Options = []
     VersionCheck = fpvcNocheck
     StoredValues = <>
     Left = 392
diff --git a/Source/GUIBase/uEditorDBBase.dfm b/Source/GUIBase/uEditorDBBase.dfm
index 17a586d2..2d7383e6 100644
--- a/Source/GUIBase/uEditorDBBase.dfm
+++ b/Source/GUIBase/uEditorDBBase.dfm
@@ -29,7 +29,6 @@ inherited fEditorDBBase: TfEditorDBBase
   inherited StatusBar: TJvStatusBar
     Top = 435
     Width = 646
-    ExplicitTop = 437
     ExplicitWidth = 648
   end
   inherited EditorActionList: TActionList
diff --git a/Source/GUIBase/uEditorGridBase.dfm b/Source/GUIBase/uEditorGridBase.dfm
index 23d50433..addf1687 100644
--- a/Source/GUIBase/uEditorGridBase.dfm
+++ b/Source/GUIBase/uEditorGridBase.dfm
@@ -718,7 +718,7 @@ inherited fEditorGridBase: TfEditorGridBase
         Name = 'PngImage21'
         Background = clWindow
       end>
-    Left = 403
+    Left = 411
     Top = 128
     Bitmap = {}
   end
@@ -1510,14 +1510,14 @@ inherited fEditorGridBase: TfEditorGridBase
         Name = 'PngImage21'
         Background = clWindow
       end>
-    Left = 435
+    Left = 443
     Top = 128
     Bitmap = {}
   end
   inherited JvFormStorage: TJvFormStorage
     OnSavePlacement = JvFormStorageSavePlacement
     OnRestorePlacement = JvFormStorageRestorePlacement
-    Left = 400
+    Left = 408
     Top = 160
   end
   inherited dsDataTable: TDADataSource
@@ -1525,7 +1525,7 @@ inherited fEditorGridBase: TfEditorGridBase
     Top = 112
   end
   inherited JvAppRegistryStorage: TJvAppRegistryStorage
-    Left = 432
+    Left = 440
     Top = 160
   end
   object GridPopupMenu: TPopupMenu
diff --git a/Source/Modulos/Contactos/Data/Contactos_data.res b/Source/Modulos/Contactos/Data/Contactos_data.res
index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644
GIT binary patch
delta 11
ScmeBCZD5|Duvteife`=|>;pCc

literal 4748
zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg
zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?<w4U-ol;S2jC7
zx4(byej2@_#)0HWvg0i^wC4Xli+W*aXJ^(njceK|Kb@c3qFNX>p${kR>3GhM`oH*q
zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W
zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7
z{BT%G%irdMe*|oDJmgvJ<ltI;x5J<Oc>aA2`9B<Z5Toyra?r{a4$fnJHGXo6Pmcq8
z{JGCD500t1h4|yI?-f&xoj9;YT&Ch&JLO*X#NC3sCI0Xmc<f_vh`jn-1E!?th$%QM
znzGM|)$vl3f7;nE+9qR}|A?C$H3K&BFdq9?uxrIqHIne#5?8G@da2ybWLGKA686M2
z*LJMMMk4<U`dzFC9}HrSxLfOGll{P#??xir)$c2}C;ql+y-&Wa(LP{PgPk1E1@{uR
zIMCNz;u9;r(axhQvEx%?i#p<Vn=Z!SK%f10?4_`0@RY8lXRM3(t(nFSzJ$4kJr6&x
ze)~B%biu*TY$HDstHD=|UGxJceYiUQQa0Gu(p3og@%ZJ><6Xi*?M~Q;)@Sbfwf3uf
zVaWkbU<NjR3%=~AdoZbkXp`f@b0%GBT^$^V5e(n|#O(?P)hBbF)4n%2cw6U#adPM!
zz(!`V|Bfl{aH0)Y&w;SK7R4<z{p;Gwz1D%l86L3ZFZQ&=pB$<&esXT|OZ?=AGaWoe
z{>jU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv
zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N|
z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc
z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0
zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38=
zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W
zVvPDBKHh;i=RU4J_ta3E;)M<P+=2X7;VbzliQZ=IHV#+fr#{!(ukt%UJMS8=332qg
z7jD)rSbpCW+^j*cd6LUEe8#9n&v!NEJM(@?SHvB$=h@|)fjw|&qD?NQ5A&R>n>Y+L
zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m
z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJu<OVP
zzHjp+hnwo*3NQE$JTA(agu~silV5T`du+GJgWGi_7mAy`Nk8fLt~%GF$;XXcE-ri?
zyIglyyzA`K-);4Eem2MZm07RBza@W3UP)d`Rz=RFk-I);`s{$L%yyBNX0OTjo5Gk0
zs}g44uXg*l%xo^{`#0=kd*2?}Cz22Bv2;Gu?;3o~(D#gk1OKYQSCAb$(&vu@_pvWO
z>gbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T
z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC
zy(^m((;DnQmDQ<zX+PK(Lfu@ox#mOnbZjSDl}IBqv$qwK+2@))5$ba>Katmw!@c`|
G?EMQ&4NnpP

diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
index f3f6f90a..cb2a0008 100644
--- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
@@ -3,7 +3,7 @@ unit schContactosClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -541,7 +541,7 @@ type
   end;
 
   { TSubCuentasContactoDataTableRules }
-  TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto)
+  TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto)
   private
   protected
     { Property getters and setters }
@@ -749,7 +749,7 @@ type
   end;
 
   { TContactosDataTableRules }
-  TContactosDataTableRules = class(TDADataTableRules, IContactos)
+  TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -935,7 +935,7 @@ type
   end;
 
   { TGruposClienteDataTableRules }
-  TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
+  TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
   private
   protected
     { Property getters and setters }
@@ -1024,7 +1024,7 @@ type
   end;
 
   { TDatosBancariosDataTableRules }
-  TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
+  TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
   private
   protected
     { Property getters and setters }
@@ -1334,7 +1334,7 @@ type
   end;
 
   { TClientesDataTableRules }
-  TClientesDataTableRules = class(TDADataTableRules, IClientes)
+  TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -1825,7 +1825,7 @@ type
   end;
 
   { TProveedoresDataTableRules }
-  TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
+  TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -2276,7 +2276,7 @@ type
   end;
 
   { TEmpleadosDataTableRules }
-  TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
+  TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
   private
     f_NOTAS: IROStrings;
     f_FORMACION_BASE: IROStrings;
@@ -2603,7 +2603,7 @@ type
   end;
 
   { TDireccionesContactoDataTableRules }
-  TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
+  TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -2759,7 +2759,7 @@ type
   end;
 
   { TClientesDescuentosDataTableRules }
-  TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
+  TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
   private
   protected
     { Property getters and setters }
@@ -2824,7 +2824,7 @@ type
   end;
 
   { TProcedenciasClienteDataTableRules }
-  TProcedenciasClienteDataTableRules = class(TDADataTableRules, IProcedenciasCliente)
+  TProcedenciasClienteDataTableRules = class(TIntfObjectDADataTableRules, IProcedenciasCliente)
   private
   protected
     { Property getters and setters }
@@ -2871,7 +2871,7 @@ type
   end;
 
   { TGruposProveedorDataTableRules }
-  TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
+  TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
   private
   protected
     { Property getters and setters }
@@ -2918,7 +2918,7 @@ type
   end;
 
   { TGruposEmpleadoDataTableRules }
-  TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
+  TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
   private
   protected
     { Property getters and setters }
@@ -3078,7 +3078,7 @@ type
   end;
 
   { TContactos_RefreshDataTableRules }
-  TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
+  TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index bbf8d50837c1f546ace6543eeab33ebbdb491ed1..85f38fb9b7db7aa06542285d7480a46f9d9db118 100644
GIT binary patch
delta 291
zcmX?el5z6|#t8~ckJC3QxiP95I~g0hI2*X>x;k5$=$aTCyXsn+J38yS7+4y(nOQhF
zyP7%HPBxIV-+YE~8@H)@YKco?Nuq0ol0vAbi>*?%fsv`BnX7?|u7#<Ev95`Uv$?K?
zo2i?wnWKxVp}DE6iHVup<c&h+lO3$hCRg)ZpWGlWsNhnWmzbNG9G;O{lp5jdqoe>b
zGo-R0)mAAyGbOcnvZI{CWCtIC&Goz@jFanm1@#aX8d;dQ8CjY+>pEJPIq8}h8o26O
oI9eL&nj5)*+yN4`1X^e|*_Oj{at)6U(UwiV&&<Ag7N1cV0D=crW&i*H

delta 76
zcmdmdf$_{q#t8~cH7OgF+!$5O4J=J8EM1LtjUC-wbxll6EOjkRoPk^eQ)eR!Gb1Ns
f6N}o(38MC!&oFM|-dxWw$T;~vGy7&nA)_z=T9XyS

diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 9f04790dea797eeebe5d900fff59aa2e77fdc6cd..971dcb1ed03ea9753c6a3ac26eef34acfc71e42b 100644
GIT binary patch
delta 78
zcmdn7jd24I-HBi{nS3`w9!UO;h-REJIWkh2v0!s;BsU{-3WL(*?kHK|EQV5sRE9Dj
eE@seSP+%}(FqwQXN}b)1!HU6@!E*A)D0cuSlNX@?

delta 86
zcmdn6jd8~|#tnBO7;PrsjgSYDe<Pw9XHAZbRAwyOTpP*F$ehKXI=MSaRx+0%li?*p
o5koRVK0^*eDnl`Y4ub-N5rgsM-BIeCMhsRA#y}p!<d;$I0RDIxYybcN

diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index fda7b3b6..8e4b531c 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -30,6 +30,9 @@
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 09 de abril de 2008 20:40</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       
+      
+      
+      
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 98044f8d..4ec51495 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.1.9.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
               VALUE "ProductVersion", "2.1.9.0\0"
-              VALUE "CompileDate", "miércoles, 23 de abril de 2008 12:32\0"
+              VALUE "CompileDate", "jueves, 24 de abril de 2008 11:59\0"
          END
     END
     BLOCK "VarFileInfo"