diff --git a/Build/Build.fbpInf b/Build/Build.fbpInf
index aaee386..9b63b41 100644
--- a/Build/Build.fbpInf
+++ b/Build/Build.fbpInf
@@ -14,8 +14,8 @@
     <Notes>
       <![CDATA[]]>
     </Notes>
-    <LastBuildRun>00:00:13</LastBuildRun>
-    <LastBuildStart>12/12/2013 10:39:51</LastBuildStart>
-    <LastBuildState>False</LastBuildState>
+    <LastBuildRun>00:00:01</LastBuildRun>
+    <LastBuildStart>14/01/2014 15:34:24</LastBuildStart>
+    <LastBuildState>True</LastBuildState>
   </properties>
 </project>
diff --git a/Build/Build.fbz6 b/Build/Build.fbz6
index 9d01cdf..21f48b0 100644
Binary files a/Build/Build.fbz6 and b/Build/Build.fbz6 differ
diff --git a/Build/Installer.fbpInf b/Build/Installer.fbpInf
index 7b7175e..f298238 100644
--- a/Build/Installer.fbpInf
+++ b/Build/Installer.fbpInf
@@ -14,8 +14,8 @@
     <Notes>
       <![CDATA[]]>
     </Notes>
-    <LastBuildRun>00:00:00</LastBuildRun>
-    <LastBuildStart>30/12/1899</LastBuildStart>
-    <LastBuildState>True</LastBuildState>
+    <LastBuildRun>00:02:38</LastBuildRun>
+    <LastBuildStart>13/12/2013 16:54:53</LastBuildStart>
+    <LastBuildState>False</LastBuildState>
   </properties>
 </project>
diff --git a/Build/Installer.fbz6 b/Build/Installer.fbz6
index d503aad..0131f58 100644
Binary files a/Build/Installer.fbz6 and b/Build/Installer.fbz6 differ
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index a987570..e54686d 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -511,7 +511,8 @@ CREATE TABLE CLIENTES_DATOS (
     VENCIMIENTO_FACTURAS_3  SMALLINT,
     FELICITACION				  TIPO_BOOLEANO,
     TIPO_CLIENTE            VARCHAR(255) COLLATE ES_ES,
-    SEPA                    TIPO_BOOLEANO DEFAULT 0 NOT NULL
+    SEPA                    TIPO_BOOLEANO DEFAULT 0 NOT NULL,
+	ID_CENTRAL				TIPO_ID
 );
 
 CREATE TABLE CLIENTES_DTOS_PROVEEDORES (
@@ -1999,7 +2000,8 @@ CREATE VIEW V_CLIENTES(
     DESCUENTO,
     FELICITACION,
     TIPO_CLIENTE,
-    SEPA)
+    SEPA,
+    ID_CENTRAL)
 AS
 SELECT
   V_CONTACTOS.ID,
@@ -2045,15 +2047,16 @@ SELECT
   CLIENTES_DATOS.DESCUENTO,
   CLIENTES_DATOS.FELICITACION,
   CLIENTES_DATOS.TIPO_CLIENTE,
-  CLIENTES_DATOS.SEPA
+  CLIENTES_DATOS.SEPA,
+  CLIENTES_DATOS.ID_CENTRAL
 FROM
   V_CONTACTOS
   LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
   LEFT OUTER JOIN CONTACTOS ON (CLIENTES_DATOS.ID_AGENTE = CONTACTOS.ID)
 WHERE
-  V_CONTACTOS.ID_CATEGORIA = 1
-;
+  V_CONTACTOS.ID_CATEGORIA = 1;
 
+  
 CREATE VIEW V_AGENTES(
     ID,
     ID_CATEGORIA,
diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj
index 5ab31c7..ce679d9 100644
--- a/Source/ApplicationBase/ApplicationBase.dproj
+++ b/Source/ApplicationBase/ApplicationBase.dproj
@@ -55,10 +55,10 @@
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contactos\Base.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\PluginSDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
     <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
     <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
     <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 970fa2b..b868ce6 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -45,14 +45,6 @@
     <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\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 09df5dc..2786300 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">4</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">4.3.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.3.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">5</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">4.3.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.3.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index a40a741..0e82a34 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 4,3,4,0
-PRODUCTVERSION 4,3,4,0
+FILEVERSION 4,3,5,0
+PRODUCTVERSION 4,3,5,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "4.3.4.0\0"
+              VALUE "FileVersion", "4.3.5.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "4.3.4.0\0"
+              VALUE "ProductVersion", "4.3.5.0\0"
          END
     END
     BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 573f40f..35ba4c7 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index 39f4304..06b415a 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -59,30 +59,30 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Pedidos de cliente\Base.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\cxTreeListD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\dxBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\dxBarExtItemsD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\dxComnD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\dxPsPrVwAdvD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos de cliente\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.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\dxComnD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.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\dxThemeD11.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\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.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\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>
diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
index 384662e..c80dfaf 100644
--- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj	
+++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj	
@@ -43,10 +43,6 @@
     <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">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><Excluded_Packages>
-      
-      
-      
-      
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
@@ -58,27 +54,29 @@
     <DelphiCompile Include="AlbaranesCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="AlbaranesCliente_controller.dcp" />
-    <DCCReference Include="AlbaranesCliente_model.dcp" />
-    <DCCReference Include="AlbCli_FacCli_relation.dcp" />
-    <DCCReference Include="Almacenes_controller.dcp" />
-    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="Articulos_view.dcp" />
-    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="dxCoreD11.dcp" />
-    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="FacturasCliente_controller.dcp" />
-    <DCCReference Include="FacturasCliente_model.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="Inventario_controller.dcp" />
-    <DCCReference Include="PedidosCliente_controller.dcp" />
-    <DCCReference Include="PedidosCliente_model.dcp" />
-    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\AlbCli_FacCli_relation.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Inventario_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_model.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\vclx.dcp" />
     <DCCReference Include="uAlbaranesClienteViewRegister.pas" />
     <DCCReference Include="uDialogListaAlbaranesClienteEnvioEMail.pas">
-      <Form>fruDialogListaAlbaranesClienteEnvioEMail</Form>
+      <Form>frDialogListaAlbaranesClienteEnvioEMail</Form>
       <DesignClass>T</DesignClass>
     </DCCReference>
     <DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas">
@@ -145,8 +143,6 @@
       <Form>frViewElegirArticulosAlbaranesCliente</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclx.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
index 6ddfbed..a7b9ad8 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm	
@@ -165,7 +165,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
   inherited pgPaginas: TPageControl
     Width = 759
     Height = 406
-    ActivePage = pagContenido
     TabOrder = 1
     OnChanging = pgPaginasChanging
     ExplicitWidth = 759
@@ -227,10 +226,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
           inherited FontSize: TEdit
             Left = 544
             Top = 0
-            Width = 170
+            Width = 186
             ExplicitLeft = 544
             ExplicitTop = 0
-            ExplicitWidth = 170
+            ExplicitWidth = 186
           end
           inherited ToolButton13: TToolButton [7]
             Left = 0
diff --git a/Source/Modulos/Contactos/Contactos_Group.groupproj b/Source/Modulos/Contactos/Contactos_Group.groupproj
index 382c0b1..065400d 100644
--- a/Source/Modulos/Contactos/Contactos_Group.groupproj
+++ b/Source/Modulos/Contactos/Contactos_Group.groupproj
@@ -98,24 +98,6 @@
   <Target Name="Contactos_plugin:Make">
     <MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="Make" />
   </Target>
-  <Target Name="FactuGES">
-    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
-  </Target>
-  <Target Name="FactuGES:Clean">
-    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="FactuGES:Make">
-    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
-  </Target>
-  <Target Name="FactuGES_Server">
-    <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
-  </Target>
-  <Target Name="FactuGES_Server:Clean">
-    <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="FactuGES_Server:Make">
-    <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
-  </Target>
   <Target Name="AlbaranesCliente_view">
     <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
   </Target>
@@ -161,14 +143,32 @@
   <Target Name="AlbaranesCliente_controller:Make">
     <MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="Make" />
   </Target>
+  <Target Name="FactuGES">
+    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
+  </Target>
+  <Target Name="FactuGES:Clean">
+    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FactuGES:Make">
+    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FactuGES_Server">
+    <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="FactuGES_Server:Clean">
+    <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FactuGES_Server:Make">
+    <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view;Obras_view;Articulos_controller;Articulos_view;AlbaranesCliente_controller" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;AlbaranesCliente_view;Obras_view;Articulos_controller;Articulos_view;AlbaranesCliente_controller;FactuGES;FactuGES_Server" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean;Obras_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_controller:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;AlbaranesCliente_view:Clean;Obras_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_controller:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make;Obras_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_controller:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;AlbaranesCliente_view:Make;Obras_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_controller:Make;FactuGES:Make;FactuGES_Server:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>
\ No newline at end of file
diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj
index 1d5b773..334fb5b 100644
--- a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj
+++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj
@@ -53,30 +53,30 @@
     <DelphiCompile Include="Contactos_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Servidor\adortl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Base.dcp" />
-    <DCCReference Include="..\..\..\Servidor\ccpackD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\cfpack_d11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Contactos_data.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
-    <DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\designide.dcp" />
-    <DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
-    <DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\rtl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vcl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vclactnband.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vclx.dcp" />
-    <DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_data.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.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\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.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\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\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="uAgentesController.pas" />
     <DCCReference Include="uClientesController.pas" />
     <DCCReference Include="uContactosController.pas" />
diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.identcache b/Source/Modulos/Contactos/Controller/Contactos_controller.identcache
index 8ff2c49..ebe70e8 100644
Binary files a/Source/Modulos/Contactos/Controller/Contactos_controller.identcache and b/Source/Modulos/Contactos/Controller/Contactos_controller.identcache differ
diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas
index e57dc60..23deacb 100644
--- a/Source/Modulos/Contactos/Controller/uClientesController.pas
+++ b/Source/Modulos/Contactos/Controller/uClientesController.pas
@@ -14,6 +14,7 @@ type
     function BuscarTodosTiendaWeb: IBizCliente;
     function BuscarEtiquetadosFelicitacion: IBizCliente;
     function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
+    function TieneClienteCentral(ACliente: IBizCliente) : Boolean;
     function ElegirDireccionEntrega(ACliente: IBizCliente; AMensaje: String): IBizDireccionesContacto;
     function EsEliminable(ACliente: IBizContacto): Boolean;
     function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
@@ -57,6 +58,7 @@ type
     procedure VerFacturasDeCliente(ACliente : IBizCliente);
     procedure VerRecibosDeCliente(ACliente : IBizCliente);
     function DarListaCuentasBancarias(const IdCliente: Integer): TStringList;
+    function TieneClienteCentral(ACliente: IBizCliente) : Boolean;    
   end;
 
 implementation
@@ -86,6 +88,7 @@ function TClientesController.BuscarTodos: IBizContacto;
 begin
   Result := (FDataModule as IDataModuleClientes).GetItems;
   FiltrarEmpresa(Result);
+  FiltrarEmpresa((Result as IBizCliente).Sucursales);  
 end;
 
 function TClientesController.BuscarTodosTiendaWeb: IBizCliente;
@@ -158,8 +161,8 @@ begin
   if Assigned(AEditor) then
   begin
     try
-      AEditor.Contactos := AContactos;
       AEditor.Controller := Self;
+      AEditor.Contactos := AContactos;
       AEditor.MultiSelect := AMultiSelect;
       AEditor.Mensaje := AMensaje;
       if IsPositiveResult(AEditor.ShowModal) then
@@ -357,6 +360,18 @@ begin
   end;
 end;
 
+function TClientesController.TieneClienteCentral(
+  ACliente: IBizCliente): Boolean;
+begin
+  if not Assigned(ACliente) then
+    raise Exception.Create ('Cliente no asignado (TieneClienteCentral)');
+
+  if not ACliente.DataTable.Active then
+    ACliente.DataTable.Active := True;
+
+  Result := not ACliente.ID_CENTRALIsNull;
+end;
+
 function TClientesController.TieneDatosBancarios(
   ACliente: IBizCliente): Boolean;
 begin
@@ -427,8 +442,8 @@ begin
   CreateEditor('EditorCliente', IEditorCliente, AEditor);
   if Assigned(AEditor) then
     try
-      AEditor.Contacto := AContacto;
       AEditor.Controller := Self;
+      AEditor.Contacto := AContacto;
       AEditor.ShowModal;
     finally
       AEditor.Release;
diff --git a/Source/Modulos/Contactos/Controller/uProveedoresController.pas b/Source/Modulos/Contactos/Controller/uProveedoresController.pas
index efd1c22..dac7513 100644
--- a/Source/Modulos/Contactos/Controller/uProveedoresController.pas
+++ b/Source/Modulos/Contactos/Controller/uProveedoresController.pas
@@ -157,8 +157,8 @@ begin
   CreateEditor('EditorElegirProveedores', IEditorElegirProveedores, AEditor);
   if Assigned(AEditor) then
     try
-       AEditor.Contactos := AContactos;
        AEditor.Controller := Self;
+       AEditor.Contactos := AContactos;
        AEditor.MultiSelect := AMultiSelect;
        AEditor.Mensaje := AMensaje;
        if IsPositiveResult(AEditor.ShowModal) then
diff --git a/Source/Modulos/Contactos/Data/Contactos_data.dproj b/Source/Modulos/Contactos/Data/Contactos_data.dproj
index 3068f93..55394e1 100644
--- a/Source/Modulos/Contactos/Data/Contactos_data.dproj
+++ b/Source/Modulos/Contactos/Data/Contactos_data.dproj
@@ -49,23 +49,23 @@
     <DelphiCompile Include="Contactos_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Views\adortl.dcp" />
-    <DCCReference Include="..\Views\ApplicationBase.dcp" />
-    <DCCReference Include="..\Views\Base.dcp" />
-    <DCCReference Include="..\Views\Contactos_model.dcp" />
-    <DCCReference Include="..\Views\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Views\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Views\dbrtl.dcp" />
-    <DCCReference Include="..\Views\dsnap.dcp" />
-    <DCCReference Include="..\Views\dxCoreD11.dcp" />
-    <DCCReference Include="..\Views\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Views\dxThemeD11.dcp" />
-    <DCCReference Include="..\Views\GUIBase.dcp" />
-    <DCCReference Include="..\Views\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Views\rtl.dcp" />
-    <DCCReference Include="..\Views\vcl.dcp" />
-    <DCCReference Include="..\Views\vcldb.dcp" />
-    <DCCReference Include="..\Views\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.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\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.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\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uDataModuleAgentes.pas">
       <Form>DataModuleAgentes</Form>
       <DesignClass>TDAClientDataModule</DesignClass>
diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
index e7a8f11..23ab380 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
@@ -1,5 +1,5 @@
 inherited DataModuleClientes: TDataModuleClientes
-  Height = 398
+  Height = 470
   Width = 636
   inherited rda_Contactos: TDARemoteDataAdapter
     Top = 79
@@ -23,8 +23,14 @@ inherited DataModuleClientes: TDataModuleClientes
     DataSet = tbl_PersonalContacto.Dataset
     Left = 440
   end
+  inherited tbl_ListaAnosObjetivosAlb: TDAMemDataTable
+    Left = 184
+    Top = 336
+  end
   inherited ds_ListaAnosObjetivosAlb: TDADataSource
     DataSet = tbl_ListaAnosObjetivosAlb.Dataset
+    Left = 184
+    Top = 288
   end
   object tbl_Clientes: TDAMemDataTable
     RemoteUpdatesOptions = []
@@ -290,6 +296,10 @@ inherited DataModuleClientes: TDataModuleClientes
       item
         Name = 'SEPA'
         DataType = datSmallInt
+      end
+      item
+        Name = 'ID_CENTRAL'
+        DataType = datInteger
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -507,4 +517,315 @@ inherited DataModuleClientes: TDataModuleClientes
     Left = 560
     Top = 32
   end
+  object tbl_ClientesSucursales: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datInteger
+        InPrimaryKey = True
+      end
+      item
+        Name = 'ID_CATEGORIA'
+        DataType = datInteger
+        DisplayLabel = 'Contactos_ID_CATEGORIA'
+        DictionaryEntry = 'Contactos_ID_CATEGORIA'
+      end
+      item
+        Name = 'NIF_CIF'
+        DataType = datString
+        Size = 15
+        DisplayLabel = 'NIF/CIF'
+        DictionaryEntry = 'Contactos_NIF_CIF'
+      end
+      item
+        Name = 'NOMBRE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Nombre'
+        DictionaryEntry = 'Contactos_NOMBRE'
+      end
+      item
+        Name = 'PERSONA_CONTACTO'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Persona de contacto'
+        DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
+      end
+      item
+        Name = 'CALLE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Direcci'#243'n'
+        DictionaryEntry = 'Contactos_CALLE'
+      end
+      item
+        Name = 'POBLACION'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Poblaci'#243'n'
+        DictionaryEntry = 'Contactos_POBLACION'
+      end
+      item
+        Name = 'PROVINCIA'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Provincia'
+        DictionaryEntry = 'Contactos_PROVINCIA'
+      end
+      item
+        Name = 'CODIGO_POSTAL'
+        DataType = datString
+        Size = 10
+        DisplayLabel = 'C'#243'digo postal'
+        DictionaryEntry = 'Contactos_CODIGO_POSTAL'
+      end
+      item
+        Name = 'TELEFONO_1'
+        DataType = datString
+        Size = 25
+        DisplayLabel = 'Tlf. trabajo'
+        DictionaryEntry = 'Contactos_TELEFONO_1'
+      end
+      item
+        Name = 'TELEFONO_2'
+        DataType = datString
+        Size = 25
+        DisplayLabel = 'Tlf. particular'
+        DictionaryEntry = 'Contactos_TELEFONO_2'
+      end
+      item
+        Name = 'MOVIL_1'
+        DataType = datString
+        Size = 25
+        DisplayLabel = 'M'#243'vil'
+        DictionaryEntry = 'Contactos_MOVIL_1'
+      end
+      item
+        Name = 'MOVIL_2'
+        DataType = datString
+        Size = 25
+        DisplayLabel = 'M'#243'vil 2'
+        DictionaryEntry = 'Contactos_MOVIL_2'
+      end
+      item
+        Name = 'FAX'
+        DataType = datString
+        Size = 25
+        DisplayLabel = 'Fax'
+        DictionaryEntry = 'Contactos_FAX'
+      end
+      item
+        Name = 'EMAIL_1'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'E-mail trabajo'
+        DictionaryEntry = 'Contactos_EMAIL_1'
+      end
+      item
+        Name = 'EMAIL_2'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'E-mail particular'
+        DictionaryEntry = 'Contactos_EMAIL_2'
+      end
+      item
+        Name = 'PAGINA_WEB'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Web'
+        DictionaryEntry = 'Contactos_PAGINA_WEB'
+      end
+      item
+        Name = 'NOTAS'
+        DataType = datMemo
+        BlobType = dabtMemo
+        DisplayLabel = 'Observaciones'
+        DictionaryEntry = 'Contactos_NOTAS'
+      end
+      item
+        Name = 'FECHA_ALTA'
+        DataType = datDateTime
+        DisplayLabel = 'Clientes_FECHA_ALTA'
+        DictionaryEntry = 'Clientes_FECHA_ALTA'
+      end
+      item
+        Name = 'FECHA_MODIFICACION'
+        DataType = datDateTime
+        DisplayLabel = 'Clientes_FECHA_MODIFICACION'
+        DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
+      end
+      item
+        Name = 'USUARIO'
+        DataType = datString
+        Size = 20
+        DisplayLabel = 'Usuario'
+        DictionaryEntry = 'Contactos_USUARIO'
+      end
+      item
+        Name = 'ID_EMPRESA'
+        DataType = datInteger
+        DictionaryEntry = 'Contactos_ID_EMPRESA'
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+        ServerAutoRefresh = True
+        DictionaryEntry = 'Clientes_REFERENCIA'
+      end
+      item
+        Name = 'ID_AGENTE'
+        DataType = datInteger
+        DictionaryEntry = 'Clientes_ID_AGENTE'
+      end
+      item
+        Name = 'GRUPO_CLIENTE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Grupo de cliente'
+        DictionaryEntry = 'Clientes_GRUPO_CLIENTE'
+      end
+      item
+        Name = 'NOMBRE_COMERCIAL'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Nombre comercial'
+        DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
+      end
+      item
+        Name = 'VENCIMIENTO_FACTURAS_1'
+        DataType = datSmallInt
+        DisplayLabel = 'Clientes_VENCIMIENTO_FACTURAS_1'
+        DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_1'
+      end
+      item
+        Name = 'VENCIMIENTO_FACTURAS_2'
+        DataType = datSmallInt
+        DisplayLabel = 'Clientes_VENCIMIENTO_FACTURAS_2'
+        DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_2'
+      end
+      item
+        Name = 'VENCIMIENTO_FACTURAS_3'
+        DataType = datSmallInt
+        DisplayLabel = 'Clientes_VENCIMIENTO_FACTURAS_3'
+        DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_3'
+      end
+      item
+        Name = 'BLOQUEADO'
+        DataType = datSmallInt
+        DisplayLabel = #191'Bloqueado?'
+        DictionaryEntry = 'Clientes_BLOQUEADO'
+      end
+      item
+        Name = 'AGENTE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Clientes_AGENTE'
+        DictionaryEntry = 'Clientes_AGENTE'
+      end
+      item
+        Name = 'RAPEL'
+        DataType = datSmallInt
+        DisplayLabel = 'Clientes_RAPEL'
+        DictionaryEntry = 'Clientes_RAPEL'
+      end
+      item
+        Name = 'EMAIL_ADMINISTRACION'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Clientes_EMAIL_ADMINISTRACION'
+        DictionaryEntry = 'Clientes_EMAIL_ADMINISTRACION'
+      end
+      item
+        Name = 'REGIMEN_IVA'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'R'#233'gimen de IVA'
+        DictionaryEntry = 'Clientes_REGIMEN_IVA'
+      end
+      item
+        Name = 'MOTIVO_BLOQUEO'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Motivo del bloqueo'
+        DictionaryEntry = 'Clientes_MOTIVO_BLOQUEO'
+      end
+      item
+        Name = 'RECARGO_EQUIVALENCIA'
+        DataType = datInteger
+        DisplayLabel = 'Rec. equiv.'
+        DictionaryEntry = 'Clientes_RECARGO_EQUIVALENCIA'
+      end
+      item
+        Name = 'ID_TIPO_IVA'
+        DataType = datInteger
+        DictionaryEntry = 'Clientes_ID_TIPO_IVA'
+      end
+      item
+        Name = 'ID_FORMA_PAGO'
+        DataType = datInteger
+        DictionaryEntry = 'Clientes_ID_FORMA_PAGO'
+      end
+      item
+        Name = 'TIENDA_WEB'
+        DataType = datSmallInt
+        DictionaryEntry = 'Clientes_TIENDA_WEB'
+      end
+      item
+        Name = 'CODIGO_ASIGNADO'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Clientes_CODIGO_ASIGNADO'
+        DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
+      end
+      item
+        Name = 'DESCUENTO'
+        DataType = datFloat
+        DisplayLabel = 'Clientes_DESCUENTO'
+        DictionaryEntry = 'Clientes_DESCUENTO'
+      end
+      item
+        Name = 'FELICITACION'
+        DataType = datSmallInt
+        DisplayLabel = #191'Felicitaci'#243'n?'
+        DictionaryEntry = 'Clientes_FELICITACION'
+      end
+      item
+        Name = 'TIPO_CLIENTE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Clientes_TIPO_CLIENTE'
+        DictionaryEntry = 'Clientes_TIPO_CLIENTE'
+      end
+      item
+        Name = 'SEPA'
+        DataType = datSmallInt
+        DisplayLabel = 'Clientes_SEPA'
+        DictionaryEntry = 'Clientes_SEPA'
+      end
+      item
+        Name = 'ID_CENTRAL'
+        DataType = datInteger
+        DictionaryEntry = 'Clientes_ID_CENTRAL'
+      end>
+    Params = <>
+    MasterMappingMode = mmWhere
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rda_Contactos
+    LocalDataStreamer = Bin2DataStreamer
+    MasterSource = ds_Clientes
+    MasterFields = 'ID'
+    DetailFields = 'ID_CENTRAL'
+    LogicalName = 'ClientesSucursales'
+    IndexDefs = <>
+    Left = 296
+    Top = 288
+  end
+  object dsClientesSucursales: TDADataSource
+    DataSet = tbl_ClientesSucursales.Dataset
+    DataTable = tbl_ClientesSucursales
+    Left = 296
+    Top = 352
+  end
 end
diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.pas b/Source/Modulos/Contactos/Data/uDataModuleClientes.pas
index 84db79b..d123d82 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleClientes.pas
+++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.pas
@@ -26,8 +26,11 @@ type
     ds_ClientesDescuentosArticulos: TDADataSource;
     tbl_TiposCliente: TDAMemDataTable;
     ds_TiposCliente: TDADataSource;
+    tbl_ClientesSucursales: TDAMemDataTable;
+    dsClientesSucursales: TDADataSource;
   protected
     function _GetDescuentos: IBizClienteDescuentos;
+    function _GetSucursales: IBizCliente;
     function _GetDescuentosArticulos: IBizClienteDescuentosArticulos;
   public
     function GetItem(const ID : Integer) : IBizCliente;
@@ -103,6 +106,7 @@ begin
       Descuentos := _GetDescuentos;
       DescuentosArt := _GetDescuentosArticulos;
       Personal := _GetPersonal;
+      Sucursales := _GetSucursales;
     end;
 
     Result := (AContacto as IBizCliente);
@@ -211,4 +215,23 @@ begin
   end;
 end;
 
+function TDataModuleClientes._GetSucursales: IBizCliente;
+var
+  ASucursales : TDAMemDataTable;
+begin
+  ShowHourglassCursor;
+  try
+    ASucursales := CloneDataTable(tbl_ClientesSucursales);
+    with ASucursales do
+    begin
+      BusinessRulesID := BIZ_CLIENT_CLIENTE;
+      DetailOptions := DetailOptions -
+        [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
+    end;
+    Result := (ASucursales as IBizCliente);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 end.
diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dproj b/Source/Modulos/Contactos/Model/Contactos_model.dproj
index 394f782..9bbc68e 100644
--- a/Source/Modulos/Contactos/Model/Contactos_model.dproj
+++ b/Source/Modulos/Contactos/Model/Contactos_model.dproj
@@ -50,10 +50,17 @@
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
     <DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
-    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.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\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.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\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
     <DCCReference Include="Data\uIDataModuleAgentes.pas" />
     <DCCReference Include="Data\uIDataModuleClientes.pas" />
     <DCCReference Include="Data\uIDataModuleContactos.pas" />
@@ -61,11 +68,6 @@
     <DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
     <DCCReference Include="Data\uIDataModuleFichasEmpleadoReport.pas" />
     <DCCReference Include="Data\uIDataModuleProveedores.pas" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="schContactosClient_Intf.pas" />
     <DCCReference Include="schContactosServer_Intf.pas" />
     <DCCReference Include="uBizAgentesComisiones.pas" />
@@ -81,8 +83,6 @@
     <DCCReference Include="uBizGruposEmpleado.pas" />
     <DCCReference Include="uBizGruposProveedor.pas" />
     <DCCReference Include="uBizTiposCliente.pas" />
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vcldb.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
index b66ccc1..bc83c3e 100644
--- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
@@ -9,28 +9,30 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_Contactos = '{992AEA9C-5AE5-44EA-A8FE-D4E6A3F717F0}';
-  RID_GruposCliente = '{B5CD9255-0C70-4B42-A263-76B9FE38EFD3}';
-  RID_DatosBancarios = '{F9D7DE92-8C2E-4414-8610-1D2473BAA79D}';
-  RID_Clientes = '{0814C2B9-B7B6-4E31-9A52-D3032FC288FE}';
-  RID_Proveedores = '{5585E7F6-3DDB-4738-9536-8A1D5F6E4B0D}';
-  RID_Empleados = '{0BC781DA-E80C-4293-915F-252DA06CC77B}';
-  RID_DireccionesContacto = '{4E3E6EAC-8C6A-46CF-A658-755414880A0B}';
-  RID_ClientesDescuentos = '{64E9157A-7605-4B4F-AA62-F20AC42947E7}';
-  RID_GruposProveedor = '{2292B512-F00E-48AE-B891-6C61D2F5D349}';
-  RID_GruposEmpleado = '{5F8014E6-D133-4B57-B5C7-5486F5D7601E}';
-  RID_Contactos_Refresh = '{94AE0A19-0386-4A85-8155-93BA8DD15208}';
-  RID_ContratosEmpleados = '{3CF887A5-EA34-405B-9374-8C3E8F9FC339}';
-  RID_DescripcionesProveedores = '{1659DF2D-8C6D-4C81-8412-739792111626}';
-  RID_PersonalContacto = '{7FAD5BE7-2DC4-446C-A5B8-3B75AEEF34E1}';
-  RID_Agentes_Comisiones = '{B8C42FFA-5993-4751-9343-4535E372FF3A}';
-  RID_ListaAnosObjetivosAlb = '{773226C3-D83D-4DA1-841E-D16C40C85BC8}';
-  RID_Agentes = '{EFDE4E91-7400-4C98-988B-FC95C945562B}';
-  RID_ClientesDescuentosArticulos = '{0FFCC71D-E159-45C3-A194-8C7863E70278}';
-  RID_Agentes_Objetivos_albaranes = '{64D59F8C-29DE-4522-9C4C-E82A88C8FF37}';
-  RID_Agentes_Objetivos_facturas = '{9434B5BB-F840-48E1-A4FE-918486873B10}';
-  RID_ListaAnosObjetivosFac = '{5BB7E67F-A83D-450A-A2BA-D80A9A6BFE00}';
-  RID_TiposCliente = '{12A1D347-3366-4139-A619-7EB7B1C40D2D}';
+  RID_Contactos = '{C3B50FF2-3CB7-4FBF-9D78-FAB6B51D60AC}';
+  RID_GruposCliente = '{55D77B34-0FCD-41A4-88E3-3D6D5E6CF482}';
+  RID_DatosBancarios = '{E45A991F-21D1-4DA9-A91C-7A5A7F2D0973}';
+  RID_Clientes = '{963FB743-F6A9-4F48-B756-E6AB65D90D7C}';
+  RID_Proveedores = '{6FCD2248-D13A-4E92-9161-12347589B9A0}';
+  RID_Empleados = '{03A01669-3FC3-4B09-B56A-5450C31D02D0}';
+  RID_DireccionesContacto = '{54ADF522-9C59-4B34-B767-269A85A09E56}';
+  RID_Dataset = '{11791DDB-CED2-4B96-BDA3-54D99DA47BB9}';
+  RID_ClientesDescuentos = '{EFC3D2F4-4B37-428C-AE71-451F8C813356}';
+  RID_GruposProveedor = '{0950EFDD-4F97-478D-B4BB-043128FF9572}';
+  RID_GruposEmpleado = '{1ED1589B-049D-4673-913B-45D24CE2702A}';
+  RID_Contactos_Refresh = '{59C7BD2D-E3E9-4640-8CB2-0988FE63516D}';
+  RID_ContratosEmpleados = '{884B1814-4CC7-470C-8A30-EF0D5F98DF4F}';
+  RID_DescripcionesProveedores = '{252E080C-4138-4927-B2C2-BAD85EB8F16F}';
+  RID_PersonalContacto = '{F794DBF1-7650-48DA-AB7D-FBF570A666C7}';
+  RID_Agentes_Comisiones = '{836BC6D8-1353-4338-B63A-A529BE3666CD}';
+  RID_ListaAnosObjetivosAlb = '{E5FEE9FE-DC35-4ED7-9E40-83D34B632A24}';
+  RID_Agentes = '{47F36B70-200E-4A63-80F2-E9258B292140}';
+  RID_ClientesDescuentosArticulos = '{9E7D8233-D5D9-4E69-9C3F-A8A336D6CB27}';
+  RID_Agentes_Objetivos_albaranes = '{4E8B52EB-6EE1-4952-83D4-5E421E593EB7}';
+  RID_Agentes_Objetivos_facturas = '{05157A17-D44A-4703-8F38-83ABE33E9B08}';
+  RID_ListaAnosObjetivosFac = '{1E7B19D3-E052-4669-B297-DB991CCAB35E}';
+  RID_TiposCliente = '{D4130883-1444-4861-A887-D489CB842A26}';
+  RID_ClientesSucursales = '{AC04A0AC-AB1C-44CD-A98B-1C9D21D4CE05}';
 
   { Data table names }
   nme_Contactos = 'Contactos';
@@ -40,6 +42,7 @@ const
   nme_Proveedores = 'Proveedores';
   nme_Empleados = 'Empleados';
   nme_DireccionesContacto = 'DireccionesContacto';
+  nme_Dataset = 'Dataset';
   nme_ClientesDescuentos = 'ClientesDescuentos';
   nme_GruposProveedor = 'GruposProveedor';
   nme_GruposEmpleado = 'GruposEmpleado';
@@ -55,6 +58,7 @@ const
   nme_Agentes_Objetivos_facturas = 'Agentes_Objetivos_facturas';
   nme_ListaAnosObjetivosFac = 'ListaAnosObjetivosFac';
   nme_TiposCliente = 'TiposCliente';
+  nme_ClientesSucursales = 'ClientesSucursales';
 
   { Contactos fields }
   fld_ContactosID = 'ID';
@@ -185,6 +189,7 @@ const
   fld_ClientesFELICITACION = 'FELICITACION';
   fld_ClientesTIPO_CLIENTE = 'TIPO_CLIENTE';
   fld_ClientesSEPA = 'SEPA';
+  fld_ClientesID_CENTRAL = 'ID_CENTRAL';
 
   { Clientes field indexes }
   idx_ClientesID = 0;
@@ -231,6 +236,7 @@ const
   idx_ClientesFELICITACION = 41;
   idx_ClientesTIPO_CLIENTE = 42;
   idx_ClientesSEPA = 43;
+  idx_ClientesID_CENTRAL = 44;
 
   { Proveedores fields }
   fld_ProveedoresID = 'ID';
@@ -422,6 +428,10 @@ const
   idx_DireccionesContactoFECHA_ALTA = 14;
   idx_DireccionesContactoFECHA_MODIFICACION = 15;
 
+  { Dataset fields }
+
+  { Dataset field indexes }
+
   { ClientesDescuentos fields }
   fld_ClientesDescuentosID = 'ID';
   fld_ClientesDescuentosID_CLIENTE = 'ID_CLIENTE';
@@ -682,10 +692,104 @@ const
   idx_TiposClienteID = 0;
   idx_TiposClienteDESCRIPCION = 1;
 
+  { ClientesSucursales fields }
+  fld_ClientesSucursalesID = 'ID';
+  fld_ClientesSucursalesID_CATEGORIA = 'ID_CATEGORIA';
+  fld_ClientesSucursalesNIF_CIF = 'NIF_CIF';
+  fld_ClientesSucursalesNOMBRE = 'NOMBRE';
+  fld_ClientesSucursalesPERSONA_CONTACTO = 'PERSONA_CONTACTO';
+  fld_ClientesSucursalesCALLE = 'CALLE';
+  fld_ClientesSucursalesPOBLACION = 'POBLACION';
+  fld_ClientesSucursalesPROVINCIA = 'PROVINCIA';
+  fld_ClientesSucursalesCODIGO_POSTAL = 'CODIGO_POSTAL';
+  fld_ClientesSucursalesTELEFONO_1 = 'TELEFONO_1';
+  fld_ClientesSucursalesTELEFONO_2 = 'TELEFONO_2';
+  fld_ClientesSucursalesMOVIL_1 = 'MOVIL_1';
+  fld_ClientesSucursalesMOVIL_2 = 'MOVIL_2';
+  fld_ClientesSucursalesFAX = 'FAX';
+  fld_ClientesSucursalesEMAIL_1 = 'EMAIL_1';
+  fld_ClientesSucursalesEMAIL_2 = 'EMAIL_2';
+  fld_ClientesSucursalesPAGINA_WEB = 'PAGINA_WEB';
+  fld_ClientesSucursalesNOTAS = 'NOTAS';
+  fld_ClientesSucursalesFECHA_ALTA = 'FECHA_ALTA';
+  fld_ClientesSucursalesFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+  fld_ClientesSucursalesUSUARIO = 'USUARIO';
+  fld_ClientesSucursalesID_EMPRESA = 'ID_EMPRESA';
+  fld_ClientesSucursalesREFERENCIA = 'REFERENCIA';
+  fld_ClientesSucursalesID_AGENTE = 'ID_AGENTE';
+  fld_ClientesSucursalesGRUPO_CLIENTE = 'GRUPO_CLIENTE';
+  fld_ClientesSucursalesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
+  fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
+  fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
+  fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
+  fld_ClientesSucursalesBLOQUEADO = 'BLOQUEADO';
+  fld_ClientesSucursalesAGENTE = 'AGENTE';
+  fld_ClientesSucursalesRAPEL = 'RAPEL';
+  fld_ClientesSucursalesEMAIL_ADMINISTRACION = 'EMAIL_ADMINISTRACION';
+  fld_ClientesSucursalesREGIMEN_IVA = 'REGIMEN_IVA';
+  fld_ClientesSucursalesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO';
+  fld_ClientesSucursalesRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA';
+  fld_ClientesSucursalesID_TIPO_IVA = 'ID_TIPO_IVA';
+  fld_ClientesSucursalesID_FORMA_PAGO = 'ID_FORMA_PAGO';
+  fld_ClientesSucursalesTIENDA_WEB = 'TIENDA_WEB';
+  fld_ClientesSucursalesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
+  fld_ClientesSucursalesDESCUENTO = 'DESCUENTO';
+  fld_ClientesSucursalesFELICITACION = 'FELICITACION';
+  fld_ClientesSucursalesTIPO_CLIENTE = 'TIPO_CLIENTE';
+  fld_ClientesSucursalesSEPA = 'SEPA';
+  fld_ClientesSucursalesID_CENTRAL = 'ID_CENTRAL';
+
+  { ClientesSucursales field indexes }
+  idx_ClientesSucursalesID = 0;
+  idx_ClientesSucursalesID_CATEGORIA = 1;
+  idx_ClientesSucursalesNIF_CIF = 2;
+  idx_ClientesSucursalesNOMBRE = 3;
+  idx_ClientesSucursalesPERSONA_CONTACTO = 4;
+  idx_ClientesSucursalesCALLE = 5;
+  idx_ClientesSucursalesPOBLACION = 6;
+  idx_ClientesSucursalesPROVINCIA = 7;
+  idx_ClientesSucursalesCODIGO_POSTAL = 8;
+  idx_ClientesSucursalesTELEFONO_1 = 9;
+  idx_ClientesSucursalesTELEFONO_2 = 10;
+  idx_ClientesSucursalesMOVIL_1 = 11;
+  idx_ClientesSucursalesMOVIL_2 = 12;
+  idx_ClientesSucursalesFAX = 13;
+  idx_ClientesSucursalesEMAIL_1 = 14;
+  idx_ClientesSucursalesEMAIL_2 = 15;
+  idx_ClientesSucursalesPAGINA_WEB = 16;
+  idx_ClientesSucursalesNOTAS = 17;
+  idx_ClientesSucursalesFECHA_ALTA = 18;
+  idx_ClientesSucursalesFECHA_MODIFICACION = 19;
+  idx_ClientesSucursalesUSUARIO = 20;
+  idx_ClientesSucursalesID_EMPRESA = 21;
+  idx_ClientesSucursalesREFERENCIA = 22;
+  idx_ClientesSucursalesID_AGENTE = 23;
+  idx_ClientesSucursalesGRUPO_CLIENTE = 24;
+  idx_ClientesSucursalesNOMBRE_COMERCIAL = 25;
+  idx_ClientesSucursalesVENCIMIENTO_FACTURAS_1 = 26;
+  idx_ClientesSucursalesVENCIMIENTO_FACTURAS_2 = 27;
+  idx_ClientesSucursalesVENCIMIENTO_FACTURAS_3 = 28;
+  idx_ClientesSucursalesBLOQUEADO = 29;
+  idx_ClientesSucursalesAGENTE = 30;
+  idx_ClientesSucursalesRAPEL = 31;
+  idx_ClientesSucursalesEMAIL_ADMINISTRACION = 32;
+  idx_ClientesSucursalesREGIMEN_IVA = 33;
+  idx_ClientesSucursalesMOTIVO_BLOQUEO = 34;
+  idx_ClientesSucursalesRECARGO_EQUIVALENCIA = 35;
+  idx_ClientesSucursalesID_TIPO_IVA = 36;
+  idx_ClientesSucursalesID_FORMA_PAGO = 37;
+  idx_ClientesSucursalesTIENDA_WEB = 38;
+  idx_ClientesSucursalesCODIGO_ASIGNADO = 39;
+  idx_ClientesSucursalesDESCUENTO = 40;
+  idx_ClientesSucursalesFELICITACION = 41;
+  idx_ClientesSucursalesTIPO_CLIENTE = 42;
+  idx_ClientesSucursalesSEPA = 43;
+  idx_ClientesSucursalesID_CENTRAL = 44;
+
 type
   { IContactos }
   IContactos = interface(IDAStronglyTypedDataTable)
-  ['{9EA7CCCA-5378-4B4C-A785-54BC91ECD356}']
+  ['{98349150-683A-43B9-A657-DE3471558583}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -984,7 +1088,7 @@ type
 
   { IGruposCliente }
   IGruposCliente = interface(IDAStronglyTypedDataTable)
-  ['{F111252D-ED81-4ED4-A865-298B1607A6BD}']
+  ['{BB0E66DB-1336-4B95-80DB-13A11D7281BF}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1031,7 +1135,7 @@ type
 
   { IDatosBancarios }
   IDatosBancarios = interface(IDAStronglyTypedDataTable)
-  ['{A66B524F-F074-4D2A-B41B-777721B88E1A}']
+  ['{AF17B165-0EBC-48C3-BA69-E936A3913393}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1186,7 +1290,7 @@ type
 
   { IClientes }
   IClientes = interface(IDAStronglyTypedDataTable)
-  ['{571DF928-3BDB-4AF1-AF0A-52859BCD5D0B}']
+  ['{4E2A5607-A478-46E4-B9E4-07D74238F689}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1363,6 +1467,10 @@ type
     procedure SetSEPAValue(const aValue: SmallInt);
     function GetSEPAIsNull: Boolean;
     procedure SetSEPAIsNull(const aValue: Boolean);
+    function GetID_CENTRALValue: Integer;
+    procedure SetID_CENTRALValue(const aValue: Integer);
+    function GetID_CENTRALIsNull: Boolean;
+    procedure SetID_CENTRALIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -1454,6 +1562,8 @@ type
     property TIPO_CLIENTEIsNull: Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull;
     property SEPA: SmallInt read GetSEPAValue write SetSEPAValue;
     property SEPAIsNull: Boolean read GetSEPAIsNull write SetSEPAIsNull;
+    property ID_CENTRAL: Integer read GetID_CENTRALValue write SetID_CENTRALValue;
+    property ID_CENTRALIsNull: Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull;
   end;
 
   { TClientesDataTableRules }
@@ -1638,6 +1748,10 @@ type
     procedure SetSEPAValue(const aValue: SmallInt); virtual;
     function GetSEPAIsNull: Boolean; virtual;
     procedure SetSEPAIsNull(const aValue: Boolean); virtual;
+    function GetID_CENTRALValue: Integer; virtual;
+    procedure SetID_CENTRALValue(const aValue: Integer); virtual;
+    function GetID_CENTRALIsNull: Boolean; virtual;
+    procedure SetID_CENTRALIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -1728,6 +1842,8 @@ type
     property TIPO_CLIENTEIsNull: Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull;
     property SEPA: SmallInt read GetSEPAValue write SetSEPAValue;
     property SEPAIsNull: Boolean read GetSEPAIsNull write SetSEPAIsNull;
+    property ID_CENTRAL: Integer read GetID_CENTRALValue write SetID_CENTRALValue;
+    property ID_CENTRALIsNull: Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1737,7 +1853,7 @@ type
 
   { IProveedores }
   IProveedores = interface(IDAStronglyTypedDataTable)
-  ['{6D0C6D22-EF18-41ED-9093-AAA121764D35}']
+  ['{464DE367-FD40-4AD6-803B-15832BC9EA3C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2228,7 +2344,7 @@ type
 
   { IEmpleados }
   IEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{B4B336D3-A56F-45C6-B6F5-AAB520B23589}']
+  ['{B7B9AA33-BE3F-4747-8B4D-1BDF215B9F4F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2659,7 +2775,7 @@ type
 
   { IDireccionesContacto }
   IDireccionesContacto = interface(IDAStronglyTypedDataTable)
-  ['{C3DCDC1C-F27A-4564-BCDD-F6DD193E6BD0}']
+  ['{FF0F3A0F-8526-4EBD-B7A4-7B7B5000739B}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2872,9 +2988,32 @@ type
 
   end;
 
+  { IDataset }
+  IDataset = interface(IDAStronglyTypedDataTable)
+  ['{E13A9CF5-1016-4E9E-9F3F-8A9B7498C9C4}']
+    { Property getters and setters }
+
+
+    { Properties }
+  end;
+
+  { TDatasetDataTableRules }
+  TDatasetDataTableRules = class(TIntfObjectDADataTableRules, IDataset)
+  private
+  protected
+    { Property getters and setters }
+
+    { Properties }
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
   { IClientesDescuentos }
   IClientesDescuentos = interface(IDAStronglyTypedDataTable)
-  ['{AA0E1A2A-7DB8-461D-8659-9EABA082F56E}']
+  ['{A806DA08-3C37-46C0-8E22-CE656A4DE68F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2957,7 +3096,7 @@ type
 
   { IGruposProveedor }
   IGruposProveedor = interface(IDAStronglyTypedDataTable)
-  ['{39E3FE97-0A4F-4E61-B1C6-61EA2CC80617}']
+  ['{8A6844A0-09EE-4D77-BB97-1EE197CEF10C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3004,7 +3143,7 @@ type
 
   { IGruposEmpleado }
   IGruposEmpleado = interface(IDAStronglyTypedDataTable)
-  ['{C9ED45D6-069B-4935-BEAD-B1C7C5B9C4AF}']
+  ['{90134B14-4A3C-43A2-956B-323E988C09DD}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3051,7 +3190,7 @@ type
 
   { IContactos_Refresh }
   IContactos_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{C9EC0D24-6ECD-4986-ADC2-E5CDB083E12E}']
+  ['{C93A7A40-1F2B-4A99-B96A-2A2C068D7155}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3326,7 +3465,7 @@ type
 
   { IContratosEmpleados }
   IContratosEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{E055AC8F-7C74-4359-84AD-D4B822F747FC}']
+  ['{10136118-89DB-466E-8D16-88DD5392A1D2}']
     { Property getters and setters }
     function GetCONTRATOValue: String;
     procedure SetCONTRATOValue(const aValue: String);
@@ -3361,7 +3500,7 @@ type
 
   { IDescripcionesProveedores }
   IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
-  ['{58703A76-1739-43C9-8141-2031D7BF707D}']
+  ['{68CFE0B3-C4B9-4950-A9C5-CCBB863B0A06}']
     { Property getters and setters }
     function GetDESCRIPCION_PROVEEDORValue: String;
     procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@@ -3396,7 +3535,7 @@ type
 
   { IPersonalContacto }
   IPersonalContacto = interface(IDAStronglyTypedDataTable)
-  ['{49C3CB8B-5A31-4DA4-B854-D4C0F1F01736}']
+  ['{16BE0449-F866-4ADC-8AF7-2F19D0C3AFB2}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3539,7 +3678,7 @@ type
 
   { IAgentes_Comisiones }
   IAgentes_Comisiones = interface(IDAStronglyTypedDataTable)
-  ['{A741C163-158B-4B97-92F1-8BC15D3CB41A}']
+  ['{C5FC8591-C624-4FA8-A451-504D3F418793}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3622,7 +3761,7 @@ type
 
   { IListaAnosObjetivosAlb }
   IListaAnosObjetivosAlb = interface(IDAStronglyTypedDataTable)
-  ['{8CE34F73-A203-4771-930E-A2488C088ECC}']
+  ['{F20E0B2A-20DE-4933-8FD6-C47CC78B0813}']
     { Property getters and setters }
     function GetANOValue: SmallInt;
     procedure SetANOValue(const aValue: SmallInt);
@@ -3657,7 +3796,7 @@ type
 
   { IAgentes }
   IAgentes = interface(IDAStronglyTypedDataTable)
-  ['{6B6DA0DD-3600-4219-B56A-5BB06AED91D2}']
+  ['{DB1B14A2-B7B8-4659-A89B-236A123FC8B1}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3992,7 +4131,7 @@ type
 
   { IClientesDescuentosArticulos }
   IClientesDescuentosArticulos = interface(IDAStronglyTypedDataTable)
-  ['{1578CE66-56CC-4F6C-8DB7-E7E6BC19A452}']
+  ['{87BC516D-85D8-4338-8693-356B6C5C8EB8}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -4123,7 +4262,7 @@ type
 
   { IAgentes_Objetivos_albaranes }
   IAgentes_Objetivos_albaranes = interface(IDAStronglyTypedDataTable)
-  ['{7F52F75C-ED4C-4455-A6FA-0FC8775540E9}']
+  ['{F06D48BB-C22F-47F9-B285-C14E612FCEEE}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -4230,7 +4369,7 @@ type
 
   { IAgentes_Objetivos_facturas }
   IAgentes_Objetivos_facturas = interface(IDAStronglyTypedDataTable)
-  ['{DAFFEDCE-E2CB-4C48-B438-EA5445DAB1D2}']
+  ['{B0F57782-18E8-4B9F-8B0B-4384B00E1EC4}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -4337,7 +4476,7 @@ type
 
   { IListaAnosObjetivosFac }
   IListaAnosObjetivosFac = interface(IDAStronglyTypedDataTable)
-  ['{0CAF2EC9-6F1B-467C-9532-26CF0EC5174B}']
+  ['{7F85EE7B-AF93-46A2-833F-EF0EAE0BCEC9}']
     { Property getters and setters }
     function GetANOValue: SmallInt;
     procedure SetANOValue(const aValue: SmallInt);
@@ -4372,7 +4511,7 @@ type
 
   { ITiposCliente }
   ITiposCliente = interface(IDAStronglyTypedDataTable)
-  ['{124FB327-C835-43F3-BB56-6DC690425678}']
+  ['{244B093E-255F-4713-AE5B-743A8437697F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -4417,6 +4556,569 @@ type
 
   end;
 
+  { IClientesSucursales }
+  IClientesSucursales = interface(IDAStronglyTypedDataTable)
+  ['{72D464F4-B807-4AA9-B8C0-B2DB28B24334}']
+    { Property getters and setters }
+    function GetIDValue: Integer;
+    procedure SetIDValue(const aValue: Integer);
+    function GetIDIsNull: Boolean;
+    procedure SetIDIsNull(const aValue: Boolean);
+    function GetID_CATEGORIAValue: Integer;
+    procedure SetID_CATEGORIAValue(const aValue: Integer);
+    function GetID_CATEGORIAIsNull: Boolean;
+    procedure SetID_CATEGORIAIsNull(const aValue: Boolean);
+    function GetNIF_CIFValue: String;
+    procedure SetNIF_CIFValue(const aValue: String);
+    function GetNIF_CIFIsNull: Boolean;
+    procedure SetNIF_CIFIsNull(const aValue: Boolean);
+    function GetNOMBREValue: String;
+    procedure SetNOMBREValue(const aValue: String);
+    function GetNOMBREIsNull: Boolean;
+    procedure SetNOMBREIsNull(const aValue: Boolean);
+    function GetPERSONA_CONTACTOValue: String;
+    procedure SetPERSONA_CONTACTOValue(const aValue: String);
+    function GetPERSONA_CONTACTOIsNull: Boolean;
+    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+    function GetCALLEValue: String;
+    procedure SetCALLEValue(const aValue: String);
+    function GetCALLEIsNull: Boolean;
+    procedure SetCALLEIsNull(const aValue: Boolean);
+    function GetPOBLACIONValue: String;
+    procedure SetPOBLACIONValue(const aValue: String);
+    function GetPOBLACIONIsNull: Boolean;
+    procedure SetPOBLACIONIsNull(const aValue: Boolean);
+    function GetPROVINCIAValue: String;
+    procedure SetPROVINCIAValue(const aValue: String);
+    function GetPROVINCIAIsNull: Boolean;
+    procedure SetPROVINCIAIsNull(const aValue: Boolean);
+    function GetCODIGO_POSTALValue: String;
+    procedure SetCODIGO_POSTALValue(const aValue: String);
+    function GetCODIGO_POSTALIsNull: Boolean;
+    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
+    function GetTELEFONO_1Value: String;
+    procedure SetTELEFONO_1Value(const aValue: String);
+    function GetTELEFONO_1IsNull: Boolean;
+    procedure SetTELEFONO_1IsNull(const aValue: Boolean);
+    function GetTELEFONO_2Value: String;
+    procedure SetTELEFONO_2Value(const aValue: String);
+    function GetTELEFONO_2IsNull: Boolean;
+    procedure SetTELEFONO_2IsNull(const aValue: Boolean);
+    function GetMOVIL_1Value: String;
+    procedure SetMOVIL_1Value(const aValue: String);
+    function GetMOVIL_1IsNull: Boolean;
+    procedure SetMOVIL_1IsNull(const aValue: Boolean);
+    function GetMOVIL_2Value: String;
+    procedure SetMOVIL_2Value(const aValue: String);
+    function GetMOVIL_2IsNull: Boolean;
+    procedure SetMOVIL_2IsNull(const aValue: Boolean);
+    function GetFAXValue: String;
+    procedure SetFAXValue(const aValue: String);
+    function GetFAXIsNull: Boolean;
+    procedure SetFAXIsNull(const aValue: Boolean);
+    function GetEMAIL_1Value: String;
+    procedure SetEMAIL_1Value(const aValue: String);
+    function GetEMAIL_1IsNull: Boolean;
+    procedure SetEMAIL_1IsNull(const aValue: Boolean);
+    function GetEMAIL_2Value: String;
+    procedure SetEMAIL_2Value(const aValue: String);
+    function GetEMAIL_2IsNull: Boolean;
+    procedure SetEMAIL_2IsNull(const aValue: Boolean);
+    function GetPAGINA_WEBValue: String;
+    procedure SetPAGINA_WEBValue(const aValue: String);
+    function GetPAGINA_WEBIsNull: Boolean;
+    procedure SetPAGINA_WEBIsNull(const aValue: Boolean);
+    function GetNOTASValue: IROStrings;
+    function GetNOTASIsNull: Boolean;
+    procedure SetNOTASIsNull(const aValue: Boolean);
+    function GetFECHA_ALTAValue: DateTime;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime);
+    function GetFECHA_ALTAIsNull: Boolean;
+    procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+    function GetFECHA_MODIFICACIONValue: DateTime;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+    function GetFECHA_MODIFICACIONIsNull: Boolean;
+    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+    function GetUSUARIOValue: String;
+    procedure SetUSUARIOValue(const aValue: String);
+    function GetUSUARIOIsNull: Boolean;
+    procedure SetUSUARIOIsNull(const aValue: Boolean);
+    function GetID_EMPRESAValue: Integer;
+    procedure SetID_EMPRESAValue(const aValue: Integer);
+    function GetID_EMPRESAIsNull: Boolean;
+    procedure SetID_EMPRESAIsNull(const aValue: Boolean);
+    function GetREFERENCIAValue: String;
+    procedure SetREFERENCIAValue(const aValue: String);
+    function GetREFERENCIAIsNull: Boolean;
+    procedure SetREFERENCIAIsNull(const aValue: Boolean);
+    function GetID_AGENTEValue: Integer;
+    procedure SetID_AGENTEValue(const aValue: Integer);
+    function GetID_AGENTEIsNull: Boolean;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean);
+    function GetGRUPO_CLIENTEValue: String;
+    procedure SetGRUPO_CLIENTEValue(const aValue: String);
+    function GetGRUPO_CLIENTEIsNull: Boolean;
+    procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean);
+    function GetNOMBRE_COMERCIALValue: String;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String);
+    function GetNOMBRE_COMERCIALIsNull: Boolean;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+    function GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
+    procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
+    function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
+    procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
+    function GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
+    procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
+    function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
+    procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
+    function GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
+    procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
+    function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
+    procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
+    function GetBLOQUEADOValue: SmallInt;
+    procedure SetBLOQUEADOValue(const aValue: SmallInt);
+    function GetBLOQUEADOIsNull: Boolean;
+    procedure SetBLOQUEADOIsNull(const aValue: Boolean);
+    function GetAGENTEValue: String;
+    procedure SetAGENTEValue(const aValue: String);
+    function GetAGENTEIsNull: Boolean;
+    procedure SetAGENTEIsNull(const aValue: Boolean);
+    function GetRAPELValue: SmallInt;
+    procedure SetRAPELValue(const aValue: SmallInt);
+    function GetRAPELIsNull: Boolean;
+    procedure SetRAPELIsNull(const aValue: Boolean);
+    function GetEMAIL_ADMINISTRACIONValue: String;
+    procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
+    function GetEMAIL_ADMINISTRACIONIsNull: Boolean;
+    procedure SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean);
+    function GetREGIMEN_IVAValue: String;
+    procedure SetREGIMEN_IVAValue(const aValue: String);
+    function GetREGIMEN_IVAIsNull: Boolean;
+    procedure SetREGIMEN_IVAIsNull(const aValue: Boolean);
+    function GetMOTIVO_BLOQUEOValue: String;
+    procedure SetMOTIVO_BLOQUEOValue(const aValue: String);
+    function GetMOTIVO_BLOQUEOIsNull: Boolean;
+    procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean);
+    function GetRECARGO_EQUIVALENCIAValue: Integer;
+    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
+    function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
+    procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
+    function GetID_TIPO_IVAValue: Integer;
+    procedure SetID_TIPO_IVAValue(const aValue: Integer);
+    function GetID_TIPO_IVAIsNull: Boolean;
+    procedure SetID_TIPO_IVAIsNull(const aValue: Boolean);
+    function GetID_FORMA_PAGOValue: Integer;
+    procedure SetID_FORMA_PAGOValue(const aValue: Integer);
+    function GetID_FORMA_PAGOIsNull: Boolean;
+    procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+    function GetTIENDA_WEBValue: SmallInt;
+    procedure SetTIENDA_WEBValue(const aValue: SmallInt);
+    function GetTIENDA_WEBIsNull: Boolean;
+    procedure SetTIENDA_WEBIsNull(const aValue: Boolean);
+    function GetCODIGO_ASIGNADOValue: String;
+    procedure SetCODIGO_ASIGNADOValue(const aValue: String);
+    function GetCODIGO_ASIGNADOIsNull: Boolean;
+    procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
+    function GetDESCUENTOValue: Float;
+    procedure SetDESCUENTOValue(const aValue: Float);
+    function GetDESCUENTOIsNull: Boolean;
+    procedure SetDESCUENTOIsNull(const aValue: Boolean);
+    function GetFELICITACIONValue: SmallInt;
+    procedure SetFELICITACIONValue(const aValue: SmallInt);
+    function GetFELICITACIONIsNull: Boolean;
+    procedure SetFELICITACIONIsNull(const aValue: Boolean);
+    function GetTIPO_CLIENTEValue: String;
+    procedure SetTIPO_CLIENTEValue(const aValue: String);
+    function GetTIPO_CLIENTEIsNull: Boolean;
+    procedure SetTIPO_CLIENTEIsNull(const aValue: Boolean);
+    function GetSEPAValue: SmallInt;
+    procedure SetSEPAValue(const aValue: SmallInt);
+    function GetSEPAIsNull: Boolean;
+    procedure SetSEPAIsNull(const aValue: Boolean);
+    function GetID_CENTRALValue: Integer;
+    procedure SetID_CENTRALValue(const aValue: Integer);
+    function GetID_CENTRALIsNull: Boolean;
+    procedure SetID_CENTRALIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+    property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
+    property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+    property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
+    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+    property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+    property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+    property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+    property CALLE: String read GetCALLEValue write SetCALLEValue;
+    property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
+    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+    property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+    property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+    property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+    property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+    property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+    property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
+    property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+    property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
+    property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
+    property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
+    property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
+    property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
+    property FAX: String read GetFAXValue write SetFAXValue;
+    property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
+    property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
+    property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
+    property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
+    property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
+    property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
+    property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
+    property NOTAS: IROStrings read GetNOTASValue;
+    property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
+    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
+    property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
+    property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
+    property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
+    property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
+    property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
+    property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
+    property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
+    property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
+    property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
+    property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
+    property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+    property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
+    property RAPEL: SmallInt read GetRAPELValue write SetRAPELValue;
+    property RAPELIsNull: Boolean read GetRAPELIsNull write SetRAPELIsNull;
+    property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
+    property EMAIL_ADMINISTRACIONIsNull: Boolean read GetEMAIL_ADMINISTRACIONIsNull write SetEMAIL_ADMINISTRACIONIsNull;
+    property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
+    property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
+    property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
+    property MOTIVO_BLOQUEOIsNull: Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull;
+    property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+    property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
+    property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+    property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+    property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+    property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+    property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+    property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+    property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
+    property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
+    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+    property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
+    property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
+    property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
+    property TIPO_CLIENTEIsNull: Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull;
+    property SEPA: SmallInt read GetSEPAValue write SetSEPAValue;
+    property SEPAIsNull: Boolean read GetSEPAIsNull write SetSEPAIsNull;
+    property ID_CENTRAL: Integer read GetID_CENTRALValue write SetID_CENTRALValue;
+    property ID_CENTRALIsNull: Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull;
+  end;
+
+  { TClientesSucursalesDataTableRules }
+  TClientesSucursalesDataTableRules = class(TIntfObjectDADataTableRules, IClientesSucursales)
+  private
+    f_NOTAS: IROStrings;
+    procedure NOTAS_OnChange(Sender: TObject);
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetIDIsNull: Boolean; virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetID_CATEGORIAValue: Integer; virtual;
+    procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
+    function GetID_CATEGORIAIsNull: Boolean; virtual;
+    procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
+    function GetNIF_CIFValue: String; virtual;
+    procedure SetNIF_CIFValue(const aValue: String); virtual;
+    function GetNIF_CIFIsNull: Boolean; virtual;
+    procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
+    function GetNOMBREValue: String; virtual;
+    procedure SetNOMBREValue(const aValue: String); virtual;
+    function GetNOMBREIsNull: Boolean; virtual;
+    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+    function GetPERSONA_CONTACTOValue: String; virtual;
+    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
+    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
+    function GetCALLEValue: String; virtual;
+    procedure SetCALLEValue(const aValue: String); virtual;
+    function GetCALLEIsNull: Boolean; virtual;
+    procedure SetCALLEIsNull(const aValue: Boolean); virtual;
+    function GetPOBLACIONValue: String; virtual;
+    procedure SetPOBLACIONValue(const aValue: String); virtual;
+    function GetPOBLACIONIsNull: Boolean; virtual;
+    procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
+    function GetPROVINCIAValue: String; virtual;
+    procedure SetPROVINCIAValue(const aValue: String); virtual;
+    function GetPROVINCIAIsNull: Boolean; virtual;
+    procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
+    function GetCODIGO_POSTALValue: String; virtual;
+    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+    function GetCODIGO_POSTALIsNull: Boolean; virtual;
+    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
+    function GetTELEFONO_1Value: String; virtual;
+    procedure SetTELEFONO_1Value(const aValue: String); virtual;
+    function GetTELEFONO_1IsNull: Boolean; virtual;
+    procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
+    function GetTELEFONO_2Value: String; virtual;
+    procedure SetTELEFONO_2Value(const aValue: String); virtual;
+    function GetTELEFONO_2IsNull: Boolean; virtual;
+    procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
+    function GetMOVIL_1Value: String; virtual;
+    procedure SetMOVIL_1Value(const aValue: String); virtual;
+    function GetMOVIL_1IsNull: Boolean; virtual;
+    procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
+    function GetMOVIL_2Value: String; virtual;
+    procedure SetMOVIL_2Value(const aValue: String); virtual;
+    function GetMOVIL_2IsNull: Boolean; virtual;
+    procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
+    function GetFAXValue: String; virtual;
+    procedure SetFAXValue(const aValue: String); virtual;
+    function GetFAXIsNull: Boolean; virtual;
+    procedure SetFAXIsNull(const aValue: Boolean); virtual;
+    function GetEMAIL_1Value: String; virtual;
+    procedure SetEMAIL_1Value(const aValue: String); virtual;
+    function GetEMAIL_1IsNull: Boolean; virtual;
+    procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
+    function GetEMAIL_2Value: String; virtual;
+    procedure SetEMAIL_2Value(const aValue: String); virtual;
+    function GetEMAIL_2IsNull: Boolean; virtual;
+    procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
+    function GetPAGINA_WEBValue: String; virtual;
+    procedure SetPAGINA_WEBValue(const aValue: String); virtual;
+    function GetPAGINA_WEBIsNull: Boolean; virtual;
+    procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
+    function GetNOTASValue: IROStrings; virtual;
+    function GetNOTASIsNull: Boolean; virtual;
+    procedure SetNOTASIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_ALTAValue: DateTime; virtual;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    function GetFECHA_ALTAIsNull: Boolean; virtual;
+    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetUSUARIOValue: String; virtual;
+    procedure SetUSUARIOValue(const aValue: String); virtual;
+    function GetUSUARIOIsNull: Boolean; virtual;
+    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    function GetID_EMPRESAIsNull: Boolean; virtual;
+    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    function GetREFERENCIAIsNull: Boolean; virtual;
+    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetID_AGENTEIsNull: Boolean; virtual;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetGRUPO_CLIENTEValue: String; virtual;
+    procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
+    function GetGRUPO_CLIENTEIsNull: Boolean; virtual;
+    procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_COMERCIALValue: String; virtual;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+    function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
+    function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
+    procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual;
+    function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
+    procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
+    function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
+    procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual;
+    function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
+    procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
+    function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
+    procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
+    function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
+    procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
+    function GetBLOQUEADOValue: SmallInt; virtual;
+    procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
+    function GetBLOQUEADOIsNull: Boolean; virtual;
+    procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual;
+    function GetAGENTEValue: String; virtual;
+    procedure SetAGENTEValue(const aValue: String); virtual;
+    function GetAGENTEIsNull: Boolean; virtual;
+    procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
+    function GetRAPELValue: SmallInt; virtual;
+    procedure SetRAPELValue(const aValue: SmallInt); virtual;
+    function GetRAPELIsNull: Boolean; virtual;
+    procedure SetRAPELIsNull(const aValue: Boolean); virtual;
+    function GetEMAIL_ADMINISTRACIONValue: String; virtual;
+    procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual;
+    function GetEMAIL_ADMINISTRACIONIsNull: Boolean; virtual;
+    procedure SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); virtual;
+    function GetREGIMEN_IVAValue: String; virtual;
+    procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
+    function GetREGIMEN_IVAIsNull: Boolean; virtual;
+    procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual;
+    function GetMOTIVO_BLOQUEOValue: String; virtual;
+    procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual;
+    function GetMOTIVO_BLOQUEOIsNull: Boolean; virtual;
+    procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); virtual;
+    function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
+    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
+    function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
+    procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
+    function GetID_TIPO_IVAValue: Integer; virtual;
+    procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
+    function GetID_TIPO_IVAIsNull: Boolean; virtual;
+    procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
+    function GetID_FORMA_PAGOValue: Integer; virtual;
+    procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+    function GetID_FORMA_PAGOIsNull: Boolean; virtual;
+    procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+    function GetTIENDA_WEBValue: SmallInt; virtual;
+    procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
+    function GetTIENDA_WEBIsNull: Boolean; virtual;
+    procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
+    function GetCODIGO_ASIGNADOValue: String; virtual;
+    procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
+    function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
+    procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
+    function GetDESCUENTOValue: Float; virtual;
+    procedure SetDESCUENTOValue(const aValue: Float); virtual;
+    function GetDESCUENTOIsNull: Boolean; virtual;
+    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+    function GetFELICITACIONValue: SmallInt; virtual;
+    procedure SetFELICITACIONValue(const aValue: SmallInt); virtual;
+    function GetFELICITACIONIsNull: Boolean; virtual;
+    procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual;
+    function GetTIPO_CLIENTEValue: String; virtual;
+    procedure SetTIPO_CLIENTEValue(const aValue: String); virtual;
+    function GetTIPO_CLIENTEIsNull: Boolean; virtual;
+    procedure SetTIPO_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetSEPAValue: SmallInt; virtual;
+    procedure SetSEPAValue(const aValue: SmallInt); virtual;
+    function GetSEPAIsNull: Boolean; virtual;
+    procedure SetSEPAIsNull(const aValue: Boolean); virtual;
+    function GetID_CENTRALValue: Integer; virtual;
+    procedure SetID_CENTRALValue(const aValue: Integer); virtual;
+    function GetID_CENTRALIsNull: Boolean; virtual;
+    procedure SetID_CENTRALIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+    property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
+    property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+    property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
+    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+    property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+    property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+    property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+    property CALLE: String read GetCALLEValue write SetCALLEValue;
+    property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
+    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+    property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+    property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+    property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+    property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+    property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+    property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
+    property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+    property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
+    property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
+    property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
+    property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
+    property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
+    property FAX: String read GetFAXValue write SetFAXValue;
+    property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
+    property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
+    property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
+    property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
+    property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
+    property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
+    property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
+    property NOTAS: IROStrings read GetNOTASValue;
+    property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
+    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
+    property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
+    property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
+    property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
+    property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
+    property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
+    property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
+    property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
+    property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
+    property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
+    property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
+    property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+    property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
+    property RAPEL: SmallInt read GetRAPELValue write SetRAPELValue;
+    property RAPELIsNull: Boolean read GetRAPELIsNull write SetRAPELIsNull;
+    property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
+    property EMAIL_ADMINISTRACIONIsNull: Boolean read GetEMAIL_ADMINISTRACIONIsNull write SetEMAIL_ADMINISTRACIONIsNull;
+    property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
+    property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
+    property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
+    property MOTIVO_BLOQUEOIsNull: Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull;
+    property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+    property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
+    property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+    property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+    property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+    property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+    property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+    property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+    property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
+    property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
+    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+    property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
+    property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
+    property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
+    property TIPO_CLIENTEIsNull: Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull;
+    property SEPA: SmallInt read GetSEPAValue write SetSEPAValue;
+    property SEPAIsNull: Boolean read GetSEPAIsNull write SetSEPAIsNull;
+    property ID_CENTRAL: Integer read GetID_CENTRALValue write SetID_CENTRALValue;
+    property ID_CENTRALIsNull: Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
 implementation
 
 uses Variants, uROBinaryHelpers;
@@ -6162,6 +6864,27 @@ begin
     DataTable.Fields[idx_ClientesSEPA].AsVariant := Null;
 end;
 
+function TClientesDataTableRules.GetID_CENTRALValue: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesID_CENTRAL].AsInteger;
+end;
+
+procedure TClientesDataTableRules.SetID_CENTRALValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ClientesID_CENTRAL].AsInteger := aValue;
+end;
+
+function TClientesDataTableRules.GetID_CENTRALIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesID_CENTRAL].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetID_CENTRALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesID_CENTRAL].AsVariant := Null;
+end;
+
 
 { TProveedoresDataTableRules }
 constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);
@@ -8109,6 +8832,18 @@ begin
 end;
 
 
+{ TDatasetDataTableRules }
+constructor TDatasetDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TDatasetDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+
 { TClientesDescuentosDataTableRules }
 constructor TClientesDescuentosDataTableRules.Create(aDataTable: TDADataTable);
 begin
@@ -10403,6 +11138,970 @@ begin
 end;
 
 
+{ TClientesSucursalesDataTableRules }
+constructor TClientesSucursalesDataTableRules.Create(aDataTable: TDADataTable);
+var
+  StrList: TStringList;
+begin
+  inherited;
+
+  StrList := TStringList.Create;
+  StrList.OnChange := NOTAS_OnChange;
+  f_NOTAS := NewROStrings(StrList,True);
+end;
+
+destructor TClientesSucursalesDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+procedure TClientesSucursalesDataTableRules.NOTAS_OnChange(Sender: TObject);
+begin
+  if DataTable.Editing then DataTable.Fields[idx_ClientesSucursalesNOTAS].AsVariant := TStringList(Sender).Text;
+end;
+
+function TClientesSucursalesDataTableRules.GetIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID].AsInteger;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ClientesSucursalesID].AsInteger := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesID].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetID_CATEGORIAValue: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID_CATEGORIA].AsInteger;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetID_CATEGORIAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ClientesSucursalesID_CATEGORIA].AsInteger := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetID_CATEGORIAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID_CATEGORIA].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesID_CATEGORIA].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetNIF_CIFValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesNIF_CIF].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetNIF_CIFValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesNIF_CIF].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetNIF_CIFIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesNIF_CIF].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesNIF_CIF].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetNOMBREValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesNOMBRE].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetNOMBREValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesNOMBRE].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetNOMBREIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesNOMBRE].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesNOMBRE].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetPERSONA_CONTACTOValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesPERSONA_CONTACTO].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesPERSONA_CONTACTO].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesPERSONA_CONTACTO].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesPERSONA_CONTACTO].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetCALLEValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesCALLE].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetCALLEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesCALLE].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetCALLEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesCALLE].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesCALLE].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetPOBLACIONValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesPOBLACION].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetPOBLACIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesPOBLACION].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetPOBLACIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesPOBLACION].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesPOBLACION].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetPROVINCIAValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesPROVINCIA].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetPROVINCIAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesPROVINCIA].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetPROVINCIAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesPROVINCIA].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesPROVINCIA].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetCODIGO_POSTALValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesCODIGO_POSTAL].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesCODIGO_POSTAL].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetCODIGO_POSTALIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesCODIGO_POSTAL].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesCODIGO_POSTAL].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetTELEFONO_1Value: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesTELEFONO_1].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetTELEFONO_1Value(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesTELEFONO_1].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetTELEFONO_1IsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesTELEFONO_1].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesTELEFONO_1].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetTELEFONO_2Value: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesTELEFONO_2].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetTELEFONO_2Value(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesTELEFONO_2].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetTELEFONO_2IsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesTELEFONO_2].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesTELEFONO_2].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetMOVIL_1Value: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesMOVIL_1].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetMOVIL_1Value(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesMOVIL_1].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetMOVIL_1IsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesMOVIL_1].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesMOVIL_1].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetMOVIL_2Value: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesMOVIL_2].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetMOVIL_2Value(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesMOVIL_2].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetMOVIL_2IsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesMOVIL_2].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesMOVIL_2].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetFAXValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesFAX].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetFAXValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesFAX].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetFAXIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesFAX].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetFAXIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesFAX].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetEMAIL_1Value: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesEMAIL_1].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetEMAIL_1Value(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesEMAIL_1].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetEMAIL_1IsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesEMAIL_1].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesEMAIL_1].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetEMAIL_2Value: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesEMAIL_2].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetEMAIL_2Value(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesEMAIL_2].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetEMAIL_2IsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesEMAIL_2].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesEMAIL_2].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetPAGINA_WEBValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesPAGINA_WEB].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetPAGINA_WEBValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesPAGINA_WEB].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetPAGINA_WEBIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesPAGINA_WEB].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesPAGINA_WEB].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetNOTASValue: IROStrings;
+begin
+  result := f_NOTAS;
+  result.Text := DataTable.Fields[idx_ClientesSucursalesNOTAS].AsString;
+end;
+
+function TClientesSucursalesDataTableRules.GetNOTASIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesNOTAS].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetNOTASIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesNOTAS].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesFECHA_ALTA].AsDateTime;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_ClientesSucursalesFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesFECHA_ALTA].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesFECHA_ALTA].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_ClientesSucursalesFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesFECHA_MODIFICACION].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetUSUARIOValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesUSUARIO].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetUSUARIOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesUSUARIO].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesUSUARIO].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesUSUARIO].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetID_EMPRESAValue: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID_EMPRESA].AsInteger;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ClientesSucursalesID_EMPRESA].AsInteger := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID_EMPRESA].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesID_EMPRESA].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetREFERENCIAValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesREFERENCIA].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesREFERENCIA].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesREFERENCIA].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesREFERENCIA].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetID_AGENTEValue: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID_AGENTE].AsInteger;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ClientesSucursalesID_AGENTE].AsInteger := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetID_AGENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID_AGENTE].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesID_AGENTE].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetGRUPO_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesGRUPO_CLIENTE].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetGRUPO_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesGRUPO_CLIENTE].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetGRUPO_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesGRUPO_CLIENTE].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetGRUPO_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesGRUPO_CLIENTE].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetNOMBRE_COMERCIALValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesNOMBRE_COMERCIAL].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesNOMBRE_COMERCIAL].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetNOMBRE_COMERCIALIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesNOMBRE_COMERCIAL].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesNOMBRE_COMERCIAL].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_1].AsSmallInt;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_1].AsSmallInt := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetVENCIMIENTO_FACTURAS_1IsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_1].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_1].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_2].AsSmallInt;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_2].AsSmallInt := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetVENCIMIENTO_FACTURAS_2IsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_2].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_2].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_3].AsSmallInt;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_3].AsSmallInt := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetVENCIMIENTO_FACTURAS_3IsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_3].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_3].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetBLOQUEADOValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesBLOQUEADO].AsSmallInt;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetBLOQUEADOValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ClientesSucursalesBLOQUEADO].AsSmallInt := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetBLOQUEADOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesBLOQUEADO].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetBLOQUEADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesBLOQUEADO].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetAGENTEValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesAGENTE].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetAGENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesAGENTE].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetAGENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesAGENTE].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetAGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesAGENTE].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetRAPELValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesRAPEL].AsSmallInt;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetRAPELValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ClientesSucursalesRAPEL].AsSmallInt := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetRAPELIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesRAPEL].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetRAPELIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesRAPEL].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetEMAIL_ADMINISTRACIONValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesEMAIL_ADMINISTRACION].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesEMAIL_ADMINISTRACION].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetEMAIL_ADMINISTRACIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesEMAIL_ADMINISTRACION].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesEMAIL_ADMINISTRACION].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetREGIMEN_IVAValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesREGIMEN_IVA].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetREGIMEN_IVAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesREGIMEN_IVA].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetREGIMEN_IVAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesREGIMEN_IVA].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetREGIMEN_IVAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesREGIMEN_IVA].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetMOTIVO_BLOQUEOValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesMOTIVO_BLOQUEO].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetMOTIVO_BLOQUEOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesMOTIVO_BLOQUEO].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetMOTIVO_BLOQUEOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesMOTIVO_BLOQUEO].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesMOTIVO_BLOQUEO].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetRECARGO_EQUIVALENCIAValue: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesRECARGO_EQUIVALENCIA].AsInteger;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ClientesSucursalesRECARGO_EQUIVALENCIA].AsInteger := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesRECARGO_EQUIVALENCIA].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesRECARGO_EQUIVALENCIA].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetID_TIPO_IVAValue: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID_TIPO_IVA].AsInteger;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ClientesSucursalesID_TIPO_IVA].AsInteger := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetID_TIPO_IVAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID_TIPO_IVA].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesID_TIPO_IVA].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetID_FORMA_PAGOValue: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID_FORMA_PAGO].AsInteger;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ClientesSucursalesID_FORMA_PAGO].AsInteger := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetID_FORMA_PAGOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID_FORMA_PAGO].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesID_FORMA_PAGO].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetTIENDA_WEBValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesTIENDA_WEB].AsSmallInt;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetTIENDA_WEBValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ClientesSucursalesTIENDA_WEB].AsSmallInt := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetTIENDA_WEBIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesTIENDA_WEB].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesTIENDA_WEB].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetCODIGO_ASIGNADOValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesCODIGO_ASIGNADO].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetCODIGO_ASIGNADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesCODIGO_ASIGNADO].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetCODIGO_ASIGNADOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesCODIGO_ASIGNADO].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesCODIGO_ASIGNADO].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetDESCUENTOValue: Float;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesDESCUENTO].AsFloat;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetDESCUENTOValue(const aValue: Float);
+begin
+  DataTable.Fields[idx_ClientesSucursalesDESCUENTO].AsFloat := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetDESCUENTOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesDESCUENTO].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesDESCUENTO].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetFELICITACIONValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesFELICITACION].AsSmallInt;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetFELICITACIONValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ClientesSucursalesFELICITACION].AsSmallInt := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetFELICITACIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesFELICITACION].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetFELICITACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesFELICITACION].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetTIPO_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesTIPO_CLIENTE].AsString;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetTIPO_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesSucursalesTIPO_CLIENTE].AsString := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetTIPO_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesTIPO_CLIENTE].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetTIPO_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesTIPO_CLIENTE].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetSEPAValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesSEPA].AsSmallInt;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetSEPAValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ClientesSucursalesSEPA].AsSmallInt := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetSEPAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesSEPA].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetSEPAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesSEPA].AsVariant := Null;
+end;
+
+function TClientesSucursalesDataTableRules.GetID_CENTRALValue: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID_CENTRAL].AsInteger;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetID_CENTRALValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ClientesSucursalesID_CENTRAL].AsInteger := aValue;
+end;
+
+function TClientesSucursalesDataTableRules.GetID_CENTRALIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesSucursalesID_CENTRAL].IsNull;
+end;
+
+procedure TClientesSucursalesDataTableRules.SetID_CENTRALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesSucursalesID_CENTRAL].AsVariant := Null;
+end;
+
+
 initialization
   RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
   RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
@@ -10411,6 +12110,7 @@ initialization
   RegisterDataTableRules(RID_Proveedores, TProveedoresDataTableRules);
   RegisterDataTableRules(RID_Empleados, TEmpleadosDataTableRules);
   RegisterDataTableRules(RID_DireccionesContacto, TDireccionesContactoDataTableRules);
+  RegisterDataTableRules(RID_Dataset, TDatasetDataTableRules);
   RegisterDataTableRules(RID_ClientesDescuentos, TClientesDescuentosDataTableRules);
   RegisterDataTableRules(RID_GruposProveedor, TGruposProveedorDataTableRules);
   RegisterDataTableRules(RID_GruposEmpleado, TGruposEmpleadoDataTableRules);
@@ -10426,5 +12126,6 @@ initialization
   RegisterDataTableRules(RID_Agentes_Objetivos_facturas, TAgentes_Objetivos_facturasDataTableRules);
   RegisterDataTableRules(RID_ListaAnosObjetivosFac, TListaAnosObjetivosFacDataTableRules);
   RegisterDataTableRules(RID_TiposCliente, TTiposClienteDataTableRules);
+  RegisterDataTableRules(RID_ClientesSucursales, TClientesSucursalesDataTableRules);
 
 end.
diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
index f948788..3defd59 100644
--- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
@@ -9,33 +9,35 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ContactosDelta = '{E56743D2-AA77-4A0B-8FC1-3B6F9FBED070}';
-  RID_GruposClienteDelta = '{310E11A9-D714-4048-A25A-53848267454F}';
-  RID_DatosBancariosDelta = '{E047E282-BA9C-4121-A9D8-3EEE25321841}';
-  RID_ClientesDelta = '{69B75862-8FA1-4132-9522-6181B6A3441E}';
-  RID_ProveedoresDelta = '{ACE0366B-9D24-41D6-85C7-E3547A9C8A00}';
-  RID_EmpleadosDelta = '{03BED208-4A2F-4FEC-8DEC-17B7B42E26FB}';
-  RID_DireccionesContactoDelta = '{827E40FA-A98D-4415-8279-E4E2722B8283}';
-  RID_ClientesDescuentosDelta = '{71D637D2-7260-4E3B-A032-3B14E111DB5D}';
-  RID_GruposProveedorDelta = '{67BF5C15-49F8-4F82-B12D-35B4BDE24CD1}';
-  RID_GruposEmpleadoDelta = '{D958D28A-375F-41FE-BF1B-8BAACF918043}';
-  RID_Contactos_RefreshDelta = '{8A0D16D4-A1C5-4092-8A1C-3A9D95E7ACC3}';
-  RID_ContratosEmpleadosDelta = '{30082156-01E8-4E96-9682-84B4A686E255}';
-  RID_DescripcionesProveedoresDelta = '{CC3917ED-2A08-4B34-BEA9-8AEE396EA140}';
-  RID_PersonalContactoDelta = '{822C191C-E325-466E-922F-52877636798B}';
-  RID_Agentes_ComisionesDelta = '{A495579D-F010-44B5-A3FF-4B495BD6880B}';
-  RID_ListaAnosObjetivosAlbDelta = '{43344310-35FB-4597-BEF9-27C0626D02E3}';
-  RID_AgentesDelta = '{ABF2F800-8BC4-4643-A7E3-D103FEFE7EE8}';
-  RID_ClientesDescuentosArticulosDelta = '{B7915CD1-E18A-45AE-99B7-7F8B05EF55C3}';
-  RID_Agentes_Objetivos_albaranesDelta = '{5898D87F-C3C0-4B97-B601-5F4BBF856B3A}';
-  RID_Agentes_Objetivos_facturasDelta = '{14BA0A5A-FB0E-484C-8643-77244063F85B}';
-  RID_ListaAnosObjetivosFacDelta = '{B60A8D3C-3583-4BCE-9166-4FFA2E430363}';
-  RID_TiposClienteDelta = '{0CA6260C-A8B6-45E4-B4E2-E58AD0F5A65B}';
+  RID_ContactosDelta = '{0A5FD637-C001-429B-B29A-C27FEC220009}';
+  RID_GruposClienteDelta = '{58618B00-45B4-450F-BC62-98742E87021C}';
+  RID_DatosBancariosDelta = '{45E51656-91B0-49B7-8D31-522FCFECF559}';
+  RID_ClientesDelta = '{4B2EBBC1-A1F0-418D-A16F-8AC7760C068D}';
+  RID_ProveedoresDelta = '{C5F6CB95-56A2-45F8-8FAA-96583A851386}';
+  RID_EmpleadosDelta = '{5B767BC3-AC23-4949-859F-0132C28A588B}';
+  RID_DireccionesContactoDelta = '{F8C98CDE-4ED6-4AF1-A2E8-C0D0B91DE1F2}';
+  RID_DatasetDelta = '{FAE1EDC9-38FA-4FF5-8BD3-A5B8049BD57C}';
+  RID_ClientesDescuentosDelta = '{11218B9B-48CE-4BC6-AAA9-DC6BB9E199E9}';
+  RID_GruposProveedorDelta = '{DB8B8052-DE17-4DF7-8CEE-A9EB81010E8A}';
+  RID_GruposEmpleadoDelta = '{46BDCC73-5F91-4B1D-8874-6CE45681F51F}';
+  RID_Contactos_RefreshDelta = '{D9A6D754-813C-4403-B1D7-8F7EE8F2D6DE}';
+  RID_ContratosEmpleadosDelta = '{61F8337F-C1D9-4A0B-A704-7542C2BB486C}';
+  RID_DescripcionesProveedoresDelta = '{86FC6907-B4EC-4DFA-81FC-D9C258884E74}';
+  RID_PersonalContactoDelta = '{00D81B2A-8B63-41C2-B200-E5500E57CF69}';
+  RID_Agentes_ComisionesDelta = '{857BF461-0321-4384-B23C-2B005A67D62A}';
+  RID_ListaAnosObjetivosAlbDelta = '{6392B970-7086-44FC-B46F-4707959558BA}';
+  RID_AgentesDelta = '{D9C51BA2-E17E-488D-921B-85246BC34612}';
+  RID_ClientesDescuentosArticulosDelta = '{6869CAC9-9FFC-47E4-8323-784F27753E19}';
+  RID_Agentes_Objetivos_albaranesDelta = '{F3F3A909-A95A-4888-BC4B-BFBC94135FCD}';
+  RID_Agentes_Objetivos_facturasDelta = '{878AC53F-72CA-46CB-9B8D-43CCC2093AE7}';
+  RID_ListaAnosObjetivosFacDelta = '{C286E28E-4BD7-49D1-8B66-9344027C904A}';
+  RID_TiposClienteDelta = '{8F6952A9-CE70-45C0-96FD-56A744FD174B}';
+  RID_ClientesSucursalesDelta = '{D03569D4-E025-4BF2-B711-527A63A38205}';
 
 type
   { IContactosDelta }
   IContactosDelta = interface(IContactos)
-  ['{E56743D2-AA77-4A0B-8FC1-3B6F9FBED070}']
+  ['{0A5FD637-C001-429B-B29A-C27FEC220009}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -334,7 +336,7 @@ type
 
   { IGruposClienteDelta }
   IGruposClienteDelta = interface(IGruposCliente)
-  ['{310E11A9-D714-4048-A25A-53848267454F}']
+  ['{58618B00-45B4-450F-BC62-98742E87021C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -380,7 +382,7 @@ type
 
   { IDatosBancariosDelta }
   IDatosBancariosDelta = interface(IDatosBancarios)
-  ['{E047E282-BA9C-4121-A9D8-3EEE25321841}']
+  ['{45E51656-91B0-49B7-8D31-522FCFECF559}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -534,7 +536,7 @@ type
 
   { IClientesDelta }
   IClientesDelta = interface(IClientes)
-  ['{69B75862-8FA1-4132-9522-6181B6A3441E}']
+  ['{4B2EBBC1-A1F0-418D-A16F-8AC7760C068D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -580,6 +582,7 @@ type
     function GetOldFELICITACIONValue : SmallInt;
     function GetOldTIPO_CLIENTEValue : String;
     function GetOldSEPAValue : SmallInt;
+    function GetOldID_CENTRALValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -626,6 +629,7 @@ type
     property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
     property OldTIPO_CLIENTE : String read GetOldTIPO_CLIENTEValue;
     property OldSEPA : SmallInt read GetOldSEPAValue;
+    property OldID_CENTRAL : Integer read GetOldID_CENTRALValue;
   end;
 
   { TClientesBusinessProcessorRules }
@@ -898,6 +902,12 @@ type
     function GetOldSEPAIsNull: Boolean; virtual;
     procedure SetSEPAValue(const aValue: SmallInt); virtual;
     procedure SetSEPAIsNull(const aValue: Boolean); virtual;
+    function GetID_CENTRALValue: Integer; virtual;
+    function GetID_CENTRALIsNull: Boolean; virtual;
+    function GetOldID_CENTRALValue: Integer; virtual;
+    function GetOldID_CENTRALIsNull: Boolean; virtual;
+    procedure SetID_CENTRALValue(const aValue: Integer); virtual;
+    procedure SetID_CENTRALIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -1076,6 +1086,10 @@ type
     property SEPAIsNull : Boolean read GetSEPAIsNull write SetSEPAIsNull;
     property OldSEPA : SmallInt read GetOldSEPAValue;
     property OldSEPAIsNull : Boolean read GetOldSEPAIsNull;
+    property ID_CENTRAL : Integer read GetID_CENTRALValue write SetID_CENTRALValue;
+    property ID_CENTRALIsNull : Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull;
+    property OldID_CENTRAL : Integer read GetOldID_CENTRALValue;
+    property OldID_CENTRALIsNull : Boolean read GetOldID_CENTRALIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1085,7 +1099,7 @@ type
 
   { IProveedoresDelta }
   IProveedoresDelta = interface(IProveedores)
-  ['{ACE0366B-9D24-41D6-85C7-E3547A9C8A00}']
+  ['{C5F6CB95-56A2-45F8-8FAA-96583A851386}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1576,7 +1590,7 @@ type
 
   { IEmpleadosDelta }
   IEmpleadosDelta = interface(IEmpleados)
-  ['{03BED208-4A2F-4FEC-8DEC-17B7B42E26FB}']
+  ['{5B767BC3-AC23-4949-859F-0132C28A588B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -2011,7 +2025,7 @@ type
 
   { IDireccionesContactoDelta }
   IDireccionesContactoDelta = interface(IDireccionesContacto)
-  ['{827E40FA-A98D-4415-8279-E4E2722B8283}']
+  ['{F8C98CDE-4ED6-4AF1-A2E8-C0D0B91DE1F2}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -2224,9 +2238,31 @@ type
 
   end;
 
+  { IDatasetDelta }
+  IDatasetDelta = interface(IDataset)
+  ['{FAE1EDC9-38FA-4FF5-8BD3-A5B8049BD57C}']
+    { Property getters and setters }
+
+    { Properties }
+  end;
+
+  { TDatasetBusinessProcessorRules }
+  TDatasetBusinessProcessorRules = class(TDABusinessProcessorRules, IDataset, IDatasetDelta)
+  private
+  protected
+    { Property getters and setters }
+
+    { Properties }
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
   { IClientesDescuentosDelta }
   IClientesDescuentosDelta = interface(IClientesDescuentos)
-  ['{71D637D2-7260-4E3B-A032-3B14E111DB5D}']
+  ['{11218B9B-48CE-4BC6-AAA9-DC6BB9E199E9}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -2308,7 +2344,7 @@ type
 
   { IGruposProveedorDelta }
   IGruposProveedorDelta = interface(IGruposProveedor)
-  ['{67BF5C15-49F8-4F82-B12D-35B4BDE24CD1}']
+  ['{DB8B8052-DE17-4DF7-8CEE-A9EB81010E8A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -2354,7 +2390,7 @@ type
 
   { IGruposEmpleadoDelta }
   IGruposEmpleadoDelta = interface(IGruposEmpleado)
-  ['{D958D28A-375F-41FE-BF1B-8BAACF918043}']
+  ['{46BDCC73-5F91-4B1D-8874-6CE45681F51F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -2400,7 +2436,7 @@ type
 
   { IContactos_RefreshDelta }
   IContactos_RefreshDelta = interface(IContactos_Refresh)
-  ['{8A0D16D4-A1C5-4092-8A1C-3A9D95E7ACC3}']
+  ['{D9A6D754-813C-4403-B1D7-8F7EE8F2D6DE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldNIF_CIFValue : String;
@@ -2675,7 +2711,7 @@ type
 
   { IContratosEmpleadosDelta }
   IContratosEmpleadosDelta = interface(IContratosEmpleados)
-  ['{30082156-01E8-4E96-9682-84B4A686E255}']
+  ['{61F8337F-C1D9-4A0B-A704-7542C2BB486C}']
     { Property getters and setters }
     function GetOldCONTRATOValue : String;
 
@@ -2709,7 +2745,7 @@ type
 
   { IDescripcionesProveedoresDelta }
   IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
-  ['{CC3917ED-2A08-4B34-BEA9-8AEE396EA140}']
+  ['{86FC6907-B4EC-4DFA-81FC-D9C258884E74}']
     { Property getters and setters }
     function GetOldDESCRIPCION_PROVEEDORValue : String;
 
@@ -2743,7 +2779,7 @@ type
 
   { IPersonalContactoDelta }
   IPersonalContactoDelta = interface(IPersonalContacto)
-  ['{822C191C-E325-466E-922F-52877636798B}']
+  ['{00D81B2A-8B63-41C2-B200-E5500E57CF69}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -2885,7 +2921,7 @@ type
 
   { IAgentes_ComisionesDelta }
   IAgentes_ComisionesDelta = interface(IAgentes_Comisiones)
-  ['{A495579D-F010-44B5-A3FF-4B495BD6880B}']
+  ['{857BF461-0321-4384-B23C-2B005A67D62A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_AGENTEValue : Integer;
@@ -2967,7 +3003,7 @@ type
 
   { IListaAnosObjetivosAlbDelta }
   IListaAnosObjetivosAlbDelta = interface(IListaAnosObjetivosAlb)
-  ['{43344310-35FB-4597-BEF9-27C0626D02E3}']
+  ['{6392B970-7086-44FC-B46F-4707959558BA}']
     { Property getters and setters }
     function GetOldANOValue : SmallInt;
 
@@ -3001,7 +3037,7 @@ type
 
   { IAgentesDelta }
   IAgentesDelta = interface(IAgentes)
-  ['{ABF2F800-8BC4-4643-A7E3-D103FEFE7EE8}']
+  ['{D9C51BA2-E17E-488D-921B-85246BC34612}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -3336,7 +3372,7 @@ type
 
   { IClientesDescuentosArticulosDelta }
   IClientesDescuentosArticulosDelta = interface(IClientesDescuentosArticulos)
-  ['{B7915CD1-E18A-45AE-99B7-7F8B05EF55C3}']
+  ['{6869CAC9-9FFC-47E4-8323-784F27753E19}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -3466,7 +3502,7 @@ type
 
   { IAgentes_Objetivos_albaranesDelta }
   IAgentes_Objetivos_albaranesDelta = interface(IAgentes_Objetivos_albaranes)
-  ['{5898D87F-C3C0-4B97-B601-5F4BBF856B3A}']
+  ['{F3F3A909-A95A-4888-BC4B-BFBC94135FCD}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_AGENTEValue : Integer;
@@ -3572,7 +3608,7 @@ type
 
   { IAgentes_Objetivos_facturasDelta }
   IAgentes_Objetivos_facturasDelta = interface(IAgentes_Objetivos_facturas)
-  ['{14BA0A5A-FB0E-484C-8643-77244063F85B}']
+  ['{878AC53F-72CA-46CB-9B8D-43CCC2093AE7}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_AGENTEValue : Integer;
@@ -3678,7 +3714,7 @@ type
 
   { IListaAnosObjetivosFacDelta }
   IListaAnosObjetivosFacDelta = interface(IListaAnosObjetivosFac)
-  ['{B60A8D3C-3583-4BCE-9166-4FFA2E430363}']
+  ['{C286E28E-4BD7-49D1-8B66-9344027C904A}']
     { Property getters and setters }
     function GetOldANOValue : SmallInt;
 
@@ -3712,7 +3748,7 @@ type
 
   { ITiposClienteDelta }
   ITiposClienteDelta = interface(ITiposCliente)
-  ['{0CA6260C-A8B6-45E4-B4E2-E58AD0F5A65B}']
+  ['{8F6952A9-CE70-45C0-96FD-56A744FD174B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -3756,6 +3792,569 @@ type
 
   end;
 
+  { IClientesSucursalesDelta }
+  IClientesSucursalesDelta = interface(IClientesSucursales)
+  ['{D03569D4-E025-4BF2-B711-527A63A38205}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldID_CATEGORIAValue : Integer;
+    function GetOldNIF_CIFValue : String;
+    function GetOldNOMBREValue : String;
+    function GetOldPERSONA_CONTACTOValue : String;
+    function GetOldCALLEValue : String;
+    function GetOldPOBLACIONValue : String;
+    function GetOldPROVINCIAValue : String;
+    function GetOldCODIGO_POSTALValue : String;
+    function GetOldTELEFONO_1Value : String;
+    function GetOldTELEFONO_2Value : String;
+    function GetOldMOVIL_1Value : String;
+    function GetOldMOVIL_2Value : String;
+    function GetOldFAXValue : String;
+    function GetOldEMAIL_1Value : String;
+    function GetOldEMAIL_2Value : String;
+    function GetOldPAGINA_WEBValue : String;
+    function GetOldNOTASValue : IROStrings;
+    function GetOldFECHA_ALTAValue : DateTime;
+    function GetOldFECHA_MODIFICACIONValue : DateTime;
+    function GetOldUSUARIOValue : String;
+    function GetOldID_EMPRESAValue : Integer;
+    function GetOldREFERENCIAValue : String;
+    function GetOldID_AGENTEValue : Integer;
+    function GetOldGRUPO_CLIENTEValue : String;
+    function GetOldNOMBRE_COMERCIALValue : String;
+    function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt;
+    function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt;
+    function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt;
+    function GetOldBLOQUEADOValue : SmallInt;
+    function GetOldAGENTEValue : String;
+    function GetOldRAPELValue : SmallInt;
+    function GetOldEMAIL_ADMINISTRACIONValue : String;
+    function GetOldREGIMEN_IVAValue : String;
+    function GetOldMOTIVO_BLOQUEOValue : String;
+    function GetOldRECARGO_EQUIVALENCIAValue : Integer;
+    function GetOldID_TIPO_IVAValue : Integer;
+    function GetOldID_FORMA_PAGOValue : Integer;
+    function GetOldTIENDA_WEBValue : SmallInt;
+    function GetOldCODIGO_ASIGNADOValue : String;
+    function GetOldDESCUENTOValue : Float;
+    function GetOldFELICITACIONValue : SmallInt;
+    function GetOldTIPO_CLIENTEValue : String;
+    function GetOldSEPAValue : SmallInt;
+    function GetOldID_CENTRALValue : Integer;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
+    property OldNIF_CIF : String read GetOldNIF_CIFValue;
+    property OldNOMBRE : String read GetOldNOMBREValue;
+    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+    property OldCALLE : String read GetOldCALLEValue;
+    property OldPOBLACION : String read GetOldPOBLACIONValue;
+    property OldPROVINCIA : String read GetOldPROVINCIAValue;
+    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
+    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
+    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
+    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
+    property OldFAX : String read GetOldFAXValue;
+    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
+    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
+    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
+    property OldNOTAS : IROStrings read GetOldNOTASValue;
+    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldUSUARIO : String read GetOldUSUARIOValue;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
+    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
+    property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
+    property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
+    property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
+    property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
+    property OldAGENTE : String read GetOldAGENTEValue;
+    property OldRAPEL : SmallInt read GetOldRAPELValue;
+    property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
+    property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
+    property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
+    property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
+    property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
+    property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+    property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
+    property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
+    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+    property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
+    property OldTIPO_CLIENTE : String read GetOldTIPO_CLIENTEValue;
+    property OldSEPA : SmallInt read GetOldSEPAValue;
+    property OldID_CENTRAL : Integer read GetOldID_CENTRALValue;
+  end;
+
+  { TClientesSucursalesBusinessProcessorRules }
+  TClientesSucursalesBusinessProcessorRules = class(TDABusinessProcessorRules, IClientesSucursales, IClientesSucursalesDelta)
+  private
+    f_NOTAS: IROStrings;
+    procedure NOTAS_OnChange(Sender: TObject);
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetIDIsNull: Boolean; virtual;
+    function GetOldIDValue: Integer; virtual;
+    function GetOldIDIsNull: Boolean; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetID_CATEGORIAValue: Integer; virtual;
+    function GetID_CATEGORIAIsNull: Boolean; virtual;
+    function GetOldID_CATEGORIAValue: Integer; virtual;
+    function GetOldID_CATEGORIAIsNull: Boolean; virtual;
+    procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
+    procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
+    function GetNIF_CIFValue: String; virtual;
+    function GetNIF_CIFIsNull: Boolean; virtual;
+    function GetOldNIF_CIFValue: String; virtual;
+    function GetOldNIF_CIFIsNull: Boolean; virtual;
+    procedure SetNIF_CIFValue(const aValue: String); virtual;
+    procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
+    function GetNOMBREValue: String; virtual;
+    function GetNOMBREIsNull: Boolean; virtual;
+    function GetOldNOMBREValue: String; virtual;
+    function GetOldNOMBREIsNull: Boolean; virtual;
+    procedure SetNOMBREValue(const aValue: String); virtual;
+    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+    function GetPERSONA_CONTACTOValue: String; virtual;
+    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
+    function GetOldPERSONA_CONTACTOValue: String; virtual;
+    function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
+    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
+    function GetCALLEValue: String; virtual;
+    function GetCALLEIsNull: Boolean; virtual;
+    function GetOldCALLEValue: String; virtual;
+    function GetOldCALLEIsNull: Boolean; virtual;
+    procedure SetCALLEValue(const aValue: String); virtual;
+    procedure SetCALLEIsNull(const aValue: Boolean); virtual;
+    function GetPOBLACIONValue: String; virtual;
+    function GetPOBLACIONIsNull: Boolean; virtual;
+    function GetOldPOBLACIONValue: String; virtual;
+    function GetOldPOBLACIONIsNull: Boolean; virtual;
+    procedure SetPOBLACIONValue(const aValue: String); virtual;
+    procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
+    function GetPROVINCIAValue: String; virtual;
+    function GetPROVINCIAIsNull: Boolean; virtual;
+    function GetOldPROVINCIAValue: String; virtual;
+    function GetOldPROVINCIAIsNull: Boolean; virtual;
+    procedure SetPROVINCIAValue(const aValue: String); virtual;
+    procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
+    function GetCODIGO_POSTALValue: String; virtual;
+    function GetCODIGO_POSTALIsNull: Boolean; virtual;
+    function GetOldCODIGO_POSTALValue: String; virtual;
+    function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
+    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
+    function GetTELEFONO_1Value: String; virtual;
+    function GetTELEFONO_1IsNull: Boolean; virtual;
+    function GetOldTELEFONO_1Value: String; virtual;
+    function GetOldTELEFONO_1IsNull: Boolean; virtual;
+    procedure SetTELEFONO_1Value(const aValue: String); virtual;
+    procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
+    function GetTELEFONO_2Value: String; virtual;
+    function GetTELEFONO_2IsNull: Boolean; virtual;
+    function GetOldTELEFONO_2Value: String; virtual;
+    function GetOldTELEFONO_2IsNull: Boolean; virtual;
+    procedure SetTELEFONO_2Value(const aValue: String); virtual;
+    procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
+    function GetMOVIL_1Value: String; virtual;
+    function GetMOVIL_1IsNull: Boolean; virtual;
+    function GetOldMOVIL_1Value: String; virtual;
+    function GetOldMOVIL_1IsNull: Boolean; virtual;
+    procedure SetMOVIL_1Value(const aValue: String); virtual;
+    procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
+    function GetMOVIL_2Value: String; virtual;
+    function GetMOVIL_2IsNull: Boolean; virtual;
+    function GetOldMOVIL_2Value: String; virtual;
+    function GetOldMOVIL_2IsNull: Boolean; virtual;
+    procedure SetMOVIL_2Value(const aValue: String); virtual;
+    procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
+    function GetFAXValue: String; virtual;
+    function GetFAXIsNull: Boolean; virtual;
+    function GetOldFAXValue: String; virtual;
+    function GetOldFAXIsNull: Boolean; virtual;
+    procedure SetFAXValue(const aValue: String); virtual;
+    procedure SetFAXIsNull(const aValue: Boolean); virtual;
+    function GetEMAIL_1Value: String; virtual;
+    function GetEMAIL_1IsNull: Boolean; virtual;
+    function GetOldEMAIL_1Value: String; virtual;
+    function GetOldEMAIL_1IsNull: Boolean; virtual;
+    procedure SetEMAIL_1Value(const aValue: String); virtual;
+    procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
+    function GetEMAIL_2Value: String; virtual;
+    function GetEMAIL_2IsNull: Boolean; virtual;
+    function GetOldEMAIL_2Value: String; virtual;
+    function GetOldEMAIL_2IsNull: Boolean; virtual;
+    procedure SetEMAIL_2Value(const aValue: String); virtual;
+    procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
+    function GetPAGINA_WEBValue: String; virtual;
+    function GetPAGINA_WEBIsNull: Boolean; virtual;
+    function GetOldPAGINA_WEBValue: String; virtual;
+    function GetOldPAGINA_WEBIsNull: Boolean; virtual;
+    procedure SetPAGINA_WEBValue(const aValue: String); virtual;
+    procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
+    function GetNOTASValue: IROStrings; virtual;
+    function GetNOTASIsNull: Boolean; virtual;
+    function GetOldNOTASValue: IROStrings; virtual;
+    function GetOldNOTASIsNull: Boolean; virtual;
+    procedure SetNOTASIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_ALTAValue: DateTime; virtual;
+    function GetFECHA_ALTAIsNull: Boolean; virtual;
+    function GetOldFECHA_ALTAValue: DateTime; virtual;
+    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetUSUARIOValue: String; virtual;
+    function GetUSUARIOIsNull: Boolean; virtual;
+    function GetOldUSUARIOValue: String; virtual;
+    function GetOldUSUARIOIsNull: Boolean; virtual;
+    procedure SetUSUARIOValue(const aValue: String); virtual;
+    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    function GetID_EMPRESAIsNull: Boolean; virtual;
+    function GetOldID_EMPRESAValue: Integer; virtual;
+    function GetOldID_EMPRESAIsNull: Boolean; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    function GetREFERENCIAIsNull: Boolean; virtual;
+    function GetOldREFERENCIAValue: String; virtual;
+    function GetOldREFERENCIAIsNull: Boolean; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    function GetID_AGENTEIsNull: Boolean; virtual;
+    function GetOldID_AGENTEValue: Integer; virtual;
+    function GetOldID_AGENTEIsNull: Boolean; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetGRUPO_CLIENTEValue: String; virtual;
+    function GetGRUPO_CLIENTEIsNull: Boolean; virtual;
+    function GetOldGRUPO_CLIENTEValue: String; virtual;
+    function GetOldGRUPO_CLIENTEIsNull: Boolean; virtual;
+    procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
+    procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_COMERCIALValue: String; virtual;
+    function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    function GetOldNOMBRE_COMERCIALValue: String; virtual;
+    function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
+    function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
+    function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
+    function GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
+    function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
+    procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual;
+    procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
+    function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
+    function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
+    function GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
+    function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
+    procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual;
+    procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
+    function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
+    function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
+    function GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
+    function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
+    procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
+    procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
+    function GetBLOQUEADOValue: SmallInt; virtual;
+    function GetBLOQUEADOIsNull: Boolean; virtual;
+    function GetOldBLOQUEADOValue: SmallInt; virtual;
+    function GetOldBLOQUEADOIsNull: Boolean; virtual;
+    procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
+    procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual;
+    function GetAGENTEValue: String; virtual;
+    function GetAGENTEIsNull: Boolean; virtual;
+    function GetOldAGENTEValue: String; virtual;
+    function GetOldAGENTEIsNull: Boolean; virtual;
+    procedure SetAGENTEValue(const aValue: String); virtual;
+    procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
+    function GetRAPELValue: SmallInt; virtual;
+    function GetRAPELIsNull: Boolean; virtual;
+    function GetOldRAPELValue: SmallInt; virtual;
+    function GetOldRAPELIsNull: Boolean; virtual;
+    procedure SetRAPELValue(const aValue: SmallInt); virtual;
+    procedure SetRAPELIsNull(const aValue: Boolean); virtual;
+    function GetEMAIL_ADMINISTRACIONValue: String; virtual;
+    function GetEMAIL_ADMINISTRACIONIsNull: Boolean; virtual;
+    function GetOldEMAIL_ADMINISTRACIONValue: String; virtual;
+    function GetOldEMAIL_ADMINISTRACIONIsNull: Boolean; virtual;
+    procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual;
+    procedure SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); virtual;
+    function GetREGIMEN_IVAValue: String; virtual;
+    function GetREGIMEN_IVAIsNull: Boolean; virtual;
+    function GetOldREGIMEN_IVAValue: String; virtual;
+    function GetOldREGIMEN_IVAIsNull: Boolean; virtual;
+    procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
+    procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual;
+    function GetMOTIVO_BLOQUEOValue: String; virtual;
+    function GetMOTIVO_BLOQUEOIsNull: Boolean; virtual;
+    function GetOldMOTIVO_BLOQUEOValue: String; virtual;
+    function GetOldMOTIVO_BLOQUEOIsNull: Boolean; virtual;
+    procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual;
+    procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); virtual;
+    function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
+    function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
+    function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual;
+    function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
+    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
+    procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
+    function GetID_TIPO_IVAValue: Integer; virtual;
+    function GetID_TIPO_IVAIsNull: Boolean; virtual;
+    function GetOldID_TIPO_IVAValue: Integer; virtual;
+    function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
+    procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
+    procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
+    function GetID_FORMA_PAGOValue: Integer; virtual;
+    function GetID_FORMA_PAGOIsNull: Boolean; virtual;
+    function GetOldID_FORMA_PAGOValue: Integer; virtual;
+    function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
+    procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+    procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+    function GetTIENDA_WEBValue: SmallInt; virtual;
+    function GetTIENDA_WEBIsNull: Boolean; virtual;
+    function GetOldTIENDA_WEBValue: SmallInt; virtual;
+    function GetOldTIENDA_WEBIsNull: Boolean; virtual;
+    procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
+    procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
+    function GetCODIGO_ASIGNADOValue: String; virtual;
+    function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
+    function GetOldCODIGO_ASIGNADOValue: String; virtual;
+    function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual;
+    procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
+    procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
+    function GetDESCUENTOValue: Float; virtual;
+    function GetDESCUENTOIsNull: Boolean; virtual;
+    function GetOldDESCUENTOValue: Float; virtual;
+    function GetOldDESCUENTOIsNull: Boolean; virtual;
+    procedure SetDESCUENTOValue(const aValue: Float); virtual;
+    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+    function GetFELICITACIONValue: SmallInt; virtual;
+    function GetFELICITACIONIsNull: Boolean; virtual;
+    function GetOldFELICITACIONValue: SmallInt; virtual;
+    function GetOldFELICITACIONIsNull: Boolean; virtual;
+    procedure SetFELICITACIONValue(const aValue: SmallInt); virtual;
+    procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual;
+    function GetTIPO_CLIENTEValue: String; virtual;
+    function GetTIPO_CLIENTEIsNull: Boolean; virtual;
+    function GetOldTIPO_CLIENTEValue: String; virtual;
+    function GetOldTIPO_CLIENTEIsNull: Boolean; virtual;
+    procedure SetTIPO_CLIENTEValue(const aValue: String); virtual;
+    procedure SetTIPO_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetSEPAValue: SmallInt; virtual;
+    function GetSEPAIsNull: Boolean; virtual;
+    function GetOldSEPAValue: SmallInt; virtual;
+    function GetOldSEPAIsNull: Boolean; virtual;
+    procedure SetSEPAValue(const aValue: SmallInt); virtual;
+    procedure SetSEPAIsNull(const aValue: Boolean); virtual;
+    function GetID_CENTRALValue: Integer; virtual;
+    function GetID_CENTRALIsNull: Boolean; virtual;
+    function GetOldID_CENTRALValue: Integer; virtual;
+    function GetOldID_CENTRALIsNull: Boolean; virtual;
+    procedure SetID_CENTRALValue(const aValue: Integer); virtual;
+    procedure SetID_CENTRALIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID : Integer read GetIDValue write SetIDValue;
+    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+    property OldID : Integer read GetOldIDValue;
+    property OldIDIsNull : Boolean read GetOldIDIsNull;
+    property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+    property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
+    property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
+    property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
+    property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
+    property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
+    property OldNIF_CIF : String read GetOldNIF_CIFValue;
+    property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
+    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+    property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+    property OldNOMBRE : String read GetOldNOMBREValue;
+    property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
+    property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+    property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+    property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+    property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
+    property CALLE : String read GetCALLEValue write SetCALLEValue;
+    property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
+    property OldCALLE : String read GetOldCALLEValue;
+    property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
+    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
+    property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+    property OldPOBLACION : String read GetOldPOBLACIONValue;
+    property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
+    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
+    property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+    property OldPROVINCIA : String read GetOldPROVINCIAValue;
+    property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
+    property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+    property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+    property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+    property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
+    property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+    property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
+    property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
+    property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
+    property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+    property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
+    property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
+    property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
+    property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
+    property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
+    property OldMOVIL_1 : String read GetOldMOVIL_1Value;
+    property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
+    property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
+    property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
+    property OldMOVIL_2 : String read GetOldMOVIL_2Value;
+    property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
+    property FAX : String read GetFAXValue write SetFAXValue;
+    property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
+    property OldFAX : String read GetOldFAXValue;
+    property OldFAXIsNull : Boolean read GetOldFAXIsNull;
+    property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
+    property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
+    property OldEMAIL_1 : String read GetOldEMAIL_1Value;
+    property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
+    property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
+    property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
+    property OldEMAIL_2 : String read GetOldEMAIL_2Value;
+    property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
+    property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
+    property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
+    property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
+    property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
+    property NOTAS : IROStrings read GetNOTASValue;
+    property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
+    property OldNOTAS : IROStrings read GetOldNOTASValue;
+    property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
+    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
+    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+    property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+    property OldUSUARIO : String read GetOldUSUARIOValue;
+    property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
+    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
+    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+    property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
+    property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
+    property GRUPO_CLIENTEIsNull : Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
+    property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
+    property OldGRUPO_CLIENTEIsNull : Boolean read GetOldGRUPO_CLIENTEIsNull;
+    property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
+    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
+    property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
+    property VENCIMIENTO_FACTURAS_1 : SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
+    property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
+    property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
+    property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull;
+    property VENCIMIENTO_FACTURAS_2 : SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
+    property VENCIMIENTO_FACTURAS_2IsNull : Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
+    property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
+    property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull;
+    property VENCIMIENTO_FACTURAS_3 : SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
+    property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
+    property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
+    property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;
+    property BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
+    property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
+    property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
+    property OldBLOQUEADOIsNull : Boolean read GetOldBLOQUEADOIsNull;
+    property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
+    property AGENTEIsNull : Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
+    property OldAGENTE : String read GetOldAGENTEValue;
+    property OldAGENTEIsNull : Boolean read GetOldAGENTEIsNull;
+    property RAPEL : SmallInt read GetRAPELValue write SetRAPELValue;
+    property RAPELIsNull : Boolean read GetRAPELIsNull write SetRAPELIsNull;
+    property OldRAPEL : SmallInt read GetOldRAPELValue;
+    property OldRAPELIsNull : Boolean read GetOldRAPELIsNull;
+    property EMAIL_ADMINISTRACION : String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
+    property EMAIL_ADMINISTRACIONIsNull : Boolean read GetEMAIL_ADMINISTRACIONIsNull write SetEMAIL_ADMINISTRACIONIsNull;
+    property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
+    property OldEMAIL_ADMINISTRACIONIsNull : Boolean read GetOldEMAIL_ADMINISTRACIONIsNull;
+    property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
+    property REGIMEN_IVAIsNull : Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
+    property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
+    property OldREGIMEN_IVAIsNull : Boolean read GetOldREGIMEN_IVAIsNull;
+    property MOTIVO_BLOQUEO : String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
+    property MOTIVO_BLOQUEOIsNull : Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull;
+    property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
+    property OldMOTIVO_BLOQUEOIsNull : Boolean read GetOldMOTIVO_BLOQUEOIsNull;
+    property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+    property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
+    property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
+    property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
+    property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+    property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+    property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
+    property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
+    property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+    property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+    property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+    property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
+    property TIENDA_WEB : SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+    property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+    property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
+    property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
+    property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
+    property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
+    property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
+    property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
+    property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
+    property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+    property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
+    property FELICITACION : SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
+    property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
+    property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
+    property OldFELICITACIONIsNull : Boolean read GetOldFELICITACIONIsNull;
+    property TIPO_CLIENTE : String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
+    property TIPO_CLIENTEIsNull : Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull;
+    property OldTIPO_CLIENTE : String read GetOldTIPO_CLIENTEValue;
+    property OldTIPO_CLIENTEIsNull : Boolean read GetOldTIPO_CLIENTEIsNull;
+    property SEPA : SmallInt read GetSEPAValue write SetSEPAValue;
+    property SEPAIsNull : Boolean read GetSEPAIsNull write SetSEPAIsNull;
+    property OldSEPA : SmallInt read GetOldSEPAValue;
+    property OldSEPAIsNull : Boolean read GetOldSEPAIsNull;
+    property ID_CENTRAL : Integer read GetID_CENTRALValue write SetID_CENTRALValue;
+    property ID_CENTRALIsNull : Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull;
+    property OldID_CENTRAL : Integer read GetOldID_CENTRALValue;
+    property OldID_CENTRALIsNull : Boolean read GetOldID_CENTRALIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
 implementation
 
 uses
@@ -6304,6 +6903,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSEPA] := Null;
 end;
 
+function TClientesBusinessProcessorRules.GetID_CENTRALValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CENTRAL];
+end;
+
+function TClientesBusinessProcessorRules.GetID_CENTRALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CENTRAL]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldID_CENTRALValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CENTRAL];
+end;
+
+function TClientesBusinessProcessorRules.GetOldID_CENTRALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CENTRAL]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetID_CENTRALValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CENTRAL] := aValue;
+end;
+
+procedure TClientesBusinessProcessorRules.SetID_CENTRALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CENTRAL] := Null;
+end;
+
 
 { TProveedoresBusinessProcessorRules }
 constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -9148,6 +9778,18 @@ begin
 end;
 
 
+{ TDatasetBusinessProcessorRules }
+constructor TDatasetBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TDatasetBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+
 { TClientesDescuentosBusinessProcessorRules }
 constructor TClientesDescuentosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
 begin
@@ -12444,6 +13086,1421 @@ begin
 end;
 
 
+{ TClientesSucursalesBusinessProcessorRules }
+constructor TClientesSucursalesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+var
+  StrList: TStringList;
+begin
+  inherited;
+
+  StrList := TStringList.Create;
+  StrList.OnChange := NOTAS_OnChange;
+  f_NOTAS := NewROStrings(StrList,True);
+end;
+
+destructor TClientesSucursalesBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOTAS] := TStringList(Sender).Text;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CATEGORIA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CATEGORIA]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_CATEGORIA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_CATEGORIA]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CATEGORIA] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CATEGORIA] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetNIF_CIFValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNIF_CIF];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNIF_CIF]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldNIF_CIFValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNIF_CIF];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNIF_CIF]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNIF_CIF] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNIF_CIF] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetNOMBREValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNOMBRE];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNOMBRE]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPERSONA_CONTACTO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPERSONA_CONTACTO]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPERSONA_CONTACTO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPERSONA_CONTACTO]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPERSONA_CONTACTO] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPERSONA_CONTACTO] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetCALLEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCALLE];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetCALLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCALLE]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldCALLEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesCALLE];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesCALLE]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetCALLEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCALLE] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCALLE] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetPOBLACIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPOBLACION];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPOBLACION]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldPOBLACIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPOBLACION];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPOBLACION]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPOBLACION] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPOBLACION] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetPROVINCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPROVINCIA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPROVINCIA]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldPROVINCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPROVINCIA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPROVINCIA]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPROVINCIA] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPROVINCIA] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_POSTAL];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_POSTAL]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesCODIGO_POSTAL];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesCODIGO_POSTAL]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_POSTAL] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_POSTAL] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetTELEFONO_1Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_1];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_1]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldTELEFONO_1Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTELEFONO_1];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTELEFONO_1]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_1] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_1] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetTELEFONO_2Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_2];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_2]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldTELEFONO_2Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTELEFONO_2];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTELEFONO_2]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_2] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_2] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetMOVIL_1Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_1];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_1]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldMOVIL_1Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesMOVIL_1];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesMOVIL_1]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_1] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_1] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetMOVIL_2Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_2];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_2]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldMOVIL_2Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesMOVIL_2];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesMOVIL_2]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_2] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_2] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetFAXValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFAX];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetFAXIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFAX]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldFAXValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFAX];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldFAXIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFAX]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetFAXValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFAX] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFAX] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetEMAIL_1Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_1];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_1]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldEMAIL_1Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesEMAIL_1];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesEMAIL_1]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_1] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_1] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetEMAIL_2Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_2];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_2]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldEMAIL_2Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesEMAIL_2];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesEMAIL_2]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_2] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_2] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetPAGINA_WEBValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPAGINA_WEB];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPAGINA_WEB]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPAGINA_WEB];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPAGINA_WEB]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPAGINA_WEB] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPAGINA_WEB] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetNOTASValue: IROStrings;
+begin
+  result := f_NOTAS;
+  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOTAS];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetNOTASIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOTAS]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldNOTASValue: IROStrings;
+begin
+  result := NewROStrings();
+  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNOTAS];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNOTAS]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOTAS] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_ALTA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_ALTA]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFECHA_ALTA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFECHA_ALTA]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_ALTA] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_ALTA] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_MODIFICACION];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_MODIFICACION]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFECHA_MODIFICACION];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFECHA_MODIFICACION]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_MODIFICACION] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesUSUARIO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesUSUARIO]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesUSUARIO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesUSUARIO]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesUSUARIO] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesUSUARIO] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_EMPRESA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_EMPRESA]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_EMPRESA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_EMPRESA]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_EMPRESA] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_EMPRESA] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREFERENCIA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREFERENCIA]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesREFERENCIA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesREFERENCIA]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREFERENCIA] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREFERENCIA] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_AGENTE];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_AGENTE]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_AGENTE];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_AGENTE]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_AGENTE] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_AGENTE] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesGRUPO_CLIENTE];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetGRUPO_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesGRUPO_CLIENTE]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldGRUPO_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesGRUPO_CLIENTE];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldGRUPO_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesGRUPO_CLIENTE]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetGRUPO_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesGRUPO_CLIENTE] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetGRUPO_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesGRUPO_CLIENTE] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE_COMERCIAL];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE_COMERCIAL]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNOMBRE_COMERCIAL];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNOMBRE_COMERCIAL]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE_COMERCIAL] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE_COMERCIAL] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesBLOQUEADO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetBLOQUEADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesBLOQUEADO]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldBLOQUEADOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesBLOQUEADO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldBLOQUEADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesBLOQUEADO]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetBLOQUEADOValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesBLOQUEADO] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetBLOQUEADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesBLOQUEADO] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetAGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesAGENTE];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetAGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesAGENTE]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldAGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesAGENTE];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldAGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesAGENTE]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetAGENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesAGENTE] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetAGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesAGENTE] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetRAPELValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRAPEL];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetRAPELIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRAPEL]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldRAPELValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesRAPEL];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldRAPELIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesRAPEL]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetRAPELValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRAPEL] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetRAPELIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRAPEL] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetEMAIL_ADMINISTRACIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_ADMINISTRACION];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetEMAIL_ADMINISTRACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_ADMINISTRACION]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesEMAIL_ADMINISTRACION];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesEMAIL_ADMINISTRACION]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_ADMINISTRACION] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_ADMINISTRACION] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetREGIMEN_IVAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREGIMEN_IVA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetREGIMEN_IVAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREGIMEN_IVA]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldREGIMEN_IVAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesREGIMEN_IVA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldREGIMEN_IVAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesREGIMEN_IVA]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREGIMEN_IVA] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetREGIMEN_IVAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREGIMEN_IVA] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetMOTIVO_BLOQUEOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOTIVO_BLOQUEO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetMOTIVO_BLOQUEOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOTIVO_BLOQUEO]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesMOTIVO_BLOQUEO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesMOTIVO_BLOQUEO]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetMOTIVO_BLOQUEOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOTIVO_BLOQUEO] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOTIVO_BLOQUEO] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRECARGO_EQUIVALENCIA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRECARGO_EQUIVALENCIA]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesRECARGO_EQUIVALENCIA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesRECARGO_EQUIVALENCIA]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRECARGO_EQUIVALENCIA] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRECARGO_EQUIVALENCIA] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_TIPO_IVA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_TIPO_IVA]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_TIPO_IVA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_TIPO_IVA]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_TIPO_IVA] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_TIPO_IVA] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_FORMA_PAGO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_FORMA_PAGO]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_FORMA_PAGO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_FORMA_PAGO]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_FORMA_PAGO] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_FORMA_PAGO] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetTIENDA_WEBValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIENDA_WEB];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIENDA_WEB]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTIENDA_WEB];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTIENDA_WEB]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIENDA_WEB] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIENDA_WEB] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_ASIGNADO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetCODIGO_ASIGNADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_ASIGNADO]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesCODIGO_ASIGNADO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldCODIGO_ASIGNADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesCODIGO_ASIGNADO]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_ASIGNADO] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_ASIGNADO] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetDESCUENTOValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesDESCUENTO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesDESCUENTO]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldDESCUENTOValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesDESCUENTO];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesDESCUENTO]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesDESCUENTO] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesDESCUENTO] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetFELICITACIONValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFELICITACION];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetFELICITACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFELICITACION]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldFELICITACIONValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFELICITACION];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldFELICITACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFELICITACION]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetFELICITACIONValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFELICITACION] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetFELICITACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFELICITACION] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetTIPO_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIPO_CLIENTE];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetTIPO_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIPO_CLIENTE]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldTIPO_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTIPO_CLIENTE];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldTIPO_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTIPO_CLIENTE]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetTIPO_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIPO_CLIENTE] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetTIPO_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIPO_CLIENTE] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetSEPAValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesSEPA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetSEPAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesSEPA]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldSEPAValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesSEPA];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldSEPAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesSEPA]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetSEPAValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesSEPA] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetSEPAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesSEPA] := Null;
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetID_CENTRALValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CENTRAL];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetID_CENTRALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CENTRAL]);
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldID_CENTRALValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_CENTRAL];
+end;
+
+function TClientesSucursalesBusinessProcessorRules.GetOldID_CENTRALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_CENTRAL]);
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetID_CENTRALValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CENTRAL] := aValue;
+end;
+
+procedure TClientesSucursalesBusinessProcessorRules.SetID_CENTRALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CENTRAL] := Null;
+end;
+
+
 initialization
   RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
@@ -12452,6 +14509,7 @@ initialization
   RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_EmpleadosDelta, TEmpleadosBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_DireccionesContactoDelta, TDireccionesContactoBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_DatasetDelta, TDatasetBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_ClientesDescuentosDelta, TClientesDescuentosBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_GruposProveedorDelta, TGruposProveedorBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_GruposEmpleadoDelta, TGruposEmpleadoBusinessProcessorRules);
@@ -12467,5 +14525,6 @@ initialization
   RegisterBusinessProcessorRules(RID_Agentes_Objetivos_facturasDelta, TAgentes_Objetivos_facturasBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_ListaAnosObjetivosFacDelta, TListaAnosObjetivosFacBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_TiposClienteDelta, TTiposClienteBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_ClientesSucursalesDelta, TClientesSucursalesBusinessProcessorRules);
 
 end.
diff --git a/Source/Modulos/Contactos/Model/uBizClientesDescuentos.pas b/Source/Modulos/Contactos/Model/uBizClientesDescuentos.pas
index 94e25fd..e4ff6ff 100644
--- a/Source/Modulos/Contactos/Model/uBizClientesDescuentos.pas
+++ b/Source/Modulos/Contactos/Model/uBizClientesDescuentos.pas
@@ -15,8 +15,6 @@ type
   end;
 
   TBizClienteDescuentos = class(TClientesDescuentosDataTableRules, IBizClienteDescuentos)
-  private
-    ContIdAux: Integer;
   protected
     procedure BeforeInsert(Sender: TDADataTable); override;
   end;
diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas
index 1b6cca7..1136e47 100644
--- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizClientesServer.pas
@@ -3,7 +3,7 @@ unit uBizClientesServer;
 interface
 
 uses
-  schContactosServer_Intf, uDAInterfaces, uDADelta,
+  schContactosServer_Intf, uDAInterfaces, uDADelta, SysUtils,
   uDADataTable, uDABusinessProcessor, uBizContactosServer;
 
 const
@@ -20,10 +20,11 @@ type
     procedure Delete_Datos_Contacto(aChange: TDADeltaChange); override;
   end;
 
+
 implementation
 
 uses
-  uDataModuleServer, uDAClasses,
+  uDataModuleServer, uDAClasses, Dialogs,
   schContactosClient_Intf, uBusinessUtils;
 
 const
@@ -101,7 +102,8 @@ begin
       ParamByName('FELICITACION').Value := aChange.NewValueByName[fld_ClientesFELICITACION];
       ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION];
       ParamByName('TIPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesTIPO_CLIENTE];
-      ParamByName('SEPA').Value := aChange.NewValueByName[fld_ClientesSEPA];            
+      ParamByName('SEPA').Value := aChange.NewValueByName[fld_ClientesSEPA];
+      ParamByName('ID_CENTRAL').Value := aChange.NewValueByName[fld_ClientesID_CENTRAL];            
       Execute;
     end;
   finally
@@ -147,7 +149,8 @@ begin
       ParamByName('FELICITACION').Value := aChange.NewValueByName[fld_ClientesFELICITACION];
       ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION];
       ParamByName('TIPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesTIPO_CLIENTE];
-      ParamByName('SEPA').Value := aChange.NewValueByName[fld_ClientesSEPA];            
+      ParamByName('SEPA').Value := aChange.NewValueByName[fld_ClientesSEPA];
+      ParamByName('ID_CENTRAL').Value := aChange.NewValueByName[fld_ClientesID_CENTRAL];                  
       Execute;
     end;
   finally
diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas
index c4eaa12..b26d553 100644
--- a/Source/Modulos/Contactos/Model/uBizContactos.pas
+++ b/Source/Modulos/Contactos/Model/uBizContactos.pas
@@ -77,6 +77,12 @@ type
     function GetSEPAValue: Integer;
     procedure SetSEPAValue(const aValue: Integer);
 
+    function GetID_CENTRALValue: Integer;
+    procedure SetID_CENTRALValue(const aValue: Integer);
+
+    function GetID_CENTRALIsNull: Boolean;
+    procedure SetID_CENTRALIsNull(const aValue: Boolean);
+
     function GetMOTIVO_BLOQUEOValue: String;
     procedure SetMOTIVO_BLOQUEOValue(const aValue: String);
     
@@ -112,6 +118,12 @@ type
     function GetEMAIL_ADMINISTRACIONValue: String;
     procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
 
+    procedure SetSucursales(AValue : IBizCliente);
+    function GetSucursales : IBizCliente;
+    property Sucursales : IBizCliente read GetSucursales
+      write SetSucursales;
+
+
     property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
     property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
     property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
@@ -129,6 +141,8 @@ type
     property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue;
     property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
     property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
+    property ID_CENTRAL: Integer read GetID_CENTRALValue write SetID_CENTRALValue;
+    property ID_CENTRALIsNull: Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull;
   end;
 
   IBizProveedor = interface (IBizContacto)
@@ -309,6 +323,9 @@ type
     FDescuentos : IBizClienteDescuentos;
     FDescuentosLink : TDADataSource;
 
+    FSucursales : IBizCliente;
+    FSucursalesLink : TDADataSource;
+
     FDescuentosArt : IBizClienteDescuentosArticulos;
     FDescuentosArtLink : TDADataSource;
 
@@ -369,12 +386,22 @@ type
     function GetEMAIL_ADMINISTRACIONValue: String;
     procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
 
+    function GetID_CENTRALValue: Integer;
+    procedure SetID_CENTRALValue(const aValue: Integer);
+
+    function GetID_CENTRALIsNull: Boolean;
+    procedure SetID_CENTRALIsNull(const aValue: Boolean);
+
+    procedure SetSucursales(AValue : IBizCliente);
+    function GetSucursales : IBizCliente;
+  published
+
   public
     procedure IniciarValoresContactoNuevo; override;
     constructor Create(aDataTable: TDADataTable); override;
     destructor Destroy; override;
     property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
-    property DescuentosArt: IBizClienteDescuentosArticulos read GetDescuentosArt write SetDescuentosArt;    
+    property DescuentosArt: IBizClienteDescuentosArticulos read GetDescuentosArt write SetDescuentosArt;
     property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
     property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
     property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
@@ -392,6 +419,11 @@ type
     property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue;
     property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
     property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
+    property ID_CENTRAL: Integer read GetID_CENTRALValue write SetID_CENTRALValue;
+    property ID_CENTRALIsNull: Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull;
+
+    property Sucursales : IBizCliente read GetSucursales write SetSucursales;
+
   end;
 
 
@@ -647,14 +679,23 @@ begin
   FDescuentosArt := NIL;
   FDescuentosArtLink := TDADataSource.Create(NIL);
   FDescuentosArtLink.DataTable := aDataTable;
+
+  FSucursales := NIL;
+  FSucursalesLink := TDADataSource.Create(NIL);
+  FSucursalesLink.DataTable := aDataTable;
 end;
 
 destructor TBizCliente.Destroy;
 begin
   FDescuentos := NIL;
   FreeAndNIL(FDescuentosLink);
+
   FDescuentosArt := NIL;
   FreeAndNIL(FDescuentosArtLink);
+
+  FSucursales := NIL;
+  FreeAndNIL(FSucursalesLink);
+
   inherited;
 end;
 
@@ -693,6 +734,16 @@ begin
   result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString;
 end;
 
+function TBizCliente.GetID_CENTRALIsNull: Boolean;
+begin
+  result := DataTable.Fields[idx_ClientesID_CENTRAL].IsNull;
+end;
+
+function TBizCliente.GetID_CENTRALValue: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesID_CENTRAL].AsInteger;
+end;
+
 function TBizCliente.GetID_FORMA_PAGOValue: Integer;
 begin
   result := DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger;
@@ -750,6 +801,17 @@ begin
   DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue;
 end;
 
+procedure TBizCliente.SetID_CENTRALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesID_CENTRAL].AsVariant := Null;
+end;
+
+procedure TBizCliente.SetID_CENTRALValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ClientesID_CENTRAL].AsInteger := aValue;
+end;
+
 procedure TBizCliente.SetID_FORMA_PAGOValue(const aValue: Integer);
 begin
   DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger := aValue;
@@ -785,6 +847,11 @@ begin
   result := DataTable.Fields[idx_ClientesSEPA].AsInteger;
 end;
 
+function TBizCliente.GetSucursales: IBizCliente;
+begin
+  result := FSucursales;
+end;
+
 function TBizCliente.GetTIENDA_WEBValue: Integer;
 begin
   result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger;
@@ -825,6 +892,12 @@ begin
   DataTable.Fields[idx_ClientesSEPA].AsInteger := aValue;
 end;
 
+procedure TBizCliente.SetSucursales(AValue: IBizCliente);
+begin
+  FSucursales := AValue;
+  EnlazarMaestroDetalle(FSucursalesLink, FSucursales);
+end;
+
 procedure TBizCliente.SetTIENDA_WEBValue(const aValue: Integer);
 begin
   DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue;
diff --git a/Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj b/Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj
index 7c36759..36d9c0d 100644
--- a/Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj
+++ b/Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj
@@ -41,7 +41,7 @@
     <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">Contactos_plugin.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">Contactos_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
@@ -58,12 +58,13 @@
     <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
     <DCCReference Include="uPluginContactos.pas">
       <Form>PluginContactos</Form>
+      <DesignClass>TDataModule</DesignClass>
     </DCCReference>
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6006
+EurekaLog Version=6011
 Activate=1
 Activate Handle=1
 Save Log File=1
diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
index 0b8609d..7c5e561 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
@@ -7,7 +7,7 @@ object srvContactos: TsrvContactos
   ExportedDataTables = <>
   BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
   Height = 347
-  Width = 444
+  Width = 696
   object schContactos: TDASchema
     ConnectionManager = dmServer.ConnectionManager
     DataDictionary = DataDictionary
@@ -589,6 +589,10 @@ object srvContactos: TsrvContactos
               item
                 DatasetField = 'SEPA'
                 TableField = 'SEPA'
+              end
+              item
+                DatasetField = 'ID_CENTRAL'
+                TableField = 'ID_CENTRAL'
               end>
           end>
         Name = 'Clientes'
@@ -705,10 +709,12 @@ object srvContactos: TsrvContactos
           item
             Name = 'FECHA_ALTA'
             DataType = datDateTime
+            DictionaryEntry = 'Clientes_FECHA_ALTA'
           end
           item
             Name = 'FECHA_MODIFICACION'
             DataType = datDateTime
+            DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
           end
           item
             Name = 'USUARIO'
@@ -731,6 +737,7 @@ object srvContactos: TsrvContactos
           item
             Name = 'ID_AGENTE'
             DataType = datInteger
+            DictionaryEntry = 'Clientes_ID_AGENTE'
           end
           item
             Name = 'GRUPO_CLIENTE'
@@ -747,14 +754,17 @@ object srvContactos: TsrvContactos
           item
             Name = 'VENCIMIENTO_FACTURAS_1'
             DataType = datSmallInt
+            DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_1'
           end
           item
             Name = 'VENCIMIENTO_FACTURAS_2'
             DataType = datSmallInt
+            DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_2'
           end
           item
             Name = 'VENCIMIENTO_FACTURAS_3'
             DataType = datSmallInt
+            DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_3'
           end
           item
             Name = 'BLOQUEADO'
@@ -765,15 +775,18 @@ object srvContactos: TsrvContactos
             Name = 'AGENTE'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'Clientes_AGENTE'
           end
           item
             Name = 'RAPEL'
             DataType = datSmallInt
+            DictionaryEntry = 'Clientes_RAPEL'
           end
           item
             Name = 'EMAIL_ADMINISTRACION'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'Clientes_EMAIL_ADMINISTRACION'
           end
           item
             Name = 'REGIMEN_IVA'
@@ -811,10 +824,12 @@ object srvContactos: TsrvContactos
             Name = 'CODIGO_ASIGNADO'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
           end
           item
             Name = 'DESCUENTO'
             DataType = datFloat
+            DictionaryEntry = 'Clientes_DESCUENTO'
           end
           item
             Name = 'FELICITACION'
@@ -825,10 +840,17 @@ object srvContactos: TsrvContactos
             Name = 'TIPO_CLIENTE'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'Clientes_TIPO_CLIENTE'
           end
           item
             Name = 'SEPA'
             DataType = datSmallInt
+            DictionaryEntry = 'Clientes_SEPA'
+          end
+          item
+            Name = 'ID_CENTRAL'
+            DataType = datInteger
+            DictionaryEntry = 'Clientes_ID_CENTRAL'
           end>
       end
       item
@@ -1725,6 +1747,12 @@ object srvContactos: TsrvContactos
             DataType = datDateTime
           end>
       end
+      item
+        Params = <>
+        Statements = <>
+        Name = 'Dataset'
+        Fields = <>
+      end
       item
         Params = <>
         Statements = <
@@ -2938,6 +2966,450 @@ object srvContactos: TsrvContactos
             Size = 255
             DictionaryEntry = 'TiposCliente_DESCRIPCION'
           end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'V_CLIENTES'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'ID_CATEGORIA'
+                TableField = 'ID_CATEGORIA'
+              end
+              item
+                DatasetField = 'NIF_CIF'
+                TableField = 'NIF_CIF'
+              end
+              item
+                DatasetField = 'NOMBRE'
+                TableField = 'NOMBRE'
+              end
+              item
+                DatasetField = 'PERSONA_CONTACTO'
+                TableField = 'PERSONA_CONTACTO'
+              end
+              item
+                DatasetField = 'CALLE'
+                TableField = 'CALLE'
+              end
+              item
+                DatasetField = 'POBLACION'
+                TableField = 'POBLACION'
+              end
+              item
+                DatasetField = 'PROVINCIA'
+                TableField = 'PROVINCIA'
+              end
+              item
+                DatasetField = 'CODIGO_POSTAL'
+                TableField = 'CODIGO_POSTAL'
+              end
+              item
+                DatasetField = 'TELEFONO_1'
+                TableField = 'TELEFONO_1'
+              end
+              item
+                DatasetField = 'TELEFONO_2'
+                TableField = 'TELEFONO_2'
+              end
+              item
+                DatasetField = 'MOVIL_1'
+                TableField = 'MOVIL_1'
+              end
+              item
+                DatasetField = 'MOVIL_2'
+                TableField = 'MOVIL_2'
+              end
+              item
+                DatasetField = 'FAX'
+                TableField = 'FAX'
+              end
+              item
+                DatasetField = 'EMAIL_1'
+                TableField = 'EMAIL_1'
+              end
+              item
+                DatasetField = 'EMAIL_2'
+                TableField = 'EMAIL_2'
+              end
+              item
+                DatasetField = 'PAGINA_WEB'
+                TableField = 'PAGINA_WEB'
+              end
+              item
+                DatasetField = 'NOTAS'
+                TableField = 'NOTAS'
+              end
+              item
+                DatasetField = 'FECHA_ALTA'
+                TableField = 'FECHA_ALTA'
+              end
+              item
+                DatasetField = 'FECHA_MODIFICACION'
+                TableField = 'FECHA_MODIFICACION'
+              end
+              item
+                DatasetField = 'USUARIO'
+                TableField = 'USUARIO'
+              end
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'GRUPO_CLIENTE'
+                TableField = 'GRUPO_CLIENTE'
+              end
+              item
+                DatasetField = 'NOMBRE_COMERCIAL'
+                TableField = 'NOMBRE_COMERCIAL'
+              end
+              item
+                DatasetField = 'BLOQUEADO'
+                TableField = 'BLOQUEADO'
+              end
+              item
+                DatasetField = 'REGIMEN_IVA'
+                TableField = 'REGIMEN_IVA'
+              end
+              item
+                DatasetField = 'MOTIVO_BLOQUEO'
+                TableField = 'MOTIVO_BLOQUEO'
+              end
+              item
+                DatasetField = 'RECARGO_EQUIVALENCIA'
+                TableField = 'RECARGO_EQUIVALENCIA'
+              end
+              item
+                DatasetField = 'ID_TIPO_IVA'
+                TableField = 'ID_TIPO_IVA'
+              end
+              item
+                DatasetField = 'ID_FORMA_PAGO'
+                TableField = 'ID_FORMA_PAGO'
+              end
+              item
+                DatasetField = 'TIENDA_WEB'
+                TableField = 'TIENDA_WEB'
+              end
+              item
+                DatasetField = 'CODIGO_ASIGNADO'
+                TableField = 'CODIGO_ASIGNADO'
+              end
+              item
+                DatasetField = 'DESCUENTO'
+                TableField = 'DESCUENTO'
+              end
+              item
+                DatasetField = 'VENCIMIENTO_FACTURAS_1'
+                TableField = 'VENCIMIENTO_FACTURAS_1'
+              end
+              item
+                DatasetField = 'VENCIMIENTO_FACTURAS_2'
+                TableField = 'VENCIMIENTO_FACTURAS_2'
+              end
+              item
+                DatasetField = 'VENCIMIENTO_FACTURAS_3'
+                TableField = 'VENCIMIENTO_FACTURAS_3'
+              end
+              item
+                DatasetField = 'FELICITACION'
+                TableField = 'FELICITACION'
+              end
+              item
+                DatasetField = 'ID_AGENTE'
+                TableField = 'ID_AGENTE'
+              end
+              item
+                DatasetField = 'AGENTE'
+                TableField = 'AGENTE'
+              end
+              item
+                DatasetField = 'RAPEL'
+                TableField = 'RAPEL'
+              end
+              item
+                DatasetField = 'EMAIL_ADMINISTRACION'
+                TableField = 'EMAIL_ADMINISTRACION'
+              end
+              item
+                DatasetField = 'TIPO_CLIENTE'
+                TableField = 'TIPO_CLIENTE'
+              end
+              item
+                DatasetField = 'SEPA'
+                TableField = 'SEPA'
+              end
+              item
+                DatasetField = 'ID_CENTRAL'
+                TableField = 'ID_CENTRAL'
+              end>
+          end>
+        Name = 'ClientesSucursales'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datInteger
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ID_CATEGORIA'
+            DataType = datInteger
+            DictionaryEntry = 'Contactos_ID_CATEGORIA'
+          end
+          item
+            Name = 'NIF_CIF'
+            DataType = datString
+            Size = 15
+            DictionaryEntry = 'Contactos_NIF_CIF'
+          end
+          item
+            Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Contactos_NOMBRE'
+          end
+          item
+            Name = 'PERSONA_CONTACTO'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
+          end
+          item
+            Name = 'CALLE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Contactos_CALLE'
+          end
+          item
+            Name = 'POBLACION'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Contactos_POBLACION'
+          end
+          item
+            Name = 'PROVINCIA'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Contactos_PROVINCIA'
+          end
+          item
+            Name = 'CODIGO_POSTAL'
+            DataType = datString
+            Size = 10
+            DictionaryEntry = 'Contactos_CODIGO_POSTAL'
+          end
+          item
+            Name = 'TELEFONO_1'
+            DataType = datString
+            Size = 25
+            DictionaryEntry = 'Contactos_TELEFONO_1'
+          end
+          item
+            Name = 'TELEFONO_2'
+            DataType = datString
+            Size = 25
+            DictionaryEntry = 'Contactos_TELEFONO_2'
+          end
+          item
+            Name = 'MOVIL_1'
+            DataType = datString
+            Size = 25
+            DictionaryEntry = 'Contactos_MOVIL_1'
+          end
+          item
+            Name = 'MOVIL_2'
+            DataType = datString
+            Size = 25
+            DictionaryEntry = 'Contactos_MOVIL_2'
+          end
+          item
+            Name = 'FAX'
+            DataType = datString
+            Size = 25
+            DictionaryEntry = 'Contactos_FAX'
+          end
+          item
+            Name = 'EMAIL_1'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Contactos_EMAIL_1'
+          end
+          item
+            Name = 'EMAIL_2'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Contactos_EMAIL_2'
+          end
+          item
+            Name = 'PAGINA_WEB'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Contactos_PAGINA_WEB'
+          end
+          item
+            Name = 'NOTAS'
+            DataType = datMemo
+            BlobType = dabtMemo
+            DictionaryEntry = 'Contactos_NOTAS'
+          end
+          item
+            Name = 'FECHA_ALTA'
+            DataType = datDateTime
+            DictionaryEntry = 'Clientes_FECHA_ALTA'
+          end
+          item
+            Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
+            DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
+          end
+          item
+            Name = 'USUARIO'
+            DataType = datString
+            Size = 20
+            DictionaryEntry = 'Contactos_USUARIO'
+          end
+          item
+            Name = 'ID_EMPRESA'
+            DataType = datInteger
+            DictionaryEntry = 'Contactos_ID_EMPRESA'
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+            ServerAutoRefresh = True
+            DictionaryEntry = 'Clientes_REFERENCIA'
+          end
+          item
+            Name = 'ID_AGENTE'
+            DataType = datInteger
+            DictionaryEntry = 'Clientes_ID_AGENTE'
+          end
+          item
+            Name = 'GRUPO_CLIENTE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Clientes_GRUPO_CLIENTE'
+          end
+          item
+            Name = 'NOMBRE_COMERCIAL'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
+          end
+          item
+            Name = 'VENCIMIENTO_FACTURAS_1'
+            DataType = datSmallInt
+            DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_1'
+          end
+          item
+            Name = 'VENCIMIENTO_FACTURAS_2'
+            DataType = datSmallInt
+            DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_2'
+          end
+          item
+            Name = 'VENCIMIENTO_FACTURAS_3'
+            DataType = datSmallInt
+            DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_3'
+          end
+          item
+            Name = 'BLOQUEADO'
+            DataType = datSmallInt
+            DictionaryEntry = 'Clientes_BLOQUEADO'
+          end
+          item
+            Name = 'AGENTE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Clientes_AGENTE'
+          end
+          item
+            Name = 'RAPEL'
+            DataType = datSmallInt
+            DictionaryEntry = 'Clientes_RAPEL'
+          end
+          item
+            Name = 'EMAIL_ADMINISTRACION'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Clientes_EMAIL_ADMINISTRACION'
+          end
+          item
+            Name = 'REGIMEN_IVA'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Clientes_REGIMEN_IVA'
+          end
+          item
+            Name = 'MOTIVO_BLOQUEO'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Clientes_MOTIVO_BLOQUEO'
+          end
+          item
+            Name = 'RECARGO_EQUIVALENCIA'
+            DataType = datInteger
+            DictionaryEntry = 'Clientes_RECARGO_EQUIVALENCIA'
+          end
+          item
+            Name = 'ID_TIPO_IVA'
+            DataType = datInteger
+            DictionaryEntry = 'Clientes_ID_TIPO_IVA'
+          end
+          item
+            Name = 'ID_FORMA_PAGO'
+            DataType = datInteger
+            DictionaryEntry = 'Clientes_ID_FORMA_PAGO'
+          end
+          item
+            Name = 'TIENDA_WEB'
+            DataType = datSmallInt
+            DictionaryEntry = 'Clientes_TIENDA_WEB'
+          end
+          item
+            Name = 'CODIGO_ASIGNADO'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
+          end
+          item
+            Name = 'DESCUENTO'
+            DataType = datFloat
+            DictionaryEntry = 'Clientes_DESCUENTO'
+          end
+          item
+            Name = 'FELICITACION'
+            DataType = datSmallInt
+            DictionaryEntry = 'Clientes_FELICITACION'
+          end
+          item
+            Name = 'TIPO_CLIENTE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Clientes_TIPO_CLIENTE'
+          end
+          item
+            Name = 'SEPA'
+            DataType = datSmallInt
+            DictionaryEntry = 'Clientes_SEPA'
+          end
+          item
+            Name = 'ID_CENTRAL'
+            DataType = datInteger
+            DictionaryEntry = 'Clientes_ID_CENTRAL'
+          end>
       end>
     JoinDataTables = <>
     UnionDataTables = <>
@@ -3611,6 +4083,11 @@ object srvContactos: TsrvContactos
       end
       item
         Params = <
+          item
+            Name = 'ID_CENTRAL'
+            DataType = datInteger
+            Value = ''
+          end
           item
             Name = 'ID_CLIENTE'
             DataType = datInteger
@@ -3733,13 +4210,14 @@ object srvContactos: TsrvContactos
               'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10'     TIENDA_WEB, C' +
               'ODIGO_ASIGNADO, DESCUENTO, RAPEL, ID_AGENTE, EMAIL_ADMINISTRACIO' +
               'N,'#10'     VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIE' +
-              'NTO_FACTURAS_3,'#10'     FELICITACION, TIPO_CLIENTE, SEPA)'#10'  VALUES'#10 +
-              '    (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE' +
-              '_COMERCIAL,'#10'     :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_' +
-              'TIPO_IVA, :ID_FORMA_PAGO,'#10'     :TIENDA_WEB, :CODIGO_ASIGNADO, :D' +
-              'ESCUENTO, :RAPEL, :ID_AGENTE, :EMAIL_ADMINISTRACION,'#10'     :VENCI' +
-              'MIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURA' +
-              'S_3,'#10'     :FELICITACION, :TIPO_CLIENTE, :SEPA)'#10'     '#10#10
+              'NTO_FACTURAS_3,'#10'     FELICITACION, TIPO_CLIENTE, SEPA, ID_CENTRA' +
+              'L)'#10'  VALUES'#10'    (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALEN' +
+              'CIA, :NOMBRE_COMERCIAL,'#10'     :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIM' +
+              'EN_IVA, :ID_TIPO_IVA, :ID_FORMA_PAGO,'#10'     :TIENDA_WEB, :CODIGO_' +
+              'ASIGNADO, :DESCUENTO, :RAPEL, :ID_AGENTE, :EMAIL_ADMINISTRACION,' +
+              #10'     :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMI' +
+              'ENTO_FACTURAS_3,'#10'     :FELICITACION, :TIPO_CLIENTE, :SEPA, :ID_C' +
+              'ENTRAL)'#10'     '#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -3767,6 +4245,11 @@ object srvContactos: TsrvContactos
       end
       item
         Params = <
+          item
+            Name = 'ID_CENTRAL'
+            DataType = datInteger
+            Value = ''
+          end
           item
             Name = 'ID_CLIENTE'
             DataType = datInteger
@@ -3900,8 +4383,8 @@ object srvContactos: TsrvContactos
               ' = :VENCIMIENTO_FACTURAS_1,'#10'    VENCIMIENTO_FACTURAS_2 = :VENCIM' +
               'IENTO_FACTURAS_2,'#10'    VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACT' +
               'URAS_3,'#10'    FELICITACION = :FELICITACION,'#10'    TIPO_CLIENTE = :TI' +
-              'PO_CLIENTE,'#10'    SEPA = :SEPA'#10'  WHERE'#10'    (ID_CLIENTE = :OLD_ID_C' +
-              'LIENTE)'#10
+              'PO_CLIENTE,'#10'    SEPA = :SEPA,'#10'    ID_CENTRAL = :ID_CENTRAL'#10'  WHE' +
+              'RE'#10'    (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -5032,6 +5515,50 @@ object srvContactos: TsrvContactos
           end>
         Name = 'Update_AgentesDatos'
       end
+      item
+        Params = <
+          item
+            Name = 'ID_CENTRAL'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'ID'
+            DataType = datInteger
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            Default = True
+            SQL = 
+              'UPDATE CLIENTES_DATOS SET'#10'ID_CENTRAL = :ID_CENTRAL'#10'WHERE ID_CLIE' +
+              'NTE = :ID'#10#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_ClientesSucursales'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_ID'
+            DataType = datInteger
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            Default = True
+            SQL = 
+              'UPDATE CLIENTES_DATOS SET'#10'ID_CENTRAL = NULL'#10'WHERE ID_CLIENTE = :' +
+              'OLD_ID'#10#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_ClientesSucursales'
+      end
       item
         Params = <
           item
@@ -5503,6 +6030,14 @@ object srvContactos: TsrvContactos
         DetailFields = 'ID_CONTACTO'
         RelationshipType = rtForeignKey
       end
+      item
+        Name = 'FK_Sucursales_Clientes'
+        MasterDatasetName = 'Clientes'
+        MasterFields = 'ID'
+        DetailDatasetName = 'ClientesSucursales'
+        DetailFields = 'ID_CENTRAL'
+        RelationshipType = rtForeignKey
+      end
       item
         Name = 'FK_DatosBancarios_Proveedores'
         MasterDatasetName = 'Proveedores'
@@ -6440,6 +6975,58 @@ object srvContactos: TsrvContactos
         DataType = datString
         Size = 255
         DisplayLabel = 'C'#243'digo SWIFT/BIC'
+      end
+      item
+        Name = 'Clientes_ID_CENTRAL'
+        DataType = datInteger
+        DisplayLabel = 'ID_CENTRAL'
+      end
+      item
+        Name = 'Clientes_FECHA_ALTA'
+        DataType = datDateTime
+      end
+      item
+        Name = 'Clientes_FECHA_MODIFICACION'
+        DataType = datDateTime
+      end
+      item
+        Name = 'Clientes_VENCIMIENTO_FACTURAS_1'
+        DataType = datSmallInt
+      end
+      item
+        Name = 'Clientes_VENCIMIENTO_FACTURAS_2'
+        DataType = datSmallInt
+      end
+      item
+        Name = 'Clientes_VENCIMIENTO_FACTURAS_3'
+        DataType = datSmallInt
+      end
+      item
+        Name = 'Clientes_RAPEL'
+        DataType = datSmallInt
+      end
+      item
+        Name = 'Clientes_EMAIL_ADMINISTRACION'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'Clientes_CODIGO_ASIGNADO'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'Clientes_DESCUENTO'
+        DataType = datFloat
+      end
+      item
+        Name = 'Clientes_TIPO_CLIENTE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'Clientes_SEPA'
+        DataType = datSmallInt
       end>
     Left = 126
     Top = 14
@@ -6587,8 +7174,8 @@ object srvContactos: TsrvContactos
     ReferencedDataset = 'Agentes_Objetivos_albaranes'
     ProcessorOptions = [poPrepareCommands]
     UpdateMode = updWhereKeyOnly
-    Left = 48
-    Top = 287
+    Left = 112
+    Top = 263
   end
   object bpAgentesObjetivosFac: TDABusinessProcessor
     Schema = schContactos
@@ -6598,7 +7185,19 @@ object srvContactos: TsrvContactos
     ReferencedDataset = 'Agentes_Objetivos_facturas'
     ProcessorOptions = [poPrepareCommands]
     UpdateMode = updWhereKeyOnly
-    Left = 176
-    Top = 287
+    Left = 224
+    Top = 263
+  end
+  object bpClientesSucursales: TDABusinessProcessor
+    Schema = schContactos
+    InsertCommandName = 'Update_ClientesSucursales'
+    DeleteCommandName = 'Delete_ClientesSucursales'
+    UpdateCommandName = 'Update_ClientesSucursales'
+    RefreshDatasetName = 'ClientesSucursales'
+    ReferencedDataset = 'ClientesSucursales'
+    ProcessorOptions = [poPrepareCommands, poIgnoreRowsAffected]
+    UpdateMode = updWhereKeyOnly
+    Left = 456
+    Top = 15
   end
 end
diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
index 84d9a60..3b0bad5 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
@@ -37,6 +37,7 @@ type
     bpClientesDescuentosArt: TDABusinessProcessor;
     bpAgentesObjetivosAlb: TDABusinessProcessor;
     bpAgentesObjetivosFac: TDABusinessProcessor;
+    bpClientesSucursales: TDABusinessProcessor;
     schContactos: TDASchema;
     DataDictionary: TDADataDictionary;
     procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dpk b/Source/Modulos/Contactos/Views/Contactos_view.dpk
index 5529374..192938d 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.dpk
+++ b/Source/Modulos/Contactos/Views/Contactos_view.dpk
@@ -134,6 +134,8 @@ contains
   uEditorElegirAgentes in 'uEditorElegirAgentes.pas' {fEditorElegirAgentes: TCustomEditor},
   uViewAgenteObjetivosAlbaranes in 'uViewAgenteObjetivosAlbaranes.pas' {frViewAgenteObjetivosAlbaranes: TFrame},
   uViewAgenteObjetivosFacturas in 'uViewAgenteObjetivosFacturas.pas' {frViewAgenteObjetivosFacturas: TFrame},
-  uEditorTiposCliente in 'uEditorTiposCliente.pas' {fEditorTiposCliente: TCustomEditor};
+  uEditorTiposCliente in 'uEditorTiposCliente.pas' {fEditorTiposCliente: TCustomEditor},
+  uViewDatosYSeleccionCentral in 'uViewDatosYSeleccionCentral.pas' {frViewDatosYSeleccionCentral: TCustomView},
+  uViewSucursalesContacto in 'uViewSucursalesContacto.pas'  {frViewSucursalesContacto: TFrame};
 
 end.
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj
index 78c1e9a..42fe707 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.dproj
+++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj
@@ -49,65 +49,58 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\adortl.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Base.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\bdertl.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\ccpackD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cfpack_d11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Contactos_model.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxDataD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxExportD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxGridD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxPageControlD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dbrtl.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dclcxLibraryD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\designide.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dsnap.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxComnD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxCoreD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPSLnksD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\FormasPago_controller.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\FormasPago_model.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\GUIBase.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Jcl.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JclVcl.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JSDialog100.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvCoreD11R.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvSystemD11R.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\PNG_D10.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\rtl.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\tb2k_d10.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\tbx_d10.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\TiposIVA_controller.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\TiposIVA_model.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vcl.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vclactnband.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vcldb.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vcljpg.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vclshlctrls.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vclx.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\xmlrtl.dcp" />
+    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="ApplicationBase.dcp" />
+    <DCCReference Include="Articulos_controller.dcp" />
+    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="bdertl.dcp" />
+    <DCCReference Include="ccpackD11.dcp" />
+    <DCCReference Include="cfpack_d11.dcp" />
+    <DCCReference Include="Contactos_controller.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
+    <DCCReference Include="cxExportD11.dcp" />
+    <DCCReference Include="cxExtEditorsD11.dcp" />
+    <DCCReference Include="cxGridD11.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="cxPageControlD11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dclcxLibraryD11.dcp" />
+    <DCCReference Include="designide.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="dxComnD11.dcp" />
+    <DCCReference Include="dxCoreD11.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
+    <DCCReference Include="dxLayoutControlD11.dcp" />
+    <DCCReference Include="dxPSCoreD11.dcp" />
+    <DCCReference Include="dxPScxCommonD11.dcp" />
+    <DCCReference Include="dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="dxPSLnksD11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
+    <DCCReference Include="FormasPago_controller.dcp" />
+    <DCCReference Include="FormasPago_model.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="GUISDK_D11R.dcp" />
+    <DCCReference Include="Jcl.dcp" />
+    <DCCReference Include="JclVcl.dcp" />
+    <DCCReference Include="JSDialog100.dcp" />
+    <DCCReference Include="JvAppFrmD11R.dcp" />
+    <DCCReference Include="JvCoreD11R.dcp" />
+    <DCCReference Include="JvCtrlsD11R.dcp" />
+    <DCCReference Include="JvGlobusD11R.dcp" />
+    <DCCReference Include="JvPageCompsD11R.dcp" />
+    <DCCReference Include="JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="JvSystemD11R.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="tb2k_d10.dcp" />
+    <DCCReference Include="tbx_d10.dcp" />
+    <DCCReference Include="TiposIVA_controller.dcp" />
+    <DCCReference Include="TiposIVA_model.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
     <DCCReference Include="uEditorAgente.pas">
       <Form>fEditorAgente</Form>
@@ -260,6 +253,10 @@
       <Form>frViewContactos</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewDatosYSeleccionCentral.pas">
+      <Form>frViewDatosYSeleccionCentral</Form>
+      <DesignClass>TCustomView</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewDatosYSeleccionCliente.pas">
       <Form>frViewDatosYSeleccionCliente</Form>
       <DesignClass>TFrame</DesignClass>
@@ -300,6 +297,17 @@
       <Form>frViewProveedores</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewSucursalesContacto.pas">
+      <Form>frViewSucursalesContact</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="vclshlctrls.dcp" />
+    <DCCReference Include="vclx.dcp" />
+    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.identcache b/Source/Modulos/Contactos/Views/Contactos_view.identcache
index 790afa9..f620e68 100644
Binary files a/Source/Modulos/Contactos/Views/Contactos_view.identcache and b/Source/Modulos/Contactos/Views/Contactos_view.identcache differ
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
index 2be2734..d94bfc6 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@@ -126,10 +126,12 @@ inherited fEditorCliente: TfEditorCliente
   inherited pgPaginas: TPageControl
     Width = 864
     Height = 614
-    ActivePage = pagDescuentos
+    ActivePage = tabSucursales
     ExplicitWidth = 864
     ExplicitHeight = 614
     inherited pagGeneral: TTabSheet
+      ExplicitLeft = 0
+      ExplicitTop = 0
       ExplicitWidth = 856
       ExplicitHeight = 586
       inline frViewCliente1: TfrViewCliente
@@ -173,20 +175,16 @@ inherited fEditorCliente: TfEditorCliente
             ExplicitTop = 162
           end
           inherited Label1: TLabel
-            Left = 484
+            Left = 586
             Top = 418
-            Width = 269
-            ExplicitLeft = 484
+            ExplicitLeft = 586
             ExplicitTop = 418
-            ExplicitWidth = 269
           end
           inherited Label2: TLabel
-            Left = 484
+            Left = 586
             Top = 321
-            Width = 271
-            ExplicitLeft = 484
+            ExplicitLeft = 586
             ExplicitTop = 321
-            ExplicitWidth = 271
           end
           inherited PngSpeedButton4: TPngSpeedButton
             Left = 794
@@ -195,22 +193,22 @@ inherited fEditorCliente: TfEditorCliente
             ExplicitTop = 366
           end
           inherited eCalle: TcxDBTextEdit
-            Top = 382
+            Top = 451
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitTop = 382
+            ExplicitTop = 451
             ExplicitWidth = 246
             Width = 246
           end
           inherited cbProvincia: TcxDBComboBox
-            Top = 409
+            Top = 478
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitTop = 409
+            ExplicitTop = 478
             ExplicitWidth = 145
             Width = 145
           end
@@ -225,12 +223,12 @@ inherited fEditorCliente: TfEditorCliente
             Width = 246
           end
           inherited cbClienteBloqueado: TcxDBCheckBox
-            Top = 304
+            Top = 373
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitTop = 304
+            ExplicitTop = 373
             ExplicitWidth = 356
             Width = 356
           end
@@ -245,12 +243,12 @@ inherited fEditorCliente: TfEditorCliente
             Width = 246
           end
           inherited eBloqueo: TcxDBTextEdit
-            Top = 331
+            Top = 400
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitTop = 331
+            ExplicitTop = 400
             ExplicitWidth = 246
             Width = 246
           end
@@ -265,40 +263,39 @@ inherited fEditorCliente: TfEditorCliente
             Width = 246
           end
           inherited cbPoblacion: TcxDBComboBox
-            Top = 436
+            Top = 505
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitTop = 436
+            ExplicitTop = 505
             ExplicitWidth = 246
             Width = 246
           end
           inherited eCodigoPostal: TcxDBTextEdit
-            Left = 391
-            Top = 409
+            Left = 493
+            Top = 478
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 391
-            ExplicitTop = 409
+            ExplicitLeft = 493
+            ExplicitTop = 478
           end
           inherited cbFelicitacion: TcxDBCheckBox
-            Left = 484
+            Left = 586
             Top = 270
-            ExplicitLeft = 484
+            ExplicitLeft = 586
             ExplicitTop = 270
-            ExplicitWidth = 370
-            Width = 370
           end
           inherited cxDBCheckBox1: TcxDBCheckBox
-            Left = 484
+            Left = 586
             Top = 463
-            ExplicitLeft = 484
+            ExplicitLeft = 586
             ExplicitTop = 463
-            ExplicitWidth = 274
-            Width = 274
+            ExplicitWidth = 219
+            ExplicitHeight = 34
+            Width = 219
           end
           inherited cbRapel: TcxDBCheckBox
             Top = 192
@@ -307,142 +304,70 @@ inherited fEditorCliente: TfEditorCliente
             Width = 308
           end
           inherited eMailAdministracion: TcxDBHyperLinkEdit
-            Left = 596
+            Left = 698
             Top = 366
             Properties.Prefix = 'mailto:'
-            ExplicitLeft = 596
+            ExplicitLeft = 698
             ExplicitTop = 366
-            ExplicitWidth = 133
-            Width = 133
           end
           inherited eObservaciones: TcxDBMemo
-            Top = 514
+            Top = 583
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitTop = 514
+            ExplicitTop = 583
             ExplicitWidth = 656
             ExplicitHeight = 87
             Height = 87
             Width = 656
           end
-          inherited eTlfParticular: TcxDBTextEdit
-            Left = 596
-            Top = 57
-            Style.LookAndFeel.SkinName = ''
-            StyleDisabled.LookAndFeel.SkinName = ''
-            StyleFocused.LookAndFeel.SkinName = ''
-            StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 596
-            ExplicitTop = 57
-            ExplicitWidth = 177
-            Width = 177
-          end
-          inherited eTlfTrabajo: TcxDBTextEdit
-            Left = 596
-            Top = 30
-            Style.LookAndFeel.SkinName = ''
-            StyleDisabled.LookAndFeel.SkinName = ''
-            StyleFocused.LookAndFeel.SkinName = ''
-            StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 596
-            ExplicitTop = 30
-            ExplicitWidth = 177
-            Width = 177
-          end
-          inherited eTlfMovil: TcxDBTextEdit
-            Left = 596
-            Top = 84
-            Style.LookAndFeel.SkinName = ''
-            StyleDisabled.LookAndFeel.SkinName = ''
-            StyleFocused.LookAndFeel.SkinName = ''
-            StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 596
-            ExplicitTop = 84
-            ExplicitWidth = 177
-            Width = 177
-          end
-          inherited eFax: TcxDBTextEdit
-            Left = 596
-            Top = 111
-            Style.LookAndFeel.SkinName = ''
-            StyleDisabled.LookAndFeel.SkinName = ''
-            StyleFocused.LookAndFeel.SkinName = ''
-            StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 596
-            ExplicitTop = 111
-            ExplicitWidth = 177
-            Width = 177
-          end
-          inherited eNombre: TcxDBTextEdit
-            Top = 57
-            Style.LookAndFeel.SkinName = ''
-            StyleDisabled.LookAndFeel.SkinName = ''
-            StyleFocused.LookAndFeel.SkinName = ''
-            StyleHot.LookAndFeel.SkinName = ''
-            ExplicitTop = 57
-            ExplicitWidth = 246
-            Width = 246
-          end
           inherited cbTipoCliente: TcxDBComboBox
             Top = 165
             ExplicitTop = 165
-            ExplicitWidth = 332
-            Width = 332
-          end
-          inherited eNIFCIF: TcxDBTextEdit
-            Left = 247
-            Top = 30
-            Style.LookAndFeel.SkinName = ''
-            StyleDisabled.LookAndFeel.SkinName = ''
-            StyleFocused.LookAndFeel.SkinName = ''
-            StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 247
-            ExplicitTop = 30
-            ExplicitWidth = 162
-            Width = 162
-          end
-          inherited eMailTrabajo: TcxDBHyperLinkEdit
-            Left = 596
-            Top = 162
-            Properties.Prefix = 'mailto:'
-            Style.LookAndFeel.SkinName = ''
-            StyleDisabled.LookAndFeel.SkinName = ''
-            StyleFocused.LookAndFeel.SkinName = ''
-            StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 596
-            ExplicitTop = 162
-            ExplicitWidth = 148
-            Width = 148
-          end
-          inherited eMailParticular: TcxDBHyperLinkEdit
-            Left = 596
-            Top = 190
-            Properties.Prefix = 'mailto:'
-            Style.LookAndFeel.SkinName = ''
-            StyleDisabled.LookAndFeel.SkinName = ''
-            StyleFocused.LookAndFeel.SkinName = ''
-            StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 596
-            ExplicitTop = 190
-            ExplicitWidth = 148
-            Width = 148
           end
           inherited cbSEPA: TcxDBCheckBox
-            Top = 219
-            ExplicitTop = 219
+            Left = 274
+            Top = 192
+            ExplicitLeft = 274
+            ExplicitTop = 192
             ExplicitWidth = 481
             Width = 481
           end
+          inherited frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral
+            Top = 243
+            ExplicitTop = 243
+            inherited dxLayoutControl1: TdxLayoutControl
+              inherited edtlNombre: TcxDBTextEdit
+                Style.LookAndFeel.SkinName = ''
+                StyleDisabled.LookAndFeel.SkinName = ''
+                StyleFocused.LookAndFeel.SkinName = ''
+                StyleHot.LookAndFeel.SkinName = ''
+              end
+              inherited edtNIFCIF: TcxDBTextEdit
+                Left = 446
+                Style.LookAndFeel.SkinName = ''
+                StyleDisabled.LookAndFeel.SkinName = ''
+                StyleFocused.LookAndFeel.SkinName = ''
+                StyleHot.LookAndFeel.SkinName = ''
+                ExplicitLeft = 446
+              end
+            end
+            inherited Panel1: TPanel
+              ExplicitWidth = 548
+              inherited bVerFicha: TBitBtn
+                Visible = False
+              end
+            end
+          end
           inherited ePaginaWeb: TcxDBHyperLinkEdit
-            Left = 596
+            Left = 698
             Top = 217
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 596
+            ExplicitLeft = 698
             ExplicitTop = 217
             ExplicitWidth = 148
             Width = 148
@@ -458,15 +383,111 @@ inherited fEditorCliente: TfEditorCliente
             Width = 31
           end
           inherited ePersonaContacto: TcxDBTextEdit
-            Top = 463
+            Top = 532
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitTop = 463
+            ExplicitTop = 532
             ExplicitWidth = 246
             Width = 246
           end
+          inherited eNIFCIF: TcxDBTextEdit
+            Left = 289
+            Top = 30
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 289
+            ExplicitTop = 30
+            ExplicitWidth = 162
+            Width = 162
+          end
+          inherited eMailTrabajo: TcxDBHyperLinkEdit
+            Left = 698
+            Top = 162
+            Properties.Prefix = 'mailto:'
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 698
+            ExplicitTop = 162
+            ExplicitWidth = 148
+            Width = 148
+          end
+          inherited eMailParticular: TcxDBHyperLinkEdit
+            Left = 698
+            Top = 190
+            Properties.Prefix = 'mailto:'
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 698
+            ExplicitTop = 190
+            ExplicitWidth = 148
+            Width = 148
+          end
+          inherited eTlfMovil: TcxDBTextEdit
+            Left = 698
+            Top = 84
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 698
+            ExplicitTop = 84
+            ExplicitWidth = 177
+            Width = 177
+          end
+          inherited eFax: TcxDBTextEdit
+            Left = 698
+            Top = 111
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 698
+            ExplicitTop = 111
+            ExplicitWidth = 177
+            Width = 177
+          end
+          inherited eNombre: TcxDBTextEdit
+            Top = 57
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitTop = 57
+            ExplicitWidth = 246
+            Width = 246
+          end
+          inherited eTlfParticular: TcxDBTextEdit
+            Left = 698
+            Top = 57
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 698
+            ExplicitTop = 57
+            ExplicitWidth = 177
+            Width = 177
+          end
+          inherited eTlfTrabajo: TcxDBTextEdit
+            Left = 698
+            Top = 30
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 698
+            ExplicitTop = 30
+            ExplicitWidth = 177
+            Width = 177
+          end
         end
         inherited dsContacto: TDADataSource
           Left = 24
@@ -484,23 +505,17 @@ inherited fEditorCliente: TfEditorCliente
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 856
           ExplicitWidth = 856
-          inherited eEntidad: TcxDBTextEdit
-            ExplicitWidth = 114
-            Width = 114
-          end
           inherited eSucursal: TcxDBTextEdit
-            Left = 528
-            ExplicitLeft = 528
-            ExplicitWidth = 112
-            Width = 112
+            Left = 334
+            ExplicitLeft = 334
           end
           inherited eCuenta: TcxDBTextEdit
-            ExplicitWidth = 194
-            Width = 194
+            Left = 614
+            ExplicitLeft = 614
           end
-          inherited eTitular: TcxDBTextEdit
-            ExplicitWidth = 194
-            Width = 194
+          inherited eDC: TcxDBTextEdit
+            Left = 493
+            ExplicitLeft = 493
           end
         end
       end
@@ -538,9 +553,7 @@ inherited fEditorCliente: TfEditorCliente
           end
           inherited Bevel1: TBevel
             Top = 138
-            Width = 263
             ExplicitTop = 138
-            ExplicitWidth = 263
           end
           inherited eDiasVencimiento1: TcxDBSpinEdit
             Left = 647
@@ -635,8 +648,6 @@ inherited fEditorCliente: TfEditorCliente
           inherited eAgente: TcxDBLookupComboBox
             Top = 176
             ExplicitTop = 176
-            ExplicitWidth = 216
-            Width = 216
           end
         end
       end
@@ -675,6 +686,18 @@ inherited fEditorCliente: TfEditorCliente
         inherited ToolBar1: TToolBar
           Width = 856
           ExplicitWidth = 856
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
         end
       end
     end
@@ -707,6 +730,18 @@ inherited fEditorCliente: TfEditorCliente
         inherited ToolBar1: TToolBar
           Width = 856
           ExplicitWidth = 856
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
         end
       end
       inline frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos
@@ -735,6 +770,18 @@ inherited fEditorCliente: TfEditorCliente
         inherited ToolBar1: TToolBar
           Width = 856
           ExplicitWidth = 856
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
         end
       end
     end
@@ -771,6 +818,49 @@ inherited fEditorCliente: TfEditorCliente
         end
       end
     end
+    object tabSucursales: TTabSheet
+      Caption = 'Sucursales'
+      ImageIndex = 6
+      inline frViewSucursalesContacto1: TfrViewSucursalesContacto
+        Left = 0
+        Top = 0
+        Width = 856
+        Height = 586
+        Align = alClient
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 0
+        ReadOnly = False
+        ExplicitWidth = 856
+        ExplicitHeight = 586
+        inherited cxGrid: TcxGrid
+          Width = 856
+          Height = 561
+          ExplicitWidth = 856
+          ExplicitHeight = 561
+        end
+        inherited ToolBar1: TToolBar
+          Width = 856
+          ExplicitWidth = 856
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
+        end
+      end
+    end
   end
   inherited StatusBar: TJvStatusBar
     Top = 696
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.pas b/Source/Modulos/Contactos/Views/uEditorCliente.pas
index fddfb6e..843e976 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.pas
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.pas
@@ -16,7 +16,7 @@ uses
   uViewContactoDatosBancarios, dxLayoutLookAndFeels,
   uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios,
   uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel,
-  uViewClienteDescuentosArticulos;
+  uViewClienteDescuentosArticulos, uViewSucursalesContacto;
 
 type
   TfEditorCliente = class(TfEditorContacto, IEditorCliente)
@@ -49,6 +49,8 @@ type
     frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos;
     actTiposCliente: TAction;
     TBXItem42: TTBXItem;
+    tabSucursales: TTabSheet;
+    frViewSucursalesContacto1: TfrViewSucursalesContacto;
     procedure FormShow(Sender: TObject);
     procedure actGruposClienteExecute(Sender: TObject);
     procedure actDocumentosFacturasExecute(Sender: TObject);
@@ -174,12 +176,20 @@ begin
     frViewClienteDescuentos1.dsDetalles.DataTable := (Contacto as IBizCliente).Descuentos.DataTable;
     frViewClienteDescuentosArticulos1.dsDetalles.DataTable := (Contacto as IBizCliente).DescuentosArt.DataTable;
     frViewClienteDatosComerciales1.Contacto := Contacto;
+
+    frViewSucursalesContacto1.Central := (Contacto as IBizCliente);
+    if Assigned((FContacto as IBizCliente).Sucursales) then
+      frViewSucursalesContacto1.dsDetalles.DataTable := (FContacto as IBizCliente).Sucursales.DataTable
+    else
+      frViewSucursalesContacto1.dsDetalles.DataTable := NIL;
+
   end
   else begin
     frViewDireccionesEntrega1.dsDetalles.DataTable := NIL;
     frViewClienteDescuentos1.dsDetalles.DataTable := NIL;
     frViewClienteDescuentosArticulos1.dsDetalles.DataTable := NIL;    
     frViewClienteDatosComerciales1.Contacto := NIL;
+    frViewCliente1.frViewDatosYSeleccionCentral1.ID_Cliente := Null;
   end;
 end;
 
diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.dfm b/Source/Modulos/Contactos/Views/uEditorContacto.dfm
index a4a0c81..088b97c 100644
--- a/Source/Modulos/Contactos/Views/uEditorContacto.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorContacto.dfm
@@ -110,19 +110,33 @@ inherited fEditorContacto: TfEditorContacto
             Width = 114
           end
           inherited eSucursal: TcxDBTextEdit
-            Left = 403
-            ExplicitLeft = 403
+            Left = 258
+            ExplicitLeft = 258
             ExplicitWidth = 112
             Width = 112
           end
           inherited eCuenta: TcxDBTextEdit
+            Left = 471
+            ExplicitLeft = 471
             ExplicitWidth = 194
             Width = 194
           end
+          inherited eDC: TcxDBTextEdit
+            Left = 350
+            ExplicitLeft = 350
+          end
           inherited eTitular: TcxDBTextEdit
             ExplicitWidth = 194
             Width = 194
           end
+          inherited eSWIFT: TcxDBTextEdit
+            ExplicitWidth = 348
+            Width = 348
+          end
+          inherited eIBAN: TcxDBTextEdit
+            ExplicitWidth = 348
+            Width = 348
+          end
         end
       end
     end
diff --git a/Source/Modulos/Contactos/Views/uViewCliente.dfm b/Source/Modulos/Contactos/Views/uViewCliente.dfm
index c3391f4..b2703a0 100644
--- a/Source/Modulos/Contactos/Views/uViewCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uViewCliente.dfm
@@ -1,29 +1,29 @@
 inherited frViewCliente: TfrViewCliente
-  Width = 958
+  Width = 951
   Height = 698
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
-  ExplicitWidth = 958
+  ExplicitWidth = 951
   ExplicitHeight = 698
   inherited dxLayoutControlContacto: TdxLayoutControl
-    Width = 958
+    Width = 951
     Height = 698
-    ExplicitWidth = 958
+    ExplicitWidth = 951
     ExplicitHeight = 698
     inherited PngSpeedButton1: TPngSpeedButton
-      Left = 913
-      ExplicitLeft = 913
+      Left = 906
+      ExplicitLeft = 906
     end
     inherited PngSpeedButton2: TPngSpeedButton
-      Left = 913
-      ExplicitLeft = 913
+      Left = 906
+      ExplicitLeft = 906
     end
     inherited PngSpeedButton3: TPngSpeedButton
-      Left = 913
-      ExplicitLeft = 913
+      Left = 906
+      ExplicitLeft = 906
     end
     object Label1: TLabel [3]
-      Left = 552
+      Left = 531
       Top = 440
       Width = 269
       Height = 39
@@ -34,7 +34,7 @@ inherited frViewCliente: TfrViewCliente
       WordWrap = True
     end
     object Label2: TLabel [4]
-      Left = 552
+      Left = 531
       Top = 337
       Width = 271
       Height = 39
@@ -46,7 +46,7 @@ inherited frViewCliente: TfrViewCliente
       WordWrap = True
     end
     object PngSpeedButton4: TPngSpeedButton [5]
-      Left = 913
+      Left = 906
       Top = 382
       Width = 23
       Height = 22
@@ -72,27 +72,27 @@ inherited frViewCliente: TfrViewCliente
     end
     inherited eCalle: TcxDBTextEdit
       Left = 132
-      Top = 404
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 11
-      ExplicitLeft = 132
-      ExplicitTop = 404
-      ExplicitWidth = 260
-      Width = 260
-    end
-    inherited cbProvincia: TcxDBComboBox
-      Left = 132
-      Top = 431
+      Top = 467
       Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 12
       ExplicitLeft = 132
-      ExplicitTop = 431
+      ExplicitTop = 467
+      ExplicitWidth = 260
+      Width = 260
+    end
+    inherited cbProvincia: TcxDBComboBox
+      Left = 132
+      Top = 494
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 13
+      ExplicitLeft = 132
+      ExplicitTop = 494
       ExplicitWidth = 159
       Width = 159
     end
@@ -118,7 +118,7 @@ inherited frViewCliente: TfrViewCliente
     end
     object cbClienteBloqueado: TcxDBCheckBox [9]
       Left = 22
-      Top = 320
+      Top = 383
       Action = actBloqueoCliente
       DataBinding.DataField = 'BLOQUEADO'
       DataBinding.DataSource = dsContacto
@@ -137,7 +137,7 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 9
+      TabOrder = 10
       Width = 370
     end
     object cbGrupoCliente: TcxDBComboBox [10]
@@ -166,7 +166,7 @@ inherited frViewCliente: TfrViewCliente
     end
     object eBloqueo: TcxDBTextEdit [11]
       Left = 132
-      Top = 347
+      Top = 410
       DataBinding.DataField = 'MOTIVO_BLOQUEO'
       DataBinding.DataSource = dsContacto
       Style.BorderColor = clWindowFrame
@@ -180,8 +180,8 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 10
-      Width = 260
+      TabOrder = 11
+      Width = 197
     end
     object eCodigoAsignado: TcxDBTextEdit [12]
       Left = 132
@@ -205,30 +205,30 @@ inherited frViewCliente: TfrViewCliente
     end
     inherited cbPoblacion: TcxDBComboBox
       Left = 132
-      Top = 458
+      Top = 521
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 15
+      ExplicitLeft = 132
+      ExplicitTop = 521
+      ExplicitWidth = 260
+      Width = 260
+    end
+    inherited eCodigoPostal: TcxDBTextEdit
+      Left = 436
+      Top = 494
       Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 14
-      ExplicitLeft = 132
-      ExplicitTop = 458
-      ExplicitWidth = 260
-      Width = 260
-    end
-    inherited eCodigoPostal: TcxDBTextEdit
-      Left = 457
-      Top = 431
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 13
-      ExplicitLeft = 457
-      ExplicitTop = 431
+      ExplicitLeft = 436
+      ExplicitTop = 494
     end
     object cbFelicitacion: TcxDBCheckBox [15]
-      Left = 552
+      Left = 531
       Top = 280
       Caption = 'Mandar felicitaci'#243'n navide'#241'a a este cliente'
       DataBinding.DataField = 'FELICITACION'
@@ -248,11 +248,11 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 23
+      TabOrder = 24
       Width = 370
     end
     object cxDBCheckBox1: TcxDBCheckBox [16]
-      Left = 552
+      Left = 531
       Top = 485
       Caption = 'Permitir el acceso de este cliente a la tienda web'
       DataBinding.DataField = 'TIENDA_WEB'
@@ -273,11 +273,11 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 25
-      Width = 274
+      TabOrder = 26
+      Width = 266
     end
     object cbRapel: TcxDBCheckBox [17]
-      Left = 22
+      Left = 132
       Top = 190
       Caption = 'Este cliente tiene rapel'
       DataBinding.DataField = 'RAPEL'
@@ -299,10 +299,10 @@ inherited frViewCliente: TfrViewCliente
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 7
       OnClick = actBloqueoClienteExecute
-      Width = 308
+      Width = 148
     end
     object eMailAdministracion: TcxDBHyperLinkEdit [18]
-      Left = 664
+      Left = 643
       Top = 382
       DataBinding.DataField = 'EMAIL_ADMINISTRACION'
       DataBinding.DataSource = dsContacto
@@ -320,112 +320,23 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 24
+      TabOrder = 25
       Width = 133
     end
     inherited eObservaciones: TcxDBMemo
-      Top = 542
+      Top = 605
       Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 26
-      ExplicitTop = 542
+      TabOrder = 27
+      ExplicitTop = 605
       ExplicitWidth = 733
       ExplicitHeight = 69
       Height = 69
       Width = 733
     end
-    inherited eTlfParticular: TcxDBTextEdit
-      Left = 664
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 17
-      ExplicitLeft = 664
-      ExplicitWidth = 238
-      Width = 238
-    end
-    inherited eTlfTrabajo: TcxDBTextEdit
-      Left = 664
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 16
-      ExplicitLeft = 664
-      ExplicitWidth = 238
-      Width = 238
-    end
-    inherited eTlfMovil: TcxDBTextEdit
-      Left = 664
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 18
-      ExplicitLeft = 664
-      ExplicitWidth = 238
-      Width = 238
-    end
-    inherited eFax: TcxDBTextEdit
-      Left = 664
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 19
-      ExplicitLeft = 664
-      ExplicitWidth = 238
-      Width = 238
-    end
-    inherited eNombre: TcxDBTextEdit
-      Left = 132
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      ExplicitLeft = 132
-      ExplicitWidth = 260
-      Width = 260
-    end
-    inherited eNIFCIF: TcxDBTextEdit
-      Left = 373
-      Properties.OnValidate = eNIFCIFPropertiesValidate
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      ExplicitLeft = 373
-      ExplicitWidth = 91
-      Width = 91
-    end
-    inherited eMailTrabajo: TcxDBHyperLinkEdit
-      Left = 664
-      Properties.Prefix = 'mailto:'
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 20
-      ExplicitLeft = 664
-      ExplicitWidth = 209
-      Width = 209
-    end
-    inherited eMailParticular: TcxDBHyperLinkEdit
-      Left = 664
-      Properties.Prefix = 'mailto:'
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 21
-      ExplicitLeft = 664
-      ExplicitWidth = 209
-      Width = 209
-    end
-    object cbTipoCliente: TcxDBComboBox [28]
+    object cbTipoCliente: TcxDBComboBox [20]
       Left = 132
       Top = 163
       DataBinding.DataField = 'TIPO_CLIENTE'
@@ -449,42 +360,9 @@ inherited frViewCliente: TfrViewCliente
       TabOrder = 6
       Width = 332
     end
-    inherited ePaginaWeb: TcxDBHyperLinkEdit
-      Left = 664
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 22
-      ExplicitLeft = 664
-      ExplicitWidth = 209
-      Width = 209
-    end
-    inherited eReferencia: TcxDBTextEdit
-      Left = 132
-      Enabled = True
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      ExplicitLeft = 132
-    end
-    inherited ePersonaContacto: TcxDBTextEdit
-      Left = 132
-      Top = 485
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 15
-      ExplicitLeft = 132
-      ExplicitTop = 485
-      ExplicitWidth = 260
-      Width = 260
-    end
-    object cbSEPA: TcxDBCheckBox [32]
-      Left = 22
-      Top = 217
+    object cbSEPA: TcxDBCheckBox [21]
+      Left = 306
+      Top = 190
       Action = actBloqueoCliente
       Caption = 'Este cliente ha aceptado SEPA'
       DataBinding.DataField = 'SEPA'
@@ -505,7 +383,173 @@ inherited frViewCliente: TfrViewCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 8
-      Width = 481
+      Width = 181
+    end
+    inline frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral [22]
+      Left = 22
+      Top = 247
+      Width = 235
+      Height = 100
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 9
+      ReadOnly = False
+      ExplicitLeft = 22
+      ExplicitTop = 247
+      ExplicitWidth = 235
+      ExplicitHeight = 100
+      inherited dxLayoutControl1: TdxLayoutControl
+        Width = 235
+        Height = 65
+        ExplicitWidth = 235
+        ExplicitHeight = 65
+        inherited edtlNombre: TcxDBTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 591
+          Width = 591
+        end
+        inherited edtNIFCIF: TcxDBTextEdit
+          Left = 389
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitLeft = 389
+        end
+      end
+      inherited Panel1: TPanel
+        Width = 235
+        ExplicitWidth = 235
+      end
+    end
+    inherited ePaginaWeb: TcxDBHyperLinkEdit [23]
+      Left = 643
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 23
+      ExplicitLeft = 643
+      ExplicitWidth = 209
+      Width = 209
+    end
+    inherited eReferencia: TcxDBTextEdit [24]
+      Left = 132
+      Enabled = True
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitLeft = 132
+    end
+    inherited ePersonaContacto: TcxDBTextEdit [25]
+      Left = 132
+      Top = 548
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 16
+      ExplicitLeft = 132
+      ExplicitTop = 548
+      ExplicitWidth = 260
+      Width = 260
+    end
+    inherited eNIFCIF: TcxDBTextEdit [26]
+      Left = 360
+      Properties.OnValidate = eNIFCIFPropertiesValidate
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitLeft = 360
+      ExplicitWidth = 91
+      Width = 91
+    end
+    inherited eMailTrabajo: TcxDBHyperLinkEdit [27]
+      Left = 643
+      Properties.Prefix = 'mailto:'
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 21
+      ExplicitLeft = 643
+      ExplicitWidth = 209
+      Width = 209
+    end
+    inherited eMailParticular: TcxDBHyperLinkEdit [28]
+      Left = 643
+      Properties.Prefix = 'mailto:'
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 22
+      ExplicitLeft = 643
+      ExplicitWidth = 209
+      Width = 209
+    end
+    inherited eTlfMovil: TcxDBTextEdit [29]
+      Left = 643
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 19
+      ExplicitLeft = 643
+      ExplicitWidth = 238
+      Width = 238
+    end
+    inherited eFax: TcxDBTextEdit [30]
+      Left = 643
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 20
+      ExplicitLeft = 643
+      ExplicitWidth = 238
+      Width = 238
+    end
+    inherited eNombre: TcxDBTextEdit [31]
+      Left = 132
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitLeft = 132
+      ExplicitWidth = 260
+      Width = 260
+    end
+    inherited eTlfParticular: TcxDBTextEdit [32]
+      Left = 643
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 18
+      ExplicitLeft = 643
+      ExplicitWidth = 238
+      Width = 238
+    end
+    inherited eTlfTrabajo: TcxDBTextEdit [33]
+      Left = 643
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 17
+      ExplicitLeft = 643
+      ExplicitWidth = 238
+      Width = 238
     end
     inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
       AutoAligns = [aaHorizontal]
@@ -536,19 +580,38 @@ inherited frViewCliente: TfrViewCliente
               Control = cbTipoCliente
               ControlOptions.ShowBorder = False
             end
-            object dxLayoutControlContactoItem29: TdxLayoutItem
-              Caption = 'New Item'
+            object dxLayoutControlContactoGroup17: TdxLayoutGroup
               ShowCaption = False
-              Control = cbRapel
-              ControlOptions.ShowBorder = False
+              Hidden = True
+              LayoutDirection = ldHorizontal
+              ShowBorder = False
+              object dxLayoutControlContactoItem29: TdxLayoutItem
+                AutoAligns = [aaVertical]
+                AlignHorz = ahClient
+                Caption = ' '
+                Control = cbRapel
+                ControlOptions.ShowBorder = False
+              end
+              object dxLayoutControlContactoItem31: TdxLayoutItem
+                AutoAligns = [aaVertical]
+                AlignHorz = ahClient
+                ShowCaption = False
+                Control = cbSEPA
+                ControlOptions.ShowBorder = False
+              end
             end
-            object dxLayoutControlContactoItem31: TdxLayoutItem
-              ShowCaption = False
-              Control = cbSEPA
+          end
+          object dxLayoutControlContactoGroup19: TdxLayoutGroup [1]
+            AutoAligns = [aaVertical]
+            AlignHorz = ahClient
+            Caption = 'Sucursal principal'
+            object dxLayoutControlContactoItem32: TdxLayoutItem
+              Control = frViewDatosYSeleccionCentral1
+              ControlOptions.AutoColor = True
               ControlOptions.ShowBorder = False
             end
           end
-          object dxLayoutControlContactoGroup18: TdxLayoutGroup [1]
+          object dxLayoutControlContactoGroup18: TdxLayoutGroup [2]
             Caption = 'Bloqueo'
             object dxLayoutControlContactoItem26: TdxLayoutItem
               AutoAligns = [aaVertical]
diff --git a/Source/Modulos/Contactos/Views/uViewCliente.pas b/Source/Modulos/Contactos/Views/uViewCliente.pas
index 7d74094..0a2d6e9 100644
--- a/Source/Modulos/Contactos/Views/uViewCliente.pas
+++ b/Source/Modulos/Contactos/Views/uViewCliente.pas
@@ -11,7 +11,8 @@ uses
   dxLayoutControl, cxMemo, cxHyperLinkEdit, ImgList, ActnList, Buttons,
   PngSpeedButton, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
   cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uGruposClienteController,
-  uTiposClienteController, cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces;
+  uTiposClienteController, cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces,
+  uViewDatosYSeleccionClienteBase, uViewDatosYSeleccionCentral;
 
 type
   IViewCliente = interface(IViewContacto)
@@ -48,6 +49,10 @@ type
     cbTipoCliente: TcxDBComboBox;
     dxLayoutControlContactoItem31: TdxLayoutItem;
     cbSEPA: TcxDBCheckBox;
+    dxLayoutControlContactoGroup17: TdxLayoutGroup;
+    dxLayoutControlContactoGroup19: TdxLayoutGroup;
+    dxLayoutControlContactoItem32: TdxLayoutItem;
+    frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral;
 
     procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
     procedure cbGrupoClientePropertiesValidate(Sender: TObject;
@@ -65,6 +70,7 @@ type
     procedure cbTipoClientePropertiesInitPopup(Sender: TObject);
     procedure cbTipoClientePropertiesValidate(Sender: TObject;
       var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+    procedure OnCentralChanged(Sender: TObject);
   protected
     FGrupoController: IGruposClienteController;
     FTipoController: ITiposClienteController;
@@ -222,11 +228,35 @@ begin
      Application.MessageBox('El NIF/CIF introducido no es correcto', 'Atención', MB_OK);
 end;
 
+procedure TfrViewCliente.OnCentralChanged(Sender: TObject);
+begin
+  if Assigned(FContacto) then
+  begin
+    FContacto.Edit;
+    (FContacto as IBizCliente).ID_CENTRAL := frViewDatosYSeleccionCentral1.ID_Cliente;
+  end;
+end;
+
 procedure TfrViewCliente.SetContacto(const Value: IBizContacto);
+var
+  ACentral : IBizContacto;
 begin
   inherited;
+
   if Assigned(FContacto) then
+  begin
     eBloqueo.Enabled := cbClienteBloqueado.Checked;
+
+    if not (FContacto as IBizCliente).ID_CENTRALIsNull then
+    begin
+      ACentral := FController.Buscar((FContacto as IBizCliente).ID_CENTRAL);
+      if Assigned(ACentral) then
+      begin
+        frViewDatosYSeleccionCentral1.Cliente := (ACentral as IBizCliente);
+      end;
+    end;
+    frViewDatosYSeleccionCentral1.OnClienteChanged := OnCentralChanged;
+  end;
 end;
 
 end.
diff --git a/Source/Modulos/Contactos/Views/uViewDatosYSeleccionCentral.dfm b/Source/Modulos/Contactos/Views/uViewDatosYSeleccionCentral.dfm
new file mode 100644
index 0000000..998f8a0
--- /dev/null
+++ b/Source/Modulos/Contactos/Views/uViewDatosYSeleccionCentral.dfm
@@ -0,0 +1,120 @@
+inherited frViewDatosYSeleccionCentral: TfrViewDatosYSeleccionCentral
+  Width = 410
+  Height = 80
+  ExplicitWidth = 410
+  ExplicitHeight = 80
+  inherited dxLayoutControl1: TdxLayoutControl
+    Width = 410
+    Height = 45
+    ExplicitTop = 35
+    ExplicitWidth = 410
+    ExplicitHeight = 45
+    DesignSize = (
+      410
+      45)
+    object edtlNombre: TcxDBTextEdit [0]
+      Left = 56
+      Top = 10
+      Anchors = [akLeft, akTop, akRight]
+      AutoSize = False
+      DataBinding.DataField = 'NOMBRE'
+      DataBinding.DataSource = dsCliente
+      Enabled = False
+      ParentFont = False
+      Properties.ReadOnly = True
+      Properties.UseLeftAlignmentOnEditing = False
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 0
+      Height = 21
+      Width = 591
+    end
+    object edtNIFCIF: TcxDBTextEdit [1]
+      Left = 320
+      Top = 10
+      Anchors = [akLeft, akTop, akRight]
+      AutoSize = False
+      DataBinding.DataField = 'NIF_CIF'
+      DataBinding.DataSource = dsCliente
+      Enabled = False
+      ParentFont = False
+      Properties.ReadOnly = True
+      Properties.UseLeftAlignmentOnEditing = False
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 1
+      Height = 21
+      Width = 80
+    end
+    inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+      LayoutDirection = ldHorizontal
+      object dxLayoutControl1Item1: TdxLayoutItem
+        AutoAligns = [aaVertical]
+        AlignHorz = ahClient
+        Caption = 'Nombre:'
+        Control = edtlNombre
+        ControlOptions.ShowBorder = False
+      end
+      object dxLayoutControl1Item2: TdxLayoutItem
+        AutoAligns = [aaVertical]
+        AlignHorz = ahRight
+        Caption = 'NIF/CIF:'
+        Control = edtNIFCIF
+        ControlOptions.ShowBorder = False
+      end
+    end
+  end
+  inherited Panel1: TPanel
+    Width = 410
+    ExplicitTop = 0
+    ExplicitWidth = 410
+    inherited bvSeparador: TBevel
+      Visible = False
+    end
+    inherited bElegirCliente: TBitBtn
+      ExplicitLeft = 4
+      ExplicitTop = 4
+    end
+    inherited bNuevoCliente: TBitBtn
+      ExplicitLeft = 266
+      ExplicitTop = 4
+    end
+    inherited bVerFicha: TBitBtn
+      ExplicitLeft = 121
+      ExplicitTop = 4
+    end
+  end
+  inherited dsCliente: TDADataSource
+    Top = 32
+  end
+  inherited ActionList1: TActionList
+    Top = 32
+    inherited actAnadirContacto: TAction
+      Enabled = False
+      Visible = False
+    end
+  end
+  inherited PngImageList: TPngImageList
+    Top = 32
+  end
+end
diff --git a/Source/Modulos/Contactos/Views/uViewDatosYSeleccionCentral.pas b/Source/Modulos/Contactos/Views/uViewDatosYSeleccionCentral.pas
new file mode 100644
index 0000000..bf07494
--- /dev/null
+++ b/Source/Modulos/Contactos/Views/uViewDatosYSeleccionCentral.pas
@@ -0,0 +1,27 @@
+unit uViewDatosYSeleccionCentral;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewDatosYSeleccionClienteBase, ImgList, PngImageList, ActnList, DB,
+  uDAInterfaces, uDADataTable, StdCtrls, Buttons, ExtCtrls, dxLayoutControl,
+  cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit;
+
+type
+  TfrViewDatosYSeleccionCentral = class(TfrViewDatosYSeleccionClienteBase)
+    dxLayoutControl1Item1: TdxLayoutItem;
+    edtlNombre: TcxDBTextEdit;
+    dxLayoutControl1Item2: TdxLayoutItem;
+    edtNIFCIF: TcxDBTextEdit;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/Source/Modulos/Contactos/Views/uViewDatosYSeleccionCliente.dfm b/Source/Modulos/Contactos/Views/uViewDatosYSeleccionCliente.dfm
index 5def27f..a63a2a4 100644
--- a/Source/Modulos/Contactos/Views/uViewDatosYSeleccionCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uViewDatosYSeleccionCliente.dfm
@@ -1,13 +1,13 @@
 inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
-  Width = 350
-  Height = 212
-  ExplicitWidth = 350
-  ExplicitHeight = 212
+  Width = 665
+  Height = 271
+  ExplicitWidth = 665
+  ExplicitHeight = 271
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 350
-    Height = 212
+    Width = 665
+    Height = 271
     Margins.Left = 0
     Margins.Top = 0
     Margins.Right = 0
@@ -17,9 +17,11 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
+    ExplicitWidth = 350
+    ExplicitHeight = 212
     DesignSize = (
-      350
-      212)
+      665
+      271)
     object edtlNombre: TcxDBTextEdit
       Left = 64
       Top = 41
@@ -156,7 +158,7 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
       Width = 327
     end
     object edtCodigoPostal: TcxDBTextEdit
-      Left = 258
+      Left = 573
       Top = 122
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
@@ -271,7 +273,7 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
         FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
     end
     object Button3: TBitBtn
-      Left = 148
+      Left = 463
       Top = 176
       Width = 192
       Height = 25
diff --git a/Source/Modulos/Contactos/Views/uViewDatosYSeleccionClienteBase.pas b/Source/Modulos/Contactos/Views/uViewDatosYSeleccionClienteBase.pas
index 8065a49..cb824dd 100644
--- a/Source/Modulos/Contactos/Views/uViewDatosYSeleccionClienteBase.pas
+++ b/Source/Modulos/Contactos/Views/uViewDatosYSeleccionClienteBase.pas
@@ -73,14 +73,14 @@ type
     FCliente : IBizCliente;
     FDireccion : IBizDireccionesContacto;
     FPersonaContacto : IBizContactoPersonal;
-    
+
     function GetCliente: IBizCliente; virtual;
     procedure SetCliente(Value: IBizCliente); virtual;
     function GetOnClienteChanged : TNotifyEvent;
     procedure SetOnClienteChanged (const Value : TNotifyEvent);
     procedure SetReadOnly(Value: Boolean); override;
     function GetID_Cliente: integer; virtual;
-    procedure SetID_Cliente(const Value: integer); virtual;
+    procedure   SetID_Cliente(const Value: integer); virtual;
 
     procedure InicializarMensajes; virtual;
   public
diff --git a/Source/Modulos/Contactos/Views/uViewSucursalesContacto.dfm b/Source/Modulos/Contactos/Views/uViewSucursalesContacto.dfm
new file mode 100644
index 0000000..ec215c2
--- /dev/null
+++ b/Source/Modulos/Contactos/Views/uViewSucursalesContacto.dfm
@@ -0,0 +1,76 @@
+inherited frViewSucursalesContacto: TfrViewSucursalesContacto
+  Width = 583
+  Height = 464
+  OnCreate = CustomViewCreate
+  OnDestroy = CustomViewDestroy
+  ExplicitWidth = 583
+  ExplicitHeight = 464
+  inherited cxGrid: TcxGrid
+    Width = 583
+    Height = 439
+    ExplicitWidth = 583
+    ExplicitHeight = 439
+    inherited cxGridView: TcxGridDBTableView
+      OnDblClick = cxGridViewDblClick
+      OptionsData.Appending = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsData.Editing = False
+      OptionsData.Inserting = False
+      object cxGridViewREFERENCIA: TcxGridDBColumn
+        Caption = 'Referencia'
+        DataBinding.FieldName = 'REFERENCIA'
+      end
+      object cxGridViewNIFCIF: TcxGridDBColumn
+        Caption = 'NIF / CIF'
+        DataBinding.FieldName = 'NIFCIF'
+      end
+      object cxGridViewNOMBRE: TcxGridDBColumn
+        Caption = 'Nombre'
+        DataBinding.FieldName = 'NOMBRE'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Width = 64
+      end
+      object cxGridViewTELEFONO: TcxGridDBColumn
+        Caption = 'Tel'#233'fono'
+        DataBinding.FieldName = 'TELEFONO_1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Width = 64
+      end
+      object cxGridViewMOVIL: TcxGridDBColumn
+        Caption = 'M'#243'vil'
+        DataBinding.FieldName = 'MOVIL_1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Width = 64
+      end
+      object cxGridViewFAX: TcxGridDBColumn
+        Caption = 'Fax'
+        DataBinding.FieldName = 'FAX_1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Width = 64
+      end
+      object cxGridViewEMAIL: TcxGridDBColumn
+        Caption = 'E-Mail'
+        DataBinding.FieldName = 'EMAIL_1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Width = 64
+      end
+    end
+  end
+  inherited ToolBar1: TToolBar
+    Width = 583
+    ExplicitWidth = 583
+    inherited ToolButton1: TToolButton
+      ExplicitWidth = 62
+    end
+    inherited ToolButton4: TToolButton
+      ExplicitWidth = 74
+    end
+    inherited ToolButton2: TToolButton
+      ExplicitWidth = 67
+    end
+    inherited ToolButton7: TToolButton
+      ExplicitWidth = 117
+    end
+  end
+end
diff --git a/Source/Modulos/Contactos/Views/uViewSucursalesContacto.pas b/Source/Modulos/Contactos/Views/uViewSucursalesContacto.pas
new file mode 100644
index 0000000..b710e8b
--- /dev/null
+++ b/Source/Modulos/Contactos/Views/uViewSucursalesContacto.pas
@@ -0,0 +1,115 @@
+unit uViewSucursalesContacto;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, cxGridLevel,
+  cxGridCustomTableView, cxGridTableView, cxGridBandedTableView,
+  cxGridDBBandedTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
+  uDADataTable, Grids, DBGrids, ActnList, ImgList, PngImageList, ComCtrls,
+  ToolWin, cxGridDBTableView, uViewDetallesGenerico, uClientesController,
+  uDAInterfaces, StdCtrls, uBizContactos;
+
+type
+  TfrViewSucursalesContacto = class(TfrViewDetallesGenerico)
+    cxGridViewNOMBRE: TcxGridDBColumn;
+    cxGridViewTELEFONO: TcxGridDBColumn;
+    cxGridViewMOVIL: TcxGridDBColumn;
+    cxGridViewFAX: TcxGridDBColumn;
+    cxGridViewEMAIL: TcxGridDBColumn;
+    cxGridViewNIFCIF: TcxGridDBColumn;
+    cxGridViewREFERENCIA: TcxGridDBColumn;
+    procedure cxGridViewDblClick(Sender: TObject);
+    procedure actEliminarExecute(Sender: TObject);
+    procedure CustomViewCreate(Sender: TObject);
+    procedure CustomViewDestroy(Sender: TObject);
+  private
+    FCentral : IBizCliente;
+    FClientesController : IClientesController;
+    function GetCentral: IBizCliente;
+    procedure SetCentral(const Value: IBizCliente);
+  protected
+    procedure AnadirInterno; override;
+    procedure ModificarInterno; override;
+  public
+    property Central : IBizCliente read GetCentral write SetCentral;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  uDialogUtils;
+
+procedure TfrViewSucursalesContacto.actEliminarExecute(Sender: TObject);
+begin
+  if (ShowConfirmMessage('Eliminar una sucursal', '¿Desea quitar esta sucursal?') = IDYES) then
+    inherited;
+end;
+
+procedure TfrViewSucursalesContacto.AnadirInterno;
+var
+  ACliente : IBizCliente;
+  i : integer;
+begin
+  inherited;
+
+  ACliente := (FClientesController.ElegirContacto(FClientesController.BuscarTodos, '', False) as IBizCliente);
+
+  if Assigned(ACliente) then
+  begin
+    dsDetalles.DataTable.Insert;
+    try
+      for i := 0 to dsDetalles.DataTable.Fields.Count - 1 do
+        dsDetalles.DataTable.Fields[i].Value := ACliente.DataTable.FieldByName(dsDetalles.DataTable.Fields[i].Name).Value;
+      dsDetalles.DataTable.FieldByName('ID_CENTRAL').Value := FCentral.ID;
+    finally
+      dsDetalles.DataTable.Post;
+    end;
+  end;
+  ACliente := Nil;
+end;
+
+procedure TfrViewSucursalesContacto.CustomViewCreate(Sender: TObject);
+begin
+  inherited;
+  FCentral := NIL;
+  FClientesController := TClientesController.Create;
+end;
+
+procedure TfrViewSucursalesContacto.CustomViewDestroy(Sender: TObject);
+begin
+  inherited;
+  FClientesController := NIL;
+end;
+
+procedure TfrViewSucursalesContacto.cxGridViewDblClick(Sender: TObject);
+begin
+  inherited;
+  actModificar.Execute;
+end;
+
+function TfrViewSucursalesContacto.GetCentral: IBizCliente;
+begin
+  result := FCentral;
+end;
+
+procedure TfrViewSucursalesContacto.ModificarInterno;
+var
+  ACliente : IBizContacto;
+begin
+  inherited;
+  ACliente := FClientesController.Buscar(cxGridViewID.DataBinding.Field.Value);
+  if Assigned(ACliente) then
+    FClientesController.Ver(ACliente);
+end;
+
+procedure TfrViewSucursalesContacto.SetCentral(const Value: IBizCliente);
+begin
+  FCentral := Value;
+end;
+
+end.
diff --git a/Source/Modulos/Obras/Views/Obras_view.dproj b/Source/Modulos/Obras/Views/Obras_view.dproj
index 3e22bcc..1d48c0b 100644
--- a/Source/Modulos/Obras/Views/Obras_view.dproj
+++ b/Source/Modulos/Obras/Views/Obras_view.dproj
@@ -37,14 +37,69 @@
     <DelphiCompile Include="Obras_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\ApplicationBase.dcp" />
-    <DCCReference Include="..\Base.dcp" />
-    <DCCReference Include="..\Contactos_controller.dcp" />
-    <DCCReference Include="..\Contactos_model.dcp" />
-    <DCCReference Include="..\Contactos_view.dcp" />
-    <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="..\Obras_controller.dcp" />
-    <DCCReference Include="..\Obras_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Obras_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Obras_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_model.dcp" />
+    <DCCReference Include="uEditorEjecucionObra.pas">
+      <Form>fEditorEjecucionObra</Form>
+      <DesignClass>TfEditorEjecucionObra</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uEditorFechaCierreObra.pas">
+      <Form>fEditorFechaCierreObra</Form>
+      <DesignClass>TForm</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uEditorListaObras.pas">
+      <Form>fEditorListaObras</Form>
+      <DesignClass>TfListaObras</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uEditorObra.pas">
+      <Form>fEditorObra</Form>
+      <DesignClass>TfEditorObra</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uEditorObras.pas">
+      <Form>fEditorObras</Form>
+      <DesignClass>TfEditorObras</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uObrasViewRegister.pas" />
+    <DCCReference Include="uViewClienteAsociadoObra.pas">
+      <Form>frViewClienteAsociadoObra</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewEjecucionObra.pas">
+      <Form>frViewEjecucionObra</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewListaEjecucionesObra.pas">
+      <Form>frViewListaEjecucionesObra</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewListaPedidosProvObra.pas">
+      <Form>frViewListaPedidosProvObra</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewListaPresupuestosObra.pas">
+      <Form>frViewListaPresupuestosObra</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewObra.pas">
+      <Form>frViewObra</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewObras.pas">
+      <Form>frViewObras</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewSubcontrataObra.pas">
+      <Form>frViewSubcontrataObra</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index d8a9bf1..0536977 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index e2cf2c6..d0b7290 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -164,11 +164,11 @@ uses
   schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
   srvFacturasProforma_Impl in '..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas' {srvFacturasProforma: TDataAbstractService},
   uBizFacturasProformaServer in '..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas',
-  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
   uRptFacturasProforma_Server in '..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas' {RptFacturasProforma: TDataModule},
   schFacturasProformaClient_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas',
-  schFacturasProformaServer_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas';
+  schFacturasProformaServer_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas',
+  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
+  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 37aeaf8..a2c9ba5 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "4.3.4.0\0"
               VALUE "ProductVersion", "4.3.4.0\0"
-              VALUE "CompileDate", "martes, 14 de enero de 2014 13:08\0"
+              VALUE "CompileDate", "miércoles, 15 de enero de 2014 15:44\0"
          END
     END
     BLOCK "VarFileInfo"