Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tarea #1307 -> Añadir a la ficha de proveedor un campo de 'fecha de alta' modificable

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1086 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2014-01-23 17:52:29 +00:00
parent 35758b9848
commit d3c5abed0a
17 changed files with 465 additions and 201 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Database/scripts/factuges.sql
View File

@ -1083,7 +1083,8 @@ CREATE TABLE PROVEEDORES_DATOS (
VENCIMIENTO_FACTURAS_1 SMALLINT,
VENCIMIENTO_FACTURAS_2 SMALLINT,
VENCIMIENTO_FACTURAS_3 SMALLINT,
FELICITACION TIPO_BOOLEANO /* TIPO_BOOLEANO = SMALLINT */
FELICITACION TIPO_BOOLEANO, /* TIPO_BOOLEANO = SMALLINT */
FECHA_INGRESO DATE
);
CREATE TABLE PROVEEDORES_GRUPOS (
@ -3152,7 +3153,8 @@ CREATE VIEW V_PROVEEDORES(
VENCIMIENTO_FACTURAS_1,
VENCIMIENTO_FACTURAS_2,
VENCIMIENTO_FACTURAS_3,
FELICITACION)
FELICITACION,
FECHA_INGRESO)
AS
SELECT
V_CONTACTOS.ID,
@ -3192,7 +3194,8 @@ SELECT
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_1,
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_2,
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_3,
PROVEEDORES_DATOS.FELICITACION
PROVEEDORES_DATOS.FELICITACION,
PROVEEDORES_DATOS.FECHA_INGRESO
FROM
V_CONTACTOS
@ -3202,7 +3205,6 @@ WHERE
;
/* View: V_REC_CLI_COMPENSADOS */
CREATE VIEW V_REC_CLI_COMPENSADOS(
ID_RECIBO,

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 2,0,3,0
PRODUCTVERSION 2,0,3,0
FILEVERSION 2,0,4,0
PRODUCTVERSION 2,0,4,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.0.3.0\0"
VALUE "FileVersion", "2.0.4.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.0.3.0\0"
VALUE "ProductVersion", "2.0.4.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

15
Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
View File

@ -284,18 +284,33 @@ inherited DataModuleProveedores: TDataModuleProveedores
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
DisplayLabel = 'Proveedores_VENCIMIENTO_FACTURAS_1'
DictionaryEntry = 'Proveedores_VENCIMIENTO_FACTURAS_1'
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
DisplayLabel = 'Proveedores_VENCIMIENTO_FACTURAS_2'
DictionaryEntry = 'Proveedores_VENCIMIENTO_FACTURAS_2'
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
DisplayLabel = 'Proveedores_VENCIMIENTO_FACTURAS_3'
DictionaryEntry = 'Proveedores_VENCIMIENTO_FACTURAS_3'
end
item
Name = 'FELICITACION'
DataType = datSmallInt
DisplayLabel = 'Proveedores_FELICITACION'
DictionaryEntry = 'Proveedores_FELICITACION'
end
item
Name = 'FECHA_INGRESO'
DataType = datDateTime
DisplayLabel = 'Fecha de alta'
Alignment = taRightJustify
DictionaryEntry = 'Proveedores_FECHA_INGRESO'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,20 +9,20 @@ 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 = '{7141B502-9B65-4785-979D-C2A757A00606}';
RID_GruposCliente = '{39FA2C99-EFEF-44B7-8553-FE9ED7DC92CF}';
RID_DatosBancarios = '{A0D6D787-49D2-4B26-97EE-28413D2805FF}';
RID_Clientes = '{9E0E225C-DDDF-4236-BBE1-85D5F56F94D6}';
RID_Proveedores = '{11258A53-A1EE-4D1F-AF6C-9EFB21815070}';
RID_Empleados = '{80DC22F2-84E0-4B45-A5D1-A6D9EEE4FCC6}';
RID_DireccionesContacto = '{D1F3FB34-E735-4EC2-9129-8C55B058F2A2}';
RID_ClientesDescuentos = '{8CDF9F60-A25F-4078-8568-CA614F312FA6}';
RID_GruposProveedor = '{8147AAA0-C069-44CB-BB0F-4B605AB30F24}';
RID_GruposEmpleado = '{8ECBF0BC-7391-46C0-BA36-58130B4A1984}';
RID_Contactos_Refresh = '{71DEEFA8-E2E2-4F41-82C2-A86578616408}';
RID_ContratosEmpleados = '{3E5EF78A-26C9-4FBA-B425-D826B32C19DF}';
RID_DescripcionesProveedores = '{15B20681-2870-4854-8D91-5E901B3F9F22}';
RID_PersonalContacto = '{594ADB53-D0DD-446C-8BA7-D637F5FCFE43}';
RID_Contactos = '{81A319E9-32CE-42C3-B1CF-7152A2504D04}';
RID_GruposCliente = '{748DF5E6-9269-4A72-8743-9907E262184F}';
RID_DatosBancarios = '{7FCCFBC2-8717-424E-8BC0-F5F3EA2856E1}';
RID_Clientes = '{AA66B9FA-FBCD-4C5C-AB98-FC38BB903765}';
RID_Proveedores = '{BCC3A934-DD3A-4AEA-84BB-8B90785EFB42}';
RID_Empleados = '{F1F6952D-FA62-465D-A239-F3F5BB2E34B0}';
RID_DireccionesContacto = '{F630FC1F-E130-41D5-BF5A-1B04E361E770}';
RID_ClientesDescuentos = '{BCBF04E9-60F8-4257-8B46-378BB03E98BE}';
RID_GruposProveedor = '{5BE25EB1-41D8-473C-8A87-21E3AE13D6CC}';
RID_GruposEmpleado = '{95721FA1-5036-438F-8373-6319ED762CC3}';
RID_Contactos_Refresh = '{0C8F4F56-3609-4F6E-B043-B2A6139052E5}';
RID_ContratosEmpleados = '{9AFA6F82-CB30-4CD7-A61D-5559A9100F3D}';
RID_DescripcionesProveedores = '{A991D8A3-0C8F-401D-90A5-8C3B022578CF}';
RID_PersonalContacto = '{F8778328-6C26-4AB3-9676-3B6C6E376DB8}';
{ Data table names }
nme_Contactos = 'Contactos';
@ -239,6 +239,7 @@ const
fld_ProveedoresVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
fld_ProveedoresVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
fld_ProveedoresFELICITACION = 'FELICITACION';
fld_ProveedoresFECHA_INGRESO = 'FECHA_INGRESO';
{ Proveedores field indexes }
idx_ProveedoresID = 0;
@ -279,6 +280,7 @@ const
idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 35;
idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 36;
idx_ProveedoresFELICITACION = 37;
idx_ProveedoresFECHA_INGRESO = 38;
{ Empleados fields }
fld_EmpleadosID = 'ID';
@ -503,7 +505,7 @@ const
type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{F9DD576D-5B03-49DE-B1B2-E2461815C411}']
['{795E31BE-2803-47BF-94DB-8C826BD50D76}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -802,7 +804,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{58878E47-599B-4AF5-8F97-6D3CBA83128D}']
['{87CD9F5E-ED73-46CA-9D1D-70E04F018328}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -849,7 +851,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{D3B0316F-6237-413E-95D3-2ED6B0529584}']
['{3BF87686-B4CE-4E8D-837A-00C8FD215AA8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -980,7 +982,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{5CDD1282-A9AD-4BFA-BC69-8F0F63CC813A}']
['{0E0415EC-1EF5-48EE-B597-FBCFC8FB4146}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1459,7 +1461,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{A23614AA-9504-455B-92D6-CFB8EBEE9B7B}']
['{5DBDBAED-001D-4F0E-A30B-ACBE55F7787C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1612,6 +1614,10 @@ type
procedure SetFELICITACIONValue(const aValue: SmallInt);
function GetFELICITACIONIsNull: Boolean;
procedure SetFELICITACIONIsNull(const aValue: Boolean);
function GetFECHA_INGRESOValue: DateTime;
procedure SetFECHA_INGRESOValue(const aValue: DateTime);
function GetFECHA_INGRESOIsNull: Boolean;
procedure SetFECHA_INGRESOIsNull(const aValue: Boolean);
{ Properties }
@ -1691,6 +1697,8 @@ type
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
property FECHA_INGRESO: DateTime read GetFECHA_INGRESOValue write SetFECHA_INGRESOValue;
property FECHA_INGRESOIsNull: Boolean read GetFECHA_INGRESOIsNull write SetFECHA_INGRESOIsNull;
end;
{ TProveedoresDataTableRules }
@ -1851,6 +1859,10 @@ type
procedure SetFELICITACIONValue(const aValue: SmallInt); virtual;
function GetFELICITACIONIsNull: Boolean; virtual;
procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual;
function GetFECHA_INGRESOValue: DateTime; virtual;
procedure SetFECHA_INGRESOValue(const aValue: DateTime); virtual;
function GetFECHA_INGRESOIsNull: Boolean; virtual;
procedure SetFECHA_INGRESOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1929,6 +1941,8 @@ type
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
property FECHA_INGRESO: DateTime read GetFECHA_INGRESOValue write SetFECHA_INGRESOValue;
property FECHA_INGRESOIsNull: Boolean read GetFECHA_INGRESOIsNull write SetFECHA_INGRESOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1938,7 +1952,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
['{51CB10E8-9304-4853-802E-D2C06BC32E9E}']
['{A2E61A13-58B5-45E4-A44D-70B842EE7AE7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2369,7 +2383,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{C44B4E25-498B-4106-BBDA-B4DEEA209B7C}']
['{1176AADF-9890-46D7-A71E-3D0E49BF787A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2584,7 +2598,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{8C316E4D-9D63-4252-92E2-110B2A2A39B5}']
['{2FBC2FDD-15ED-4B53-A36D-6909CFB76C46}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2667,7 +2681,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{4913009E-F74C-47BC-9A91-EE5C1A50A9CA}']
['{1D37F1A0-D99B-4CE3-B04A-9A5B61AFB2EF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2714,7 +2728,7 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{3C1BD905-E66A-44E1-8B27-016826FD1904}']
['{E7B9C907-DC0F-4D59-97AB-658244CE36ED}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2761,7 +2775,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{1662F8B8-376F-496A-A03F-59278E928467}']
['{4D484421-7F47-4678-AB0E-825B633392BB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3036,7 +3050,7 @@ type
{ IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{0C862BE0-6492-4C78-9DAD-A55A6F921D42}']
['{C2E8F03A-48AE-43CF-971B-BD72FFA4B54C}']
{ Property getters and setters }
function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String);
@ -3071,7 +3085,7 @@ type
{ IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{5724E137-1CF1-4674-ACB1-B2DE2881A360}']
['{66FE1BD5-2B4A-401C-BDAF-979D86602A5E}']
{ Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -3106,7 +3120,7 @@ type
{ IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{EA400268-D6AE-47A9-A553-8978AF4D1A6A}']
['{7E175730-1E6E-4435-AD82-AD6241938A2E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -5641,6 +5655,27 @@ begin
DataTable.Fields[idx_ProveedoresFELICITACION].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetFECHA_INGRESOValue: DateTime;
begin
result := DataTable.Fields[idx_ProveedoresFECHA_INGRESO].AsDateTime;
end;
procedure TProveedoresDataTableRules.SetFECHA_INGRESOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ProveedoresFECHA_INGRESO].AsDateTime := aValue;
end;
function TProveedoresDataTableRules.GetFECHA_INGRESOIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresFECHA_INGRESO].IsNull;
end;
procedure TProveedoresDataTableRules.SetFECHA_INGRESOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresFECHA_INGRESO].AsVariant := Null;
end;
{ TEmpleadosDataTableRules }
constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,25 +9,25 @@ 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 = '{81517FFF-20E8-4465-BE0E-CB55E5890AFD}';
RID_GruposClienteDelta = '{E7570DEB-D558-4E75-8E14-E4F58F5FB7FA}';
RID_DatosBancariosDelta = '{59B4AA7D-975F-4255-B35B-8C0CB9608482}';
RID_ClientesDelta = '{CA2D623A-76FF-473A-9B05-139388FCE5CE}';
RID_ProveedoresDelta = '{2FE9FC09-1295-4D0A-AD70-CA92CA193E6B}';
RID_EmpleadosDelta = '{29641F7D-F717-4FA7-AB7A-B84C1A1381D0}';
RID_DireccionesContactoDelta = '{E659AD0F-82A8-45B2-81D8-775979642AB5}';
RID_ClientesDescuentosDelta = '{DAB3D283-302B-4B22-A694-DAA3DE315CC7}';
RID_GruposProveedorDelta = '{FF84FE1F-F7F0-492B-B0FF-33D4825D49B5}';
RID_GruposEmpleadoDelta = '{0C7FA5EF-4E50-401A-97F4-FC1A72F2AA30}';
RID_Contactos_RefreshDelta = '{E266652F-5500-452E-878A-E058FD97FCF8}';
RID_ContratosEmpleadosDelta = '{EF4C6C08-21F1-4C07-A093-74CF2800F45C}';
RID_DescripcionesProveedoresDelta = '{467A45CA-058D-42EB-B8DD-50541B75C176}';
RID_PersonalContactoDelta = '{5BFD1443-6765-44EA-A185-DB73ADAD4A03}';
RID_ContactosDelta = '{13484D11-0D60-43D3-A9D7-7FDE6A475326}';
RID_GruposClienteDelta = '{260C98E9-8831-46BB-BC02-8A8FD3EBFDC8}';
RID_DatosBancariosDelta = '{D37E3D21-436D-429A-BFD5-C008FD5F1026}';
RID_ClientesDelta = '{E0FABA52-A1D2-4762-9228-A4C1B75A63CD}';
RID_ProveedoresDelta = '{95BBBF6E-2266-49CE-9D70-AEB10279BCF1}';
RID_EmpleadosDelta = '{546286BC-647C-44F4-9D35-3B664889DBF6}';
RID_DireccionesContactoDelta = '{D5BE55B6-0A80-4D33-8909-7412A486A985}';
RID_ClientesDescuentosDelta = '{C77A3BB3-C076-412E-BB6B-459110C91F1A}';
RID_GruposProveedorDelta = '{6CBCEF66-F2C7-4E20-B06A-335D433C662E}';
RID_GruposEmpleadoDelta = '{E1BDFF09-3B9D-4822-9B64-226FF0902CE5}';
RID_Contactos_RefreshDelta = '{331FFCB0-68F9-41FF-BC21-292C60BDB1E1}';
RID_ContratosEmpleadosDelta = '{1308007A-1199-4F43-9E85-7173D077005A}';
RID_DescripcionesProveedoresDelta = '{FA426C9E-3ECF-446E-8D2F-9BA5189AA9DE}';
RID_PersonalContactoDelta = '{2125A02B-BA0F-4C4B-93F9-3F9DDAB6058E}';
type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{81517FFF-20E8-4465-BE0E-CB55E5890AFD}']
['{13484D11-0D60-43D3-A9D7-7FDE6A475326}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -326,7 +326,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{E7570DEB-D558-4E75-8E14-E4F58F5FB7FA}']
['{260C98E9-8831-46BB-BC02-8A8FD3EBFDC8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -372,7 +372,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{59B4AA7D-975F-4255-B35B-8C0CB9608482}']
['{D37E3D21-436D-429A-BFD5-C008FD5F1026}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -502,7 +502,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{CA2D623A-76FF-473A-9B05-139388FCE5CE}']
['{E0FABA52-A1D2-4762-9228-A4C1B75A63CD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -981,7 +981,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{2FE9FC09-1295-4D0A-AD70-CA92CA193E6B}']
['{95BBBF6E-2266-49CE-9D70-AEB10279BCF1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1021,6 +1021,7 @@ type
function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt;
function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt;
function GetOldFELICITACIONValue : SmallInt;
function GetOldFECHA_INGRESOValue : DateTime;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -1061,6 +1062,7 @@ type
property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
property OldFECHA_INGRESO : DateTime read GetOldFECHA_INGRESOValue;
end;
{ TProveedoresBusinessProcessorRules }
@ -1297,6 +1299,12 @@ type
function GetOldFELICITACIONIsNull: Boolean; virtual;
procedure SetFELICITACIONValue(const aValue: SmallInt); virtual;
procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual;
function GetFECHA_INGRESOValue: DateTime; virtual;
function GetFECHA_INGRESOIsNull: Boolean; virtual;
function GetOldFECHA_INGRESOValue: DateTime; virtual;
function GetOldFECHA_INGRESOIsNull: Boolean; virtual;
procedure SetFECHA_INGRESOValue(const aValue: DateTime); virtual;
procedure SetFECHA_INGRESOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -1451,6 +1459,10 @@ type
property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
property OldFELICITACIONIsNull : Boolean read GetOldFELICITACIONIsNull;
property FECHA_INGRESO : DateTime read GetFECHA_INGRESOValue write SetFECHA_INGRESOValue;
property FECHA_INGRESOIsNull : Boolean read GetFECHA_INGRESOIsNull write SetFECHA_INGRESOIsNull;
property OldFECHA_INGRESO : DateTime read GetOldFECHA_INGRESOValue;
property OldFECHA_INGRESOIsNull : Boolean read GetOldFECHA_INGRESOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1460,7 +1472,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
['{29641F7D-F717-4FA7-AB7A-B84C1A1381D0}']
['{546286BC-647C-44F4-9D35-3B664889DBF6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1895,7 +1907,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{E659AD0F-82A8-45B2-81D8-775979642AB5}']
['{D5BE55B6-0A80-4D33-8909-7412A486A985}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2110,7 +2122,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{DAB3D283-302B-4B22-A694-DAA3DE315CC7}']
['{C77A3BB3-C076-412E-BB6B-459110C91F1A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2192,7 +2204,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{FF84FE1F-F7F0-492B-B0FF-33D4825D49B5}']
['{6CBCEF66-F2C7-4E20-B06A-335D433C662E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2238,7 +2250,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{0C7FA5EF-4E50-401A-97F4-FC1A72F2AA30}']
['{E1BDFF09-3B9D-4822-9B64-226FF0902CE5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2284,7 +2296,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{E266652F-5500-452E-878A-E058FD97FCF8}']
['{331FFCB0-68F9-41FF-BC21-292C60BDB1E1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -2559,7 +2571,7 @@ type
{ IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{EF4C6C08-21F1-4C07-A093-74CF2800F45C}']
['{1308007A-1199-4F43-9E85-7173D077005A}']
{ Property getters and setters }
function GetOldCONTRATOValue : String;
@ -2593,7 +2605,7 @@ type
{ IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{467A45CA-058D-42EB-B8DD-50541B75C176}']
['{FA426C9E-3ECF-446E-8D2F-9BA5189AA9DE}']
{ Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2627,7 +2639,7 @@ type
{ IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto)
['{5BFD1443-6765-44EA-A185-DB73ADAD4A03}']
['{2125A02B-BA0F-4C4B-93F9-3F9DDAB6058E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -6265,6 +6277,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFELICITACION] := Null;
end;
function TProveedoresBusinessProcessorRules.GetFECHA_INGRESOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_INGRESO];
end;
function TProveedoresBusinessProcessorRules.GetFECHA_INGRESOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_INGRESO]);
end;
function TProveedoresBusinessProcessorRules.GetOldFECHA_INGRESOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_INGRESO];
end;
function TProveedoresBusinessProcessorRules.GetOldFECHA_INGRESOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_INGRESO]);
end;
procedure TProveedoresBusinessProcessorRules.SetFECHA_INGRESOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_INGRESO] := aValue;
end;
procedure TProveedoresBusinessProcessorRules.SetFECHA_INGRESOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_INGRESO] := Null;
end;
{ TEmpleadosBusinessProcessorRules }
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -159,6 +159,9 @@ type
function GetFELICITACIONValue: Integer;
procedure SetFELICITACIONValue(const aValue: Integer);
function GetFECHA_INGRESOValue: TDateTime;
procedure SetFECHA_INGRESOValue(const aValue: TDateTime);
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
@ -174,6 +177,7 @@ type
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 FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
property FECHA_INGRESO: TDateTime read GetFECHA_INGRESOValue write SetFECHA_INGRESOValue;
end;
IBizEmpleado = interface (IBizContacto)
@ -384,6 +388,9 @@ type
function GetFELICITACIONValue: Integer;
procedure SetFELICITACIONValue(const aValue: Integer);
function GetFECHA_INGRESOValue: TDateTime;
procedure SetFECHA_INGRESOValue(const aValue: TDateTime);
public
procedure IniciarValoresContactoNuevo; override;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
@ -401,6 +408,7 @@ type
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 FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
property FECHA_INGRESO: TDateTime read GetFECHA_INGRESOValue write SetFECHA_INGRESOValue;
end;
@ -788,7 +796,8 @@ begin
VENCIMIENTO_FACTURAS_1 := PROVEEDOR_DIAS_VENCIMIENTO;
ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
FELICITACION := 0;
FELICITACION := 0;
FECHA_INGRESO := DateOf(Now);
end;
function TBizProveedor.GetCERTIFICACIONValue: String;
@ -811,6 +820,11 @@ begin
result := DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat;
end;
function TBizProveedor.GetFECHA_INGRESOValue: TDateTime;
begin
result := DataTable.Fields[idx_ProveedoresFECHA_INGRESO].AsDateTime;
end;
function TBizProveedor.GetFELICITACIONValue: Integer;
begin
result := DataTable.Fields[idx_ProveedoresFELICITACION].AsInteger;
@ -836,6 +850,11 @@ begin
DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat := aValue;
end;
procedure TBizProveedor.SetFECHA_INGRESOValue(const aValue: TDateTime);
begin
DataTable.Fields[idx_ProveedoresFECHA_INGRESO].AsDateTime := aValue;
end;
procedure TBizProveedor.SetFELICITACIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresFELICITACION].AsInteger := aValue;

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

@ -95,7 +95,7 @@ begin
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
ParamByName('FELICITACION').Value := aChange.NewValueByName[fld_ProveedoresFELICITACION];
ParamByName('FECHA_INGRESO').Value := aChange.NewValueByName[fld_ProveedoresFECHA_INGRESO];
Execute;
end;
finally
@ -136,7 +136,7 @@ begin
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
ParamByName('FELICITACION').Value := aChange.NewValueByName[fld_ProveedoresFELICITACION];
ParamByName('FECHA_INGRESO').Value := aChange.NewValueByName[fld_ProveedoresFECHA_INGRESO];
Execute;
end;
finally

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

@ -1121,18 +1121,27 @@ object srvContactos: TsrvContactos
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
DictionaryEntry = 'Proveedores_VENCIMIENTO_FACTURAS_1'
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
DictionaryEntry = 'Proveedores_VENCIMIENTO_FACTURAS_2'
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
DictionaryEntry = 'Proveedores_VENCIMIENTO_FACTURAS_3'
end
item
Name = 'FELICITACION'
DataType = datSmallInt
DictionaryEntry = 'Proveedores_FELICITACION'
end
item
Name = 'FECHA_INGRESO'
DataType = datDateTime
DictionaryEntry = 'Proveedores_FECHA_INGRESO'
end>
end
item
@ -3001,6 +3010,11 @@ object srvContactos: TsrvContactos
end
item
Params = <
item
Name = 'FECHA_INGRESO'
DataType = datDateTime
Value = ''
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
@ -3095,12 +3109,13 @@ object srvContactos: TsrvContactos
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
'VA, SUBCONTRATA, ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERT' +
'IFICACION, GRUPO_PROVEEDOR,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIE' +
'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3,'#10' FELICITACION)'#10' VALU' +
'ES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PR' +
'OVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTRATA, :ID_F' +
'ORMA_PAGO, :TIENDA_WEB,'#10' :HOMOLOGADO, :CERTIFICACION, :GRUPO_' +
'PROVEEDOR,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2,' +
' :VENCIMIENTO_FACTURAS_3,'#10' :FELICITACION)'#10
'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3,'#10' FELICITACION, FECHA_' +
'INGRESO)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, ' +
':DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA, :SUB' +
'CONTRATA, :ID_FORMA_PAGO, :TIENDA_WEB,'#10' :HOMOLOGADO, :CERTIFI' +
'CACION, :GRUPO_PROVEEDOR,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIE' +
'NTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3,'#10' :FELICITACION, :FEC' +
'HA_INGRESO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -3128,6 +3143,11 @@ object srvContactos: TsrvContactos
end
item
Params = <
item
Name = 'FECHA_INGRESO'
DataType = datDateTime
Value = ''
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
@ -3232,7 +3252,8 @@ object srvContactos: TsrvContactos
'TRATA,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' ' +
' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIEN' +
'TO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3,'#10' FELICITACION = :FEL' +
'ICITACION'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10
'ICITACION,'#10' FECHA_INGRESO = :FECHA_INGRESO'#10' WHERE'#10' (ID_PR' +
'OVEEDOR = :OLD_ID_PROVEEDOR)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -4819,6 +4840,28 @@ object srvContactos: TsrvContactos
item
Name = 'PersonalContacto_FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'Proveedores_FECHA_INGRESO'
DataType = datDateTime
DisplayLabel = 'Fecha de alta'
Alignment = taRightJustify
end
item
Name = 'Proveedores_VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
end
item
Name = 'Proveedores_VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
end
item
Name = 'Proveedores_VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
end
item
Name = 'Proveedores_FELICITACION'
DataType = datSmallInt
end>
Left = 126
Top = 14

118
Source/Modulos/Contactos/Views/uViewEmpleado.dfm
View File

@ -25,6 +25,10 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited eCalle: TcxDBTextEdit
Left = 121
Top = 247
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
ExplicitLeft = 121
ExplicitTop = 247
@ -34,6 +38,10 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited cbProvincia: TcxDBComboBox
Left = 121
Top = 274
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 121
ExplicitTop = 274
@ -43,6 +51,10 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited cbPoblacion: TcxDBComboBox
Left = 121
Top = 301
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 121
ExplicitTop = 301
@ -52,12 +64,20 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited eCodigoPostal: TcxDBTextEdit
Left = 285
Top = 274
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 285
ExplicitTop = 274
end
inherited eObservaciones: TcxDBMemo
Top = 385
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 22
ExplicitTop = 385
ExplicitWidth = 629
@ -167,6 +187,10 @@ inherited frViewEmpleado: TfrViewEmpleado
end
inherited eTlfParticular: TcxDBTextEdit
Left = 475
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 475
ExplicitWidth = 166
@ -174,6 +198,10 @@ inherited frViewEmpleado: TfrViewEmpleado
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 475
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 475
ExplicitWidth = 166
@ -181,6 +209,10 @@ inherited frViewEmpleado: TfrViewEmpleado
end
inherited eTlfMovil: TcxDBTextEdit
Left = 475
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 475
ExplicitWidth = 166
@ -188,6 +220,10 @@ inherited frViewEmpleado: TfrViewEmpleado
end
inherited eFax: TcxDBTextEdit
Left = 475
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 475
ExplicitWidth = 166
@ -195,12 +231,20 @@ inherited frViewEmpleado: TfrViewEmpleado
end
inherited eNombre: TcxDBTextEdit
Left = 121
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 121
ExplicitWidth = 239
Width = 239
end
inherited eNIFCIF: TcxDBTextEdit
Left = 225
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 225
ExplicitWidth = 126
Width = 126
@ -208,6 +252,10 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 475
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 475
ExplicitWidth = 137
@ -216,34 +264,16 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 475
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 475
ExplicitWidth = 137
Width = 137
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 475
TabOrder = 19
ExplicitLeft = 475
ExplicitWidth = 137
Width = 137
end
inherited eReferencia: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 73
Width = 73
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 328
TabOrder = 12
ExplicitLeft = 121
ExplicitTop = 328
ExplicitWidth = 239
Width = 239
end
object eFechaBaja: TcxDBDateEdit [24]
object eFechaBaja: TcxDBDateEdit [21]
Left = 121
Top = 163
DataBinding.DataField = 'FECHA_BAJA'
@ -260,7 +290,7 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 6
Width = 229
end
object eCausaBaja: TcxDBTextEdit [25]
object eCausaBaja: TcxDBTextEdit [22]
Left = 121
Top = 190
DataBinding.DataField = 'CAUSA_BAJA'
@ -280,6 +310,40 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 7
Width = 229
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 475
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 475
ExplicitWidth = 137
Width = 137
end
inherited eReferencia: TcxDBTextEdit
Left = 121
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 121
ExplicitWidth = 73
Width = 73
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 328
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 121
ExplicitTop = 328
ExplicitWidth = 239
Width = 239
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -365,4 +429,10 @@ inherited frViewEmpleado: TfrViewEmpleado
Left = 32
Top = 80
end
inherited ActionList1: TActionList
Top = 168
end
inherited ImageList1: TPngImageList
Top = 168
end
end

224
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

@ -39,7 +39,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
TabOrder = 10
ExplicitLeft = 134
ExplicitTop = 277
ExplicitWidth = 330
@ -52,7 +52,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
TabOrder = 11
ExplicitLeft = 134
ExplicitTop = 304
end
@ -63,7 +63,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
TabOrder = 13
ExplicitLeft = 134
ExplicitTop = 331
end
@ -74,7 +74,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
TabOrder = 12
ExplicitLeft = 361
ExplicitTop = 304
end
@ -84,7 +84,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 23
TabOrder = 24
ExplicitTop = 415
ExplicitHeight = 20
Height = 20
@ -110,7 +110,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
TabOrder = 8
Width = 442
end
object eCertificaciones: TcxDBTextEdit [10]
@ -129,7 +129,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
TabOrder = 9
Width = 330
end
object cbGrupoProveedor: TcxDBComboBox [11]
@ -153,7 +153,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
TabOrder = 6
Width = 241
end
object cbDescripcionProveedor: TcxDBComboBox [12]
@ -197,31 +197,9 @@ inherited frViewProveedor: TfrViewProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 330
Width = 99
end
inherited eTlfParticular: TcxDBTextEdit
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 551
ExplicitWidth = 171
Width = 171
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 551
ExplicitWidth = 171
Width = 171
end
object cxDBCheckBox3: TcxDBCheckBox [16]
object cxDBCheckBox3: TcxDBCheckBox [14]
Left = 343
Top = 136
Caption = 'Subcontrata'
@ -242,42 +220,10 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 7
Width = 83
end
inherited eTlfMovil: TcxDBTextEdit
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 551
ExplicitWidth = 171
Width = 171
end
inherited eFax: TcxDBTextEdit
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 551
ExplicitWidth = 171
Width = 171
end
inherited eNombre: TcxDBTextEdit
Left = 134
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 134
ExplicitWidth = 330
Width = 330
end
object cxDBCheckBox1: TcxDBCheckBox [20]
object cxDBCheckBox1: TcxDBCheckBox [15]
Left = 444
Top = 294
Caption = 'Incluir este proveedor en la tienda web'
@ -299,44 +245,32 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 21
Width = 236
TabOrder = 22
Width = 253
end
inherited eNIFCIF: TcxDBTextEdit
Left = 224
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 224
ExplicitWidth = 226
Width = 226
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
inherited eTlfParticular: TcxDBTextEdit
Left = 551
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
TabOrder = 16
ExplicitLeft = 551
ExplicitWidth = 142
Width = 142
ExplicitWidth = 171
Width = 171
end
inherited eMailParticular: TcxDBHyperLinkEdit
inherited eTlfTrabajo: TcxDBTextEdit
Left = 551
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
TabOrder = 15
ExplicitLeft = 551
ExplicitWidth = 142
Width = 142
ExplicitWidth = 171
Width = 171
end
object cbFelicitacion: TcxDBCheckBox [24]
object cbFelicitacion: TcxDBCheckBox [18]
Left = 456
Top = 339
Caption = 'Mandar felicitaci'#243'n navide'#241'a a este proveedor'
@ -357,16 +291,99 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 22
TabOrder = 23
Width = 352
end
inherited eTlfMovil: TcxDBTextEdit
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 551
ExplicitWidth = 171
Width = 171
end
inherited eFax: TcxDBTextEdit
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 551
ExplicitWidth = 171
Width = 171
end
inherited eNombre: TcxDBTextEdit
Left = 134
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 134
ExplicitWidth = 330
Width = 330
end
inherited eNIFCIF: TcxDBTextEdit
Left = 224
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 224
ExplicitWidth = 226
Width = 226
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 551
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 551
ExplicitWidth = 142
Width = 142
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 551
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
ExplicitLeft = 551
ExplicitWidth = 142
Width = 142
end
object eFechaIngreso: TcxDBDateEdit [25]
Left = 307
Top = 109
DataBinding.DataField = 'FECHA_INGRESO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 124
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
TabOrder = 21
ExplicitLeft = 551
ExplicitWidth = 142
Width = 142
@ -388,7 +405,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
TabOrder = 14
ExplicitLeft = 134
ExplicitTop = 358
ExplicitWidth = 330
@ -403,10 +420,25 @@ inherited frViewProveedor: TfrViewProveedor
Control = cbDescripcionProveedor
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem24: TdxLayoutItem
Caption = 'C'#243'digo de cliente:'
Control = eCodigoAsignado
ControlOptions.ShowBorder = False
object dxLayoutControlContactoGroup17: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlContactoItem24: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'C'#243'digo de cliente:'
Control = eCodigoAsignado
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem28: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha de alta:'
Control = eFechaIngreso
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlContactoGroup15: TdxLayoutGroup
ShowCaption = False

5
Source/Modulos/Contactos/Views/uViewProveedor.pas
View File

@ -8,7 +8,7 @@ uses
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
Buttons, PngSpeedButton, StdCtrls, cxCheckBox, cxGraphics, cxDropDownEdit,
uGruposProveedorController, uDAInterfaces;
uGruposProveedorController, uDAInterfaces, cxCalendar;
type
IViewProveedor = interface(IViewContacto)
@ -37,6 +37,9 @@ type
dxLayoutControlContactoItem27: TdxLayoutItem;
cbFelicitacion: TcxDBCheckBox;
dxLayoutControlContactoGroup8: TdxLayoutGroup;
dxLayoutControlContactoItem28: TdxLayoutItem;
eFechaIngreso: TcxDBDateEdit;
dxLayoutControlContactoGroup17: TdxLayoutGroup;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure cbGrupoProveedorPropertiesInitPopup(Sender: TObject);

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -132,10 +132,10 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 06 de noviembre de 2013 13:14</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 06 de noviembre de 2013 18:22</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

4
Source/Servidor/FactuGES_Server.rc
View File

@ -12,9 +12,11 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.0.3.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.0.3.0\0"
VALUE "CompileDate", "miércoles, 06 de noviembre de 2013 18:22\0"
VALUE "CompileDate", "jueves, 23 de enero de 2014 18:39\0"
END
END
BLOCK "VarFileInfo"