Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se quita la validacion de IBAN en contactos

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.identcache
View File

Binary file not shown.

3
Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas
View File

@ -72,7 +72,8 @@ end;
function TDatosBancariosContactoController.ValidarCodigoIBAN( function TDatosBancariosContactoController.ValidarCodigoIBAN(
AIBAN: string): boolean; AIBAN: string): boolean;
begin begin
result := EsCodigoIBANValido(AIBAN) //Se desactiva la validación ya que dicen que hay clientes que no les coincide
result := True; //EsCodigoIBANValido(AIBAN)
end; end;
function TDatosBancariosContactoController.GenerarCodigoIBAN( function TDatosBancariosContactoController.GenerarCodigoIBAN(

BIN
Source/Modulos/Contactos/Model/Contactos_model.identcache
View File

Binary file not shown.

96
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -9,30 +9,30 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Contactos = '{C3B50FF2-3CB7-4FBF-9D78-FAB6B51D60AC}'; RID_Contactos = '{9419A071-56ED-4EA0-98BD-9A438DEB610D}';
RID_GruposCliente = '{55D77B34-0FCD-41A4-88E3-3D6D5E6CF482}'; RID_GruposCliente = '{C0318EF8-C697-4AFA-B2E1-F2BFB32BEFF8}';
RID_DatosBancarios = '{E45A991F-21D1-4DA9-A91C-7A5A7F2D0973}'; RID_DatosBancarios = '{3452E6C6-0F6C-49F8-815B-304A05CCB77E}';
RID_Clientes = '{963FB743-F6A9-4F48-B756-E6AB65D90D7C}'; RID_Clientes = '{77497235-0105-47D6-B9D6-25B677375B49}';
RID_Proveedores = '{6FCD2248-D13A-4E92-9161-12347589B9A0}'; RID_Proveedores = '{53CAAFB7-3577-42CC-A387-5E6F767ED122}';
RID_Empleados = '{03A01669-3FC3-4B09-B56A-5450C31D02D0}'; RID_Empleados = '{D111FE7B-AADE-410C-B762-497501CDEDD0}';
RID_DireccionesContacto = '{54ADF522-9C59-4B34-B767-269A85A09E56}'; RID_DireccionesContacto = '{3D521EA6-FA75-4719-BC3F-BA4692C51CF2}';
RID_Dataset = '{11791DDB-CED2-4B96-BDA3-54D99DA47BB9}'; RID_Dataset = '{62553C53-9CEA-49B3-8A09-224AC8D5300C}';
RID_ClientesDescuentos = '{EFC3D2F4-4B37-428C-AE71-451F8C813356}'; RID_ClientesDescuentos = '{F498D6E5-B10D-41C8-8EC6-E19590EF831A}';
RID_GruposProveedor = '{0950EFDD-4F97-478D-B4BB-043128FF9572}'; RID_GruposProveedor = '{E673F9AA-330E-4A54-B3D5-844590ACD6F8}';
RID_GruposEmpleado = '{1ED1589B-049D-4673-913B-45D24CE2702A}'; RID_GruposEmpleado = '{160238E8-427D-43C3-AC6A-4A612ED9F44B}';
RID_Contactos_Refresh = '{59C7BD2D-E3E9-4640-8CB2-0988FE63516D}'; RID_Contactos_Refresh = '{BA59300F-898F-4F31-9C81-80223C34B48B}';
RID_ContratosEmpleados = '{884B1814-4CC7-470C-8A30-EF0D5F98DF4F}'; RID_ContratosEmpleados = '{2124ED2E-59A5-4D1C-857B-093CDEF4E3D1}';
RID_DescripcionesProveedores = '{252E080C-4138-4927-B2C2-BAD85EB8F16F}'; RID_DescripcionesProveedores = '{DB67EF16-8296-4131-94CD-4FA683C52F94}';
RID_PersonalContacto = '{F794DBF1-7650-48DA-AB7D-FBF570A666C7}'; RID_PersonalContacto = '{3BF39E7D-F930-4AD9-92DB-DE12799BB9A6}';
RID_Agentes_Comisiones = '{836BC6D8-1353-4338-B63A-A529BE3666CD}'; RID_Agentes_Comisiones = '{1E35C892-DD70-400F-A1A6-44E79FCD956F}';
RID_ListaAnosObjetivosAlb = '{E5FEE9FE-DC35-4ED7-9E40-83D34B632A24}'; RID_ListaAnosObjetivosAlb = '{52CBA43C-E630-4BE9-AF5E-72ADCC1B81BB}';
RID_Agentes = '{47F36B70-200E-4A63-80F2-E9258B292140}'; RID_Agentes = '{B04755B8-EB30-4BCE-A27D-0A24FBF0063F}';
RID_ClientesDescuentosArticulos = '{9E7D8233-D5D9-4E69-9C3F-A8A336D6CB27}'; RID_ClientesDescuentosArticulos = '{C8C11FB1-7593-4C1E-9D8E-1CD4289A478F}';
RID_Agentes_Objetivos_albaranes = '{4E8B52EB-6EE1-4952-83D4-5E421E593EB7}'; RID_Agentes_Objetivos_albaranes = '{458FD373-C005-4D3D-A491-5E77F270A623}';
RID_Agentes_Objetivos_facturas = '{05157A17-D44A-4703-8F38-83ABE33E9B08}'; RID_Agentes_Objetivos_facturas = '{CAA5EC78-3E06-4001-B48F-D60F3D6DCFC1}';
RID_ListaAnosObjetivosFac = '{1E7B19D3-E052-4669-B297-DB991CCAB35E}'; RID_ListaAnosObjetivosFac = '{69451139-C9AA-4EEC-8D12-B3C0B207F6C5}';
RID_TiposCliente = '{D4130883-1444-4861-A887-D489CB842A26}'; RID_TiposCliente = '{9B042753-443D-44A8-B08A-D8AD435D4B94}';
RID_ClientesSucursales = '{AC04A0AC-AB1C-44CD-A98B-1C9D21D4CE05}'; RID_ClientesSucursales = '{A56824F8-8C68-4609-9769-38EDC8BB3A9F}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -789,7 +789,7 @@ const
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{98349150-683A-43B9-A657-DE3471558583}'] ['{5D4F55BB-2147-4E3F-81A9-7107AEBCD1D3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1088,7 +1088,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{BB0E66DB-1336-4B95-80DB-13A11D7281BF}'] ['{A223D9AB-A0AC-404D-9392-F85F77A54629}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1135,7 +1135,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{AF17B165-0EBC-48C3-BA69-E936A3913393}'] ['{E13C497A-BE11-4A99-B684-15508C57450E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1290,7 +1290,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{4E2A5607-A478-46E4-B9E4-07D74238F689}'] ['{7EB2045D-14C2-4485-BC1E-3B2F7FFC6DCA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1853,7 +1853,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{464DE367-FD40-4AD6-803B-15832BC9EA3C}'] ['{AC109D2E-6553-4ACB-B80F-898CD0AFDB07}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2344,7 +2344,7 @@ type
{ IEmpleados } { IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable) IEmpleados = interface(IDAStronglyTypedDataTable)
['{B7B9AA33-BE3F-4747-8B4D-1BDF215B9F4F}'] ['{D1025C84-84B3-45FE-BCB8-F904AB4CACDC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2775,7 +2775,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{FF0F3A0F-8526-4EBD-B7A4-7B7B5000739B}'] ['{C4090BA6-0B13-4572-8191-109845B84C7F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2990,7 +2990,7 @@ type
{ IDataset } { IDataset }
IDataset = interface(IDAStronglyTypedDataTable) IDataset = interface(IDAStronglyTypedDataTable)
['{E13A9CF5-1016-4E9E-9F3F-8A9B7498C9C4}'] ['{710C0A93-D441-4265-94C7-720D82AE11F7}']
{ Property getters and setters } { Property getters and setters }
@ -3013,7 +3013,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{A806DA08-3C37-46C0-8E22-CE656A4DE68F}'] ['{93FA5146-EE4C-4557-BB74-467B3436C4CD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3096,7 +3096,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{8A6844A0-09EE-4D77-BB97-1EE197CEF10C}'] ['{21105C16-3A2C-458B-8208-B800388F9AC4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3143,7 +3143,7 @@ type
{ IGruposEmpleado } { IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable) IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{90134B14-4A3C-43A2-956B-323E988C09DD}'] ['{5ECDB821-89F3-4314-8A0D-9A1CD4CA9A96}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3190,7 +3190,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{C93A7A40-1F2B-4A99-B96A-2A2C068D7155}'] ['{AA8B159E-B9CE-4F54-B855-A22D28136DE3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3465,7 +3465,7 @@ type
{ IContratosEmpleados } { IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable) IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{10136118-89DB-466E-8D16-88DD5392A1D2}'] ['{B106745E-0787-43FF-AB2F-69D3BA8A3F1E}']
{ Property getters and setters } { Property getters and setters }
function GetCONTRATOValue: String; function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String); procedure SetCONTRATOValue(const aValue: String);
@ -3500,7 +3500,7 @@ type
{ IDescripcionesProveedores } { IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{68CFE0B3-C4B9-4950-A9C5-CCBB863B0A06}'] ['{B28B0FAD-9552-4D58-A71F-6BAC8BBCB28E}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -3535,7 +3535,7 @@ type
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{16BE0449-F866-4ADC-8AF7-2F19D0C3AFB2}'] ['{C371D91E-9B16-43D9-988D-386527EF73CF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3678,7 +3678,7 @@ type
{ IAgentes_Comisiones } { IAgentes_Comisiones }
IAgentes_Comisiones = interface(IDAStronglyTypedDataTable) IAgentes_Comisiones = interface(IDAStronglyTypedDataTable)
['{C5FC8591-C624-4FA8-A451-504D3F418793}'] ['{26D14573-F8D9-4783-B95D-A94CBF779D41}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3761,7 +3761,7 @@ type
{ IListaAnosObjetivosAlb } { IListaAnosObjetivosAlb }
IListaAnosObjetivosAlb = interface(IDAStronglyTypedDataTable) IListaAnosObjetivosAlb = interface(IDAStronglyTypedDataTable)
['{F20E0B2A-20DE-4933-8FD6-C47CC78B0813}'] ['{280BFCF9-9351-466D-8AE7-BC68CE3ED86F}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: SmallInt; function GetANOValue: SmallInt;
procedure SetANOValue(const aValue: SmallInt); procedure SetANOValue(const aValue: SmallInt);
@ -3796,7 +3796,7 @@ type
{ IAgentes } { IAgentes }
IAgentes = interface(IDAStronglyTypedDataTable) IAgentes = interface(IDAStronglyTypedDataTable)
['{DB1B14A2-B7B8-4659-A89B-236A123FC8B1}'] ['{4A839AB4-C0B8-47D7-B9B0-788965CF6351}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4131,7 +4131,7 @@ type
{ IClientesDescuentosArticulos } { IClientesDescuentosArticulos }
IClientesDescuentosArticulos = interface(IDAStronglyTypedDataTable) IClientesDescuentosArticulos = interface(IDAStronglyTypedDataTable)
['{87BC516D-85D8-4338-8693-356B6C5C8EB8}'] ['{931179DD-6D2E-481A-8069-56CBF5902417}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4262,7 +4262,7 @@ type
{ IAgentes_Objetivos_albaranes } { IAgentes_Objetivos_albaranes }
IAgentes_Objetivos_albaranes = interface(IDAStronglyTypedDataTable) IAgentes_Objetivos_albaranes = interface(IDAStronglyTypedDataTable)
['{F06D48BB-C22F-47F9-B285-C14E612FCEEE}'] ['{DBEBEEC5-A942-4243-A26A-484C166A0AC7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4369,7 +4369,7 @@ type
{ IAgentes_Objetivos_facturas } { IAgentes_Objetivos_facturas }
IAgentes_Objetivos_facturas = interface(IDAStronglyTypedDataTable) IAgentes_Objetivos_facturas = interface(IDAStronglyTypedDataTable)
['{B0F57782-18E8-4B9F-8B0B-4384B00E1EC4}'] ['{B178727E-FD76-4228-8C3E-83D1176E5677}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4476,7 +4476,7 @@ type
{ IListaAnosObjetivosFac } { IListaAnosObjetivosFac }
IListaAnosObjetivosFac = interface(IDAStronglyTypedDataTable) IListaAnosObjetivosFac = interface(IDAStronglyTypedDataTable)
['{7F85EE7B-AF93-46A2-833F-EF0EAE0BCEC9}'] ['{76EAB699-D2EE-4183-B7E1-095A590A98BE}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: SmallInt; function GetANOValue: SmallInt;
procedure SetANOValue(const aValue: SmallInt); procedure SetANOValue(const aValue: SmallInt);
@ -4511,7 +4511,7 @@ type
{ ITiposCliente } { ITiposCliente }
ITiposCliente = interface(IDAStronglyTypedDataTable) ITiposCliente = interface(IDAStronglyTypedDataTable)
['{244B093E-255F-4713-AE5B-743A8437697F}'] ['{AFE86EE1-BA92-418D-B30C-8779F84B8B22}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4558,7 +4558,7 @@ type
{ IClientesSucursales } { IClientesSucursales }
IClientesSucursales = interface(IDAStronglyTypedDataTable) IClientesSucursales = interface(IDAStronglyTypedDataTable)
['{72D464F4-B807-4AA9-B8C0-B2DB28B24334}'] ['{10A92722-763F-4ECC-A0DC-41C2AC64AEEC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

96
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,35 +9,35 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ContactosDelta = '{0A5FD637-C001-429B-B29A-C27FEC220009}'; RID_ContactosDelta = '{E662E87D-5ECA-4F05-B885-715896AD14D0}';
RID_GruposClienteDelta = '{58618B00-45B4-450F-BC62-98742E87021C}'; RID_GruposClienteDelta = '{AD654463-F85E-43BF-A254-EB9B34EB0904}';
RID_DatosBancariosDelta = '{45E51656-91B0-49B7-8D31-522FCFECF559}'; RID_DatosBancariosDelta = '{F7928216-29A6-4D76-8F58-EEE6AC3DBF8F}';
RID_ClientesDelta = '{4B2EBBC1-A1F0-418D-A16F-8AC7760C068D}'; RID_ClientesDelta = '{183592A4-6A8D-4599-98C2-B4C27C69D44D}';
RID_ProveedoresDelta = '{C5F6CB95-56A2-45F8-8FAA-96583A851386}'; RID_ProveedoresDelta = '{31FD6C4F-4BBA-4D97-A3DB-5B16CE676F13}';
RID_EmpleadosDelta = '{5B767BC3-AC23-4949-859F-0132C28A588B}'; RID_EmpleadosDelta = '{B13B5E5F-ACD3-417A-8E77-EC22C76654CC}';
RID_DireccionesContactoDelta = '{F8C98CDE-4ED6-4AF1-A2E8-C0D0B91DE1F2}'; RID_DireccionesContactoDelta = '{61ECB565-22C7-4490-B4D0-FFB60FC97B3C}';
RID_DatasetDelta = '{FAE1EDC9-38FA-4FF5-8BD3-A5B8049BD57C}'; RID_DatasetDelta = '{12158D2B-66E1-46CE-9669-D9467C9257DA}';
RID_ClientesDescuentosDelta = '{11218B9B-48CE-4BC6-AAA9-DC6BB9E199E9}'; RID_ClientesDescuentosDelta = '{38272FD8-32A6-434F-AE95-AC15AC281ECA}';
RID_GruposProveedorDelta = '{DB8B8052-DE17-4DF7-8CEE-A9EB81010E8A}'; RID_GruposProveedorDelta = '{FDA2CE10-1A8B-40A9-9F83-31618BF7129F}';
RID_GruposEmpleadoDelta = '{46BDCC73-5F91-4B1D-8874-6CE45681F51F}'; RID_GruposEmpleadoDelta = '{C8F156DF-3056-4DA9-9A97-9E1440CC56E6}';
RID_Contactos_RefreshDelta = '{D9A6D754-813C-4403-B1D7-8F7EE8F2D6DE}'; RID_Contactos_RefreshDelta = '{554A85A6-7727-4E8C-953D-C9E35E932809}';
RID_ContratosEmpleadosDelta = '{61F8337F-C1D9-4A0B-A704-7542C2BB486C}'; RID_ContratosEmpleadosDelta = '{CE74E63C-507B-4AF3-8A95-2BBB4560E134}';
RID_DescripcionesProveedoresDelta = '{86FC6907-B4EC-4DFA-81FC-D9C258884E74}'; RID_DescripcionesProveedoresDelta = '{3A06E82F-00A8-4E98-AED2-B6849BEF087B}';
RID_PersonalContactoDelta = '{00D81B2A-8B63-41C2-B200-E5500E57CF69}'; RID_PersonalContactoDelta = '{42EA0C41-EEAD-4CBA-94C1-BBBA4B9B4349}';
RID_Agentes_ComisionesDelta = '{857BF461-0321-4384-B23C-2B005A67D62A}'; RID_Agentes_ComisionesDelta = '{7EE4946A-F8B7-407A-A1F9-7FB4AAEAF942}';
RID_ListaAnosObjetivosAlbDelta = '{6392B970-7086-44FC-B46F-4707959558BA}'; RID_ListaAnosObjetivosAlbDelta = '{45B3E376-E444-4A50-9B14-4AA648CFD822}';
RID_AgentesDelta = '{D9C51BA2-E17E-488D-921B-85246BC34612}'; RID_AgentesDelta = '{B914F898-A44C-4B6D-8E98-79BCE6986E8E}';
RID_ClientesDescuentosArticulosDelta = '{6869CAC9-9FFC-47E4-8323-784F27753E19}'; RID_ClientesDescuentosArticulosDelta = '{A3EB79C3-967A-4DD5-BF33-0761791A2FA1}';
RID_Agentes_Objetivos_albaranesDelta = '{F3F3A909-A95A-4888-BC4B-BFBC94135FCD}'; RID_Agentes_Objetivos_albaranesDelta = '{F143C8B0-2002-4A42-94FD-E9B46477F398}';
RID_Agentes_Objetivos_facturasDelta = '{878AC53F-72CA-46CB-9B8D-43CCC2093AE7}'; RID_Agentes_Objetivos_facturasDelta = '{1CE7D6A7-C9B4-463F-ACD0-82D4D1D439EE}';
RID_ListaAnosObjetivosFacDelta = '{C286E28E-4BD7-49D1-8B66-9344027C904A}'; RID_ListaAnosObjetivosFacDelta = '{56AA0EF1-D77F-44F5-A5BE-78E55F9E6E4A}';
RID_TiposClienteDelta = '{8F6952A9-CE70-45C0-96FD-56A744FD174B}'; RID_TiposClienteDelta = '{647FAB85-83DC-4539-A298-0AC4BA5F32F9}';
RID_ClientesSucursalesDelta = '{D03569D4-E025-4BF2-B711-527A63A38205}'; RID_ClientesSucursalesDelta = '{3D085508-FAD6-4E53-BA2D-C4B092AC933D}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{0A5FD637-C001-429B-B29A-C27FEC220009}'] ['{E662E87D-5ECA-4F05-B885-715896AD14D0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -336,7 +336,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{58618B00-45B4-450F-BC62-98742E87021C}'] ['{AD654463-F85E-43BF-A254-EB9B34EB0904}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -382,7 +382,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{45E51656-91B0-49B7-8D31-522FCFECF559}'] ['{F7928216-29A6-4D76-8F58-EEE6AC3DBF8F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -536,7 +536,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{4B2EBBC1-A1F0-418D-A16F-8AC7760C068D}'] ['{183592A4-6A8D-4599-98C2-B4C27C69D44D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1099,7 +1099,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{C5F6CB95-56A2-45F8-8FAA-96583A851386}'] ['{31FD6C4F-4BBA-4D97-A3DB-5B16CE676F13}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1590,7 +1590,7 @@ type
{ IEmpleadosDelta } { IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados) IEmpleadosDelta = interface(IEmpleados)
['{5B767BC3-AC23-4949-859F-0132C28A588B}'] ['{B13B5E5F-ACD3-417A-8E77-EC22C76654CC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -2025,7 +2025,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{F8C98CDE-4ED6-4AF1-A2E8-C0D0B91DE1F2}'] ['{61ECB565-22C7-4490-B4D0-FFB60FC97B3C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2240,7 +2240,7 @@ type
{ IDatasetDelta } { IDatasetDelta }
IDatasetDelta = interface(IDataset) IDatasetDelta = interface(IDataset)
['{FAE1EDC9-38FA-4FF5-8BD3-A5B8049BD57C}'] ['{12158D2B-66E1-46CE-9669-D9467C9257DA}']
{ Property getters and setters } { Property getters and setters }
{ Properties } { Properties }
@ -2262,7 +2262,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{11218B9B-48CE-4BC6-AAA9-DC6BB9E199E9}'] ['{38272FD8-32A6-434F-AE95-AC15AC281ECA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2344,7 +2344,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{DB8B8052-DE17-4DF7-8CEE-A9EB81010E8A}'] ['{FDA2CE10-1A8B-40A9-9F83-31618BF7129F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2390,7 +2390,7 @@ type
{ IGruposEmpleadoDelta } { IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado) IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{46BDCC73-5F91-4B1D-8874-6CE45681F51F}'] ['{C8F156DF-3056-4DA9-9A97-9E1440CC56E6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2436,7 +2436,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{D9A6D754-813C-4403-B1D7-8F7EE8F2D6DE}'] ['{554A85A6-7727-4E8C-953D-C9E35E932809}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -2711,7 +2711,7 @@ type
{ IContratosEmpleadosDelta } { IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados) IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{61F8337F-C1D9-4A0B-A704-7542C2BB486C}'] ['{CE74E63C-507B-4AF3-8A95-2BBB4560E134}']
{ Property getters and setters } { Property getters and setters }
function GetOldCONTRATOValue : String; function GetOldCONTRATOValue : String;
@ -2745,7 +2745,7 @@ type
{ IDescripcionesProveedoresDelta } { IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{86FC6907-B4EC-4DFA-81FC-D9C258884E74}'] ['{3A06E82F-00A8-4E98-AED2-B6849BEF087B}']
{ Property getters and setters } { Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2779,7 +2779,7 @@ type
{ IPersonalContactoDelta } { IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto) IPersonalContactoDelta = interface(IPersonalContacto)
['{00D81B2A-8B63-41C2-B200-E5500E57CF69}'] ['{42EA0C41-EEAD-4CBA-94C1-BBBA4B9B4349}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2921,7 +2921,7 @@ type
{ IAgentes_ComisionesDelta } { IAgentes_ComisionesDelta }
IAgentes_ComisionesDelta = interface(IAgentes_Comisiones) IAgentes_ComisionesDelta = interface(IAgentes_Comisiones)
['{857BF461-0321-4384-B23C-2B005A67D62A}'] ['{7EE4946A-F8B7-407A-A1F9-7FB4AAEAF942}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
@ -3003,7 +3003,7 @@ type
{ IListaAnosObjetivosAlbDelta } { IListaAnosObjetivosAlbDelta }
IListaAnosObjetivosAlbDelta = interface(IListaAnosObjetivosAlb) IListaAnosObjetivosAlbDelta = interface(IListaAnosObjetivosAlb)
['{6392B970-7086-44FC-B46F-4707959558BA}'] ['{45B3E376-E444-4A50-9B14-4AA648CFD822}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : SmallInt; function GetOldANOValue : SmallInt;
@ -3037,7 +3037,7 @@ type
{ IAgentesDelta } { IAgentesDelta }
IAgentesDelta = interface(IAgentes) IAgentesDelta = interface(IAgentes)
['{D9C51BA2-E17E-488D-921B-85246BC34612}'] ['{B914F898-A44C-4B6D-8E98-79BCE6986E8E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -3372,7 +3372,7 @@ type
{ IClientesDescuentosArticulosDelta } { IClientesDescuentosArticulosDelta }
IClientesDescuentosArticulosDelta = interface(IClientesDescuentosArticulos) IClientesDescuentosArticulosDelta = interface(IClientesDescuentosArticulos)
['{6869CAC9-9FFC-47E4-8323-784F27753E19}'] ['{A3EB79C3-967A-4DD5-BF33-0761791A2FA1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -3502,7 +3502,7 @@ type
{ IAgentes_Objetivos_albaranesDelta } { IAgentes_Objetivos_albaranesDelta }
IAgentes_Objetivos_albaranesDelta = interface(IAgentes_Objetivos_albaranes) IAgentes_Objetivos_albaranesDelta = interface(IAgentes_Objetivos_albaranes)
['{F3F3A909-A95A-4888-BC4B-BFBC94135FCD}'] ['{F143C8B0-2002-4A42-94FD-E9B46477F398}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
@ -3608,7 +3608,7 @@ type
{ IAgentes_Objetivos_facturasDelta } { IAgentes_Objetivos_facturasDelta }
IAgentes_Objetivos_facturasDelta = interface(IAgentes_Objetivos_facturas) IAgentes_Objetivos_facturasDelta = interface(IAgentes_Objetivos_facturas)
['{878AC53F-72CA-46CB-9B8D-43CCC2093AE7}'] ['{1CE7D6A7-C9B4-463F-ACD0-82D4D1D439EE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
@ -3714,7 +3714,7 @@ type
{ IListaAnosObjetivosFacDelta } { IListaAnosObjetivosFacDelta }
IListaAnosObjetivosFacDelta = interface(IListaAnosObjetivosFac) IListaAnosObjetivosFacDelta = interface(IListaAnosObjetivosFac)
['{C286E28E-4BD7-49D1-8B66-9344027C904A}'] ['{56AA0EF1-D77F-44F5-A5BE-78E55F9E6E4A}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : SmallInt; function GetOldANOValue : SmallInt;
@ -3748,7 +3748,7 @@ type
{ ITiposClienteDelta } { ITiposClienteDelta }
ITiposClienteDelta = interface(ITiposCliente) ITiposClienteDelta = interface(ITiposCliente)
['{8F6952A9-CE70-45C0-96FD-56A744FD174B}'] ['{647FAB85-83DC-4539-A298-0AC4BA5F32F9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -3794,7 +3794,7 @@ type
{ IClientesSucursalesDelta } { IClientesSucursalesDelta }
IClientesSucursalesDelta = interface(IClientesSucursales) IClientesSucursalesDelta = interface(IClientesSucursales)
['{D03569D4-E025-4BF2-B711-527A63A38205}'] ['{3D085508-FAD6-4E53-BA2D-C4B092AC933D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;

29
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -5970,6 +5970,14 @@ object srvContactos: TsrvContactos
Name = 'FK_ClientesDescuentos_Clientes' Name = 'FK_ClientesDescuentos_Clientes'
MasterDatasetName = 'Clientes' MasterDatasetName = 'Clientes'
MasterFields = 'ID' MasterFields = 'ID'
DetailDatasetName = 'ClientesDescuentos'
DetailFields = 'ID_CLIENTE'
RelationshipType = rtForeignKey
end
item
Name = 'FK_ClientesDescuentosArticulos_Clientes'
MasterDatasetName = 'Clientes'
MasterFields = 'ID'
DetailDatasetName = 'ClientesDescuentosArticulos' DetailDatasetName = 'ClientesDescuentosArticulos'
DetailFields = 'ID_CLIENTE' DetailFields = 'ID_CLIENTE'
RelationshipType = rtForeignKey RelationshipType = rtForeignKey
@ -6187,6 +6195,20 @@ object srvContactos: TsrvContactos
DatasetName = 'ClientesDescuentos' DatasetName = 'ClientesDescuentos'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end 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 item
Name = 'Delete DatosBancarios' Name = 'Delete DatosBancarios'
DoUpdate = False DoUpdate = False
@ -6201,6 +6223,13 @@ object srvContactos: TsrvContactos
DatasetName = 'ClientesDescuentos' DatasetName = 'ClientesDescuentos'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item
Name = 'Delete ClientesDescuentosArticulos'
DoUpdate = False
DoInsert = False
DatasetName = 'ClientesDescuentosArticulos'
FailureBehavior = fbRaiseException
end
item item
Name = 'Delete AgentesComisiones' Name = 'Delete AgentesComisiones'
DoUpdate = False DoUpdate = False

BIN
Source/Modulos/Contactos/Views/Contactos_view.identcache
View File

Binary file not shown.

156
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

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

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

7
Source/Servidor/FactuGES_Server.dpr
View File

@ -3,7 +3,6 @@ program FactuGES_Server;
{#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove! {#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
uses uses
// ExceptionLog,
uROComInit, uROComInit,
uROComboService, uROComboService,
Forms, Forms,
@ -162,8 +161,6 @@ uses
uRptFacturasProforma_Server in '..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas' {RptFacturasProforma: TDataModule}, uRptFacturasProforma_Server in '..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas' {RptFacturasProforma: TDataModule},
schFacturasProformaClient_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas', schFacturasProformaClient_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas',
schFacturasProformaServer_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas', schFacturasProformaServer_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas', schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
srvTiposDocumento_Impl in '..\Modulos\TiposDocumento\Servidor\srvTiposDocumento_Impl.pas' {srvTiposDocumento: TDataAbstractService}, 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', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "4.3.8.0\0" VALUE "FileVersion", "4.3.8.0\0"
VALUE "ProductVersion", "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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"