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,
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)

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

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

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

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

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

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

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

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 +
' 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 =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="ContactosCategorias"' +
' Left="0,00" Top="26,50" />'#13#10' <Entity Name="Contactos" Left="' +
'223,77" Top="0,00" />'#13#10' <Entity Name="DatosBancarios" Left="4' +
'idth="400" Height="300">'#13#10' <Entity Name="Contactos" Left="223' +
',77" Top="0,00" />'#13#10' <Entity Name="ContactosCategorias" Left=' +
'"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
end
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',
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';

2
Source/Servidor/FactuGES_Server.rc
View File

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

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.