From 46121213904ebe084e007c23db66b1bb1d3cd14d Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Tue, 11 Mar 2014 18:20:37 +0000
Subject: [PATCH] Se quita la validacion de IBAN en contactos

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@220 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
---
 .../Contactos_controller.identcache           | Bin 3476 -> 3476 bytes
 .../uDatosBancariosContactoController.pas     |   3 +-
 .../Model/Contactos_model.identcache          | Bin 1887 -> 1887 bytes
 .../Model/schContactosClient_Intf.pas         |  96 +++++------
 .../Model/schContactosServer_Intf.pas         |  96 +++++------
 .../Contactos/Servidor/srvContactos_Impl.dfm  |  29 ++++
 .../Contactos/Views/Contactos_view.identcache | Bin 4009 -> 4009 bytes
 .../Contactos/Views/uEditorCliente.dfm        | 156 +++++++++---------
 Source/Servidor/FactuGES_Server.RES           | Bin 23204 -> 23204 bytes
 Source/Servidor/FactuGES_Server.dpr           |   7 +-
 Source/Servidor/FactuGES_Server.rc            |   2 +-
 11 files changed, 210 insertions(+), 179 deletions(-)

diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.identcache b/Source/Modulos/Contactos/Controller/Contactos_controller.identcache
index ebe70e8c6c558c27e62af574fb5841c015ca0550..8ff2c49217652e61e9f7900a71545ffe1de84dfe 100644
GIT binary patch
delta 50
zcmV-20L}lD8<ZQcAq11p3R9E50z8wz1qQRX1Ox?>APPK_T?81jy9pEllOzQ%lTZW=
IvtA1}0;`b^8vp<R

delta 49
zcmV-10M7rE8<ZQcAq1092R)Pb2^W*T0z9*@1PTSS4hj?jkpwW4Q3NBCBLy#$a19N!
HUJEt?f*cMN

diff --git a/Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas b/Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas
index 5c5a34d..206a645 100644
--- a/Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas
+++ b/Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas
@@ -72,7 +72,8 @@ end;
 function TDatosBancariosContactoController.ValidarCodigoIBAN(
   AIBAN: string): boolean;
 begin
-  result := EsCodigoIBANValido(AIBAN)
+//Se desactiva la validación ya que dicen que hay clientes que no les coincide
+  result := True; //EsCodigoIBANValido(AIBAN)
 end;
 
 function TDatosBancariosContactoController.GenerarCodigoIBAN(
diff --git a/Source/Modulos/Contactos/Model/Contactos_model.identcache b/Source/Modulos/Contactos/Model/Contactos_model.identcache
index 833bd15ecf21791cfee1633752a03e0d4631e5e6..f8990117e665c9945fb77760d46f4628f536466a 100644
GIT binary patch
delta 72
zcmV-O0Js0&4&M%t^OHCODzk0@76FqC22+!S0<@Dk0wj}$1t*h^15lG+234~w1UCVb
e-UCgOtp#6`I0IIb=K?B|9RVkkyaYRw?*?#|av1Xf

delta 80
zcmV-W0I&bw4&M%t^ONZUDwB-{CzA~ZDwD7R5wk7<1p$+W0<@D223C`W15lG;1x>Rm
m1UCVbIs;3St_5F{NdYR8uLBm7a{?2S)dN+Ny97Iv?*?#fh#PnS

diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
index bc83c3e..3d9e628 100644
--- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
@@ -9,30 +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 = '{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}';
+  RID_Contactos = '{9419A071-56ED-4EA0-98BD-9A438DEB610D}';
+  RID_GruposCliente = '{C0318EF8-C697-4AFA-B2E1-F2BFB32BEFF8}';
+  RID_DatosBancarios = '{3452E6C6-0F6C-49F8-815B-304A05CCB77E}';
+  RID_Clientes = '{77497235-0105-47D6-B9D6-25B677375B49}';
+  RID_Proveedores = '{53CAAFB7-3577-42CC-A387-5E6F767ED122}';
+  RID_Empleados = '{D111FE7B-AADE-410C-B762-497501CDEDD0}';
+  RID_DireccionesContacto = '{3D521EA6-FA75-4719-BC3F-BA4692C51CF2}';
+  RID_Dataset = '{62553C53-9CEA-49B3-8A09-224AC8D5300C}';
+  RID_ClientesDescuentos = '{F498D6E5-B10D-41C8-8EC6-E19590EF831A}';
+  RID_GruposProveedor = '{E673F9AA-330E-4A54-B3D5-844590ACD6F8}';
+  RID_GruposEmpleado = '{160238E8-427D-43C3-AC6A-4A612ED9F44B}';
+  RID_Contactos_Refresh = '{BA59300F-898F-4F31-9C81-80223C34B48B}';
+  RID_ContratosEmpleados = '{2124ED2E-59A5-4D1C-857B-093CDEF4E3D1}';
+  RID_DescripcionesProveedores = '{DB67EF16-8296-4131-94CD-4FA683C52F94}';
+  RID_PersonalContacto = '{3BF39E7D-F930-4AD9-92DB-DE12799BB9A6}';
+  RID_Agentes_Comisiones = '{1E35C892-DD70-400F-A1A6-44E79FCD956F}';
+  RID_ListaAnosObjetivosAlb = '{52CBA43C-E630-4BE9-AF5E-72ADCC1B81BB}';
+  RID_Agentes = '{B04755B8-EB30-4BCE-A27D-0A24FBF0063F}';
+  RID_ClientesDescuentosArticulos = '{C8C11FB1-7593-4C1E-9D8E-1CD4289A478F}';
+  RID_Agentes_Objetivos_albaranes = '{458FD373-C005-4D3D-A491-5E77F270A623}';
+  RID_Agentes_Objetivos_facturas = '{CAA5EC78-3E06-4001-B48F-D60F3D6DCFC1}';
+  RID_ListaAnosObjetivosFac = '{69451139-C9AA-4EEC-8D12-B3C0B207F6C5}';
+  RID_TiposCliente = '{9B042753-443D-44A8-B08A-D8AD435D4B94}';
+  RID_ClientesSucursales = '{A56824F8-8C68-4609-9769-38EDC8BB3A9F}';
 
   { Data table names }
   nme_Contactos = 'Contactos';
@@ -789,7 +789,7 @@ const
 type
   { IContactos }
   IContactos = interface(IDAStronglyTypedDataTable)
-  ['{98349150-683A-43B9-A657-DE3471558583}']
+  ['{5D4F55BB-2147-4E3F-81A9-7107AEBCD1D3}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1088,7 +1088,7 @@ type
 
   { IGruposCliente }
   IGruposCliente = interface(IDAStronglyTypedDataTable)
-  ['{BB0E66DB-1336-4B95-80DB-13A11D7281BF}']
+  ['{A223D9AB-A0AC-404D-9392-F85F77A54629}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1135,7 +1135,7 @@ type
 
   { IDatosBancarios }
   IDatosBancarios = interface(IDAStronglyTypedDataTable)
-  ['{AF17B165-0EBC-48C3-BA69-E936A3913393}']
+  ['{E13C497A-BE11-4A99-B684-15508C57450E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1290,7 +1290,7 @@ type
 
   { IClientes }
   IClientes = interface(IDAStronglyTypedDataTable)
-  ['{4E2A5607-A478-46E4-B9E4-07D74238F689}']
+  ['{7EB2045D-14C2-4485-BC1E-3B2F7FFC6DCA}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1853,7 +1853,7 @@ type
 
   { IProveedores }
   IProveedores = interface(IDAStronglyTypedDataTable)
-  ['{464DE367-FD40-4AD6-803B-15832BC9EA3C}']
+  ['{AC109D2E-6553-4ACB-B80F-898CD0AFDB07}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2344,7 +2344,7 @@ type
 
   { IEmpleados }
   IEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{B7B9AA33-BE3F-4747-8B4D-1BDF215B9F4F}']
+  ['{D1025C84-84B3-45FE-BCB8-F904AB4CACDC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2775,7 +2775,7 @@ type
 
   { IDireccionesContacto }
   IDireccionesContacto = interface(IDAStronglyTypedDataTable)
-  ['{FF0F3A0F-8526-4EBD-B7A4-7B7B5000739B}']
+  ['{C4090BA6-0B13-4572-8191-109845B84C7F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2990,7 +2990,7 @@ type
 
   { IDataset }
   IDataset = interface(IDAStronglyTypedDataTable)
-  ['{E13A9CF5-1016-4E9E-9F3F-8A9B7498C9C4}']
+  ['{710C0A93-D441-4265-94C7-720D82AE11F7}']
     { Property getters and setters }
 
 
@@ -3013,7 +3013,7 @@ type
 
   { IClientesDescuentos }
   IClientesDescuentos = interface(IDAStronglyTypedDataTable)
-  ['{A806DA08-3C37-46C0-8E22-CE656A4DE68F}']
+  ['{93FA5146-EE4C-4557-BB74-467B3436C4CD}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3096,7 +3096,7 @@ type
 
   { IGruposProveedor }
   IGruposProveedor = interface(IDAStronglyTypedDataTable)
-  ['{8A6844A0-09EE-4D77-BB97-1EE197CEF10C}']
+  ['{21105C16-3A2C-458B-8208-B800388F9AC4}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3143,7 +3143,7 @@ type
 
   { IGruposEmpleado }
   IGruposEmpleado = interface(IDAStronglyTypedDataTable)
-  ['{90134B14-4A3C-43A2-956B-323E988C09DD}']
+  ['{5ECDB821-89F3-4314-8A0D-9A1CD4CA9A96}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3190,7 +3190,7 @@ type
 
   { IContactos_Refresh }
   IContactos_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{C93A7A40-1F2B-4A99-B96A-2A2C068D7155}']
+  ['{AA8B159E-B9CE-4F54-B855-A22D28136DE3}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3465,7 +3465,7 @@ type
 
   { IContratosEmpleados }
   IContratosEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{10136118-89DB-466E-8D16-88DD5392A1D2}']
+  ['{B106745E-0787-43FF-AB2F-69D3BA8A3F1E}']
     { Property getters and setters }
     function GetCONTRATOValue: String;
     procedure SetCONTRATOValue(const aValue: String);
@@ -3500,7 +3500,7 @@ type
 
   { IDescripcionesProveedores }
   IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
-  ['{68CFE0B3-C4B9-4950-A9C5-CCBB863B0A06}']
+  ['{B28B0FAD-9552-4D58-A71F-6BAC8BBCB28E}']
     { Property getters and setters }
     function GetDESCRIPCION_PROVEEDORValue: String;
     procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@@ -3535,7 +3535,7 @@ type
 
   { IPersonalContacto }
   IPersonalContacto = interface(IDAStronglyTypedDataTable)
-  ['{16BE0449-F866-4ADC-8AF7-2F19D0C3AFB2}']
+  ['{C371D91E-9B16-43D9-988D-386527EF73CF}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3678,7 +3678,7 @@ type
 
   { IAgentes_Comisiones }
   IAgentes_Comisiones = interface(IDAStronglyTypedDataTable)
-  ['{C5FC8591-C624-4FA8-A451-504D3F418793}']
+  ['{26D14573-F8D9-4783-B95D-A94CBF779D41}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3761,7 +3761,7 @@ type
 
   { IListaAnosObjetivosAlb }
   IListaAnosObjetivosAlb = interface(IDAStronglyTypedDataTable)
-  ['{F20E0B2A-20DE-4933-8FD6-C47CC78B0813}']
+  ['{280BFCF9-9351-466D-8AE7-BC68CE3ED86F}']
     { Property getters and setters }
     function GetANOValue: SmallInt;
     procedure SetANOValue(const aValue: SmallInt);
@@ -3796,7 +3796,7 @@ type
 
   { IAgentes }
   IAgentes = interface(IDAStronglyTypedDataTable)
-  ['{DB1B14A2-B7B8-4659-A89B-236A123FC8B1}']
+  ['{4A839AB4-C0B8-47D7-B9B0-788965CF6351}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -4131,7 +4131,7 @@ type
 
   { IClientesDescuentosArticulos }
   IClientesDescuentosArticulos = interface(IDAStronglyTypedDataTable)
-  ['{87BC516D-85D8-4338-8693-356B6C5C8EB8}']
+  ['{931179DD-6D2E-481A-8069-56CBF5902417}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -4262,7 +4262,7 @@ type
 
   { IAgentes_Objetivos_albaranes }
   IAgentes_Objetivos_albaranes = interface(IDAStronglyTypedDataTable)
-  ['{F06D48BB-C22F-47F9-B285-C14E612FCEEE}']
+  ['{DBEBEEC5-A942-4243-A26A-484C166A0AC7}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -4369,7 +4369,7 @@ type
 
   { IAgentes_Objetivos_facturas }
   IAgentes_Objetivos_facturas = interface(IDAStronglyTypedDataTable)
-  ['{B0F57782-18E8-4B9F-8B0B-4384B00E1EC4}']
+  ['{B178727E-FD76-4228-8C3E-83D1176E5677}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -4476,7 +4476,7 @@ type
 
   { IListaAnosObjetivosFac }
   IListaAnosObjetivosFac = interface(IDAStronglyTypedDataTable)
-  ['{7F85EE7B-AF93-46A2-833F-EF0EAE0BCEC9}']
+  ['{76EAB699-D2EE-4183-B7E1-095A590A98BE}']
     { Property getters and setters }
     function GetANOValue: SmallInt;
     procedure SetANOValue(const aValue: SmallInt);
@@ -4511,7 +4511,7 @@ type
 
   { ITiposCliente }
   ITiposCliente = interface(IDAStronglyTypedDataTable)
-  ['{244B093E-255F-4713-AE5B-743A8437697F}']
+  ['{AFE86EE1-BA92-418D-B30C-8779F84B8B22}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -4558,7 +4558,7 @@ type
 
   { IClientesSucursales }
   IClientesSucursales = interface(IDAStronglyTypedDataTable)
-  ['{72D464F4-B807-4AA9-B8C0-B2DB28B24334}']
+  ['{10A92722-763F-4ECC-A0DC-41C2AC64AEEC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
index 3defd59..1ebfdef 100644
--- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
@@ -9,35 +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 = '{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}';
+  RID_ContactosDelta = '{E662E87D-5ECA-4F05-B885-715896AD14D0}';
+  RID_GruposClienteDelta = '{AD654463-F85E-43BF-A254-EB9B34EB0904}';
+  RID_DatosBancariosDelta = '{F7928216-29A6-4D76-8F58-EEE6AC3DBF8F}';
+  RID_ClientesDelta = '{183592A4-6A8D-4599-98C2-B4C27C69D44D}';
+  RID_ProveedoresDelta = '{31FD6C4F-4BBA-4D97-A3DB-5B16CE676F13}';
+  RID_EmpleadosDelta = '{B13B5E5F-ACD3-417A-8E77-EC22C76654CC}';
+  RID_DireccionesContactoDelta = '{61ECB565-22C7-4490-B4D0-FFB60FC97B3C}';
+  RID_DatasetDelta = '{12158D2B-66E1-46CE-9669-D9467C9257DA}';
+  RID_ClientesDescuentosDelta = '{38272FD8-32A6-434F-AE95-AC15AC281ECA}';
+  RID_GruposProveedorDelta = '{FDA2CE10-1A8B-40A9-9F83-31618BF7129F}';
+  RID_GruposEmpleadoDelta = '{C8F156DF-3056-4DA9-9A97-9E1440CC56E6}';
+  RID_Contactos_RefreshDelta = '{554A85A6-7727-4E8C-953D-C9E35E932809}';
+  RID_ContratosEmpleadosDelta = '{CE74E63C-507B-4AF3-8A95-2BBB4560E134}';
+  RID_DescripcionesProveedoresDelta = '{3A06E82F-00A8-4E98-AED2-B6849BEF087B}';
+  RID_PersonalContactoDelta = '{42EA0C41-EEAD-4CBA-94C1-BBBA4B9B4349}';
+  RID_Agentes_ComisionesDelta = '{7EE4946A-F8B7-407A-A1F9-7FB4AAEAF942}';
+  RID_ListaAnosObjetivosAlbDelta = '{45B3E376-E444-4A50-9B14-4AA648CFD822}';
+  RID_AgentesDelta = '{B914F898-A44C-4B6D-8E98-79BCE6986E8E}';
+  RID_ClientesDescuentosArticulosDelta = '{A3EB79C3-967A-4DD5-BF33-0761791A2FA1}';
+  RID_Agentes_Objetivos_albaranesDelta = '{F143C8B0-2002-4A42-94FD-E9B46477F398}';
+  RID_Agentes_Objetivos_facturasDelta = '{1CE7D6A7-C9B4-463F-ACD0-82D4D1D439EE}';
+  RID_ListaAnosObjetivosFacDelta = '{56AA0EF1-D77F-44F5-A5BE-78E55F9E6E4A}';
+  RID_TiposClienteDelta = '{647FAB85-83DC-4539-A298-0AC4BA5F32F9}';
+  RID_ClientesSucursalesDelta = '{3D085508-FAD6-4E53-BA2D-C4B092AC933D}';
 
 type
   { IContactosDelta }
   IContactosDelta = interface(IContactos)
-  ['{0A5FD637-C001-429B-B29A-C27FEC220009}']
+  ['{E662E87D-5ECA-4F05-B885-715896AD14D0}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -336,7 +336,7 @@ type
 
   { IGruposClienteDelta }
   IGruposClienteDelta = interface(IGruposCliente)
-  ['{58618B00-45B4-450F-BC62-98742E87021C}']
+  ['{AD654463-F85E-43BF-A254-EB9B34EB0904}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -382,7 +382,7 @@ type
 
   { IDatosBancariosDelta }
   IDatosBancariosDelta = interface(IDatosBancarios)
-  ['{45E51656-91B0-49B7-8D31-522FCFECF559}']
+  ['{F7928216-29A6-4D76-8F58-EEE6AC3DBF8F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -536,7 +536,7 @@ type
 
   { IClientesDelta }
   IClientesDelta = interface(IClientes)
-  ['{4B2EBBC1-A1F0-418D-A16F-8AC7760C068D}']
+  ['{183592A4-6A8D-4599-98C2-B4C27C69D44D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1099,7 +1099,7 @@ type
 
   { IProveedoresDelta }
   IProveedoresDelta = interface(IProveedores)
-  ['{C5F6CB95-56A2-45F8-8FAA-96583A851386}']
+  ['{31FD6C4F-4BBA-4D97-A3DB-5B16CE676F13}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1590,7 +1590,7 @@ type
 
   { IEmpleadosDelta }
   IEmpleadosDelta = interface(IEmpleados)
-  ['{5B767BC3-AC23-4949-859F-0132C28A588B}']
+  ['{B13B5E5F-ACD3-417A-8E77-EC22C76654CC}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -2025,7 +2025,7 @@ type
 
   { IDireccionesContactoDelta }
   IDireccionesContactoDelta = interface(IDireccionesContacto)
-  ['{F8C98CDE-4ED6-4AF1-A2E8-C0D0B91DE1F2}']
+  ['{61ECB565-22C7-4490-B4D0-FFB60FC97B3C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -2240,7 +2240,7 @@ type
 
   { IDatasetDelta }
   IDatasetDelta = interface(IDataset)
-  ['{FAE1EDC9-38FA-4FF5-8BD3-A5B8049BD57C}']
+  ['{12158D2B-66E1-46CE-9669-D9467C9257DA}']
     { Property getters and setters }
 
     { Properties }
@@ -2262,7 +2262,7 @@ type
 
   { IClientesDescuentosDelta }
   IClientesDescuentosDelta = interface(IClientesDescuentos)
-  ['{11218B9B-48CE-4BC6-AAA9-DC6BB9E199E9}']
+  ['{38272FD8-32A6-434F-AE95-AC15AC281ECA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -2344,7 +2344,7 @@ type
 
   { IGruposProveedorDelta }
   IGruposProveedorDelta = interface(IGruposProveedor)
-  ['{DB8B8052-DE17-4DF7-8CEE-A9EB81010E8A}']
+  ['{FDA2CE10-1A8B-40A9-9F83-31618BF7129F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -2390,7 +2390,7 @@ type
 
   { IGruposEmpleadoDelta }
   IGruposEmpleadoDelta = interface(IGruposEmpleado)
-  ['{46BDCC73-5F91-4B1D-8874-6CE45681F51F}']
+  ['{C8F156DF-3056-4DA9-9A97-9E1440CC56E6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -2436,7 +2436,7 @@ type
 
   { IContactos_RefreshDelta }
   IContactos_RefreshDelta = interface(IContactos_Refresh)
-  ['{D9A6D754-813C-4403-B1D7-8F7EE8F2D6DE}']
+  ['{554A85A6-7727-4E8C-953D-C9E35E932809}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldNIF_CIFValue : String;
@@ -2711,7 +2711,7 @@ type
 
   { IContratosEmpleadosDelta }
   IContratosEmpleadosDelta = interface(IContratosEmpleados)
-  ['{61F8337F-C1D9-4A0B-A704-7542C2BB486C}']
+  ['{CE74E63C-507B-4AF3-8A95-2BBB4560E134}']
     { Property getters and setters }
     function GetOldCONTRATOValue : String;
 
@@ -2745,7 +2745,7 @@ type
 
   { IDescripcionesProveedoresDelta }
   IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
-  ['{86FC6907-B4EC-4DFA-81FC-D9C258884E74}']
+  ['{3A06E82F-00A8-4E98-AED2-B6849BEF087B}']
     { Property getters and setters }
     function GetOldDESCRIPCION_PROVEEDORValue : String;
 
@@ -2779,7 +2779,7 @@ type
 
   { IPersonalContactoDelta }
   IPersonalContactoDelta = interface(IPersonalContacto)
-  ['{00D81B2A-8B63-41C2-B200-E5500E57CF69}']
+  ['{42EA0C41-EEAD-4CBA-94C1-BBBA4B9B4349}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -2921,7 +2921,7 @@ type
 
   { IAgentes_ComisionesDelta }
   IAgentes_ComisionesDelta = interface(IAgentes_Comisiones)
-  ['{857BF461-0321-4384-B23C-2B005A67D62A}']
+  ['{7EE4946A-F8B7-407A-A1F9-7FB4AAEAF942}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_AGENTEValue : Integer;
@@ -3003,7 +3003,7 @@ type
 
   { IListaAnosObjetivosAlbDelta }
   IListaAnosObjetivosAlbDelta = interface(IListaAnosObjetivosAlb)
-  ['{6392B970-7086-44FC-B46F-4707959558BA}']
+  ['{45B3E376-E444-4A50-9B14-4AA648CFD822}']
     { Property getters and setters }
     function GetOldANOValue : SmallInt;
 
@@ -3037,7 +3037,7 @@ type
 
   { IAgentesDelta }
   IAgentesDelta = interface(IAgentes)
-  ['{D9C51BA2-E17E-488D-921B-85246BC34612}']
+  ['{B914F898-A44C-4B6D-8E98-79BCE6986E8E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -3372,7 +3372,7 @@ type
 
   { IClientesDescuentosArticulosDelta }
   IClientesDescuentosArticulosDelta = interface(IClientesDescuentosArticulos)
-  ['{6869CAC9-9FFC-47E4-8323-784F27753E19}']
+  ['{A3EB79C3-967A-4DD5-BF33-0761791A2FA1}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -3502,7 +3502,7 @@ type
 
   { IAgentes_Objetivos_albaranesDelta }
   IAgentes_Objetivos_albaranesDelta = interface(IAgentes_Objetivos_albaranes)
-  ['{F3F3A909-A95A-4888-BC4B-BFBC94135FCD}']
+  ['{F143C8B0-2002-4A42-94FD-E9B46477F398}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_AGENTEValue : Integer;
@@ -3608,7 +3608,7 @@ type
 
   { IAgentes_Objetivos_facturasDelta }
   IAgentes_Objetivos_facturasDelta = interface(IAgentes_Objetivos_facturas)
-  ['{878AC53F-72CA-46CB-9B8D-43CCC2093AE7}']
+  ['{1CE7D6A7-C9B4-463F-ACD0-82D4D1D439EE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_AGENTEValue : Integer;
@@ -3714,7 +3714,7 @@ type
 
   { IListaAnosObjetivosFacDelta }
   IListaAnosObjetivosFacDelta = interface(IListaAnosObjetivosFac)
-  ['{C286E28E-4BD7-49D1-8B66-9344027C904A}']
+  ['{56AA0EF1-D77F-44F5-A5BE-78E55F9E6E4A}']
     { Property getters and setters }
     function GetOldANOValue : SmallInt;
 
@@ -3748,7 +3748,7 @@ type
 
   { ITiposClienteDelta }
   ITiposClienteDelta = interface(ITiposCliente)
-  ['{8F6952A9-CE70-45C0-96FD-56A744FD174B}']
+  ['{647FAB85-83DC-4539-A298-0AC4BA5F32F9}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -3794,7 +3794,7 @@ type
 
   { IClientesSucursalesDelta }
   IClientesSucursalesDelta = interface(IClientesSucursales)
-  ['{D03569D4-E025-4BF2-B711-527A63A38205}']
+  ['{3D085508-FAD6-4E53-BA2D-C4B092AC933D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
index 7c5e561..941043a 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
@@ -5970,6 +5970,14 @@ object srvContactos: TsrvContactos
         Name = 'FK_ClientesDescuentos_Clientes'
         MasterDatasetName = 'Clientes'
         MasterFields = 'ID'
+        DetailDatasetName = 'ClientesDescuentos'
+        DetailFields = 'ID_CLIENTE'
+        RelationshipType = rtForeignKey
+      end
+      item
+        Name = 'FK_ClientesDescuentosArticulos_Clientes'
+        MasterDatasetName = 'Clientes'
+        MasterFields = 'ID'
         DetailDatasetName = 'ClientesDescuentosArticulos'
         DetailFields = 'ID_CLIENTE'
         RelationshipType = rtForeignKey
@@ -6187,6 +6195,20 @@ object srvContactos: TsrvContactos
         DatasetName = 'ClientesDescuentos'
         FailureBehavior = fbRaiseException
       end
+      item
+        Name = 'Insert ClientesDescuentosArticulos'
+        DoUpdate = False
+        DoDelete = False
+        DatasetName = 'ClientesDescuentosArticulos'
+        FailureBehavior = fbRaiseException
+      end
+      item
+        Name = 'Update ClientesDescuentosArticulos'
+        DoInsert = False
+        DoDelete = False
+        DatasetName = 'ClientesDescuentosArticulos'
+        FailureBehavior = fbRaiseException
+      end
       item
         Name = 'Delete DatosBancarios'
         DoUpdate = False
@@ -6201,6 +6223,13 @@ object srvContactos: TsrvContactos
         DatasetName = 'ClientesDescuentos'
         FailureBehavior = fbRaiseException
       end
+      item
+        Name = 'Delete ClientesDescuentosArticulos'
+        DoUpdate = False
+        DoInsert = False
+        DatasetName = 'ClientesDescuentosArticulos'
+        FailureBehavior = fbRaiseException
+      end
       item
         Name = 'Delete AgentesComisiones'
         DoUpdate = False
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.identcache b/Source/Modulos/Contactos/Views/Contactos_view.identcache
index 51f84e6da4ecd63f55fe1b1b62676fd465a45e3a..f620e68ad76e073e84475cf7e1cf934192cb459f 100644
GIT binary patch
delta 238
zcmZ1}zfyjK731VNT!xb`u}MxAU^bk*lQDI&6{F$gAXZr*?Ke4!-*ECLCb`Lx%n?9&
zqsiyE*eA<#3rx;u)!+Pp*^v>bKzs58PL@eL3P5wf%*o4`q$hFdPxfWvnEaM?%jDN=
zZj%K#wI|oJu}%KVqcU-_{^SI9jmdIMk&`>veV_(#ZI0yNVVt~=H*#|-=Vr#qc0k1*
z%z~2}xC1A?(w_XEU3IboPZZdRulXb<SMdY^o!~y1hYez70B;^pss7|RZY7|>5W6Pv
PX@I@v!6!MHnSU7on{P{d

delta 244
zcmZ1}zfyjK72{+nCd0`ynPewV;4z%Ml`(a40-yFIPS(lyS=lG&v2ad4!!9}bEwlFI
z39RyyqxcOcKWCByE3M_0n9Rx?G5I`;{^qO9jv#aVfE<I#8#ve}hjH0YzQ?);sL^n8
zHlyU^JzV;e|FN)7zQ86h*_1te@>6!7iLbOL3-YJ}&D5T3z|68afkTLK^J&h_jFbDB
z#V7Og1p=}D<RjclP!+6`-GDAI<B6JllP75M1Gdn~?JQuOlNa*lfgC+Kfn9j=22N?P
ZrLXuTfnt$BmwEy%1gc|Wn{2{g3IH@9P@Vt)

diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
index d94bfc6..7a47265 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@@ -126,12 +126,10 @@ inherited fEditorCliente: TfEditorCliente
   inherited pgPaginas: TPageControl
     Width = 864
     Height = 614
-    ActivePage = tabSucursales
+    ActivePage = pagDescuentos
     ExplicitWidth = 864
     ExplicitHeight = 614
     inherited pagGeneral: TTabSheet
-      ExplicitLeft = 0
-      ExplicitTop = 0
       ExplicitWidth = 856
       ExplicitHeight = 586
       inline frViewCliente1: TfrViewCliente
@@ -175,16 +173,20 @@ inherited fEditorCliente: TfEditorCliente
             ExplicitTop = 162
           end
           inherited Label1: TLabel
-            Left = 586
+            Left = 598
             Top = 418
-            ExplicitLeft = 586
+            Width = 269
+            ExplicitLeft = 598
             ExplicitTop = 418
+            ExplicitWidth = 269
           end
           inherited Label2: TLabel
-            Left = 586
+            Left = 598
             Top = 321
-            ExplicitLeft = 586
+            Width = 271
+            ExplicitLeft = 598
             ExplicitTop = 321
+            ExplicitWidth = 271
           end
           inherited PngSpeedButton4: TPngSpeedButton
             Left = 794
@@ -273,25 +275,27 @@ inherited fEditorCliente: TfEditorCliente
             Width = 246
           end
           inherited eCodigoPostal: TcxDBTextEdit
-            Left = 493
+            Left = 505
             Top = 478
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 493
+            ExplicitLeft = 505
             ExplicitTop = 478
           end
           inherited cbFelicitacion: TcxDBCheckBox
-            Left = 586
+            Left = 598
             Top = 270
-            ExplicitLeft = 586
+            ExplicitLeft = 598
             ExplicitTop = 270
+            ExplicitWidth = 370
+            Width = 370
           end
           inherited cxDBCheckBox1: TcxDBCheckBox
-            Left = 586
+            Left = 598
             Top = 463
-            ExplicitLeft = 586
+            ExplicitLeft = 598
             ExplicitTop = 463
             ExplicitWidth = 219
             ExplicitHeight = 34
@@ -304,11 +308,13 @@ inherited fEditorCliente: TfEditorCliente
             Width = 308
           end
           inherited eMailAdministracion: TcxDBHyperLinkEdit
-            Left = 698
+            Left = 710
             Top = 366
             Properties.Prefix = 'mailto:'
-            ExplicitLeft = 698
+            ExplicitLeft = 710
             ExplicitTop = 366
+            ExplicitWidth = 133
+            Width = 133
           end
           inherited eObservaciones: TcxDBMemo
             Top = 583
@@ -325,35 +331,43 @@ inherited fEditorCliente: TfEditorCliente
           inherited cbTipoCliente: TcxDBComboBox
             Top = 165
             ExplicitTop = 165
+            ExplicitWidth = 332
+            Width = 332
           end
           inherited cbSEPA: TcxDBCheckBox
-            Left = 274
+            Left = 280
             Top = 192
-            ExplicitLeft = 274
+            ExplicitLeft = 280
             ExplicitTop = 192
             ExplicitWidth = 481
             Width = 481
           end
           inherited frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral
             Top = 243
+            Width = 235
             ExplicitTop = 243
+            ExplicitWidth = 235
             inherited dxLayoutControl1: TdxLayoutControl
+              Width = 235
               inherited edtlNombre: TcxDBTextEdit
                 Style.LookAndFeel.SkinName = ''
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
+                ExplicitWidth = 591
+                Width = 591
               end
               inherited edtNIFCIF: TcxDBTextEdit
-                Left = 446
+                Left = 458
                 Style.LookAndFeel.SkinName = ''
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
-                ExplicitLeft = 446
+                ExplicitLeft = 458
               end
             end
             inherited Panel1: TPanel
+              Width = 235
               ExplicitWidth = 548
               inherited bVerFicha: TBitBtn
                 Visible = False
@@ -361,13 +375,13 @@ inherited fEditorCliente: TfEditorCliente
             end
           end
           inherited ePaginaWeb: TcxDBHyperLinkEdit
-            Left = 698
+            Left = 710
             Top = 217
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 698
+            ExplicitLeft = 710
             ExplicitTop = 217
             ExplicitWidth = 148
             Width = 148
@@ -393,63 +407,63 @@ inherited fEditorCliente: TfEditorCliente
             Width = 246
           end
           inherited eNIFCIF: TcxDBTextEdit
-            Left = 289
+            Left = 293
             Top = 30
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 289
+            ExplicitLeft = 293
             ExplicitTop = 30
             ExplicitWidth = 162
             Width = 162
           end
           inherited eMailTrabajo: TcxDBHyperLinkEdit
-            Left = 698
+            Left = 710
             Top = 162
             Properties.Prefix = 'mailto:'
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 698
+            ExplicitLeft = 710
             ExplicitTop = 162
             ExplicitWidth = 148
             Width = 148
           end
           inherited eMailParticular: TcxDBHyperLinkEdit
-            Left = 698
+            Left = 710
             Top = 190
             Properties.Prefix = 'mailto:'
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 698
+            ExplicitLeft = 710
             ExplicitTop = 190
             ExplicitWidth = 148
             Width = 148
           end
           inherited eTlfMovil: TcxDBTextEdit
-            Left = 698
+            Left = 710
             Top = 84
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 698
+            ExplicitLeft = 710
             ExplicitTop = 84
             ExplicitWidth = 177
             Width = 177
           end
           inherited eFax: TcxDBTextEdit
-            Left = 698
+            Left = 710
             Top = 111
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 698
+            ExplicitLeft = 710
             ExplicitTop = 111
             ExplicitWidth = 177
             Width = 177
@@ -465,25 +479,25 @@ inherited fEditorCliente: TfEditorCliente
             Width = 246
           end
           inherited eTlfParticular: TcxDBTextEdit
-            Left = 698
+            Left = 710
             Top = 57
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 698
+            ExplicitLeft = 710
             ExplicitTop = 57
             ExplicitWidth = 177
             Width = 177
           end
           inherited eTlfTrabajo: TcxDBTextEdit
-            Left = 698
+            Left = 710
             Top = 30
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 698
+            ExplicitLeft = 710
             ExplicitTop = 30
             ExplicitWidth = 177
             Width = 177
@@ -505,17 +519,37 @@ inherited fEditorCliente: TfEditorCliente
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 856
           ExplicitWidth = 856
+          inherited eEntidad: TcxDBTextEdit
+            ExplicitWidth = 114
+            Width = 114
+          end
           inherited eSucursal: TcxDBTextEdit
-            Left = 334
-            ExplicitLeft = 334
+            Left = 335
+            ExplicitLeft = 335
+            ExplicitWidth = 112
+            Width = 112
           end
           inherited eCuenta: TcxDBTextEdit
-            Left = 614
-            ExplicitLeft = 614
+            Left = 615
+            ExplicitLeft = 615
+            ExplicitWidth = 194
+            Width = 194
           end
           inherited eDC: TcxDBTextEdit
-            Left = 493
-            ExplicitLeft = 493
+            Left = 494
+            ExplicitLeft = 494
+          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
@@ -553,7 +587,9 @@ inherited fEditorCliente: TfEditorCliente
           end
           inherited Bevel1: TBevel
             Top = 138
+            Width = 263
             ExplicitTop = 138
+            ExplicitWidth = 263
           end
           inherited eDiasVencimiento1: TcxDBSpinEdit
             Left = 647
@@ -648,6 +684,8 @@ inherited fEditorCliente: TfEditorCliente
           inherited eAgente: TcxDBLookupComboBox
             Top = 176
             ExplicitTop = 176
+            ExplicitWidth = 216
+            Width = 216
           end
         end
       end
@@ -730,18 +768,6 @@ 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
@@ -770,18 +796,6 @@ 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
@@ -846,18 +860,6 @@ 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
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index efa1880c0acf80ac477b651d20d697a1736a74b8..9f429a796b9eaa3e4521a0fc74b44478ad4d2a48 100644
GIT binary patch
delta 21
ccmZ3om2t^d#tk7+>}CvB48{z`lcS?N0a8T<fdBvi

delta 21
ccmZ3om2t^d#tk7+?8XdM42BFwlcS?N0a6hLdjJ3c

diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 6e8edb3..128beaa 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -3,7 +3,6 @@ program FactuGES_Server;
 {#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
 
 uses
-//  ExceptionLog,
   uROComInit,
   uROComboService,
   Forms,
@@ -162,8 +161,6 @@ uses
   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',
-  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
   schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
   schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
   srvTiposDocumento_Impl in '..\Modulos\TiposDocumento\Servidor\srvTiposDocumento_Impl.pas' {srvTiposDocumento: TDataAbstractService},
@@ -172,7 +169,9 @@ uses
   schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
   schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
   schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
-  schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas';
+  schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_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 9789637..3019c85 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "4.3.8.0\0"
               VALUE "ProductVersion", "4.3.8.0\0"
-              VALUE "CompileDate", "viernes, 07 de marzo de 2014 13:12\0"
+              VALUE "CompileDate", "viernes, 07 de marzo de 2014 16:33\0"
          END
     END
     BLOCK "VarFileInfo"