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

Campo nuevo en datos de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@53 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-10-17 17:50:10 +00:00
parent 9ef8e53718
commit 03d3ffc636
20 changed files with 2362 additions and 198 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

BIN
Source/Base/Base.res
View File

Binary file not shown.

2
Source/GUIBase/GUIBase.drc
View File

@ -35,4 +35,4 @@ END
/* C:\Codigo Tecsitel\Source\GUIBase\uDialogBase.dfm */
/* C:\Codigo Tecsitel\Source\GUIBase\uViewGrid.dfm */
/* C:\Codigo Tecsitel\Source\GUIBase\GUIBase.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf7B.tmp */

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

@ -23,6 +23,7 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
@ -58,14 +59,14 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Direcci'#195#179'n'
DisplayLabel = 'Direcci'#243'n'
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#195#179'n'
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'Contactos_POBLACION'
end
item
@ -79,7 +80,7 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#195#179'digo postal'
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
@ -100,7 +101,7 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'MOVIL_1'
DataType = datString
Size = 25
DisplayLabel = 'M'#195#179'vil'
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
@ -193,14 +194,14 @@ inherited DataModuleClientes: TDataModuleClientes
item
Name = 'BLOQUEADO'
DataType = datSmallInt
DisplayLabel = #194#191'Bloqueado?'
DisplayLabel = #191'Bloqueado?'
DictionaryEntry = 'Clientes_BLOQUEADO'
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
DisplayLabel = 'R'#195#169'gimen de IVA'
DisplayLabel = 'R'#233'gimen de IVA'
DictionaryEntry = 'Clientes_REGIMEN_IVA'
end
item
@ -230,6 +231,11 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'TIENDA_WEB'
DataType = datSmallInt
DictionaryEntry = 'Clientes_TIENDA_WEB'
end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

BIN
Source/Modulos/Contactos/Model/Contactos_model.res
View File

Binary file not shown.

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

@ -9,17 +9,17 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Contactos = '{0535A6E2-6AD1-4247-9A32-BC3C1658EC8C}';
RID_GruposCliente = '{0F129451-0E5F-469A-B296-EE11BD5C33F0}';
RID_DatosBancarios = '{FFFA1683-A8AC-4087-8158-FB2ADE3241A4}';
RID_Clientes = '{C0877263-6E9F-45A1-A89D-284662B5F0D5}';
RID_Proveedores = '{EBFE10F1-1C8A-4F44-8512-FAF16349C724}';
RID_Empleados = '{436FA492-BFC7-4E36-A8FD-0FAB8603EA7C}';
RID_DireccionesContacto = '{55633C2C-41DA-4AAF-8A20-6F8E511BA93F}';
RID_ClientesDescuentos = '{836B4D02-8030-460F-A933-85A05194566D}';
RID_GruposProveedor = '{F9E85611-2E9A-4918-8EB0-3011DABDA189}';
RID_GruposEmpleado = '{616CAF20-6FBF-465D-BA8F-CF10C1F2E167}';
RID_Contactos_Refresh = '{A87206B2-F4CF-4C8D-92A1-3B5AC6A4F941}';
RID_Contactos = '{F0F9D3C9-E172-4D98-8BEA-17A208B81ACF}';
RID_GruposCliente = '{2766FEF7-E91D-4D20-B91A-BF62CD52718B}';
RID_DatosBancarios = '{092DF3B2-DF58-4938-9C03-4AFBDE4C21B9}';
RID_Clientes = '{3F704A25-87C5-4703-A36E-F43F35015E87}';
RID_Proveedores = '{73F3AD79-2DDE-4EAB-BAB0-E07521564344}';
RID_Empleados = '{743452C9-C22F-4046-B7B2-5CABC0560120}';
RID_DireccionesContacto = '{8A4FC8D1-7B4C-4AB4-8D88-435D399FF11A}';
RID_ClientesDescuentos = '{90395716-B88F-4D46-B90F-9EEAACB04FDA}';
RID_GruposProveedor = '{575567BD-E019-4A94-9825-D95AACBA47D0}';
RID_GruposEmpleado = '{4F6588DD-9088-4CC3-98D9-7BB02932AA89}';
RID_Contactos_Refresh = '{98DB65B8-84D8-4031-A653-528C0AE76035}';
{ Data table names }
nme_Contactos = 'Contactos';
@ -146,6 +146,7 @@ const
fld_ClientesID_TIPO_IVA = 'ID_TIPO_IVA';
fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
{ Clientes field indexes }
idx_ClientesID = 0;
@ -181,6 +182,7 @@ const
idx_ClientesID_TIPO_IVA = 30;
idx_ClientesID_FORMA_PAGO = 31;
idx_ClientesTIENDA_WEB = 32;
idx_ClientesCODIGO_ASIGNADO = 33;
{ Proveedores fields }
fld_ProveedoresID = 'ID';
@ -427,7 +429,7 @@ const
type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{5145E838-1842-4483-A701-647873835147}']
['{6A311707-BFBF-4A2D-8B23-A1854122C104}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -726,7 +728,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{8359833A-FFFA-4484-9C33-373F52E3F583}']
['{9CAF03A2-A4F1-4258-B816-6F6F3DD28A5C}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -761,7 +763,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{4FC2551A-3470-4FCC-9A1C-FFC04AD11D1E}']
['{203B76FC-022A-40EE-9D0F-D349854569B2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -892,7 +894,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{8031B49A-5DF3-4CEE-B1F9-6454729B6A85}']
['{F556CA82-15D1-4B12-872D-FA8DDC4D3D1F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1025,6 +1027,10 @@ type
procedure SetTIENDA_WEBValue(const aValue: SmallInt);
function GetTIENDA_WEBIsNull: Boolean;
procedure SetTIENDA_WEBIsNull(const aValue: Boolean);
function GetCODIGO_ASIGNADOValue: String;
procedure SetCODIGO_ASIGNADOValue(const aValue: String);
function GetCODIGO_ASIGNADOIsNull: Boolean;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
{ Properties }
@ -1094,6 +1100,8 @@ type
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
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;
end;
{ TClientesDataTableRules }
@ -1234,6 +1242,10 @@ type
procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
function GetTIENDA_WEBIsNull: Boolean; virtual;
procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
function GetCODIGO_ASIGNADOValue: String; virtual;
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1302,6 +1314,8 @@ type
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
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;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1311,7 +1325,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{A95870C3-18C8-4F26-A154-FF450D178739}']
['{E78B6920-EA8B-4272-A882-09272EE52570}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1730,7 +1744,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
['{42D396C8-77D0-4750-8E63-A5F30DEB4CEB}']
['{163A8B9E-63AC-4F3A-940F-B88797257D87}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2113,7 +2127,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{38322BE3-0518-4B04-A0D9-EAE063592DD6}']
['{B502F150-DACD-4279-B98F-FD8A8697087E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2328,7 +2342,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{4D253EA6-435C-4C0B-A1A0-D133E1320C20}']
['{460B58FD-1B6D-4262-B98F-CB39420DA154}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2411,7 +2425,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{B7A45421-0C3B-462B-9E58-A27AE1D71575}']
['{2D44AEBA-C652-43E1-B930-414C6BCE4EBD}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -2446,7 +2460,7 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{0D368F59-0457-4AAA-88E0-5DC08217AD42}']
['{4E36DEE5-8851-466F-835C-EE1AD7C9DEF6}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -2481,7 +2495,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{3F747BDC-1167-4192-9CA7-4FC51C649698}']
['{48624E43-02C5-408B-8BCE-41C7B43B3DE0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -4205,6 +4219,27 @@ begin
DataTable.Fields[idx_ClientesTIENDA_WEB].AsVariant := Null;
end;
function TClientesDataTableRules.GetCODIGO_ASIGNADOValue: String;
begin
result := DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsString;
end;
procedure TClientesDataTableRules.SetCODIGO_ASIGNADOValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsString := aValue;
end;
function TClientesDataTableRules.GetCODIGO_ASIGNADOIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].IsNull;
end;
procedure TClientesDataTableRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsVariant := Null;
end;
{ TProveedoresDataTableRules }
constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,22 +9,22 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ContactosDelta = '{622299E7-0DE2-41D9-9B00-AD4F0FC58AA8}';
RID_GruposClienteDelta = '{2132D071-7709-433A-B339-5B9C763D0995}';
RID_DatosBancariosDelta = '{6BA983CD-C9FA-4933-93CD-FCD1CE045256}';
RID_ClientesDelta = '{32DF2CC4-F076-4924-B2EF-9218D99294C6}';
RID_ProveedoresDelta = '{4A9BB1FB-DE7E-43C2-8F1D-4909191DCC53}';
RID_EmpleadosDelta = '{7CEE2A53-5906-42F1-BFDA-753F7BC3769A}';
RID_DireccionesContactoDelta = '{10E97AB6-9484-47D3-94FB-EB77DF28A5C8}';
RID_ClientesDescuentosDelta = '{F9462554-735C-43D6-96C5-D440B8AE77DC}';
RID_GruposProveedorDelta = '{385AB8C2-D9FD-4BAD-955C-3716AEC71CDB}';
RID_GruposEmpleadoDelta = '{8EFA344F-C9C4-4113-807A-8876CEE002A2}';
RID_Contactos_RefreshDelta = '{D04D6755-FB96-4517-91AF-95AB76C731CF}';
RID_ContactosDelta = '{FFB9CD4C-90FA-40DB-B07C-C6C18831EC43}';
RID_GruposClienteDelta = '{32C23F16-1B66-4EB6-9F50-F3E65E65BC0D}';
RID_DatosBancariosDelta = '{17A3AD70-D8D9-4075-A99E-4B627BB8C3A3}';
RID_ClientesDelta = '{AD8AB540-D8AD-4B64-9208-F11CBD8CD7FC}';
RID_ProveedoresDelta = '{4F0CEB42-998A-46BC-91ED-8BF3BA828F3A}';
RID_EmpleadosDelta = '{8DC6D05D-7FB8-4433-8FE1-B6E9A79592D6}';
RID_DireccionesContactoDelta = '{EF8CED74-9CBE-4A6A-8712-3BFD15E1E1E9}';
RID_ClientesDescuentosDelta = '{08E01C92-CB8F-4342-A8A8-97CF6E52E6BF}';
RID_GruposProveedorDelta = '{D54FF769-D25B-4923-88CC-9585CBA3D60F}';
RID_GruposEmpleadoDelta = '{DE8A4095-7B5A-4351-A924-641C7C8AE938}';
RID_Contactos_RefreshDelta = '{00F38C32-1DA2-438A-8AB4-5E1832EEA83F}';
type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{622299E7-0DE2-41D9-9B00-AD4F0FC58AA8}']
['{FFB9CD4C-90FA-40DB-B07C-C6C18831EC43}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -323,7 +323,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{2132D071-7709-433A-B339-5B9C763D0995}']
['{32C23F16-1B66-4EB6-9F50-F3E65E65BC0D}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -357,7 +357,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{6BA983CD-C9FA-4933-93CD-FCD1CE045256}']
['{17A3AD70-D8D9-4075-A99E-4B627BB8C3A3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -487,7 +487,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{32DF2CC4-F076-4924-B2EF-9218D99294C6}']
['{AD8AB540-D8AD-4B64-9208-F11CBD8CD7FC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -522,6 +522,7 @@ type
function GetOldID_TIPO_IVAValue : Integer;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldTIENDA_WEBValue : SmallInt;
function GetOldCODIGO_ASIGNADOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -557,6 +558,7 @@ type
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
end;
{ TClientesBusinessProcessorRules }
@ -763,6 +765,12 @@ type
function GetOldTIENDA_WEBIsNull: Boolean; virtual;
procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
function GetCODIGO_ASIGNADOValue: String; virtual;
function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
function GetOldCODIGO_ASIGNADOValue: String; virtual;
function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual;
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -897,6 +905,10 @@ type
property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -906,7 +918,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{4A9BB1FB-DE7E-43C2-8F1D-4909191DCC53}']
['{4F0CEB42-998A-46BC-91ED-8BF3BA828F3A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1325,7 +1337,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
['{7CEE2A53-5906-42F1-BFDA-753F7BC3769A}']
['{8DC6D05D-7FB8-4433-8FE1-B6E9A79592D6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1712,7 +1724,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{10E97AB6-9484-47D3-94FB-EB77DF28A5C8}']
['{EF8CED74-9CBE-4A6A-8712-3BFD15E1E1E9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -1927,7 +1939,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{F9462554-735C-43D6-96C5-D440B8AE77DC}']
['{08E01C92-CB8F-4342-A8A8-97CF6E52E6BF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2009,7 +2021,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{385AB8C2-D9FD-4BAD-955C-3716AEC71CDB}']
['{D54FF769-D25B-4923-88CC-9585CBA3D60F}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -2043,7 +2055,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{8EFA344F-C9C4-4113-807A-8876CEE002A2}']
['{DE8A4095-7B5A-4351-A924-641C7C8AE938}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -2077,7 +2089,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{D04D6755-FB96-4517-91AF-95AB76C731CF}']
['{00F38C32-1DA2-438A-8AB4-5E1832EEA83F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -4464,6 +4476,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := Null;
end;
function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
end;
function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]);
end;
function TClientesBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_ASIGNADO];
end;
function TClientesBusinessProcessorRules.GetOldCODIGO_ASIGNADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_ASIGNADO]);
end;
procedure TClientesBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := Null;
end;
{ TProveedoresBusinessProcessorRules }
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -75,6 +75,7 @@ begin
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
Execute;
end;
@ -112,6 +113,7 @@ begin
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
Execute;
end;
finally

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

@ -512,6 +512,10 @@ object srvContactos: TsrvContactos
item
DatasetField = 'TIENDA_WEB'
TableField = 'TIENDA_WEB'
end
item
DatasetField = 'CODIGO_ASIGNADO'
TableField = 'CODIGO_ASIGNADO'
end>
end>
Name = 'Clientes'
@ -703,6 +707,11 @@ object srvContactos: TsrvContactos
Name = 'TIENDA_WEB'
DataType = datSmallInt
DictionaryEntry = 'Clientes_TIENDA_WEB'
end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
end>
end
item
@ -2485,73 +2494,51 @@ object srvContactos: TsrvContactos
Params = <
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'GRUPO_CLIENTE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'VENCIMIENTO_FACTURAS'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'BLOQUEADO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'MOTIVO_BLOQUEO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'TIENDA_WEB'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_ASIGNADO'
Value = ''
end>
Statements = <
item
@ -2561,10 +2548,11 @@ object srvContactos: TsrvContactos
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' +
'ARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, ' +
'BLOQUEADO, MOTIVO_BLOQUEO,'#10' REGIMEN_IVA, ID_TIPO_IVA, ID_FOR' +
'MA_PAGO, TIENDA_WEB)'#10' VALUES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, ' +
':RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL, :VENCIMIENTO_FACT' +
'URAS,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA,'#10' :ID_T' +
'IPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB)'
'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO)'#10' VALUES'#10' (:ID_CLIENTE,' +
' :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL, ' +
':VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIME' +
'N_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_A' +
'SIGNADO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2594,79 +2582,55 @@ object srvContactos: TsrvContactos
Params = <
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'GRUPO_CLIENTE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'MOTIVO_BLOQUEO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'VENCIMIENTO_FACTURAS'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'BLOQUEADO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'TIENDA_WEB'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_ASIGNADO'
Value = ''
end
item
Name = 'OLD_ID_CLIENTE'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -2679,8 +2643,9 @@ object srvContactos: TsrvContactos
'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' VENCIMIENTO_FACTURAS = :VE' +
'NCIMIENTO_FACTURAS,'#10' BLOQUEADO = :BLOQUEADO,'#10' REGIMEN_IVA ' +
'= :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAG' +
'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB'#10' WHERE'#10' (ID' +
'_CLIENTE = :OLD_ID_CLIENTE)'
'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' CODIGO_ASI' +
'GNADO = :CODIGO_ASIGNADO'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIEN' +
'TE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -4084,15 +4049,15 @@ object srvContactos: TsrvContactos
Top = 82
DiagramData =
'<Diagrams>'#13#10' <Diagram Name="Contactos" Left="200" Top="200" Wid' +
'th="400" Height="300">'#13#10' <Entity Name="DatosBancarios" Left="' +
'325,90" Top="0,00" />'#13#10' <Entity Name="DireccionesContacto" Le' +
'ft="320,90" Top="183,00" />'#13#10' <Entity Name="Contactos" Left="' +
'0,00" Top="85,50" />'#13#10' </Diagram>'#13#10' <Diagram Name="Clientes" L' +
'th="400" Height="300">'#13#10' <Entity Name="Contactos" Left="0,00"' +
' Top="85,50" />'#13#10' <Entity Name="DatosBancarios" Left="325,90"' +
' Top="0,00" />'#13#10' <Entity Name="DireccionesContacto" Left="320' +
',90" Top="183,00" />'#13#10' </Diagram>'#13#10' <Diagram Name="Clientes" L' +
'eft="200" Top="200" Width="400" Height="300">'#13#10' <Entity Name=' +
'"DatosBancarios" Left="463,00" Top="175,00" />'#13#10' <Entity Name' +
'="DireccionesContacto" Left="253,00" Top="236,00" />'#13#10' <Entit' +
'y Name="ClientesDescuentos" Left="438,00" Top="0,00" />'#13#10' <En' +
'tity Name="Clientes" Left="0,00" Top="23,00" />'#13#10' </Diagram>'#13#10' ' +
'"Clientes" Left="0,00" Top="23,00" />'#13#10' <Entity Name="DatosBa' +
'ncarios" Left="463,00" Top="175,00" />'#13#10' <Entity Name="Direcc' +
'ionesContacto" Left="253,00" Top="236,00" />'#13#10' <Entity Name="' +
'ClientesDescuentos" Left="438,00" Top="0,00" />'#13#10' </Diagram>'#13#10' ' +
' <Diagram Name="Empleados" Left="200" Top="200" Width="400" Heig' +
'ht="300">'#13#10' <Entity Name="DatosBancarios" Left="210,50" Top="' +
'280,67" />'#13#10' <Entity Name="DireccionesContacto" Left="295,00"' +

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

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

@ -11,19 +11,19 @@ inherited frViewCliente: TfrViewCliente
ExplicitWidth = 646
ExplicitHeight = 470
inherited PngSpeedButton1: TPngSpeedButton
Left = 601
ExplicitLeft = 601
Left = 585
ExplicitLeft = 585
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 601
ExplicitLeft = 601
Left = 585
ExplicitLeft = 585
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 601
ExplicitLeft = 601
Left = 585
ExplicitLeft = 585
end
object Label1: TLabel [3]
Left = 376
Left = 373
Top = 280
Width = 269
Height = 39
@ -34,50 +34,50 @@ inherited frViewCliente: TfrViewCliente
WordWrap = True
end
inherited eCalle: TcxDBTextEdit
Left = 121
Top = 284
TabOrder = 8
ExplicitLeft = 121
ExplicitTop = 284
Left = 132
Top = 304
TabOrder = 9
ExplicitLeft = 132
ExplicitTop = 304
ExplicitWidth = 175
Width = 175
end
inherited eProvincia: TcxDBTextEdit
Left = 121
Top = 338
TabOrder = 11
ExplicitLeft = 121
ExplicitTop = 338
Left = 132
Top = 358
TabOrder = 12
ExplicitLeft = 132
ExplicitTop = 358
ExplicitWidth = 167
Width = 167
end
inherited ePoblacion: TcxDBTextEdit
Left = 121
Top = 311
TabOrder = 9
ExplicitLeft = 121
ExplicitTop = 311
Left = 132
Top = 331
TabOrder = 10
ExplicitLeft = 132
ExplicitTop = 331
ExplicitWidth = 71
Width = 71
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 281
Top = 311
TabOrder = 10
ExplicitLeft = 281
ExplicitTop = 311
Left = 278
Top = 331
TabOrder = 11
ExplicitLeft = 278
ExplicitTop = 331
end
inherited eObservaciones: TcxDBMemo
Top = 395
TabOrder = 20
ExplicitTop = 395
Top = 415
TabOrder = 21
ExplicitTop = 415
ExplicitWidth = 609
ExplicitHeight = 42
Height = 42
Width = 609
end
object eNombreComercial: TcxDBTextEdit [9]
Left = 121
Left = 132
Top = 82
DataBinding.DataField = 'NOMBRE_COMERCIAL'
DataBinding.DataSource = dsContacto
@ -98,7 +98,7 @@ inherited frViewCliente: TfrViewCliente
end
object cbClienteBloqueado: TcxDBCheckBox [10]
Left = 22
Top = 173
Top = 193
Action = actBloqueoCliente
DataBinding.DataField = 'BLOQUEADO'
DataBinding.DataSource = dsContacto
@ -117,12 +117,12 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
TabOrder = 6
Width = 163
end
object cbGrupoCliente: TcxDBComboBox [11]
Left = 121
Top = 109
Left = 132
Top = 136
DataBinding.DataField = 'GRUPO_CLIENTE'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
@ -141,12 +141,12 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
TabOrder = 5
Width = 87
end
object eBloqueo: TcxDBTextEdit [12]
Left = 121
Top = 200
Left = 132
Top = 220
DataBinding.DataField = 'MOTIVO_BLOQUEO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -160,11 +160,11 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 7
Width = 113
end
object cxDBCheckBox1: TcxDBCheckBox [13]
Left = 376
Left = 373
Top = 325
Caption = 'Permitir el acceso de este cliente a la tienda web'
DataBinding.DataField = 'TIENDA_WEB'
@ -185,82 +185,106 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 19
TabOrder = 20
Width = 249
end
inherited eTlfParticular: TcxDBTextEdit
Left = 471
TabOrder = 13
ExplicitLeft = 471
Left = 468
TabOrder = 14
ExplicitLeft = 468
ExplicitWidth = 157
Width = 157
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 471
TabOrder = 12
ExplicitLeft = 471
Left = 468
TabOrder = 13
ExplicitLeft = 468
ExplicitWidth = 157
Width = 157
end
inherited eTlfMovil: TcxDBTextEdit
Left = 471
TabOrder = 14
ExplicitLeft = 471
Left = 468
TabOrder = 15
ExplicitLeft = 468
ExplicitWidth = 157
Width = 157
end
inherited eFax: TcxDBTextEdit
Left = 471
TabOrder = 15
ExplicitLeft = 471
Left = 468
TabOrder = 16
ExplicitLeft = 468
ExplicitWidth = 157
Width = 157
end
inherited eNombre: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
Left = 132
ExplicitLeft = 132
ExplicitWidth = 135
Width = 135
end
inherited eNIFCIF: TcxDBTextEdit
Left = 282
ExplicitLeft = 282
Left = 259
ExplicitLeft = 259
ExplicitWidth = 58
Width = 58
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 471
Left = 468
Properties.Prefix = 'mailto:'
TabOrder = 16
ExplicitLeft = 471
TabOrder = 17
ExplicitLeft = 468
ExplicitWidth = 128
Width = 128
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 471
Left = 468
Properties.Prefix = 'mailto:'
TabOrder = 17
ExplicitLeft = 471
TabOrder = 18
ExplicitLeft = 468
ExplicitWidth = 128
Width = 128
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 471
TabOrder = 18
ExplicitLeft = 471
Left = 468
TabOrder = 19
ExplicitLeft = 468
ExplicitWidth = 128
Width = 128
end
inherited eReferencia: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
Left = 132
ExplicitLeft = 132
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 257
TabOrder = 7
ExplicitLeft = 121
ExplicitTop = 257
Left = 132
Top = 277
TabOrder = 8
ExplicitLeft = 132
ExplicitTop = 277
ExplicitWidth = 256
Width = 256
end
object eCodigoAsignado: TcxDBTextEdit [25]
Left = 132
Top = 109
DataBinding.DataField = 'CODIGO_ASIGNADO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 227
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
AutoAligns = [aaHorizontal]
@ -273,6 +297,11 @@ inherited frViewCliente: TfrViewCliente
Control = eNombreComercial
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem22: TdxLayoutItem
Caption = 'C'#243'digo de proveedor:'
Control = eCodigoAsignado
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem19: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient

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

@ -34,6 +34,8 @@ type
cxDBCheckBox1: TcxDBCheckBox;
dxLayoutControlContactoItem21: TdxLayoutItem;
Label1: TLabel;
dxLayoutControlContactoItem22: TdxLayoutItem;
eCodigoAsignado: TcxDBTextEdit;
procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
procedure cbGrupoClientePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);

2
Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\uDataModuleTiposIVA.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8B.tmp */

BIN
Source/Modulos/Tipos de IVA/Data/TiposIVA_data.res
View File

Binary file not shown.

2
Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf89.tmp */

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -30,8 +30,6 @@ uses
uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
uServerAppUtils in 'Utiles\uServerAppUtils.pas',
uSesionesUtils in 'Utiles\uSesionesUtils.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
uBizProveedoresServer in '..\Modulos\Contactos\Model\uBizProveedoresServer.pas',
uBizClientesServer in '..\Modulos\Contactos\Model\uBizClientesServer.pas',
uBizContactosServer in '..\Modulos\Contactos\Model\uBizContactosServer.pas',
@ -45,7 +43,9 @@ uses
schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas';
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_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}

1
Source/Servidor/FactuGES_Server.dproj
View File

@ -29,6 +29,7 @@
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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">3.0.0.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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

2081
Source/Servidor/FactuGES_Server.drc
View File

File diff suppressed because it is too large Load Diff

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "3.0.0.0\0"
VALUE "ProductVersion", "3.0.0.0\0"
VALUE "CompileDate", "sábado, 13 de octubre de 2007 22:49\0"
VALUE "CompileDate", "miércoles, 17 de octubre de 2007 19:00\0"
END
END
BLOCK "VarFileInfo"