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
This commit is contained in:
roberto 2014-03-11 18:20:37 +00:00
parent 2f69ce945e
commit 4612121390
11 changed files with 210 additions and 179 deletions

View File

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

View File

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

View File

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

View File

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

View File

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

Binary file not shown.

View File

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

View File

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