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

Se modifica la ficha de clientes para tener campo fecha de alta (solicitado por Maribel)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1109 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2014-10-10 11:06:58 +00:00
parent 192c7d4901
commit 1eea2d0990
18 changed files with 374 additions and 205 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Database/scripts/factuges.sql
View File

@ -465,7 +465,8 @@ CREATE TABLE CLIENTES_DATOS (
VENCIMIENTO_FACTURAS_1 SMALLINT,
VENCIMIENTO_FACTURAS_2 SMALLINT,
VENCIMIENTO_FACTURAS_3 SMALLINT,
FELICITACION TIPO_BOOLEANO
FELICITACION TIPO_BOOLEANO,
FECHA_INGRESO DATE
);
CREATE TABLE CLIENTES_DTOS_PROVEEDORES (
@ -1782,7 +1783,8 @@ CREATE VIEW V_CLIENTES(
TIENDA_WEB,
CODIGO_ASIGNADO,
DESCUENTO,
FELICITACION)
FELICITACION,
FECHA_INGRESO)
AS
SELECT
V_CONTACTOS.ID,
@ -1822,7 +1824,8 @@ SELECT
CLIENTES_DATOS.TIENDA_WEB,
CLIENTES_DATOS.CODIGO_ASIGNADO,
CLIENTES_DATOS.DESCUENTO,
CLIENTES_DATOS.FELICITACION
CLIENTES_DATOS.FELICITACION,
CLIENTES_DATOS.FECHA_INGRESO
FROM
V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)

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">6</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.6.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.6.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">7</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.7.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.7.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,6,0
PRODUCTVERSION 2,0,6,0
FILEVERSION 2,0,7,0
PRODUCTVERSION 2,0,7,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.6.0\0"
VALUE "FileVersion", "2.0.7.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.0.6.0\0"
VALUE "ProductVersion", "2.0.7.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

6
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -411,13 +411,17 @@ inherited DataModuleClientes: TDataModuleClientes
end
item
Name = 'DESCUENTO'
DataType = datFloat
DataType = datCurrency
end
item
Name = 'FELICITACION'
DataType = datSmallInt
DisplayLabel = #191'Felicitaci'#243'n?'
DictionaryEntry = 'Clientes_FELICITACION'
end
item
Name = 'FECHA_INGRESO'
DataType = datDateTime
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

111
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 = '{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}';
RID_Contactos = '{C78BACC1-F2BB-473F-A884-0C99A35D12C5}';
RID_GruposCliente = '{1AF06554-3E62-440F-A3EA-98F6780C904D}';
RID_DatosBancarios = '{0ABB73CA-0D88-45CA-8C6B-7DFB43186B29}';
RID_Clientes = '{72136A7F-7375-469E-BC58-189DBEBFE6E5}';
RID_Proveedores = '{A1937E85-EF1D-45DC-9BD2-61F434E4D923}';
RID_Empleados = '{DF352049-627F-45E4-ADAC-F275C35851E2}';
RID_DireccionesContacto = '{DDFBBB18-107D-4841-B71D-CB49A83364A5}';
RID_ClientesDescuentos = '{367BEC69-5039-4C6A-BE86-30C5CDD10F30}';
RID_GruposProveedor = '{4CBB39D3-9794-4CD6-9B4B-271AC297DEE6}';
RID_GruposEmpleado = '{B94316A8-DB07-453D-B019-B9B7967C1003}';
RID_Contactos_Refresh = '{A80834D1-B3BD-41A9-AF85-7C523BA328D0}';
RID_ContratosEmpleados = '{2E4A61D9-2497-4300-AD40-9BBED3854C31}';
RID_DescripcionesProveedores = '{086DFAF6-4C45-467E-96E2-174D8C397EDD}';
RID_PersonalContacto = '{C75E2066-5FB7-406A-BA2C-C34CB8396A6F}';
{ Data table names }
nme_Contactos = 'Contactos';
@ -159,6 +159,7 @@ const
fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
fld_ClientesDESCUENTO = 'DESCUENTO';
fld_ClientesFELICITACION = 'FELICITACION';
fld_ClientesFECHA_INGRESO = 'FECHA_INGRESO';
{ Clientes field indexes }
idx_ClientesID = 0;
@ -199,6 +200,7 @@ const
idx_ClientesCODIGO_ASIGNADO = 35;
idx_ClientesDESCUENTO = 36;
idx_ClientesFELICITACION = 37;
idx_ClientesFECHA_INGRESO = 38;
{ Proveedores fields }
fld_ProveedoresID = 'ID';
@ -505,7 +507,7 @@ const
type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{795E31BE-2803-47BF-94DB-8C826BD50D76}']
['{995253BD-DD00-467F-B013-9D7E899B0224}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -804,7 +806,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{87CD9F5E-ED73-46CA-9D1D-70E04F018328}']
['{69643734-5A5A-4716-B5AD-269D1190306C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -851,7 +853,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{3BF87686-B4CE-4E8D-837A-00C8FD215AA8}']
['{B8BB890C-F529-4164-8C9F-8DBD0C27D973}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -982,7 +984,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{0E0415EC-1EF5-48EE-B597-FBCFC8FB4146}']
['{B59AAFC5-4C46-43B8-ACB9-F4517154DF67}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1127,14 +1129,18 @@ type
procedure SetCODIGO_ASIGNADOValue(const aValue: String);
function GetCODIGO_ASIGNADOIsNull: Boolean;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetDESCUENTOValue: Currency;
procedure SetDESCUENTOValue(const aValue: Currency);
function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetFELICITACIONValue: SmallInt;
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 }
@ -1210,10 +1216,12 @@ type
property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTO: Currency read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
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;
{ TClientesDataTableRules }
@ -1366,14 +1374,18 @@ type
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetDESCUENTOValue: Currency; virtual;
procedure SetDESCUENTOValue(const aValue: Currency); virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetFELICITACIONValue: SmallInt; virtual;
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;
@ -1448,10 +1460,12 @@ type
property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTO: Currency read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
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;
@ -1461,7 +1475,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{5DBDBAED-001D-4F0E-A30B-ACBE55F7787C}']
['{BC9D4BA3-7046-4B52-B4B9-12059B87077E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1952,7 +1966,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
['{A2E61A13-58B5-45E4-A44D-70B842EE7AE7}']
['{3E168A28-126B-4618-AF2D-47AEFEC9E931}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2383,7 +2397,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{1176AADF-9890-46D7-A71E-3D0E49BF787A}']
['{B18EFEC9-A76C-45ED-B72B-35B71DE5AC74}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2598,7 +2612,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{2FBC2FDD-15ED-4B53-A36D-6909CFB76C46}']
['{63059A24-808E-4593-8A3A-ACE892D9AAB8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2681,7 +2695,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{1D37F1A0-D99B-4CE3-B04A-9A5B61AFB2EF}']
['{A892C931-CECA-4710-A94D-9C781488453E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2728,7 +2742,7 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{E7B9C907-DC0F-4D59-97AB-658244CE36ED}']
['{6294A7B2-BD27-4C76-8F3B-1B5EA3C297BD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2775,7 +2789,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{4D484421-7F47-4678-AB0E-825B633392BB}']
['{81A9A821-0477-4BC1-A3ED-8E03C07B1426}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3050,7 +3064,7 @@ type
{ IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{C2E8F03A-48AE-43CF-971B-BD72FFA4B54C}']
['{1932323D-FE8C-44B4-BDB7-0457AEE5F4D9}']
{ Property getters and setters }
function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String);
@ -3085,7 +3099,7 @@ type
{ IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{66FE1BD5-2B4A-401C-BDAF-979D86602A5E}']
['{2589FD0E-6E35-4162-8772-7E2631F3E71A}']
{ Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -3120,7 +3134,7 @@ type
{ IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{7E175730-1E6E-4435-AD82-AD6241938A2E}']
['{7F089E93-7F99-423C-A934-C4EE7D453A9B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -4796,14 +4810,14 @@ begin
DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsVariant := Null;
end;
function TClientesDataTableRules.GetDESCUENTOValue: Float;
function TClientesDataTableRules.GetDESCUENTOValue: Currency;
begin
result := DataTable.Fields[idx_ClientesDESCUENTO].AsFloat;
result := DataTable.Fields[idx_ClientesDESCUENTO].AsCurrency;
end;
procedure TClientesDataTableRules.SetDESCUENTOValue(const aValue: Float);
procedure TClientesDataTableRules.SetDESCUENTOValue(const aValue: Currency);
begin
DataTable.Fields[idx_ClientesDESCUENTO].AsFloat := aValue;
DataTable.Fields[idx_ClientesDESCUENTO].AsCurrency := aValue;
end;
function TClientesDataTableRules.GetDESCUENTOIsNull: boolean;
@ -4838,6 +4852,27 @@ begin
DataTable.Fields[idx_ClientesFELICITACION].AsVariant := Null;
end;
function TClientesDataTableRules.GetFECHA_INGRESOValue: DateTime;
begin
result := DataTable.Fields[idx_ClientesFECHA_INGRESO].AsDateTime;
end;
procedure TClientesDataTableRules.SetFECHA_INGRESOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ClientesFECHA_INGRESO].AsDateTime := aValue;
end;
function TClientesDataTableRules.GetFECHA_INGRESOIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesFECHA_INGRESO].IsNull;
end;
procedure TClientesDataTableRules.SetFECHA_INGRESOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesFECHA_INGRESO].AsVariant := Null;
end;
{ TProveedoresDataTableRules }
constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);

119
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 = '{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}';
RID_ContactosDelta = '{886E86A0-D4BF-4D1B-BD9D-44B85DF6DED6}';
RID_GruposClienteDelta = '{822E5984-3550-48B6-96DF-464D42A68A54}';
RID_DatosBancariosDelta = '{4656BA5E-4D68-49EE-9D4B-DF38FB57FBE7}';
RID_ClientesDelta = '{8EC0A982-2CFE-4434-9CAB-12DBE4E8AE72}';
RID_ProveedoresDelta = '{33EB3E3C-ECC8-442A-91BE-D9E401995049}';
RID_EmpleadosDelta = '{B3390413-C227-499A-8298-D8B04E8D2E57}';
RID_DireccionesContactoDelta = '{950070DE-22F7-48F3-B280-479D36251736}';
RID_ClientesDescuentosDelta = '{CCD7FCFA-0A27-4E1D-8243-CAC24C626854}';
RID_GruposProveedorDelta = '{016C3DFC-7F72-4722-9DF0-ED2A60C22D7A}';
RID_GruposEmpleadoDelta = '{B525392E-6148-4638-884F-16976E0C7F19}';
RID_Contactos_RefreshDelta = '{16A2B77E-BF46-4AF8-8D07-026A8BD18212}';
RID_ContratosEmpleadosDelta = '{E0E1F72C-1FBB-47BC-B7DB-452A87582646}';
RID_DescripcionesProveedoresDelta = '{BA1C3AFA-7305-44F0-A3A9-3CF71991DB93}';
RID_PersonalContactoDelta = '{EE009FFC-8BA2-4A49-ACCE-4B7C0837427D}';
type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{13484D11-0D60-43D3-A9D7-7FDE6A475326}']
['{886E86A0-D4BF-4D1B-BD9D-44B85DF6DED6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -326,7 +326,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{260C98E9-8831-46BB-BC02-8A8FD3EBFDC8}']
['{822E5984-3550-48B6-96DF-464D42A68A54}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -372,7 +372,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{D37E3D21-436D-429A-BFD5-C008FD5F1026}']
['{4656BA5E-4D68-49EE-9D4B-DF38FB57FBE7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -502,7 +502,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{E0FABA52-A1D2-4762-9228-A4C1B75A63CD}']
['{8EC0A982-2CFE-4434-9CAB-12DBE4E8AE72}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -540,8 +540,9 @@ type
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldTIENDA_WEBValue : SmallInt;
function GetOldCODIGO_ASIGNADOValue : String;
function GetOldDESCUENTOValue : Float;
function GetOldDESCUENTOValue : Currency;
function GetOldFELICITACIONValue : SmallInt;
function GetOldFECHA_INGRESOValue : DateTime;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -580,8 +581,9 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCUENTO : Currency read GetOldDESCUENTOValue;
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
property OldFECHA_INGRESO : DateTime read GetOldFECHA_INGRESOValue;
end;
{ TClientesBusinessProcessorRules }
@ -806,11 +808,11 @@ type
function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual;
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetDESCUENTOValue: Currency; virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOValue: Currency; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
procedure SetDESCUENTOValue(const aValue: Currency); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetFELICITACIONValue: SmallInt; virtual;
function GetFELICITACIONIsNull: Boolean; virtual;
@ -818,6 +820,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;
@ -964,14 +972,18 @@ type
property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTO : Currency read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCUENTO : Currency read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property FELICITACION : SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
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;
@ -981,7 +993,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{95BBBF6E-2266-49CE-9D70-AEB10279BCF1}']
['{33EB3E3C-ECC8-442A-91BE-D9E401995049}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1472,7 +1484,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
['{546286BC-647C-44F4-9D35-3B664889DBF6}']
['{B3390413-C227-499A-8298-D8B04E8D2E57}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1907,7 +1919,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{D5BE55B6-0A80-4D33-8909-7412A486A985}']
['{950070DE-22F7-48F3-B280-479D36251736}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2122,7 +2134,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{C77A3BB3-C076-412E-BB6B-459110C91F1A}']
['{CCD7FCFA-0A27-4E1D-8243-CAC24C626854}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2204,7 +2216,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{6CBCEF66-F2C7-4E20-B06A-335D433C662E}']
['{016C3DFC-7F72-4722-9DF0-ED2A60C22D7A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2250,7 +2262,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{E1BDFF09-3B9D-4822-9B64-226FF0902CE5}']
['{B525392E-6148-4638-884F-16976E0C7F19}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2296,7 +2308,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{331FFCB0-68F9-41FF-BC21-292C60BDB1E1}']
['{16A2B77E-BF46-4AF8-8D07-026A8BD18212}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -2571,7 +2583,7 @@ type
{ IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{1308007A-1199-4F43-9E85-7173D077005A}']
['{E0E1F72C-1FBB-47BC-B7DB-452A87582646}']
{ Property getters and setters }
function GetOldCONTRATOValue : String;
@ -2605,7 +2617,7 @@ type
{ IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{FA426C9E-3ECF-446E-8D2F-9BA5189AA9DE}']
['{BA1C3AFA-7305-44F0-A3A9-3CF71991DB93}']
{ Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2639,7 +2651,7 @@ type
{ IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto)
['{2125A02B-BA0F-4C4B-93F9-3F9DDAB6058E}']
['{EE009FFC-8BA2-4A49-ACCE-4B7C0837427D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -5017,7 +5029,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := Null;
end;
function TClientesBusinessProcessorRules.GetDESCUENTOValue: Float;
function TClientesBusinessProcessorRules.GetDESCUENTOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO];
end;
@ -5027,7 +5039,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO]);
end;
function TClientesBusinessProcessorRules.GetOldDESCUENTOValue: Float;
function TClientesBusinessProcessorRules.GetOldDESCUENTOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO];
end;
@ -5037,7 +5049,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO]);
end;
procedure TClientesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
procedure TClientesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO] := aValue;
end;
@ -5079,6 +5091,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION] := Null;
end;
function TClientesBusinessProcessorRules.GetFECHA_INGRESOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_INGRESO];
end;
function TClientesBusinessProcessorRules.GetFECHA_INGRESOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_INGRESO]);
end;
function TClientesBusinessProcessorRules.GetOldFECHA_INGRESOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_INGRESO];
end;
function TClientesBusinessProcessorRules.GetOldFECHA_INGRESOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_INGRESO]);
end;
procedure TClientesBusinessProcessorRules.SetFECHA_INGRESOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_INGRESO] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetFECHA_INGRESOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_INGRESO] := Null;
end;
{ TProveedoresBusinessProcessorRules }
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -96,7 +96,8 @@ 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('FELICITACION').Value := aChange.NewValueByName[fld_ClientesFELICITACION];
ParamByName('FELICITACION').Value := aChange.NewValueByName[fld_ClientesFELICITACION];
ParamByName('FECHA_INGRESO').Value := aChange.NewValueByName[fld_ClientesFECHA_INGRESO];
Execute;
end;
finally
@ -137,7 +138,8 @@ 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('FELICITACION').Value := aChange.NewValueByName[fld_ClientesFELICITACION];
ParamByName('FELICITACION').Value := aChange.NewValueByName[fld_ClientesFELICITACION];
ParamByName('FECHA_INGRESO').Value := aChange.NewValueByName[fld_ClientesFECHA_INGRESO];
Execute;
end;

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

@ -543,6 +543,10 @@ object srvContactos: TsrvContactos
item
DatasetField = 'FELICITACION'
TableField = 'FELICITACION'
end
item
DatasetField = 'FECHA_INGRESO'
TableField = 'FECHA_INGRESO'
end>
end>
Name = 'Clientes'
@ -750,12 +754,16 @@ object srvContactos: TsrvContactos
end
item
Name = 'DESCUENTO'
DataType = datFloat
DataType = datCurrency
end
item
Name = 'FELICITACION'
DataType = datSmallInt
DictionaryEntry = 'Clientes_FELICITACION'
end
item
Name = 'FECHA_INGRESO'
DataType = datDateTime
end>
end
item
@ -2855,6 +2863,11 @@ object srvContactos: TsrvContactos
Name = 'FELICITACION'
DataType = datSmallInt
Value = ''
end
item
Name = 'FECHA_INGRESO'
DataType = datDateTime
Value = ''
end>
Statements = <
item
@ -2865,12 +2878,13 @@ object srvContactos: TsrvContactos
'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL,'#10' BLOQUEADO, MOTIVO_BLOQ' +
'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, C' +
'ODIGO_ASIGNADO, DESCUENTO,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIE' +
'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3,'#10' FELICITACION)'#10' VAL' +
'UES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NO' +
'MBRE_COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, ' +
':ID_TIPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :CODIGO_ASIGNADO' +
', :DESCUENTO,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURA' +
'S_2, :VENCIMIENTO_FACTURAS_3,'#10' :FELICITACION)'#10
'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3,'#10' FELICITACION, FECHA' +
'_INGRESO)'#10' VALUES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQ' +
'UIVALENCIA, :NOMBRE_COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO,' +
' :REGIMEN_IVA, :ID_TIPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :' +
'CODIGO_ASIGNADO, :DESCUENTO,'#10' :VENCIMIENTO_FACTURAS_1, :VENC' +
'IMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3,'#10' :FELICITACION,' +
' :FECHA_INGRESO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2983,6 +2997,11 @@ object srvContactos: TsrvContactos
DataType = datSmallInt
Value = ''
end
item
Name = 'FECHA_INGRESO'
DataType = datDateTime
Value = ''
end
item
Name = 'OLD_ID_CLIENTE'
Value = ''
@ -3002,7 +3021,8 @@ object srvContactos: TsrvContactos
'TO,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VE' +
'NCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_' +
'FACTURAS_3 = :VENCIMIENTO_FACTURAS_3,'#10' FELICITACION = :FELICI' +
'TACION'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
'TACION,'#10' FECHA_INGRESO = :FECHA_INGRESO'#10' WHERE'#10' (ID_CLIEN' +
'TE = :OLD_ID_CLIENTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>

210
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -11,16 +11,16 @@ inherited frViewCliente: TfrViewCliente
ExplicitWidth = 777
ExplicitHeight = 506
inherited PngSpeedButton1: TPngSpeedButton
Left = 733
ExplicitLeft = 733
Left = 732
ExplicitLeft = 732
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 733
ExplicitLeft = 733
Left = 732
ExplicitLeft = 732
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 733
ExplicitLeft = 733
Left = 732
ExplicitLeft = 732
end
inherited eCalle: TcxDBTextEdit
Left = 132
@ -29,7 +29,7 @@ inherited frViewCliente: TfrViewCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
TabOrder = 9
ExplicitLeft = 132
ExplicitTop = 277
ExplicitWidth = 260
@ -42,7 +42,7 @@ inherited frViewCliente: TfrViewCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
TabOrder = 10
ExplicitLeft = 132
ExplicitTop = 304
ExplicitWidth = 159
@ -55,21 +55,21 @@ inherited frViewCliente: TfrViewCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
TabOrder = 12
ExplicitLeft = 132
ExplicitTop = 331
ExplicitWidth = 260
Width = 260
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 309
Left = 384
Top = 304
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 309
TabOrder = 11
ExplicitLeft = 384
ExplicitTop = 304
end
inherited eObservaciones: TcxDBMemo
@ -78,7 +78,7 @@ inherited frViewCliente: TfrViewCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 21
TabOrder = 22
ExplicitTop = 415
ExplicitWidth = 733
ExplicitHeight = 69
@ -126,7 +126,7 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 7
Width = 370
end
object cbGrupoCliente: TcxDBComboBox [10]
@ -150,7 +150,7 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
TabOrder = 6
Width = 260
end
object eBloqueo: TcxDBTextEdit [11]
@ -169,7 +169,7 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
TabOrder = 8
Width = 260
end
object eCodigoAsignado: TcxDBTextEdit [12]
@ -193,46 +193,46 @@ inherited frViewCliente: TfrViewCliente
Width = 260
end
inherited eTlfParticular: TcxDBTextEdit
Left = 499
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 499
ExplicitWidth = 238
Width = 238
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 499
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 499
ExplicitWidth = 238
Width = 238
end
inherited eTlfMovil: TcxDBTextEdit
Left = 499
Left = 574
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 499
ExplicitLeft = 574
ExplicitWidth = 238
Width = 238
end
inherited eFax: TcxDBTextEdit
Left = 499
inherited eTlfTrabajo: TcxDBTextEdit
Left = 574
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 574
ExplicitWidth = 238
Width = 238
end
inherited eTlfMovil: TcxDBTextEdit
Left = 574
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 499
ExplicitLeft = 574
ExplicitWidth = 238
Width = 238
end
inherited eFax: TcxDBTextEdit
Left = 574
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 574
ExplicitWidth = 238
Width = 238
end
@ -247,73 +247,41 @@ inherited frViewCliente: TfrViewCliente
Width = 260
end
inherited eNIFCIF: TcxDBTextEdit
Left = 283
Left = 329
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 283
ExplicitLeft = 329
ExplicitWidth = 91
Width = 91
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 499
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 499
ExplicitWidth = 209
Width = 209
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 499
Left = 574
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 499
ExplicitLeft = 574
ExplicitWidth = 209
Width = 209
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 499
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 574
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 499
ExplicitLeft = 574
ExplicitWidth = 209
Width = 209
end
inherited eReferencia: TcxDBTextEdit
Left = 132
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 132
Top = 358
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 132
ExplicitTop = 358
ExplicitWidth = 260
Width = 260
end
object cbFelicitacion: TcxDBCheckBox [24]
Left = 404
object cbFelicitacion: TcxDBCheckBox [21]
Left = 479
Top = 280
Caption = 'Mandar felicitaci'#243'n navide'#241'a a este cliente'
DataBinding.DataField = 'FELICITACION'
@ -333,9 +301,58 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 20
TabOrder = 21
Width = 370
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 574
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
ExplicitLeft = 574
ExplicitWidth = 209
Width = 209
end
inherited eReferencia: TcxDBTextEdit
Left = 132
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 132
Top = 358
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 132
ExplicitTop = 358
ExplicitWidth = 260
Width = 260
end
object eFechaIngreso: TcxDBDateEdit [25]
Left = 330
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 = 119
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avBottom
@ -347,10 +364,23 @@ inherited frViewCliente: TfrViewCliente
Control = eNombreComercial
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem22: TdxLayoutItem
Caption = 'C'#243'digo de proveedor:'
Control = eCodigoAsignado
ControlOptions.ShowBorder = False
object dxLayoutControlContactoGroup14: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlContactoItem22: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'C'#243'digo de proveedor:'
Control = eCodigoAsignado
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem21: TdxLayoutItem
Caption = 'Fecha de alta:'
Control = eFechaIngreso
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlContactoItem19: TdxLayoutItem
AutoAligns = [aaVertical]

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

@ -11,7 +11,7 @@ uses
dxLayoutControl, cxMemo, cxHyperLinkEdit, ImgList, ActnList, Buttons,
PngSpeedButton, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uGruposClienteController,
cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces;
cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces, cxCalendar;
type
IViewCliente = interface(IViewContacto)
@ -34,6 +34,9 @@ type
dxLayoutControlContactoGroup8: TdxLayoutGroup;
dxLayoutControlContactoItem20: TdxLayoutItem;
cbFelicitacion: TcxDBCheckBox;
dxLayoutControlContactoItem21: TdxLayoutItem;
eFechaIngreso: TcxDBDateEdit;
dxLayoutControlContactoGroup14: TdxLayoutGroup;
procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
procedure cbGrupoClientePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);

27
Source/Modulos/Contactos/Views/uViewClientes.dfm
View File

@ -69,7 +69,12 @@ inherited frViewClientes: TfrViewClientes
VisibleForCustomization = False
Width = 22
end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn [7]
object cxGridViewFECHA_INGRESO: TcxGridDBColumn [6]
Caption = 'Fecha de alta'
DataBinding.FieldName = 'FECHA_INGRESO'
PropertiesClassName = 'TcxDateEditProperties'
end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn [8]
DataBinding.FieldName = 'NOMBRE_COMERCIAL'
BestFitMaxWidth = 90
Width = 164
@ -101,22 +106,34 @@ inherited frViewClientes: TfrViewClientes
Width = 154
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 223
Left = 166
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 223
ExplicitLeft = 166
ExplicitWidth = 525
Width = 525
end
inherited eLista: TcxComboBox
Left = 705
Left = 514
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 705
ExplicitLeft = 514
ExplicitWidth = 215
Width = 215
end
inherited eLista2: TcxComboBox
Left = 674
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 674
ExplicitWidth = 207
Width = 207
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

3
Source/Modulos/Contactos/Views/uViewClientes.pas
View File

@ -14,7 +14,7 @@ uses
dxPScxCommon, cxImageComboBox, cxGridCustomPopupMenu, cxGridPopupMenu,
dxPScxGrid6Lnk, ExtCtrls, JvComponentBase, JvBalloonHint, JvHint,
uViewFiltroBase, dxPgsDlg, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
uDAInterfaces, cxTextEdit, Menus, uCustomView, uViewBase;
uDAInterfaces, cxTextEdit, Menus, uCustomView, uViewBase, cxCalendar;
type
IViewClientes = interface(IViewContactos)
@ -26,6 +26,7 @@ type
cxGridViewBLOQUEADO: TcxGridDBColumn;
cxGridViewTiendaWeb: TcxGridDBColumn;
cxGridViewFELICITACION: TcxGridDBColumn;
cxGridViewFECHA_INGRESO: TcxGridDBColumn;
procedure cxGridViewICONOGetCellHint(Sender: TcxCustomGridTableItem;
ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
const AMousePos: TPoint; var AHintText: TCaption;

19
Source/Modulos/Contactos/Views/uViewProveedores.dfm
View File

@ -65,6 +65,7 @@ inherited frViewProveedores: TfrViewProveedores
object cxGridViewFECHA_INGRESO: TcxGridDBColumn [6]
Caption = 'Fecha de alta'
DataBinding.FieldName = 'FECHA_INGRESO'
PropertiesClassName = 'TcxDateEditProperties'
Width = 50
end
end
@ -94,25 +95,35 @@ inherited frViewProveedores: TfrViewProveedores
Width = 125
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 157
Left = 124
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 157
ExplicitLeft = 124
ExplicitWidth = 244
Width = 244
end
inherited eLista: TcxComboBox
Left = 347
Left = 269
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 347
ExplicitLeft = 269
ExplicitWidth = 215
Width = 215
end
inherited eLista2: TcxComboBox
Left = 396
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 396
ExplicitWidth = 207
Width = 207
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 483

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -128,14 +128,14 @@ uses
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_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',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_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">6</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.6.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.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 04 de marzo de 2014 11:21</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">7</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.7.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.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 06 de junio de 2014 10:17</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>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,0,6,0
PRODUCTVERSION 2,0,6,0
FILEVERSION 2,0,7,0
PRODUCTVERSION 2,0,7,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.6.0\0"
VALUE "FileVersion", "2.0.7.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.0.6.0\0"
VALUE "CompileDate", "lunes, 26 de mayo de 2014 10:39\0"
VALUE "ProductVersion", "2.0.7.0\0"
VALUE "CompileDate", "viernes, 10 de octubre de 2014 12:57\0"
END
END
BLOCK "VarFileInfo"