Campo nuevo en datos de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@53 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/GUIBase/GUIBase.drc

@@ -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 */

Source/Modulos/Contactos/Data/uDataModuleClientes.dfm

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

Source/Modulos/Contactos/Model/schContactosClient_Intf.pas

@@ -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_Contactos = '{F0F9D3C9-E172-4D98-8BEA-17A208B81ACF}';
-  RID_GruposCliente = '{0F129451-0E5F-469A-B296-EE11BD5C33F0}';
+  RID_GruposCliente = '{2766FEF7-E91D-4D20-B91A-BF62CD52718B}';
-  RID_DatosBancarios = '{FFFA1683-A8AC-4087-8158-FB2ADE3241A4}';
+  RID_DatosBancarios = '{092DF3B2-DF58-4938-9C03-4AFBDE4C21B9}';
-  RID_Clientes = '{C0877263-6E9F-45A1-A89D-284662B5F0D5}';
+  RID_Clientes = '{3F704A25-87C5-4703-A36E-F43F35015E87}';
-  RID_Proveedores = '{EBFE10F1-1C8A-4F44-8512-FAF16349C724}';
+  RID_Proveedores = '{73F3AD79-2DDE-4EAB-BAB0-E07521564344}';
-  RID_Empleados = '{436FA492-BFC7-4E36-A8FD-0FAB8603EA7C}';
+  RID_Empleados = '{743452C9-C22F-4046-B7B2-5CABC0560120}';
-  RID_DireccionesContacto = '{55633C2C-41DA-4AAF-8A20-6F8E511BA93F}';
+  RID_DireccionesContacto = '{8A4FC8D1-7B4C-4AB4-8D88-435D399FF11A}';
-  RID_ClientesDescuentos = '{836B4D02-8030-460F-A933-85A05194566D}';
+  RID_ClientesDescuentos = '{90395716-B88F-4D46-B90F-9EEAACB04FDA}';
-  RID_GruposProveedor = '{F9E85611-2E9A-4918-8EB0-3011DABDA189}';
+  RID_GruposProveedor = '{575567BD-E019-4A94-9825-D95AACBA47D0}';
-  RID_GruposEmpleado = '{616CAF20-6FBF-465D-BA8F-CF10C1F2E167}';
+  RID_GruposEmpleado = '{4F6588DD-9088-4CC3-98D9-7BB02932AA89}';
-  RID_Contactos_Refresh = '{A87206B2-F4CF-4C8D-92A1-3B5AC6A4F941}';
+  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);

Source/Modulos/Contactos/Model/schContactosServer_Intf.pas

@@ -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_ContactosDelta = '{FFB9CD4C-90FA-40DB-B07C-C6C18831EC43}';
-  RID_GruposClienteDelta = '{2132D071-7709-433A-B339-5B9C763D0995}';
+  RID_GruposClienteDelta = '{32C23F16-1B66-4EB6-9F50-F3E65E65BC0D}';
-  RID_DatosBancariosDelta = '{6BA983CD-C9FA-4933-93CD-FCD1CE045256}';
+  RID_DatosBancariosDelta = '{17A3AD70-D8D9-4075-A99E-4B627BB8C3A3}';
-  RID_ClientesDelta = '{32DF2CC4-F076-4924-B2EF-9218D99294C6}';
+  RID_ClientesDelta = '{AD8AB540-D8AD-4B64-9208-F11CBD8CD7FC}';
-  RID_ProveedoresDelta = '{4A9BB1FB-DE7E-43C2-8F1D-4909191DCC53}';
+  RID_ProveedoresDelta = '{4F0CEB42-998A-46BC-91ED-8BF3BA828F3A}';
-  RID_EmpleadosDelta = '{7CEE2A53-5906-42F1-BFDA-753F7BC3769A}';
+  RID_EmpleadosDelta = '{8DC6D05D-7FB8-4433-8FE1-B6E9A79592D6}';
-  RID_DireccionesContactoDelta = '{10E97AB6-9484-47D3-94FB-EB77DF28A5C8}';
+  RID_DireccionesContactoDelta = '{EF8CED74-9CBE-4A6A-8712-3BFD15E1E1E9}';
-  RID_ClientesDescuentosDelta = '{F9462554-735C-43D6-96C5-D440B8AE77DC}';
+  RID_ClientesDescuentosDelta = '{08E01C92-CB8F-4342-A8A8-97CF6E52E6BF}';
-  RID_GruposProveedorDelta = '{385AB8C2-D9FD-4BAD-955C-3716AEC71CDB}';
+  RID_GruposProveedorDelta = '{D54FF769-D25B-4923-88CC-9585CBA3D60F}';
-  RID_GruposEmpleadoDelta = '{8EFA344F-C9C4-4113-807A-8876CEE002A2}';
+  RID_GruposEmpleadoDelta = '{DE8A4095-7B5A-4351-A924-641C7C8AE938}';
-  RID_Contactos_RefreshDelta = '{D04D6755-FB96-4517-91AF-95AB76C731CF}';
+  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);

Source/Modulos/Contactos/Model/uBizClientesServer.pas

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

Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm

@@ -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, ' +
+              'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO)'#10'  VALUES'#10'    (:ID_CLIENTE,' +
-              ':RECARGO_EQUIVALENCIA,'#10'     :NOMBRE_COMERCIAL, :VENCIMIENTO_FACT' +
+              ' :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10'     :NOMBRE_COMERCIAL, ' +
-              'URAS,'#10'     :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA,'#10'     :ID_T' +
+              ':VENCIMIENTO_FACTURAS,'#10'     :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIME' +
-              'IPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB)'
+              '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' +
+              'O = :ID_FORMA_PAGO,'#10'    TIENDA_WEB = :TIENDA_WEB,'#10'    CODIGO_ASI' +
-              '_CLIENTE = :OLD_ID_CLIENTE)'
+              '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="' +
+      'th="400" Height="300">'#13#10'    <Entity Name="Contactos" Left="0,00"' +
-      '325,90" Top="0,00" />'#13#10'    <Entity Name="DireccionesContacto" Le' +
+      ' Top="85,50" />'#13#10'    <Entity Name="DatosBancarios" Left="325,90"' +
-      'ft="320,90" Top="183,00" />'#13#10'    <Entity Name="Contactos" Left="' +
+      ' Top="0,00" />'#13#10'    <Entity Name="DireccionesContacto" Left="320' +
-      '0,00" Top="85,50" />'#13#10'  </Diagram>'#13#10'  <Diagram Name="Clientes" L' +
+      ',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' +
+      '"Clientes" Left="0,00" Top="23,00" />'#13#10'    <Entity Name="DatosBa' +
-      '="DireccionesContacto" Left="253,00" Top="236,00" />'#13#10'    <Entit' +
+      'ncarios" Left="463,00" Top="175,00" />'#13#10'    <Entity Name="Direcc' +
-      'y Name="ClientesDescuentos" Left="438,00" Top="0,00" />'#13#10'    <En' +
+      'ionesContacto" Left="253,00" Top="236,00" />'#13#10'    <Entity Name="' +
-      'tity Name="Clientes" Left="0,00" Top="23,00" />'#13#10'  </Diagram>'#13#10' ' +
+      '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"' +

Source/Modulos/Contactos/Views/uViewCliente.dfm

@@ -11,19 +11,19 @@ inherited frViewCliente: TfrViewCliente
     ExplicitWidth = 646
     ExplicitHeight = 470
     inherited PngSpeedButton1: TPngSpeedButton
-      Left = 601
+      Left = 585
-      ExplicitLeft = 601
+      ExplicitLeft = 585
     end
     inherited PngSpeedButton2: TPngSpeedButton
-      Left = 601
+      Left = 585
-      ExplicitLeft = 601
+      ExplicitLeft = 585
     end
     inherited PngSpeedButton3: TPngSpeedButton
-      Left = 601
+      Left = 585
-      ExplicitLeft = 601
+      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
+      Left = 132
-      Top = 284
+      Top = 304
-      TabOrder = 8
+      TabOrder = 9
-      ExplicitLeft = 121
+      ExplicitLeft = 132
-      ExplicitTop = 284
+      ExplicitTop = 304
       ExplicitWidth = 175
       Width = 175
     end
     inherited eProvincia: TcxDBTextEdit
-      Left = 121
+      Left = 132
-      Top = 338
+      Top = 358
-      TabOrder = 11
+      TabOrder = 12
-      ExplicitLeft = 121
+      ExplicitLeft = 132
-      ExplicitTop = 338
+      ExplicitTop = 358
       ExplicitWidth = 167
       Width = 167
     end
     inherited ePoblacion: TcxDBTextEdit
-      Left = 121
+      Left = 132
-      Top = 311
+      Top = 331
-      TabOrder = 9
+      TabOrder = 10
-      ExplicitLeft = 121
+      ExplicitLeft = 132
-      ExplicitTop = 311
+      ExplicitTop = 331
       ExplicitWidth = 71
       Width = 71
     end
     inherited eCodigoPostal: TcxDBTextEdit
-      Left = 281
+      Left = 278
-      Top = 311
+      Top = 331
-      TabOrder = 10
+      TabOrder = 11
-      ExplicitLeft = 281
+      ExplicitLeft = 278
-      ExplicitTop = 311
+      ExplicitTop = 331
     end
     inherited eObservaciones: TcxDBMemo
-      Top = 395
+      Top = 415
-      TabOrder = 20
+      TabOrder = 21
-      ExplicitTop = 395
+      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
+      Left = 132
-      Top = 109
+      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
+      Left = 132
-      Top = 200
+      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
+      Left = 468
-      TabOrder = 13
+      TabOrder = 14
-      ExplicitLeft = 471
+      ExplicitLeft = 468
       ExplicitWidth = 157
       Width = 157
     end
     inherited eTlfTrabajo: TcxDBTextEdit
-      Left = 471
+      Left = 468
-      TabOrder = 12
+      TabOrder = 13
-      ExplicitLeft = 471
+      ExplicitLeft = 468
       ExplicitWidth = 157
       Width = 157
     end
     inherited eTlfMovil: TcxDBTextEdit
-      Left = 471
+      Left = 468
-      TabOrder = 14
+      TabOrder = 15
-      ExplicitLeft = 471
+      ExplicitLeft = 468
       ExplicitWidth = 157
       Width = 157
     end
     inherited eFax: TcxDBTextEdit
-      Left = 471
+      Left = 468
-      TabOrder = 15
+      TabOrder = 16
-      ExplicitLeft = 471
+      ExplicitLeft = 468
       ExplicitWidth = 157
       Width = 157
     end
     inherited eNombre: TcxDBTextEdit
-      Left = 121
+      Left = 132
-      ExplicitLeft = 121
+      ExplicitLeft = 132
       ExplicitWidth = 135
       Width = 135
     end
     inherited eNIFCIF: TcxDBTextEdit
-      Left = 282
+      Left = 259
-      ExplicitLeft = 282
+      ExplicitLeft = 259
       ExplicitWidth = 58
       Width = 58
     end
     inherited eMailTrabajo: TcxDBHyperLinkEdit
-      Left = 471
+      Left = 468
       Properties.Prefix = 'mailto:'
-      TabOrder = 16
+      TabOrder = 17
-      ExplicitLeft = 471
+      ExplicitLeft = 468
       ExplicitWidth = 128
       Width = 128
     end
     inherited eMailParticular: TcxDBHyperLinkEdit
-      Left = 471
+      Left = 468
       Properties.Prefix = 'mailto:'
-      TabOrder = 17
+      TabOrder = 18
-      ExplicitLeft = 471
+      ExplicitLeft = 468
       ExplicitWidth = 128
       Width = 128
     end
     inherited ePaginaWeb: TcxDBHyperLinkEdit
-      Left = 471
+      Left = 468
-      TabOrder = 18
+      TabOrder = 19
-      ExplicitLeft = 471
+      ExplicitLeft = 468
       ExplicitWidth = 128
       Width = 128
     end
     inherited eReferencia: TcxDBTextEdit
-      Left = 121
+      Left = 132
-      ExplicitLeft = 121
+      ExplicitLeft = 132
+      ExplicitWidth = 38
+      Width = 38
     end
     inherited ePersonaContacto: TcxDBTextEdit
-      Left = 121
+      Left = 132
-      Top = 257
+      Top = 277
-      TabOrder = 7
+      TabOrder = 8
-      ExplicitLeft = 121
+      ExplicitLeft = 132
-      ExplicitTop = 257
+      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

Source/Modulos/Contactos/Views/uViewCliente.pas

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

Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc

@@ -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 */

Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc

@@ -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 */

Source/Servidor/FactuGES_Server.dpr

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

Source/Servidor/FactuGES_Server.dproj

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

Source/Servidor/FactuGES_Server.rc

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