diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.identcache b/Source/Modulos/Contactos/Controller/Contactos_controller.identcache index ebe70e8..8ff2c49 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/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 833bd15..f899011 100644 Binary files a/Source/Modulos/Contactos/Model/Contactos_model.identcache and b/Source/Modulos/Contactos/Model/Contactos_model.identcache differ 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 51f84e6..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 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 efa1880..9f429a7 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 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"