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

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@291 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Browse Source
This commit is contained in:
roberto 2008-09-30 17:42:18 +00:00
parent c25908891b
commit 8c8efb17fb
15 changed files with 295 additions and 96 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
Database/VISTAS.SQL
View File

@ -175,7 +175,6 @@ CREATE VIEW V_CLIENTES(
ID_AGENTE, ID_AGENTE,
GRUPO_CLIENTE, GRUPO_CLIENTE,
NOMBRE_COMERCIAL, NOMBRE_COMERCIAL,
VENCIMIENTO_FACTURAS,
BLOQUEADO, BLOQUEADO,
REGIMEN_IVA, REGIMEN_IVA,
MOTIVO_BLOQUEO, MOTIVO_BLOQUEO,
@ -185,7 +184,10 @@ CREATE VIEW V_CLIENTES(
TIENDA_WEB, TIENDA_WEB,
AGENTE, AGENTE,
RAPEL, RAPEL,
EMAIL_ADMINISTRACION) EMAIL_ADMINISTRACION,
VENCIMIENTO_FACTURAS_1,
VENCIMIENTO_FACTURAS_2,
VENCIMIENTO_FACTURAS_3)
AS AS
SELECT SELECT
V_CONTACTOS.ID, V_CONTACTOS.ID,
@ -213,7 +215,6 @@ SELECT
CLIENTES_DATOS.ID_AGENTE, CLIENTES_DATOS.ID_AGENTE,
CLIENTES_DATOS.GRUPO_CLIENTE, CLIENTES_DATOS.GRUPO_CLIENTE,
CLIENTES_DATOS.NOMBRE_COMERCIAL, CLIENTES_DATOS.NOMBRE_COMERCIAL,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS,
CLIENTES_DATOS.BLOQUEADO, CLIENTES_DATOS.BLOQUEADO,
CLIENTES_DATOS.REGIMEN_IVA, CLIENTES_DATOS.REGIMEN_IVA,
CLIENTES_DATOS.MOTIVO_BLOQUEO, CLIENTES_DATOS.MOTIVO_BLOQUEO,
@ -223,7 +224,11 @@ SELECT
CLIENTES_DATOS.TIENDA_WEB, CLIENTES_DATOS.TIENDA_WEB,
CONTACTOS.NOMBRE AS AGENTE, CONTACTOS.NOMBRE AS AGENTE,
CLIENTES_DATOS.RAPEL, 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 FROM
V_CONTACTOS V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE) 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_TIPO_IVA,
ID_FORMA_PAGO, ID_FORMA_PAGO,
TIENDA_WEB, TIENDA_WEB,
EMAIL_ADMINISTRACION) EMAIL_ADMINISTRACION,
VENCIMIENTO_FACTURAS_1,
VENCIMIENTO_FACTURAS_2,
VENCIMIENTO_FACTURAS_3)
AS AS
SELECT SELECT
V_CONTACTOS.ID, V_CONTACTOS.ID,
@ -290,7 +298,11 @@ SELECT
PROVEEDORES_DATOS.ID_TIPO_IVA, PROVEEDORES_DATOS.ID_TIPO_IVA,
PROVEEDORES_DATOS.ID_FORMA_PAGO, PROVEEDORES_DATOS.ID_FORMA_PAGO,
PROVEEDORES_DATOS.TIENDA_WEB, 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 FROM
PROVEEDORES_DATOS PROVEEDORES_DATOS
INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID) INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)
@ -942,7 +954,8 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.IMPORTE_PORTE, FACTURAS_CLIENTE.IMPORTE_PORTE,
CLIENTES_DATOS.ID_AGENTE, CLIENTES_DATOS.ID_AGENTE,
COMISIONES_LIQUIDADAS.REFERENCIA, COMISIONES_LIQUIDADAS.REFERENCIA,
IMPRESIONES.NUM_COPIAS IMPRESIONES.NUM_COPIAS,
REGISTRO_CORREOS.NUM_CORREOS
FROM V_FAC_CLI_SITUACION FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE LEFT JOIN FACTURAS_CLIENTE
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA) ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)

BIN
Source/Base/Base.res
View File

Binary file not shown.

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 3,0,7,0 FILEVERSION 3,0,8,0
PRODUCTVERSION 3,0,7,0 PRODUCTVERSION 3,0,8,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" 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 "InternalName", "FactuGES\0"
VALUE "ProductVersion", "3.0.7.0\0" VALUE "ProductVersion", "3.0.8.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Iconos/fondo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 7.2 KiB

BIN
Source/Iconos/logo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.3 KiB

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

@ -9,17 +9,17 @@ 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 = '{21B686C9-1DFE-4CE5-A335-839D6C6D48FA}'; RID_Contactos = '{8DB966AC-5E6E-45D2-985E-608DBF4431DC}';
RID_GruposCliente = '{843533F1-3EE7-4E61-B160-1AB196652BAB}'; RID_GruposCliente = '{916430A0-9119-40A8-BD75-0D167170697B}';
RID_ClienteEliminable = '{FEDDADEF-BC51-4ABB-B5AE-5FD488AF69E8}'; RID_ClienteEliminable = '{BDE7F021-7D40-442C-A60A-6BCE999B3E76}';
RID_DatosBancarios = '{108F4519-24AD-4476-BD7B-1F88ABABE6F5}'; RID_DatosBancarios = '{72E93F56-6CD9-4840-AC91-BC3619B6DBBA}';
RID_ContactosCategorias = '{79F45572-8D2E-4C9E-8BA7-9C2B321C40AC}'; RID_ContactosCategorias = '{87F9603C-21B7-4A45-B2D1-D42C1BD24124}';
RID_Clientes = '{CEA6925A-922C-4831-A6A8-196B47147D2C}'; RID_Clientes = '{FC2D5240-5CB5-473F-85BA-7C848198643E}';
RID_Proveedores = '{E898ECF3-F083-4D39-8257-CB11A7EB60E9}'; RID_Proveedores = '{8B6E18AE-B694-4D8F-A9AD-E00286BDA417}';
RID_Agentes = '{C2DA2C10-F9CA-4FDE-9441-7BBBE614C7EF}'; RID_Agentes = '{E7B9B4D9-1DD9-45DC-AC1E-01EC9FDCD10A}';
RID_DireccionesContacto = '{611A8BA7-2752-449A-843E-8FED952DA444}'; RID_DireccionesContacto = '{39EE7BEF-4CB2-48C4-9DBC-93913A30B200}';
RID_AgentesComisiones = '{44CBCA9B-3B73-4B97-8FE7-D36067C2EDC9}'; RID_AgentesComisiones = '{2202C71F-70D4-4EF3-87EF-62B1A4E64DCD}';
RID_ClientesDescuentos = '{226678E2-3999-42AA-824E-33C84D28229F}'; RID_ClientesDescuentos = '{123A04B2-4B64-49C4-9A70-892C08CEBDF4}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -157,6 +157,7 @@ const
fld_ClientesTIENDA_WEB = 'TIENDA_WEB'; fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
fld_ClientesAGENTE = 'AGENTE'; fld_ClientesAGENTE = 'AGENTE';
fld_ClientesRAPEL = 'RAPEL'; fld_ClientesRAPEL = 'RAPEL';
fld_ClientesEMAIL_ADMINISTRACION = 'EMAIL_ADMINISTRACION';
fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
@ -196,9 +197,10 @@ const
idx_ClientesTIENDA_WEB = 31; idx_ClientesTIENDA_WEB = 31;
idx_ClientesAGENTE = 32; idx_ClientesAGENTE = 32;
idx_ClientesRAPEL = 33; idx_ClientesRAPEL = 33;
idx_ClientesVENCIMIENTO_FACTURAS_1 = 34; idx_ClientesEMAIL_ADMINISTRACION = 34;
idx_ClientesVENCIMIENTO_FACTURAS_2 = 35; idx_ClientesVENCIMIENTO_FACTURAS_1 = 35;
idx_ClientesVENCIMIENTO_FACTURAS_3 = 36; idx_ClientesVENCIMIENTO_FACTURAS_2 = 36;
idx_ClientesVENCIMIENTO_FACTURAS_3 = 37;
{ Proveedores fields } { Proveedores fields }
fld_ProveedoresID = 'ID'; fld_ProveedoresID = 'ID';
@ -228,6 +230,7 @@ const
fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA'; fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA';
fld_ProveedoresID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_ProveedoresID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB'; fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB';
fld_ProveedoresEMAIL_ADMINISTRACION = 'EMAIL_ADMINISTRACION';
fld_ProveedoresVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ProveedoresVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
fld_ProveedoresVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; fld_ProveedoresVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
fld_ProveedoresVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; fld_ProveedoresVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
@ -260,9 +263,10 @@ const
idx_ProveedoresID_TIPO_IVA = 24; idx_ProveedoresID_TIPO_IVA = 24;
idx_ProveedoresID_FORMA_PAGO = 25; idx_ProveedoresID_FORMA_PAGO = 25;
idx_ProveedoresTIENDA_WEB = 26; idx_ProveedoresTIENDA_WEB = 26;
idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 27; idx_ProveedoresEMAIL_ADMINISTRACION = 27;
idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 28; idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 28;
idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 29; idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 29;
idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 30;
{ Agentes fields } { Agentes fields }
fld_AgentesID = 'ID'; fld_AgentesID = 'ID';
@ -375,7 +379,7 @@ const
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{D5428C9F-FB34-4AEF-8A52-04127D7B5C16}'] ['{129F3A9A-CAEE-422B-9962-ED37AA1B8DA1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -530,7 +534,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{AAC323F1-5AA3-4E96-9C29-517076C33116}'] ['{E7D5EDB0-EEE7-433E-BD7D-A9B7B0E22231}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCIONValue: String; function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String); procedure SetDESCRIPCIONValue(const aValue: String);
@ -559,7 +563,7 @@ type
{ IClienteEliminable } { IClienteEliminable }
IClienteEliminable = interface(IDAStronglyTypedDataTable) IClienteEliminable = interface(IDAStronglyTypedDataTable)
['{2A57BE18-8E69-4997-B857-EA180A76BAA2}'] ['{9A1C2E5A-6BEE-4C64-9E92-EE7AA70A0E00}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -594,7 +598,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{EBF69EAA-8160-4353-BA7A-ECEFCE54B05C}'] ['{FBA163E1-FB0B-48AB-A018-301A11A05078}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -659,7 +663,7 @@ type
{ IContactosCategorias } { IContactosCategorias }
IContactosCategorias = interface(IDAStronglyTypedDataTable) IContactosCategorias = interface(IDAStronglyTypedDataTable)
['{92E972FB-8626-4073-A050-69B797133E5A}'] ['{B51A66E8-B60F-498B-A578-E2C4C4C6DEA3}']
{ Property getters and setters } { Property getters and setters }
function GetID_CONTACTOValue: Integer; function GetID_CONTACTOValue: Integer;
procedure SetID_CONTACTOValue(const aValue: Integer); procedure SetID_CONTACTOValue(const aValue: Integer);
@ -694,7 +698,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{C3EA6037-3BC0-4BFD-B9AE-C156E84C1787}'] ['{5318AB05-B7DA-4083-83F3-C8601201C3A2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -764,6 +768,8 @@ type
procedure SetAGENTEValue(const aValue: String); procedure SetAGENTEValue(const aValue: String);
function GetRAPELValue: Integer; function GetRAPELValue: Integer;
procedure SetRAPELValue(const aValue: Integer); procedure SetRAPELValue(const aValue: Integer);
function GetEMAIL_ADMINISTRACIONValue: String;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
function GetVENCIMIENTO_FACTURAS_1Value: Integer; function GetVENCIMIENTO_FACTURAS_1Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_2Value: Integer; function GetVENCIMIENTO_FACTURAS_2Value: Integer;
@ -807,6 +813,7 @@ type
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property RAPEL: Integer read GetRAPELValue write SetRAPELValue; 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_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_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
@ -885,6 +892,8 @@ type
procedure SetAGENTEValue(const aValue: String); virtual; procedure SetAGENTEValue(const aValue: String); virtual;
function GetRAPELValue: Integer; virtual; function GetRAPELValue: Integer; virtual;
procedure SetRAPELValue(const aValue: 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; function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual; function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
@ -927,6 +936,7 @@ type
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property RAPEL: Integer read GetRAPELValue write SetRAPELValue; 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_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_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
@ -939,7 +949,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{C034988C-D63B-457A-B32E-E743146F08DB}'] ['{6B2547D0-73B9-4A4B-B799-4D37005F99F3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -995,6 +1005,8 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetTIENDA_WEBValue: Integer; function GetTIENDA_WEBValue: Integer;
procedure SetTIENDA_WEBValue(const aValue: Integer); procedure SetTIENDA_WEBValue(const aValue: Integer);
function GetEMAIL_ADMINISTRACIONValue: String;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
function GetVENCIMIENTO_FACTURAS_1Value: Integer; function GetVENCIMIENTO_FACTURAS_1Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_2Value: 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_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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; 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_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_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; 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; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetTIENDA_WEBValue: Integer; virtual; function GetTIENDA_WEBValue: Integer; virtual;
procedure SetTIENDA_WEBValue(const aValue: 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; function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_2Value: 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_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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; 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_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_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
@ -1142,7 +1158,7 @@ type
{ IAgentes } { IAgentes }
IAgentes = interface(IDAStronglyTypedDataTable) IAgentes = interface(IDAStronglyTypedDataTable)
['{BC9DA06E-4E11-4979-BDB5-0FAC4CAA6B7E}'] ['{19AC98BF-4123-481B-995E-84962805FBA1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1297,7 +1313,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{89E15C52-8F60-4A01-8EB8-6294C2E164DD}'] ['{F54AA472-C5F9-4E24-8C87-D0B273FBD687}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1404,7 +1420,7 @@ type
{ IAgentesComisiones } { IAgentesComisiones }
IAgentesComisiones = interface(IDAStronglyTypedDataTable) IAgentesComisiones = interface(IDAStronglyTypedDataTable)
['{136F43A5-4CF6-48DE-B1AA-693EDF264E9B}'] ['{5EE1C84D-093A-4A09-B2B9-E956F01E9ADC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1457,7 +1473,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{CE684A1B-CC93-405F-97C0-B3F4ECD334C9}'] ['{1225583F-EBB3-4673-9C53-670AFBA01826}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2265,6 +2281,16 @@ begin
DataTable.Fields[idx_ClientesRAPEL].AsInteger := aValue; DataTable.Fields[idx_ClientesRAPEL].AsInteger := aValue;
end; 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; function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger; result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger;
@ -2578,6 +2604,16 @@ begin
DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue; DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue;
end; 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; function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger; result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger;

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

@ -9,22 +9,22 @@ 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 = '{F528198A-E186-4B8B-83B5-093A113462F7}'; RID_ContactosDelta = '{FBA19294-A947-41DA-9ABF-0F58B7AD3871}';
RID_GruposClienteDelta = '{16194EFB-DA2C-42F0-94E1-13B1BAACD991}'; RID_GruposClienteDelta = '{63CFD830-E148-4E4D-802B-B274275CC4A0}';
RID_ClienteEliminableDelta = '{4BE1D5F1-FED2-4751-AFAB-7B3043CB080F}'; RID_ClienteEliminableDelta = '{3ABFD442-48BB-451F-8923-EECB61A74980}';
RID_DatosBancariosDelta = '{6C264A76-A458-406D-AFDB-463396B820A9}'; RID_DatosBancariosDelta = '{24737E5E-FF2A-49CA-82E6-CF01F6A4F1AD}';
RID_ContactosCategoriasDelta = '{47ECC055-1F3D-4942-81A0-B246F1DC0659}'; RID_ContactosCategoriasDelta = '{E9CCBC76-017F-49DA-8AC1-5D05D3F5BD58}';
RID_ClientesDelta = '{35B1C3C2-B3CE-46F9-835D-93BB056016E4}'; RID_ClientesDelta = '{D36C7B31-0994-4EDE-A0AF-AF7CF1AA5622}';
RID_ProveedoresDelta = '{50F87776-2945-444B-813D-B18F9BE0BA10}'; RID_ProveedoresDelta = '{C5F98D58-4E55-4BCD-AEE1-4D15FCFCD402}';
RID_AgentesDelta = '{8FF32389-A14E-4B03-B471-B8D22D2A628C}'; RID_AgentesDelta = '{FBAE47C9-5F62-4EEB-A61B-9DE8145AC3A3}';
RID_DireccionesContactoDelta = '{F0A4B0AF-0147-4D9A-AF6C-7F9043820F48}'; RID_DireccionesContactoDelta = '{EF9D18DF-D0EB-4433-A8D0-F22735A7F6A3}';
RID_AgentesComisionesDelta = '{65D0C176-5486-4D88-AC21-EA57985AF334}'; RID_AgentesComisionesDelta = '{B296BBFC-AF34-4AB9-BB6F-4308BE188D15}';
RID_ClientesDescuentosDelta = '{B4F1CA58-1E66-4A19-8AB3-EACB27C19DEE}'; RID_ClientesDescuentosDelta = '{18D4AC51-8E27-42E7-8A75-A5E1E21EAB34}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{F528198A-E186-4B8B-83B5-093A113462F7}'] ['{FBA19294-A947-41DA-9ABF-0F58B7AD3871}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -200,7 +200,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{16194EFB-DA2C-42F0-94E1-13B1BAACD991}'] ['{63CFD830-E148-4E4D-802B-B274275CC4A0}']
{ Property getters and setters } { Property getters and setters }
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -229,7 +229,7 @@ type
{ IClienteEliminableDelta } { IClienteEliminableDelta }
IClienteEliminableDelta = interface(IClienteEliminable) IClienteEliminableDelta = interface(IClienteEliminable)
['{4BE1D5F1-FED2-4751-AFAB-7B3043CB080F}'] ['{3ABFD442-48BB-451F-8923-EECB61A74980}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
@ -265,7 +265,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{6C264A76-A458-406D-AFDB-463396B820A9}'] ['{24737E5E-FF2A-49CA-82E6-CF01F6A4F1AD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -336,7 +336,7 @@ type
{ IContactosCategoriasDelta } { IContactosCategoriasDelta }
IContactosCategoriasDelta = interface(IContactosCategorias) IContactosCategoriasDelta = interface(IContactosCategorias)
['{47ECC055-1F3D-4942-81A0-B246F1DC0659}'] ['{E9CCBC76-017F-49DA-8AC1-5D05D3F5BD58}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -372,7 +372,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{35B1C3C2-B3CE-46F9-835D-93BB056016E4}'] ['{D36C7B31-0994-4EDE-A0AF-AF7CF1AA5622}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -408,6 +408,7 @@ type
function GetOldTIENDA_WEBValue : Integer; function GetOldTIENDA_WEBValue : Integer;
function GetOldAGENTEValue : String; function GetOldAGENTEValue : String;
function GetOldRAPELValue : Integer; function GetOldRAPELValue : Integer;
function GetOldEMAIL_ADMINISTRACIONValue : String;
function GetOldVENCIMIENTO_FACTURAS_1Value : Integer; function GetOldVENCIMIENTO_FACTURAS_1Value : Integer;
function GetOldVENCIMIENTO_FACTURAS_2Value : Integer; function GetOldVENCIMIENTO_FACTURAS_2Value : Integer;
function GetOldVENCIMIENTO_FACTURAS_3Value : Integer; function GetOldVENCIMIENTO_FACTURAS_3Value : Integer;
@ -447,6 +448,7 @@ type
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue; property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
property OldAGENTE : String read GetOldAGENTEValue; property OldAGENTE : String read GetOldAGENTEValue;
property OldRAPEL : Integer read GetOldRAPELValue; property OldRAPEL : Integer read GetOldRAPELValue;
property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value; property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value; property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
@ -559,6 +561,9 @@ type
function GetRAPELValue: Integer; virtual; function GetRAPELValue: Integer; virtual;
function GetOldRAPELValue: Integer; virtual; function GetOldRAPELValue: Integer; virtual;
procedure SetRAPELValue(const aValue: 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 GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual; function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
@ -638,6 +643,8 @@ type
property OldAGENTE : String read GetOldAGENTEValue; property OldAGENTE : String read GetOldAGENTEValue;
property RAPEL : Integer read GetRAPELValue write SetRAPELValue; property RAPEL : Integer read GetRAPELValue write SetRAPELValue;
property OldRAPEL : Integer read GetOldRAPELValue; 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 VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
@ -653,7 +660,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{50F87776-2945-444B-813D-B18F9BE0BA10}'] ['{C5F98D58-4E55-4BCD-AEE1-4D15FCFCD402}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -682,6 +689,7 @@ type
function GetOldID_TIPO_IVAValue : Integer; function GetOldID_TIPO_IVAValue : Integer;
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldTIENDA_WEBValue : Integer; function GetOldTIENDA_WEBValue : Integer;
function GetOldEMAIL_ADMINISTRACIONValue : String;
function GetOldVENCIMIENTO_FACTURAS_1Value : Integer; function GetOldVENCIMIENTO_FACTURAS_1Value : Integer;
function GetOldVENCIMIENTO_FACTURAS_2Value : Integer; function GetOldVENCIMIENTO_FACTURAS_2Value : Integer;
function GetOldVENCIMIENTO_FACTURAS_3Value : Integer; function GetOldVENCIMIENTO_FACTURAS_3Value : Integer;
@ -714,6 +722,7 @@ type
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue; 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_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value; property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value; property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
@ -805,6 +814,9 @@ type
function GetTIENDA_WEBValue: Integer; virtual; function GetTIENDA_WEBValue: Integer; virtual;
function GetOldTIENDA_WEBValue: Integer; virtual; function GetOldTIENDA_WEBValue: Integer; virtual;
procedure SetTIENDA_WEBValue(const aValue: 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 GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual; function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: 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 OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property OldTIENDA_WEB : Integer read GetOldTIENDA_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 VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
@ -885,7 +899,7 @@ type
{ IAgentesDelta } { IAgentesDelta }
IAgentesDelta = interface(IAgentes) IAgentesDelta = interface(IAgentes)
['{8FF32389-A14E-4B03-B471-B8D22D2A628C}'] ['{FBAE47C9-5F62-4EEB-A61B-9DE8145AC3A3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1061,7 +1075,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{F0A4B0AF-0147-4D9A-AF6C-7F9043820F48}'] ['{EF9D18DF-D0EB-4433-A8D0-F22735A7F6A3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -1181,7 +1195,7 @@ type
{ IAgentesComisionesDelta } { IAgentesComisionesDelta }
IAgentesComisionesDelta = interface(IAgentesComisiones) IAgentesComisionesDelta = interface(IAgentesComisiones)
['{65D0C176-5486-4D88-AC21-EA57985AF334}'] ['{B296BBFC-AF34-4AB9-BB6F-4308BE188D15}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
@ -1238,7 +1252,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{B4F1CA58-1E66-4A19-8AB3-EACB27C19DEE}'] ['{18D4AC51-8E27-42E7-8A75-A5E1E21EAB34}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2393,6 +2407,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRAPEL] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRAPEL] := aValue;
end; 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; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
@ -2857,6 +2886,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := aValue;
end; 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; function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];

4
Source/Modulos/Contactos/Model/uBizClientesServer.pas
View File

@ -78,7 +78,7 @@ begin
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; 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_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION];
Execute; Execute;
end; end;
finally finally
@ -118,7 +118,7 @@ begin
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; 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_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION];
Execute; Execute;
end; end;
finally finally

41
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -98,6 +98,9 @@ type
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; 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 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_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_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_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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
end; end;
IBizProveedor = interface (IBizContacto) IBizProveedor = interface (IBizContacto)
@ -138,6 +142,9 @@ type
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; function GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: 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 REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; 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_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_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
end; end;
IBizAgente = interface (IBizContacto) IBizAgente = interface (IBizContacto)
@ -205,7 +213,7 @@ type
protected protected
FDescuentos : IBizClienteDescuentos; FDescuentos : IBizClienteDescuentos;
FDescuentosLink : TDADataSource; FDescuentosLink : TDADataSource;
function GetID_AGENTEValue: Integer; function GetID_AGENTEValue: Integer;
procedure SetID_AGENTEValue(const aValue: Integer); procedure SetID_AGENTEValue(const aValue: Integer);
@ -247,9 +255,13 @@ type
function GetTIENDA_WEBValue: Integer; function GetTIENDA_WEBValue: Integer;
procedure SetTIENDA_WEBValue(const aValue: Integer); procedure SetTIENDA_WEBValue(const aValue: Integer);
function GetDescuentos: IBizClienteDescuentos; function GetDescuentos: IBizClienteDescuentos;
procedure SetDescuentos(Value: IBizClienteDescuentos); procedure SetDescuentos(Value: IBizClienteDescuentos);
function GetEMAIL_ADMINISTRACIONValue: String;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
public public
procedure IniciarValoresContactoNuevo; override; procedure IniciarValoresContactoNuevo; override;
constructor Create(aDataTable: TDADataTable); 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_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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
end; end;
@ -298,6 +311,9 @@ type
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; function GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
function GetEMAIL_ADMINISTRACIONValue: String;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
public public
procedure IniciarValoresContactoNuevo; override; procedure IniciarValoresContactoNuevo; override;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; 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_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_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
end; end;
@ -454,6 +471,11 @@ begin
Result := FDescuentos; Result := FDescuentos;
end; end;
function TBizCliente.GetEMAIL_ADMINISTRACIONValue: String;
begin
result := DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString;
end;
function TBizCliente.GetGRUPO_CLIENTEValue: String; function TBizCliente.GetGRUPO_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString; result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString;
@ -500,6 +522,11 @@ begin
EnlazarMaestroDetalle(FDescuentosLink, FDescuentos); EnlazarMaestroDetalle(FDescuentosLink, FDescuentos);
end; end;
procedure TBizCliente.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString := aValue;
end;
procedure TBizCliente.SetGRUPO_CLIENTEValue(const aValue: String); procedure TBizCliente.SetGRUPO_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue; DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue;
@ -690,6 +717,16 @@ begin
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger := aValue; DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger := aValue;
end; 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 } { TBizAgente }
constructor TBizAgente.Create(aDataTable: TDADataTable); constructor TBizAgente.Create(aDataTable: TDADataTable);

6
Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
View File

@ -72,7 +72,7 @@ begin
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; 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_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
Execute; Execute;
end; end;
finally finally
@ -88,7 +88,7 @@ var
ACommand : IDASQLCommand; ACommand : IDASQLCommand;
begin begin
inherited; inherited;
ASchema := BusinessProcessor.Schema; ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
@ -106,7 +106,7 @@ begin
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; 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_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
Execute; Execute;
end; end;
finally finally

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

@ -653,9 +653,9 @@ object srvContactos: TsrvContactos
' NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, '#10 + ' NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, '#10 +
' ID_AGENTE, GRUPO_CLIENTE, NOMBRE_COMERCIAL,'#10' BLOQUEADO, M' + ' ID_AGENTE, GRUPO_CLIENTE, NOMBRE_COMERCIAL,'#10' BLOQUEADO, M' +
'OTIVO_BLOQUEO, RECARGO_EQUIVALENCIA, REGIMEN_IVA, '#10' ID_TIPO_I' + 'OTIVO_BLOQUEO, RECARGO_EQUIVALENCIA, REGIMEN_IVA, '#10' ID_TIPO_I' +
'VA, ID_FORMA_PAGO, TIENDA_WEB, AGENTE, RAPEL,'#10' VENCIMIENTO_FA' + 'VA, ID_FORMA_PAGO, TIENDA_WEB, AGENTE, RAPEL, EMAIL_ADMINISTRACI' +
'CTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3'#10' FROM'#10 + 'ON,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIE' +
' V_CLIENTES' 'NTO_FACTURAS_3'#10' FROM'#10' V_CLIENTES'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -805,6 +805,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'VENCIMIENTO_FACTURAS_3' DatasetField = 'VENCIMIENTO_FACTURAS_3'
TableField = 'VENCIMIENTO_FACTURAS_3' TableField = 'VENCIMIENTO_FACTURAS_3'
end
item
DatasetField = 'EMAIL_ADMINISTRACION'
TableField = 'EMAIL_ADMINISTRACION'
end> end>
end> end>
Name = 'Clientes' Name = 'Clientes'
@ -1174,6 +1178,18 @@ object srvContactos: TsrvContactos
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end 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 item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger DataType = datInteger
@ -1222,8 +1238,8 @@ object srvContactos: TsrvContactos
'_2, '#10' MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, '#10' ' + '_2, '#10' MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, '#10' ' +
' NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, '#10 + ' NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, '#10 +
' REGIMEN_IVA, DESCUENTO, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_W' + ' REGIMEN_IVA, DESCUENTO, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_W' +
'EB,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIE' + 'EB, EMAIL_ADMINISTRACION,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENT' +
'NTO_FACTURAS_3'#10' FROM'#10' V_PROVEEDORES' 'O_FACTURAS_2, VENCIMIENTO_FACTURAS_3'#10' FROM'#10' V_PROVEEDORES'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -1345,6 +1361,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'VENCIMIENTO_FACTURAS_3' DatasetField = 'VENCIMIENTO_FACTURAS_3'
TableField = 'VENCIMIENTO_FACTURAS_3' TableField = 'VENCIMIENTO_FACTURAS_3'
end
item
DatasetField = 'EMAIL_ADMINISTRACION'
TableField = 'EMAIL_ADMINISTRACION'
end> end>
end> end>
Name = 'Proveedores' Name = 'Proveedores'
@ -1637,6 +1657,18 @@ object srvContactos: TsrvContactos
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end 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 item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger DataType = datInteger
@ -3281,6 +3313,14 @@ object srvContactos: TsrvContactos
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'EMAIL_ADMINISTRACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger DataType = datInteger
@ -3310,12 +3350,13 @@ object srvContactos: TsrvContactos
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, ID_AGENTE, GRUPO_C' + 'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, ID_AGENTE, GRUPO_C' +
'LIENTE, RECARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, BLOQUEADO, ' + 'LIENTE, RECARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, BLOQUEADO, ' +
'MOTIVO_BLOQUEO, REGIMEN_IVA, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TI' + 'MOTIVO_BLOQUEO, REGIMEN_IVA, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TI' +
'ENDA_WEB, RAPEL,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTUR' + 'ENDA_WEB, RAPEL, EMAIL_ADMINISTRACION,'#10' VENCIMIENTO_FACTURAS' +
'AS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_CLIENTE, :ID_AGE' + '_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' ' +
'NTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCI' + ' (:ID_CLIENTE, :ID_AGENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA' +
'AL, :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA,'#10' ' + ','#10' :NOMBRE_COMERCIAL, :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_' +
' :ID_FORMA_PAGO, :TIENDA_WEB, :RAPEL,'#10' :VENCIMIENTO_FACTURA' + 'IVA, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :RAPEL, :EM' +
'S_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)' 'AIL_ADMINISTRACION,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_F' +
'ACTURAS_2, :VENCIMIENTO_FACTURAS_3)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3432,6 +3473,14 @@ object srvContactos: TsrvContactos
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'EMAIL_ADMINISTRACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger DataType = datInteger
@ -3471,10 +3520,11 @@ object srvContactos: TsrvContactos
'CARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' ' + 'CARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' ' +
' BLOQUEADO = :BLOQUEADO,'#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID' + ' BLOQUEADO = :BLOQUEADO,'#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID' +
'_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' + '_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
' TIENDA_WEB = :TIENDA_WEB,'#10' RAPEL = :RAPEL,'#10' VENCIMIENTO_' + ' TIENDA_WEB = :TIENDA_WEB,'#10' RAPEL = :RAPEL,'#10' EMAIL_ADMINI' +
'FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2' + 'STRACION = :EMAIL_ADMINISTRACION,'#10' VENCIMIENTO_FACTURAS_1 = :' +
' = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIM' + 'VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENT' +
'IENTO_FACTURAS_3'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)' 'O_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS' +
'_3'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3525,6 +3575,14 @@ object srvContactos: TsrvContactos
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'EMAIL_ADMINISTRACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger DataType = datInteger
@ -3552,11 +3610,12 @@ object srvContactos: TsrvContactos
TargetTable = 'PROVEEDORES_DATOS' TargetTable = 'PROVEEDORES_DATOS'
SQL = SQL =
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' + 'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' +
'DESCUENTO, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TIENDA_WEB, VENCIMIEN' + 'DESCUENTO, ID_TIPO_IVA,'#10' ID_FORMA_PAGO, TIENDA_WEB, EMAIL_ADM' +
'TO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_' + 'INISTRACION, VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2,' +
'3)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :ID_TI' + ' VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_I' +
'PO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :VENCIMIENTO_FACTURAS_1' + 'VA, :DESCUENTO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :' +
','#10' :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)' 'EMAIL_ADMINISTRACION, :VENCIMIENTO_FACTURAS_1,'#10' :VENCIMIENTO_' +
'FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3628,6 +3687,14 @@ object srvContactos: TsrvContactos
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'EMAIL_ADMINISTRACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger DataType = datInteger
@ -3664,10 +3731,11 @@ object srvContactos: TsrvContactos
'UPDATE PROVEEDORES_DATOS'#10' SET '#10' ID_PROVEEDOR = :ID_PROVEEDOR' + 'UPDATE PROVEEDORES_DATOS'#10' SET '#10' ID_PROVEEDOR = :ID_PROVEEDOR' +
', '#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' DESCUENTO = :DESCUENTO,'#10' ' + ', '#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' DESCUENTO = :DESCUENTO,'#10' ' +
' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAG' + ' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAG' +
'O,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' VENCIMIENTO_FACTURAS_1 = :V' + 'O,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' EMAIL_ADMINISTRACION = :EMA' +
'ENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO' + 'IL_ADMINISTRACION,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FAC' +
'_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_' + 'TURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' ' +
'3'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)' ' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' ' +
'(ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -4902,9 +4970,9 @@ object srvContactos: TsrvContactos
Top = 82 Top = 82
DiagramData = DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' + '<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="ContactosCategorias"' + 'idth="400" Height="300">'#13#10' <Entity Name="Contactos" Left="223' +
' Left="0,00" Top="26,50" />'#13#10' <Entity Name="Contactos" Left="' + ',77" Top="0,00" />'#13#10' <Entity Name="ContactosCategorias" Left=' +
'223,77" Top="0,00" />'#13#10' <Entity Name="DatosBancarios" Left="4' + '"0,00" Top="26,50" />'#13#10' <Entity Name="DatosBancarios" Left="4' +
'79,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10 '79,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end end
object bpContactos: TDABusinessProcessor object bpContactos: TDABusinessProcessor

1
Source/Servidor/FactuGES_Server.dpr
View File

@ -134,6 +134,7 @@ uses
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_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', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "3.0.7.0\0" VALUE "FileVersion", "3.0.7.0\0"
VALUE "ProductName", "FactuGES Server\0" VALUE "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "3.0.7.0\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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.