diff --git a/Database/VISTAS.SQL b/Database/VISTAS.SQL index 90065b60..a0c36c47 100644 --- a/Database/VISTAS.SQL +++ b/Database/VISTAS.SQL @@ -175,7 +175,6 @@ CREATE VIEW V_CLIENTES( ID_AGENTE, GRUPO_CLIENTE, NOMBRE_COMERCIAL, - VENCIMIENTO_FACTURAS, BLOQUEADO, REGIMEN_IVA, MOTIVO_BLOQUEO, @@ -185,7 +184,10 @@ CREATE VIEW V_CLIENTES( TIENDA_WEB, AGENTE, RAPEL, - EMAIL_ADMINISTRACION) + EMAIL_ADMINISTRACION, + VENCIMIENTO_FACTURAS_1, + VENCIMIENTO_FACTURAS_2, + VENCIMIENTO_FACTURAS_3) AS SELECT V_CONTACTOS.ID, @@ -213,7 +215,6 @@ SELECT CLIENTES_DATOS.ID_AGENTE, CLIENTES_DATOS.GRUPO_CLIENTE, CLIENTES_DATOS.NOMBRE_COMERCIAL, - CLIENTES_DATOS.VENCIMIENTO_FACTURAS, CLIENTES_DATOS.BLOQUEADO, CLIENTES_DATOS.REGIMEN_IVA, CLIENTES_DATOS.MOTIVO_BLOQUEO, @@ -223,7 +224,11 @@ SELECT CLIENTES_DATOS.TIENDA_WEB, CONTACTOS.NOMBRE AS AGENTE, CLIENTES_DATOS.RAPEL, - CLIENTES_DATOS.EMAIL_ADMINISTRACION + CLIENTES_DATOS.EMAIL_ADMINISTRACION, + CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1, + CLIENTES_DATOS.VENCIMIENTO_FACTURAS_2, + CLIENTES_DATOS.VENCIMIENTO_FACTURAS_3 + FROM V_CONTACTOS LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE) @@ -260,7 +265,10 @@ CREATE VIEW V_PROVEEDORES( ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB, - EMAIL_ADMINISTRACION) + EMAIL_ADMINISTRACION, + VENCIMIENTO_FACTURAS_1, + VENCIMIENTO_FACTURAS_2, + VENCIMIENTO_FACTURAS_3) AS SELECT V_CONTACTOS.ID, @@ -290,7 +298,11 @@ SELECT PROVEEDORES_DATOS.ID_TIPO_IVA, PROVEEDORES_DATOS.ID_FORMA_PAGO, PROVEEDORES_DATOS.TIENDA_WEB, - PROVEEDORES_DATOS.EMAIL_ADMINISTRACION + PROVEEDORES_DATOS.EMAIL_ADMINISTRACION, + PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_1, + PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_2, + PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_3 + FROM PROVEEDORES_DATOS INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID) @@ -942,7 +954,8 @@ SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.IMPORTE_PORTE, CLIENTES_DATOS.ID_AGENTE, COMISIONES_LIQUIDADAS.REFERENCIA, - IMPRESIONES.NUM_COPIAS + IMPRESIONES.NUM_COPIAS, + REGISTRO_CORREOS.NUM_CORREOS FROM V_FAC_CLI_SITUACION LEFT JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA) diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339f..8b251f31 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 147ba354..543e1bc2 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 3,0,7,0 -PRODUCTVERSION 3,0,7,0 +FILEVERSION 3,0,8,0 +PRODUCTVERSION 3,0,8,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,9 +13,9 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "3.0.7.0\0" + VALUE "FileVersion", "3.0.8.0\0" VALUE "InternalName", "FactuGES\0" - VALUE "ProductVersion", "3.0.7.0\0" + VALUE "ProductVersion", "3.0.8.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 783895fa..de62162b 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Iconos/fondo.jpg b/Source/Iconos/fondo.jpg new file mode 100644 index 00000000..1070fb5b Binary files /dev/null and b/Source/Iconos/fondo.jpg differ diff --git a/Source/Iconos/logo.jpg b/Source/Iconos/logo.jpg new file mode 100644 index 00000000..6a934dc1 Binary files /dev/null and b/Source/Iconos/logo.jpg differ diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas index bde9c680..367934f9 100644 --- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas @@ -9,17 +9,17 @@ 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 = '{21B686C9-1DFE-4CE5-A335-839D6C6D48FA}'; - RID_GruposCliente = '{843533F1-3EE7-4E61-B160-1AB196652BAB}'; - RID_ClienteEliminable = '{FEDDADEF-BC51-4ABB-B5AE-5FD488AF69E8}'; - RID_DatosBancarios = '{108F4519-24AD-4476-BD7B-1F88ABABE6F5}'; - RID_ContactosCategorias = '{79F45572-8D2E-4C9E-8BA7-9C2B321C40AC}'; - RID_Clientes = '{CEA6925A-922C-4831-A6A8-196B47147D2C}'; - RID_Proveedores = '{E898ECF3-F083-4D39-8257-CB11A7EB60E9}'; - RID_Agentes = '{C2DA2C10-F9CA-4FDE-9441-7BBBE614C7EF}'; - RID_DireccionesContacto = '{611A8BA7-2752-449A-843E-8FED952DA444}'; - RID_AgentesComisiones = '{44CBCA9B-3B73-4B97-8FE7-D36067C2EDC9}'; - RID_ClientesDescuentos = '{226678E2-3999-42AA-824E-33C84D28229F}'; + RID_Contactos = '{8DB966AC-5E6E-45D2-985E-608DBF4431DC}'; + RID_GruposCliente = '{916430A0-9119-40A8-BD75-0D167170697B}'; + RID_ClienteEliminable = '{BDE7F021-7D40-442C-A60A-6BCE999B3E76}'; + RID_DatosBancarios = '{72E93F56-6CD9-4840-AC91-BC3619B6DBBA}'; + RID_ContactosCategorias = '{87F9603C-21B7-4A45-B2D1-D42C1BD24124}'; + RID_Clientes = '{FC2D5240-5CB5-473F-85BA-7C848198643E}'; + RID_Proveedores = '{8B6E18AE-B694-4D8F-A9AD-E00286BDA417}'; + RID_Agentes = '{E7B9B4D9-1DD9-45DC-AC1E-01EC9FDCD10A}'; + RID_DireccionesContacto = '{39EE7BEF-4CB2-48C4-9DBC-93913A30B200}'; + RID_AgentesComisiones = '{2202C71F-70D4-4EF3-87EF-62B1A4E64DCD}'; + RID_ClientesDescuentos = '{123A04B2-4B64-49C4-9A70-892C08CEBDF4}'; { Data table names } nme_Contactos = 'Contactos'; @@ -157,6 +157,7 @@ const fld_ClientesTIENDA_WEB = 'TIENDA_WEB'; fld_ClientesAGENTE = 'AGENTE'; fld_ClientesRAPEL = 'RAPEL'; + fld_ClientesEMAIL_ADMINISTRACION = 'EMAIL_ADMINISTRACION'; fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; @@ -196,9 +197,10 @@ const idx_ClientesTIENDA_WEB = 31; idx_ClientesAGENTE = 32; idx_ClientesRAPEL = 33; - idx_ClientesVENCIMIENTO_FACTURAS_1 = 34; - idx_ClientesVENCIMIENTO_FACTURAS_2 = 35; - idx_ClientesVENCIMIENTO_FACTURAS_3 = 36; + idx_ClientesEMAIL_ADMINISTRACION = 34; + idx_ClientesVENCIMIENTO_FACTURAS_1 = 35; + idx_ClientesVENCIMIENTO_FACTURAS_2 = 36; + idx_ClientesVENCIMIENTO_FACTURAS_3 = 37; { Proveedores fields } fld_ProveedoresID = 'ID'; @@ -228,6 +230,7 @@ const fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA'; fld_ProveedoresID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB'; + fld_ProveedoresEMAIL_ADMINISTRACION = 'EMAIL_ADMINISTRACION'; fld_ProveedoresVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ProveedoresVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; fld_ProveedoresVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; @@ -260,9 +263,10 @@ const idx_ProveedoresID_TIPO_IVA = 24; idx_ProveedoresID_FORMA_PAGO = 25; idx_ProveedoresTIENDA_WEB = 26; - idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 27; - idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 28; - idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 29; + idx_ProveedoresEMAIL_ADMINISTRACION = 27; + idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 28; + idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 29; + idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 30; { Agentes fields } fld_AgentesID = 'ID'; @@ -375,7 +379,7 @@ const type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) - ['{D5428C9F-FB34-4AEF-8A52-04127D7B5C16}'] + ['{129F3A9A-CAEE-422B-9962-ED37AA1B8DA1}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -530,7 +534,7 @@ type { IGruposCliente } IGruposCliente = interface(IDAStronglyTypedDataTable) - ['{AAC323F1-5AA3-4E96-9C29-517076C33116}'] + ['{E7D5EDB0-EEE7-433E-BD7D-A9B7B0E22231}'] { Property getters and setters } function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); @@ -559,7 +563,7 @@ type { IClienteEliminable } IClienteEliminable = interface(IDAStronglyTypedDataTable) - ['{2A57BE18-8E69-4997-B857-EA180A76BAA2}'] + ['{9A1C2E5A-6BEE-4C64-9E92-EE7AA70A0E00}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -594,7 +598,7 @@ type { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) - ['{EBF69EAA-8160-4353-BA7A-ECEFCE54B05C}'] + ['{FBA163E1-FB0B-48AB-A018-301A11A05078}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -659,7 +663,7 @@ type { IContactosCategorias } IContactosCategorias = interface(IDAStronglyTypedDataTable) - ['{92E972FB-8626-4073-A050-69B797133E5A}'] + ['{B51A66E8-B60F-498B-A578-E2C4C4C6DEA3}'] { Property getters and setters } function GetID_CONTACTOValue: Integer; procedure SetID_CONTACTOValue(const aValue: Integer); @@ -694,7 +698,7 @@ type { IClientes } IClientes = interface(IDAStronglyTypedDataTable) - ['{C3EA6037-3BC0-4BFD-B9AE-C156E84C1787}'] + ['{5318AB05-B7DA-4083-83F3-C8601201C3A2}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -764,6 +768,8 @@ type procedure SetAGENTEValue(const aValue: String); function GetRAPELValue: Integer; procedure SetRAPELValue(const aValue: Integer); + function GetEMAIL_ADMINISTRACIONValue: String; + procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); function GetVENCIMIENTO_FACTURAS_1Value: Integer; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); function GetVENCIMIENTO_FACTURAS_2Value: Integer; @@ -807,6 +813,7 @@ type property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property RAPEL: Integer read GetRAPELValue write SetRAPELValue; + property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; @@ -885,6 +892,8 @@ type procedure SetAGENTEValue(const aValue: String); virtual; function GetRAPELValue: Integer; virtual; procedure SetRAPELValue(const aValue: Integer); virtual; + function GetEMAIL_ADMINISTRACIONValue: String; virtual; + procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual; function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual; function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual; @@ -927,6 +936,7 @@ type property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property RAPEL: Integer read GetRAPELValue write SetRAPELValue; + property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; @@ -939,7 +949,7 @@ type { IProveedores } IProveedores = interface(IDAStronglyTypedDataTable) - ['{C034988C-D63B-457A-B32E-E743146F08DB}'] + ['{6B2547D0-73B9-4A4B-B799-4D37005F99F3}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -995,6 +1005,8 @@ type procedure SetID_FORMA_PAGOValue(const aValue: Integer); function GetTIENDA_WEBValue: Integer; procedure SetTIENDA_WEBValue(const aValue: Integer); + function GetEMAIL_ADMINISTRACIONValue: String; + procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); function GetVENCIMIENTO_FACTURAS_1Value: Integer; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); function GetVENCIMIENTO_FACTURAS_2Value: Integer; @@ -1031,6 +1043,7 @@ type property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; + property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; @@ -1095,6 +1108,8 @@ type procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetTIENDA_WEBValue: Integer; virtual; procedure SetTIENDA_WEBValue(const aValue: Integer); virtual; + function GetEMAIL_ADMINISTRACIONValue: String; virtual; + procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual; function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual; function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual; @@ -1130,6 +1145,7 @@ type property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; + property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; @@ -1142,7 +1158,7 @@ type { IAgentes } IAgentes = interface(IDAStronglyTypedDataTable) - ['{BC9DA06E-4E11-4979-BDB5-0FAC4CAA6B7E}'] + ['{19AC98BF-4123-481B-995E-84962805FBA1}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1297,7 +1313,7 @@ type { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) - ['{89E15C52-8F60-4A01-8EB8-6294C2E164DD}'] + ['{F54AA472-C5F9-4E24-8C87-D0B273FBD687}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1404,7 +1420,7 @@ type { IAgentesComisiones } IAgentesComisiones = interface(IDAStronglyTypedDataTable) - ['{136F43A5-4CF6-48DE-B1AA-693EDF264E9B}'] + ['{5EE1C84D-093A-4A09-B2B9-E956F01E9ADC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1457,7 +1473,7 @@ type { IClientesDescuentos } IClientesDescuentos = interface(IDAStronglyTypedDataTable) - ['{CE684A1B-CC93-405F-97C0-B3F4ECD334C9}'] + ['{1225583F-EBB3-4673-9C53-670AFBA01826}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2265,6 +2281,16 @@ begin DataTable.Fields[idx_ClientesRAPEL].AsInteger := aValue; end; +function TClientesDataTableRules.GetEMAIL_ADMINISTRACIONValue: String; +begin + result := DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString; +end; + +procedure TClientesDataTableRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String); +begin + DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString := aValue; +end; + function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer; begin result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger; @@ -2578,6 +2604,16 @@ begin DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue; end; +function TProveedoresDataTableRules.GetEMAIL_ADMINISTRACIONValue: String; +begin + result := DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsString; +end; + +procedure TProveedoresDataTableRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String); +begin + DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsString := aValue; +end; + function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer; begin result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger; diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas index 50687ef2..9d0f5e6d 100644 --- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas @@ -9,22 +9,22 @@ 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 = '{F528198A-E186-4B8B-83B5-093A113462F7}'; - RID_GruposClienteDelta = '{16194EFB-DA2C-42F0-94E1-13B1BAACD991}'; - RID_ClienteEliminableDelta = '{4BE1D5F1-FED2-4751-AFAB-7B3043CB080F}'; - RID_DatosBancariosDelta = '{6C264A76-A458-406D-AFDB-463396B820A9}'; - RID_ContactosCategoriasDelta = '{47ECC055-1F3D-4942-81A0-B246F1DC0659}'; - RID_ClientesDelta = '{35B1C3C2-B3CE-46F9-835D-93BB056016E4}'; - RID_ProveedoresDelta = '{50F87776-2945-444B-813D-B18F9BE0BA10}'; - RID_AgentesDelta = '{8FF32389-A14E-4B03-B471-B8D22D2A628C}'; - RID_DireccionesContactoDelta = '{F0A4B0AF-0147-4D9A-AF6C-7F9043820F48}'; - RID_AgentesComisionesDelta = '{65D0C176-5486-4D88-AC21-EA57985AF334}'; - RID_ClientesDescuentosDelta = '{B4F1CA58-1E66-4A19-8AB3-EACB27C19DEE}'; + RID_ContactosDelta = '{FBA19294-A947-41DA-9ABF-0F58B7AD3871}'; + RID_GruposClienteDelta = '{63CFD830-E148-4E4D-802B-B274275CC4A0}'; + RID_ClienteEliminableDelta = '{3ABFD442-48BB-451F-8923-EECB61A74980}'; + RID_DatosBancariosDelta = '{24737E5E-FF2A-49CA-82E6-CF01F6A4F1AD}'; + RID_ContactosCategoriasDelta = '{E9CCBC76-017F-49DA-8AC1-5D05D3F5BD58}'; + RID_ClientesDelta = '{D36C7B31-0994-4EDE-A0AF-AF7CF1AA5622}'; + RID_ProveedoresDelta = '{C5F98D58-4E55-4BCD-AEE1-4D15FCFCD402}'; + RID_AgentesDelta = '{FBAE47C9-5F62-4EEB-A61B-9DE8145AC3A3}'; + RID_DireccionesContactoDelta = '{EF9D18DF-D0EB-4433-A8D0-F22735A7F6A3}'; + RID_AgentesComisionesDelta = '{B296BBFC-AF34-4AB9-BB6F-4308BE188D15}'; + RID_ClientesDescuentosDelta = '{18D4AC51-8E27-42E7-8A75-A5E1E21EAB34}'; type { IContactosDelta } IContactosDelta = interface(IContactos) - ['{F528198A-E186-4B8B-83B5-093A113462F7}'] + ['{FBA19294-A947-41DA-9ABF-0F58B7AD3871}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -200,7 +200,7 @@ type { IGruposClienteDelta } IGruposClienteDelta = interface(IGruposCliente) - ['{16194EFB-DA2C-42F0-94E1-13B1BAACD991}'] + ['{63CFD830-E148-4E4D-802B-B274275CC4A0}'] { Property getters and setters } function GetOldDESCRIPCIONValue : String; @@ -229,7 +229,7 @@ type { IClienteEliminableDelta } IClienteEliminableDelta = interface(IClienteEliminable) - ['{4BE1D5F1-FED2-4751-AFAB-7B3043CB080F}'] + ['{3ABFD442-48BB-451F-8923-EECB61A74980}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNOMBREValue : String; @@ -265,7 +265,7 @@ type { IDatosBancariosDelta } IDatosBancariosDelta = interface(IDatosBancarios) - ['{6C264A76-A458-406D-AFDB-463396B820A9}'] + ['{24737E5E-FF2A-49CA-82E6-CF01F6A4F1AD}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -336,7 +336,7 @@ type { IContactosCategoriasDelta } IContactosCategoriasDelta = interface(IContactosCategorias) - ['{47ECC055-1F3D-4942-81A0-B246F1DC0659}'] + ['{E9CCBC76-017F-49DA-8AC1-5D05D3F5BD58}'] { Property getters and setters } function GetOldID_CONTACTOValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -372,7 +372,7 @@ type { IClientesDelta } IClientesDelta = interface(IClientes) - ['{35B1C3C2-B3CE-46F9-835D-93BB056016E4}'] + ['{D36C7B31-0994-4EDE-A0AF-AF7CF1AA5622}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -408,6 +408,7 @@ type function GetOldTIENDA_WEBValue : Integer; function GetOldAGENTEValue : String; function GetOldRAPELValue : Integer; + function GetOldEMAIL_ADMINISTRACIONValue : String; function GetOldVENCIMIENTO_FACTURAS_1Value : Integer; function GetOldVENCIMIENTO_FACTURAS_2Value : Integer; function GetOldVENCIMIENTO_FACTURAS_3Value : Integer; @@ -447,6 +448,7 @@ type property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue; property OldAGENTE : String read GetOldAGENTEValue; property OldRAPEL : Integer read GetOldRAPELValue; + property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue; property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value; property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value; @@ -559,6 +561,9 @@ type function GetRAPELValue: Integer; virtual; function GetOldRAPELValue: Integer; virtual; procedure SetRAPELValue(const aValue: Integer); virtual; + function GetEMAIL_ADMINISTRACIONValue: String; virtual; + function GetOldEMAIL_ADMINISTRACIONValue: String; virtual; + procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual; function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual; function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual; @@ -638,6 +643,8 @@ type property OldAGENTE : String read GetOldAGENTEValue; property RAPEL : Integer read GetRAPELValue write SetRAPELValue; property OldRAPEL : Integer read GetOldRAPELValue; + property EMAIL_ADMINISTRACION : String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; + property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue; property VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; @@ -653,7 +660,7 @@ type { IProveedoresDelta } IProveedoresDelta = interface(IProveedores) - ['{50F87776-2945-444B-813D-B18F9BE0BA10}'] + ['{C5F98D58-4E55-4BCD-AEE1-4D15FCFCD402}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -682,6 +689,7 @@ type function GetOldID_TIPO_IVAValue : Integer; function GetOldID_FORMA_PAGOValue : Integer; function GetOldTIENDA_WEBValue : Integer; + function GetOldEMAIL_ADMINISTRACIONValue : String; function GetOldVENCIMIENTO_FACTURAS_1Value : Integer; function GetOldVENCIMIENTO_FACTURAS_2Value : Integer; function GetOldVENCIMIENTO_FACTURAS_3Value : Integer; @@ -714,6 +722,7 @@ type property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue; + property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue; property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value; property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value; @@ -805,6 +814,9 @@ type function GetTIENDA_WEBValue: Integer; virtual; function GetOldTIENDA_WEBValue: Integer; virtual; procedure SetTIENDA_WEBValue(const aValue: Integer); virtual; + function GetEMAIL_ADMINISTRACIONValue: String; virtual; + function GetOldEMAIL_ADMINISTRACIONValue: String; virtual; + procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual; function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual; function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual; @@ -870,6 +882,8 @@ type property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue; + property EMAIL_ADMINISTRACION : String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; + property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue; property VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; @@ -885,7 +899,7 @@ type { IAgentesDelta } IAgentesDelta = interface(IAgentes) - ['{8FF32389-A14E-4B03-B471-B8D22D2A628C}'] + ['{FBAE47C9-5F62-4EEB-A61B-9DE8145AC3A3}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -1061,7 +1075,7 @@ type { IDireccionesContactoDelta } IDireccionesContactoDelta = interface(IDireccionesContacto) - ['{F0A4B0AF-0147-4D9A-AF6C-7F9043820F48}'] + ['{EF9D18DF-D0EB-4433-A8D0-F22735A7F6A3}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -1181,7 +1195,7 @@ type { IAgentesComisionesDelta } IAgentesComisionesDelta = interface(IAgentesComisiones) - ['{65D0C176-5486-4D88-AC21-EA57985AF334}'] + ['{B296BBFC-AF34-4AB9-BB6F-4308BE188D15}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_AGENTEValue : Integer; @@ -1238,7 +1252,7 @@ type { IClientesDescuentosDelta } IClientesDescuentosDelta = interface(IClientesDescuentos) - ['{B4F1CA58-1E66-4A19-8AB3-EACB27C19DEE}'] + ['{18D4AC51-8E27-42E7-8A75-A5E1E21EAB34}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CLIENTEValue : Integer; @@ -2393,6 +2407,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRAPEL] := aValue; end; +function TClientesBusinessProcessorRules.GetEMAIL_ADMINISTRACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION]; +end; + +function TClientesBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_ADMINISTRACION]; +end; + +procedure TClientesBusinessProcessorRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION] := aValue; +end; + function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; @@ -2857,6 +2886,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := aValue; end; +function TProveedoresBusinessProcessorRules.GetEMAIL_ADMINISTRACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION]; +end; + +function TProveedoresBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_ADMINISTRACION]; +end; + +procedure TProveedoresBusinessProcessorRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION] := aValue; +end; + function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas index f8c788e5..2224d828 100644 --- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas +++ b/Source/Modulos/Contactos/Model/uBizClientesServer.pas @@ -78,7 +78,7 @@ begin ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; - + ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION]; Execute; end; finally @@ -118,7 +118,7 @@ begin ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; - + ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION]; Execute; end; finally diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas index 345a1306..9f5f852f 100644 --- a/Source/Modulos/Contactos/Model/uBizContactos.pas +++ b/Source/Modulos/Contactos/Model/uBizContactos.pas @@ -98,6 +98,9 @@ type property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; + function GetEMAIL_ADMINISTRACIONValue: String; + procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); + property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; @@ -110,6 +113,7 @@ type property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; + property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; end; IBizProveedor = interface (IBizContacto) @@ -138,6 +142,9 @@ type function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); + function GetEMAIL_ADMINISTRACIONValue: String; + procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); + property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; @@ -146,6 +153,7 @@ type property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; + property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; end; IBizAgente = interface (IBizContacto) @@ -205,7 +213,7 @@ type protected FDescuentos : IBizClienteDescuentos; FDescuentosLink : TDADataSource; - + function GetID_AGENTEValue: Integer; procedure SetID_AGENTEValue(const aValue: Integer); @@ -247,9 +255,13 @@ type function GetTIENDA_WEBValue: Integer; procedure SetTIENDA_WEBValue(const aValue: Integer); - + function GetDescuentos: IBizClienteDescuentos; procedure SetDescuentos(Value: IBizClienteDescuentos); + + function GetEMAIL_ADMINISTRACIONValue: String; + procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); + public procedure IniciarValoresContactoNuevo; override; constructor Create(aDataTable: TDADataTable); override; @@ -269,6 +281,7 @@ type property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; + property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; end; @@ -298,6 +311,9 @@ type function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); + function GetEMAIL_ADMINISTRACIONValue: String; + procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); + public procedure IniciarValoresContactoNuevo; override; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; @@ -308,6 +324,7 @@ type property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; + property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; end; @@ -454,6 +471,11 @@ begin Result := FDescuentos; end; +function TBizCliente.GetEMAIL_ADMINISTRACIONValue: String; +begin + result := DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString; +end; + function TBizCliente.GetGRUPO_CLIENTEValue: String; begin result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString; @@ -500,6 +522,11 @@ begin EnlazarMaestroDetalle(FDescuentosLink, FDescuentos); end; +procedure TBizCliente.SetEMAIL_ADMINISTRACIONValue(const aValue: String); +begin + DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString := aValue; +end; + procedure TBizCliente.SetGRUPO_CLIENTEValue(const aValue: String); begin DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue; @@ -690,6 +717,16 @@ begin DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger := aValue; end; +function TBizProveedor.GetEMAIL_ADMINISTRACIONValue: String; +begin + result := DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsString; +end; + +procedure TBizProveedor.SetEMAIL_ADMINISTRACIONValue(const aValue: String); +begin + DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsString := aValue; +end; + { TBizAgente } constructor TBizAgente.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas index 2b3ebfe1..8d8d48ad 100644 --- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas +++ b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas @@ -72,7 +72,7 @@ begin ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; - + ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION]; Execute; end; finally @@ -88,7 +88,7 @@ var ACommand : IDASQLCommand; begin inherited; - + ASchema := BusinessProcessor.Schema; ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); @@ -106,7 +106,7 @@ begin ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; - + ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION]; Execute; end; finally diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index 09e38dc8..b6ff64d2 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -653,9 +653,9 @@ object srvContactos: TsrvContactos ' NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, '#10 + ' ID_AGENTE, GRUPO_CLIENTE, NOMBRE_COMERCIAL,'#10' BLOQUEADO, M' + 'OTIVO_BLOQUEO, RECARGO_EQUIVALENCIA, REGIMEN_IVA, '#10' ID_TIPO_I' + - 'VA, ID_FORMA_PAGO, TIENDA_WEB, AGENTE, RAPEL,'#10' VENCIMIENTO_FA' + - 'CTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3'#10' FROM'#10 + - ' V_CLIENTES' + 'VA, ID_FORMA_PAGO, TIENDA_WEB, AGENTE, RAPEL, EMAIL_ADMINISTRACI' + + 'ON,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIE' + + 'NTO_FACTURAS_3'#10' FROM'#10' V_CLIENTES' StatementType = stSQL ColumnMappings = < item @@ -805,6 +805,10 @@ object srvContactos: TsrvContactos item DatasetField = 'VENCIMIENTO_FACTURAS_3' TableField = 'VENCIMIENTO_FACTURAS_3' + end + item + DatasetField = 'EMAIL_ADMINISTRACION' + TableField = 'EMAIL_ADMINISTRACION' end> end> Name = 'Clientes' @@ -1174,6 +1178,18 @@ object srvContactos: TsrvContactos Lookup = False LookupCache = False end + item + Name = 'EMAIL_ADMINISTRACION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'VENCIMIENTO_FACTURAS_1' DataType = datInteger @@ -1222,8 +1238,8 @@ object srvContactos: TsrvContactos '_2, '#10' MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, '#10' ' + ' NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, '#10 + ' REGIMEN_IVA, DESCUENTO, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_W' + - 'EB,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIE' + - 'NTO_FACTURAS_3'#10' FROM'#10' V_PROVEEDORES' + 'EB, EMAIL_ADMINISTRACION,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENT' + + 'O_FACTURAS_2, VENCIMIENTO_FACTURAS_3'#10' FROM'#10' V_PROVEEDORES' StatementType = stSQL ColumnMappings = < item @@ -1345,6 +1361,10 @@ object srvContactos: TsrvContactos item DatasetField = 'VENCIMIENTO_FACTURAS_3' TableField = 'VENCIMIENTO_FACTURAS_3' + end + item + DatasetField = 'EMAIL_ADMINISTRACION' + TableField = 'EMAIL_ADMINISTRACION' end> end> Name = 'Proveedores' @@ -1637,6 +1657,18 @@ object srvContactos: TsrvContactos Lookup = False LookupCache = False end + item + Name = 'EMAIL_ADMINISTRACION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'VENCIMIENTO_FACTURAS_1' DataType = datInteger @@ -3281,6 +3313,14 @@ object srvContactos: TsrvContactos Value = '' ParamType = daptInput end + item + Name = 'EMAIL_ADMINISTRACION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'VENCIMIENTO_FACTURAS_1' DataType = datInteger @@ -3310,12 +3350,13 @@ object srvContactos: TsrvContactos 'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, ID_AGENTE, GRUPO_C' + 'LIENTE, RECARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, BLOQUEADO, ' + 'MOTIVO_BLOQUEO, REGIMEN_IVA, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TI' + - 'ENDA_WEB, RAPEL,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTUR' + - 'AS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_CLIENTE, :ID_AGE' + - 'NTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCI' + - 'AL, :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA,'#10' ' + - ' :ID_FORMA_PAGO, :TIENDA_WEB, :RAPEL,'#10' :VENCIMIENTO_FACTURA' + - 'S_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)' + 'ENDA_WEB, RAPEL, EMAIL_ADMINISTRACION,'#10' VENCIMIENTO_FACTURAS' + + '_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' ' + + ' (:ID_CLIENTE, :ID_AGENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA' + + ','#10' :NOMBRE_COMERCIAL, :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_' + + 'IVA, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :RAPEL, :EM' + + 'AIL_ADMINISTRACION,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_F' + + 'ACTURAS_2, :VENCIMIENTO_FACTURAS_3)' StatementType = stSQL ColumnMappings = <> end> @@ -3432,6 +3473,14 @@ object srvContactos: TsrvContactos Value = '' ParamType = daptInput end + item + Name = 'EMAIL_ADMINISTRACION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'VENCIMIENTO_FACTURAS_1' DataType = datInteger @@ -3471,10 +3520,11 @@ object srvContactos: TsrvContactos 'CARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' ' + ' BLOQUEADO = :BLOQUEADO,'#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID' + '_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' + - ' TIENDA_WEB = :TIENDA_WEB,'#10' RAPEL = :RAPEL,'#10' VENCIMIENTO_' + - 'FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2' + - ' = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIM' + - 'IENTO_FACTURAS_3'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)' + ' TIENDA_WEB = :TIENDA_WEB,'#10' RAPEL = :RAPEL,'#10' EMAIL_ADMINI' + + 'STRACION = :EMAIL_ADMINISTRACION,'#10' VENCIMIENTO_FACTURAS_1 = :' + + 'VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENT' + + 'O_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS' + + '_3'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)' StatementType = stSQL ColumnMappings = <> end> @@ -3525,6 +3575,14 @@ object srvContactos: TsrvContactos Value = '' ParamType = daptInput end + item + Name = 'EMAIL_ADMINISTRACION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'VENCIMIENTO_FACTURAS_1' DataType = datInteger @@ -3552,11 +3610,12 @@ object srvContactos: TsrvContactos TargetTable = 'PROVEEDORES_DATOS' SQL = 'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' + - 'DESCUENTO, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TIENDA_WEB, VENCIMIEN' + - 'TO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_' + - '3)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :ID_TI' + - 'PO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :VENCIMIENTO_FACTURAS_1' + - ','#10' :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)' + 'DESCUENTO, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TIENDA_WEB, EMAIL_ADM' + + 'INISTRACION, VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2,' + + ' VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_I' + + 'VA, :DESCUENTO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :' + + 'EMAIL_ADMINISTRACION, :VENCIMIENTO_FACTURAS_1,'#10' :VENCIMIENTO_' + + 'FACTURAS_2, :VENCIMIENTO_FACTURAS_3)' StatementType = stSQL ColumnMappings = <> end> @@ -3628,6 +3687,14 @@ object srvContactos: TsrvContactos Value = '' ParamType = daptInput end + item + Name = 'EMAIL_ADMINISTRACION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'VENCIMIENTO_FACTURAS_1' DataType = datInteger @@ -3664,10 +3731,11 @@ object srvContactos: TsrvContactos 'UPDATE PROVEEDORES_DATOS'#10' SET '#10' ID_PROVEEDOR = :ID_PROVEEDOR' + ', '#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' DESCUENTO = :DESCUENTO,'#10' ' + ' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAG' + - 'O,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' VENCIMIENTO_FACTURAS_1 = :V' + - 'ENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO' + - '_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_' + - '3'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)' + 'O,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' EMAIL_ADMINISTRACION = :EMA' + + 'IL_ADMINISTRACION,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FAC' + + 'TURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' ' + + ' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' ' + + '(ID_PROVEEDOR = :OLD_ID_PROVEEDOR)' StatementType = stSQL ColumnMappings = <> end> @@ -4902,9 +4970,9 @@ object srvContactos: TsrvContactos Top = 82 DiagramData = ''#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#13#10 end object bpContactos: TDABusinessProcessor diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index c8e08e5c..02b9ad89 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -134,6 +134,7 @@ uses schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', + srvRegistroCorreos_Impl in '..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas' {srvRegistroCorreos: TDARemoteService}, schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 58954e3c..5a1fd662 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -16,7 +16,7 @@ BEGIN VALUE "FileVersion", "3.0.7.0\0" VALUE "ProductName", "FactuGES Server\0" VALUE "ProductVersion", "3.0.7.0\0" - VALUE "CompileDate", "jueves, 25 de septiembre de 2008 20:11\0" + VALUE "CompileDate", "martes, 30 de septiembre de 2008 19:31\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 7a838465..34368991 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ