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

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 = '{D8A15DAF-B84A-4CD0-BFDF-CA27A00AF168}';
+  RID_Contactos = '{4702B17F-2C8C-4EDB-951F-501A4B940F9D}';
-  RID_GruposCliente = '{C652CB9E-2AC8-4BF9-BFBB-11BA8D91E650}';
+  RID_GruposCliente = '{12028CAB-36D8-48CA-9154-325B58403561}';
-  RID_DatosBancarios = '{8D2D1C8B-539F-4B3C-9250-645A136931AC}';
+  RID_DatosBancarios = '{E2BFD8E8-37C6-4E91-A66E-5021A52A0229}';
-  RID_ContactosCategorias = '{5CFCD92E-FDD9-420E-AA09-5D0C7DF338CF}';
+  RID_ContactosCategorias = '{A0AE66D8-6E9D-47C4-BC56-3584B21BE55A}';
-  RID_Clientes = '{299F70D0-F30F-4043-8DA6-EC82A93AC8AD}';
+  RID_Clientes = '{4A4AA93F-8EE6-4967-8046-E19791A0EEC1}';
-  RID_Proveedores = '{B8A711ED-7988-4297-92D8-3F14625281E4}';
+  RID_Proveedores = '{DC04F4C0-A1A4-41A3-9E00-C8DB73300D35}';
-  RID_Empleados = '{512FBC1D-68D8-4755-9305-9D7C7423FA24}';
+  RID_Empleados = '{19D88701-7312-4C3B-87FB-79C5060AB9EC}';
-  RID_DireccionesContacto = '{39326FDC-6DA5-4552-8B7A-3FF8E01A0D1A}';
+  RID_DireccionesContacto = '{9E3FAF78-7E14-43F3-875F-87BF6EA34C0B}';
-  RID_ClientesDescuentos = '{2FAB450C-A35B-4596-826B-4C96F794F81B}';
+  RID_ClientesDescuentos = '{00A7347D-BC94-43F1-BE47-EB33FECA3941}';
-  RID_GruposProveedor = '{92A6584A-E3D6-4303-BC60-1C48847B53D8}';
+  RID_GruposProveedor = '{74F8D1EC-C607-48A3-92CE-14266EB1D056}';
-  RID_GruposEmpleado = '{DF68D91E-27FB-4643-9008-5BF258BAA7A7}';
+  RID_GruposEmpleado = '{C8376B2F-DC19-4DB9-9992-3A744251ED6D}';
 
   { Data table names }
   nme_Contactos = 'Contactos';
@@ -365,7 +365,7 @@ const
 type
   { IContactos }
   IContactos = interface(IDAStronglyTypedDataTable)
-  ['{B957084D-EB63-41BF-B80D-8E47A3ACCB3D}']
+  ['{F396F244-2087-46CA-B562-068C32F5925F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -514,7 +514,7 @@ type
 
   { IGruposCliente }
   IGruposCliente = interface(IDAStronglyTypedDataTable)
-  ['{FC827623-9A5A-42EF-8C11-95F024A41FE1}']
+  ['{1FFF80FA-0CE6-4907-A25E-582E1724B293}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -543,7 +543,7 @@ type
 
   { IDatosBancarios }
   IDatosBancarios = interface(IDAStronglyTypedDataTable)
-  ['{62552BB4-3EBD-4A77-B7F7-FAF8788E77D7}']
+  ['{F87D0636-602D-472C-90BD-8A8F6F783944}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -608,7 +608,7 @@ type
 
   { IContactosCategorias }
   IContactosCategorias = interface(IDAStronglyTypedDataTable)
-  ['{DCC4AAFB-C810-4705-A2C4-97B7A6AADB22}']
+  ['{D8DCDA8D-996F-446C-8241-E02D41DDEB09}']
     { Property getters and setters }
     function GetID_CONTACTOValue: Integer;
     procedure SetID_CONTACTOValue(const aValue: Integer);
@@ -643,7 +643,7 @@ type
 
   { IClientes }
   IClientes = interface(IDAStronglyTypedDataTable)
-  ['{D9B664CE-C1A2-45C8-A2CF-13E397262314}']
+  ['{A6D726D9-A0A4-4F7B-B8BD-BCAE0B982891}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -852,7 +852,7 @@ type
 
   { IProveedores }
   IProveedores = interface(IDAStronglyTypedDataTable)
-  ['{A294F985-864A-49FA-B501-D024324B025C}']
+  ['{3B317406-09C8-4CBA-B708-F2C52CFEAB09}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1061,7 +1061,7 @@ type
 
   { IEmpleados }
   IEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{86C40E58-192F-46CA-9D2C-516BA7F26141}']
+  ['{0A5A325E-1A87-439B-A785-60E26CCD025D}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1252,7 +1252,7 @@ type
 
   { IDireccionesContacto }
   IDireccionesContacto = interface(IDAStronglyTypedDataTable)
-  ['{9D927D45-9FC8-40C0-B7C0-4CA107060105}']
+  ['{8AE98E4A-35D7-4E61-BE7D-64DD5B4AC7AF}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1359,7 +1359,7 @@ type
 
   { IClientesDescuentos }
   IClientesDescuentos = interface(IDAStronglyTypedDataTable)
-  ['{7A1D4C2F-2139-4B4B-9D05-4CF2A8F10B1D}']
+  ['{F886D2B5-74CF-4173-A04A-085EB4844795}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1412,7 +1412,7 @@ type
 
   { IGruposProveedor }
   IGruposProveedor = interface(IDAStronglyTypedDataTable)
-  ['{3BA890A5-F225-4140-A39B-8BE826C89B2C}']
+  ['{8A40BF38-E4DE-41D3-BC1F-B683003EDC4D}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -1441,7 +1441,7 @@ type
 
   { IGruposEmpleado }
   IGruposEmpleado = interface(IDAStronglyTypedDataTable)
-  ['{01FE8190-BC01-4423-A8ED-B1D1BFCD7231}']
+  ['{6E0FF24B-75DD-4796-AE74-B1D28F67770E}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);

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 = '{8103D115-7646-40CF-9E38-B3EAE7AEF69B}';
+  RID_ContactosDelta = '{AA1FED77-C1C8-4EA9-9B07-E74C63CBF307}';
-  RID_GruposClienteDelta = '{FBF1982E-5638-4CF7-B4CE-7B9B8196A07B}';
+  RID_GruposClienteDelta = '{4D46364E-1E11-4648-A9C7-AE4B81FB675C}';
-  RID_DatosBancariosDelta = '{F5A90B26-97EF-4730-8164-1ECA63E4BE5A}';
+  RID_DatosBancariosDelta = '{D4227F74-9431-45EA-8F09-20FFE80E34B1}';
-  RID_ContactosCategoriasDelta = '{BB21D733-E20E-4FED-9D3E-E6007E39F7A4}';
+  RID_ContactosCategoriasDelta = '{EB18171B-206D-4CFF-97FF-CB91350EAF4C}';
-  RID_ClientesDelta = '{68FD887A-E411-4189-B72D-CEEA123B32DF}';
+  RID_ClientesDelta = '{6C588001-84B7-4F1C-9C6B-84A254E1EA7D}';
-  RID_ProveedoresDelta = '{E31FA7A0-C7A9-4594-AE1F-AA6DAB8D0C89}';
+  RID_ProveedoresDelta = '{168C19DE-0AD5-40CB-B737-628846E311FE}';
-  RID_EmpleadosDelta = '{298A72A9-DBFF-41C7-8113-2F4206C3F227}';
+  RID_EmpleadosDelta = '{6544E069-D22D-49D4-AAFE-47DD92FA7744}';
-  RID_DireccionesContactoDelta = '{AF65A152-01A2-4079-8CE7-34C908AB7995}';
+  RID_DireccionesContactoDelta = '{D6123AD7-AA38-4AEF-9E89-E713C83A3DDC}';
-  RID_ClientesDescuentosDelta = '{FDB2FC33-EAF5-4A64-A426-A6547D0FB7C2}';
+  RID_ClientesDescuentosDelta = '{2E020115-E0E9-464F-B175-1BED0E2BF0B1}';
-  RID_GruposProveedorDelta = '{04AED4E5-710B-4C23-88E5-EC69C8A9D7DF}';
+  RID_GruposProveedorDelta = '{14E46C85-BAAE-4A15-B868-EC579AF38A8A}';
-  RID_GruposEmpleadoDelta = '{8EFD4F90-7636-4B3F-A6BE-B291E6A2F45C}';
+  RID_GruposEmpleadoDelta = '{364591F3-D581-4104-9125-7CE465563DEB}';
 
 type
   { IContactosDelta }
   IContactosDelta = interface(IContactos)
-  ['{8103D115-7646-40CF-9E38-B3EAE7AEF69B}']
+  ['{AA1FED77-C1C8-4EA9-9B07-E74C63CBF307}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -193,7 +193,7 @@ type
 
   { IGruposClienteDelta }
   IGruposClienteDelta = interface(IGruposCliente)
-  ['{FBF1982E-5638-4CF7-B4CE-7B9B8196A07B}']
+  ['{4D46364E-1E11-4648-A9C7-AE4B81FB675C}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -222,7 +222,7 @@ type
 
   { IDatosBancariosDelta }
   IDatosBancariosDelta = interface(IDatosBancarios)
-  ['{F5A90B26-97EF-4730-8164-1ECA63E4BE5A}']
+  ['{D4227F74-9431-45EA-8F09-20FFE80E34B1}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -293,7 +293,7 @@ type
 
   { IContactosCategoriasDelta }
   IContactosCategoriasDelta = interface(IContactosCategorias)
-  ['{BB21D733-E20E-4FED-9D3E-E6007E39F7A4}']
+  ['{EB18171B-206D-4CFF-97FF-CB91350EAF4C}']
     { Property getters and setters }
     function GetOldID_CONTACTOValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -329,7 +329,7 @@ type
 
   { IClientesDelta }
   IClientesDelta = interface(IClientes)
-  ['{68FD887A-E411-4189-B72D-CEEA123B32DF}']
+  ['{6C588001-84B7-4F1C-9C6B-84A254E1EA7D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -568,7 +568,7 @@ type
 
   { IProveedoresDelta }
   IProveedoresDelta = interface(IProveedores)
-  ['{E31FA7A0-C7A9-4594-AE1F-AA6DAB8D0C89}']
+  ['{168C19DE-0AD5-40CB-B737-628846E311FE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -807,7 +807,7 @@ type
 
   { IEmpleadosDelta }
   IEmpleadosDelta = interface(IEmpleados)
-  ['{298A72A9-DBFF-41C7-8113-2F4206C3F227}']
+  ['{6544E069-D22D-49D4-AAFE-47DD92FA7744}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1025,7 +1025,7 @@ type
 
   { IDireccionesContactoDelta }
   IDireccionesContactoDelta = interface(IDireccionesContacto)
-  ['{AF65A152-01A2-4079-8CE7-34C908AB7995}']
+  ['{D6123AD7-AA38-4AEF-9E89-E713C83A3DDC}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -1145,7 +1145,7 @@ type
 
   { IClientesDescuentosDelta }
   IClientesDescuentosDelta = interface(IClientesDescuentos)
-  ['{FDB2FC33-EAF5-4A64-A426-A6547D0FB7C2}']
+  ['{2E020115-E0E9-464F-B175-1BED0E2BF0B1}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -1202,7 +1202,7 @@ type
 
   { IGruposProveedorDelta }
   IGruposProveedorDelta = interface(IGruposProveedor)
-  ['{04AED4E5-710B-4C23-88E5-EC69C8A9D7DF}']
+  ['{14E46C85-BAAE-4A15-B868-EC579AF38A8A}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -1231,7 +1231,7 @@ type
 
   { IGruposEmpleadoDelta }
   IGruposEmpleadoDelta = interface(IGruposEmpleado)
-  ['{8EFD4F90-7636-4B3F-A6BE-B291E6A2F45C}']
+  ['{364591F3-D581-4104-9125-7CE465563DEB}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 

Source/Modulos/Contactos/Model/uBizContactosServer.pas

@@ -59,12 +59,15 @@ begin
   ASchema := BusinessProcessor.Schema;
   ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
 
-  ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_ContactosEmpresas');
+//En el caso de querer tener los contactos separados por empresas en lugar de tenerlos en común
+//  ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_ContactoEmpresa');
+//En el caso de querer tener los contactos en común para todas las empresas
+  ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_ContactoEmpresas');
   try
     with ACommand do
     begin
       ParamByName('OLD_ID_CONTACTO').Value := aChange.OldValueByName[fld_ContactosID];
-      ParamByName('OLD_ID_EMPRESA').Value := aChange.OldValueByName[fld_ContactosID_EMPRESA];
+//      ParamByName('OLD_ID_EMPRESA').Value := aChange.OldValueByName[fld_ContactosID_EMPRESA];
       Execute;
     end;
   finally
@@ -81,12 +84,15 @@ begin
   ASchema := BusinessProcessor.Schema;
   ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
 
-  ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_ContactosEmpresas');
+//En el caso de querer tener los contactos separados por empresas en lugar de tenerlos en común
+//  ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_ContactoEmpresa');
+//En el caso de querer tener los contactos en común para todas las empresas
+  ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_ContactoEmpresas');
   try
     with ACommand do
     begin
       ParamByName('ID_CONTACTO').Value := aChange.NewValueByName[fld_ContactosID];
-      ParamByName('ID_EMPRESA').Value := aChange.NewValueByName[fld_ContactosID_EMPRESA];
+//      ParamByName('ID_EMPRESA').Value := aChange.NewValueByName[fld_ContactosID_EMPRESA];
       Execute;
     end;
   finally
@@ -115,7 +121,8 @@ begin
   ASchema := BusinessProcessor.Schema;
   ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
 
-  ACommand := ASchema.NewCommand(ACurrentConn, 'Update_ContactosEmpresas');
+//En el caso update nos da igual lo que se quiera modificar así que se queda igual
+  ACommand := ASchema.NewCommand(ACurrentConn, 'Update_ContactoEmpresa');
   try
     with ACommand do
     begin

Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm

@@ -2981,13 +2981,6 @@ object srvContactos: TsrvContactos
       end
       item
         Params = <
-          item
-            Name = 'ID_EMPRESA'
-            DataType = datInteger
-            BlobType = dabtUnknown
-            Value = ''
-            ParamType = daptInput
-          end
           item
             Name = 'ID_CONTACTO'
             DataType = datInteger
@@ -3000,22 +2993,15 @@ object srvContactos: TsrvContactos
             Connection = 'IBX'
             TargetTable = 'EMPRESAS_CONTACTOS'
             SQL = 
-              'INSERT'#10'  INTO EMPRESAS_CONTACTOS'#10'    (ID_EMPRESA, ID_CONTACTO)'#10' ' +
+              'INSERT INTO EMPRESAS_CONTACTOS'#10'    (ID_EMPRESA, ID_CONTACTO)'#10#10'SE' +
-              ' VALUES'#10'    (:ID_EMPRESA, :ID_CONTACTO)'
+              'LECT ID, :ID_CONTACTO'#10'FROM EMPRESAS'
             StatementType = stSQL
             ColumnMappings = <>
           end>
-        Name = 'Insert_ContactosEmpresas'
+        Name = 'Insert_ContactoEmpresas'
       end
       item
         Params = <
-          item
-            Name = 'OLD_ID_EMPRESA'
-            DataType = datInteger
-            BlobType = dabtUnknown
-            Value = ''
-            ParamType = daptInput
-          end
           item
             Name = 'OLD_ID_CONTACTO'
             DataType = datInteger
@@ -3028,12 +3014,12 @@ object srvContactos: TsrvContactos
             Connection = 'IBX'
             TargetTable = 'EMPRESAS_CONTACTOS'
             SQL = 
-              'DELETE '#10'  FROM'#10'    EMPRESAS_CONTACTOS'#10'  WHERE'#10'    (ID_EMPRESA = ' +
+              'DELETE '#10'  FROM'#10'    EMPRESAS_CONTACTOS'#10'  WHERE'#10'    (ID_CONTACTO =' +
-              ':OLD_ID_EMPRESA) AND '#10'    (ID_CONTACTO = :OLD_ID_CONTACTO)'
+              ' :OLD_ID_CONTACTO)'
             StatementType = stSQL
             ColumnMappings = <>
           end>
-        Name = 'Delete_ContactosEmpresas'
+        Name = 'Delete_ContactoEmpresas'
       end
       item
         Params = <
@@ -3076,7 +3062,7 @@ object srvContactos: TsrvContactos
             StatementType = stSQL
             ColumnMappings = <>
           end>
-        Name = 'Update_ContactosEmpresas'
+        Name = 'Update_ContactoEmpresa'
       end
       item
         Params = <
@@ -4080,6 +4066,62 @@ object srvContactos: TsrvContactos
             ColumnMappings = <>
           end>
         Name = 'Update_EmpleadosDatos'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_EMPRESA'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end
+          item
+            Name = 'ID_CONTACTO'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'EMPRESAS_CONTACTOS'
+            SQL = 
+              'INSERT'#10'  INTO EMPRESAS_CONTACTOS'#10'    (ID_EMPRESA, ID_CONTACTO)'#10' ' +
+              ' VALUES'#10'    (:ID_EMPRESA, :ID_CONTACTO)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_ContactoEmpresa'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_ID_EMPRESA'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end
+          item
+            Name = 'OLD_ID_CONTACTO'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'EMPRESAS_CONTACTOS'
+            SQL = 
+              'DELETE '#10'  FROM'#10'    EMPRESAS_CONTACTOS'#10'  WHERE'#10'    (ID_EMPRESA = ' +
+              ':OLD_ID_EMPRESA) AND '#10'    (ID_CONTACTO = :OLD_ID_CONTACTO)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_ContactoEmpresa'
       end>
     RelationShips = <>
     UpdateRules = <
@@ -4952,10 +4994,10 @@ object srvContactos: TsrvContactos
     Top = 82
     DiagramData = 
       '<Diagrams>'#13#10'  <Diagram Name="New Diagram" Left="200" Top="200" W' +
-      'idth="400" Height="300">'#13#10'    <Entity Name="Contactos" Left="223' +
+      'idth="400" Height="300">'#13#10'    <Entity Name="ContactosCategorias"' +
-      ',77" Top="0,00" />'#13#10'    <Entity Name="DatosBancarios" Left="479,' +
+      ' Left="0,00" Top="26,50" />'#13#10'    <Entity Name="DatosBancarios" L' +
-      '77" Top="0,00" />'#13#10'    <Entity Name="ContactosCategorias" Left="' +
+      'eft="479,77" Top="0,00" />'#13#10'    <Entity Name="Contactos" Left="2' +
-      '0,00" Top="26,50" />'#13#10'  </Diagram>'#13#10'</Diagrams>'#13#10
+      '23,77" Top="0,00" />'#13#10'  </Diagram>'#13#10'</Diagrams>'#13#10
   end
   object bpContactos: TDABusinessProcessor
     Schema = schContactos

Source/Servidor/FactuGES_Server.bdsproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<PersonalityInfo>
 		<Option>
@@ -175,13 +175,13 @@
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductVersion">2.2.2.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
-			<VersionInfoKeys Name="CompileDate">martes, 28 de agosto de 2007 17:06</VersionInfoKeys></VersionInfoKeys>
+			<VersionInfoKeys Name="CompileDate">martes, 28 de agosto de 2007 17:06</VersionInfoKeys></VersionInfoKeys>  
-		<Excluded_Packages>
+    <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 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>
+    </Excluded_Packages>
-	</Delphi.Personality>
+  </Delphi.Personality>
 	<ModelSupport>False</ModelSupport>
-	<!-- EurekaLog First Line
+<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
 Activate=1

Source/Servidor/FactuGES_Server.dpr

@@ -43,10 +43,10 @@ uses
   schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
   uConexionOSC in 'Configuracion\uConexionOSC.pas' {frConexionOSC: TFrame},
   uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
-  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
   uRptFichasEmpleado_Server in '..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas' {RptFichasEmpleado: TDataModule},
-  uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule};
+  uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule},
+  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
+  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}