Funcionando toda la parte de clientes (Falta repaso detallado)

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

Source/Base/Utiles/uDataTableUtils.pas

@@ -19,10 +19,10 @@ function SetFieldNull(ATarget: TDADataTable; const FieldName: String): Boolean;
 procedure ConectarTabla (ATarget: TDADataTable);
 procedure DesconectarTabla (ATarget: TDADataTable);
 
-procedure CopyDataTable(ASource : TDADataTable; ATarget: TDADataTable;
+procedure CopyDataTableDA5(ASource : TDADataTable; ATarget: TDADataTable;
   const OnlySelectedRows : Boolean = False);
 
-procedure CopyDataTable2(ASource : TDADataTable; ATarget : TDADataTable;
+procedure CopyDataTableDA3(ASource : TDADataTable; ATarget : TDADataTable;
   const OnlySelectedRows : Boolean = False);
 
 procedure CloneDataTable(const ASource : TDACDSDataTable;
@@ -58,11 +58,12 @@ uses
   Dialogs, Variants, uDBSelectionListUtils, uROClasses, uDADataStreamer, uDABin2DataStreamer;
 
 
-procedure CopyDataTable(ASource : TDADataTable;
+procedure CopyDataTableDA5(ASource : TDADataTable;
                         ATarget: TDADataTable;
                         const OnlySelectedRows : Boolean);
 var
   AStream : Binary;
+  AStream2 : Binary;
   AFilter : String;
   AFiltered : Boolean;
   AObj : ISeleccionable;
@@ -113,8 +114,10 @@ begin
   DesconectarTabla(ATarget);
   try
     ASource.SaveToStream(AStream);
+    AStream2 := AStream.Clone;
+
 //    ShowMessage(AStream.ToReadableString);
-    ATarget.LoadFromStream(AStream.Clone);
+    ATarget.LoadFromStream(AStream2); ///->>>>>>>>>>>>>>>>>>>>>>>>>>ERRORRRR
   finally
     FreeAndNil(AStream);
     ConectarTabla(ATarget);
@@ -434,7 +437,7 @@ begin
 end;
 
 
-procedure CopyDataTable2(ASource : TDADataTable; ATarget : TDADataTable;
+procedure CopyDataTableDA3(ASource : TDADataTable; ATarget : TDADataTable;
   const OnlySelectedRows : Boolean = False);
 var
   DABin: Binary;

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\dtf92.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf7A.tmp */

Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE6.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfCE.tmp */

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas

@@ -828,7 +828,7 @@ var
   ASeleccionados : IBizAlbaranCliente;
 begin
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranCliente);
-  CopyDataTable(AAlbaran.DataTable, ASeleccionados.DataTable, True);
+  CopyDataTableDA3(AAlbaran.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
 end;
 

Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE4.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfCC.tmp */

Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE2.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfCA.tmp */

Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF4.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDC.tmp */

Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc

@@ -27,4 +27,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF2.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDA.tmp */

Source/Modulos/Articulos/Controller/uArticulosController.pas

@@ -531,7 +531,7 @@ var
   ASeleccionados : IBizArticulo;
 begin
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizArticulo);
-  CopyDataTable2(AArticulos.DataTable, ASeleccionados.DataTable, True);
+  CopyDataTableDA3(AArticulos.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
 end;
 

Source/Modulos/Contactos/Controller/Contactos_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB8.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA0.tmp */

Source/Modulos/Contactos/Controller/uClientesController.pas

@@ -360,8 +360,6 @@ begin
     AItem := (FDataModule as IDataModuleClientes).GetItem(AContacto.ID);
     AItem.DataTable.Active := True;
 
-//    CopyDataTable(AContacto.DataTable, AItem.DataTable, True);
-
     CreateEditor('EditorCliente', IEditorCliente, AEditor);
     with AEditor do
     begin

Source/Modulos/Contactos/Controller/uContactosController.pas

@@ -181,7 +181,7 @@ var
   ASeleccionados : IBizContacto;
 begin
   ASeleccionados := Self.Buscar(ID_NULO);
-  CopyDataTable2(AContactos.DataTable, ASeleccionados.DataTable, True);
+  CopyDataTableDA3(AContactos.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
 end;
 

Source/Modulos/Contactos/Data/Contactos_data.drc

@@ -17,4 +17,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\Contactos_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB6.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf9E.tmp */

Source/Modulos/Contactos/Model/Contactos_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Model\Contactos_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB4.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf9C.tmp */

Source/Modulos/Contactos/Plugin/Contactos_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBC.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA4.tmp */

Source/Modulos/Contactos/Views/Contactos_view.drc

@@ -45,4 +45,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionProveedor.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\Contactos_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBA.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA2.tmp */

Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEC.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD4.tmp */

Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas

@@ -828,7 +828,7 @@ var
   ASeleccionados : IBizFacturaCliente;
 begin
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaCliente);
-  CopyDataTable(AFacturasCliente.DataTable, ASeleccionados.DataTable, True);
+  CopyDataTableDA3(AFacturasCliente.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
 end;
 

Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEA.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD2.tmp */

Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE8.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD0.tmp */

Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF8.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE0.tmp */

Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc

@@ -22,4 +22,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF6.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDE.tmp */

Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE0.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC8.tmp */

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas

@@ -592,7 +592,7 @@ var
   ASeleccionados : IBizPresupuestoCliente;
 begin
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizPresupuestoCliente);
-  CopyDataTable(APresupuesto.DataTable, ASeleccionados.DataTable, True);
+  CopyDataTableDA3(APresupuesto.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
 end;
 

Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDE.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC6.tmp */

Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDC.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC4.tmp */

Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\uPluginPresupuestosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\PresupuestosCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF0.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD8.tmp */

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc

@@ -23,4 +23,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorElegirArticulosPresupuestoCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorPresupuestosClienteReport.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEE.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfD6.tmp */

Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas

@@ -799,7 +799,7 @@ var
   ASeleccionados : IBizRecibosCliente;
 begin
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosCliente);
-  CopyDataTable(ARecibosCliente.DataTable, ASeleccionados.DataTable, True);
+  CopyDataTableDA3(ARecibosCliente.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
 end;
 

Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc

@@ -12,6 +12,6 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.DFM */
+/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */
-/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.drf */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBC.tmp */

Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm

@@ -119,13 +119,13 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'PagosCliente'
     IndexDefs = <>
-    Left = 352
+    Left = 288
     Top = 88
   end
   object ds_PagosCliente: TDADataSource
     DataSet = tbl_PagosCliente.Dataset
     DataTable = tbl_PagosCliente
-    Left = 352
+    Left = 288
     Top = 32
   end
   object tbl_RecibosCliente: TDAMemDataTable
@@ -316,4 +316,158 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
     Left = 168
     Top = 32
   end
+  object tbl_RecibosCompensadosCli: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datInteger
+        InPrimaryKey = True
+      end
+      item
+        Name = 'ID_RECIBO_COMPENSADO'
+        DataType = datInteger
+      end
+      item
+        Name = 'REFERENCIA_REC_COMPENSADO'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'SITUACION'
+        DataType = datString
+        Size = 9
+      end
+      item
+        Name = 'ID_FACTURA'
+        DataType = datInteger
+      end
+      item
+        Name = 'ID_REMESA'
+        DataType = datInteger
+      end
+      item
+        Name = 'REFERENCIA_REMESA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'FECHA_EMISION'
+        DataType = datDateTime
+      end
+      item
+        Name = 'FECHA_VENCIMIENTO'
+        DataType = datDateTime
+      end
+      item
+        Name = 'DESCRIPCION'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'OBSERVACIONES'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'IMPORTE'
+        DataType = datCurrency
+      end
+      item
+        Name = 'OTROS_GASTOS'
+        DataType = datCurrency
+      end
+      item
+        Name = 'IMPORTE_TOTAL'
+        DataType = datCurrency
+      end
+      item
+        Name = 'FECHA_FACTURA'
+        DataType = datDateTime
+      end
+      item
+        Name = 'FORMA_PAGO_FACTURA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'IMPORTE_FACTURA'
+        DataType = datCurrency
+      end
+      item
+        Name = 'ID_EMPRESA'
+        DataType = datInteger
+      end
+      item
+        Name = 'ID_CLIENTE'
+        DataType = datInteger
+      end
+      item
+        Name = 'NOMBRE_CLIENTE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'NIF_CIF_CLIENTE'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'ENTIDAD_CLIENTE'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'SUCURSAL_CLIENTE'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'DC_CLIENTE'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'CUENTA_CLIENTE'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'FECHA_ALTA'
+        DataType = datDateTime
+      end
+      item
+        Name = 'FECHA_MODIFICACION'
+        DataType = datDateTime
+      end
+      item
+        Name = 'USUARIO'
+        DataType = datString
+        Size = 30
+      end>
+    Params = <>
+    MasterMappingMode = mmWhere
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rda_RecibosCliente
+    MasterSource = ds_RecibosCliente
+    MasterFields = 'ID'
+    DetailFields = 'ID_RECIBO_COMPENSADO'
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'RecibosCompensadosCli'
+    IndexDefs = <>
+    Left = 416
+    Top = 88
+  end
+  object ds_RecibosCompensadosCli: TDADataSource
+    DataSet = tbl_RecibosCompensadosCli.Dataset
+    DataTable = tbl_RecibosCompensadosCli
+    Left = 416
+    Top = 32
+  end
 end

Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas

@@ -44,6 +44,8 @@ type
     ds_PagosCliente: TDADataSource;
     tbl_RecibosCliente: TDAMemDataTable;
     ds_RecibosCliente: TDADataSource;
+    tbl_RecibosCompensadosCli: TDAMemDataTable;
+    ds_RecibosCompensadosCli: TDADataSource;
     procedure DAClientDataModuleCreate(Sender: TObject);
   protected
     function _GetPagos: IBizPagosCliente;
@@ -100,7 +102,7 @@ function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensado
 var
   ARecibosCompensados : TDAMemDataTable;
 begin
-{  ShowHourglassCursor;
+  ShowHourglassCursor;
   try
     ARecibosCompensados := CloneDataTable(tbl_RecibosCompensadosCli);
     with ARecibosCompensados do
@@ -112,7 +114,6 @@ begin
   finally
     HideHourglassCursor;
   end;
-}  
 end;
 
 function TDataModuleRecibosCliente.GetItems: IBizRecibosCliente;
@@ -127,8 +128,8 @@ begin
     with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
          Pagos := _GetPagos;
 
-//    with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
+    with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
-//         RecibosCompensados := _GetRecibosCompensados;
+         RecibosCompensados := _GetRecibosCompensados;
 
     Result := (AIBizRecibosCliente as IBizRecibosCliente);
   finally

Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas

@@ -3,7 +3,7 @@ unit schRecibosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -355,7 +355,7 @@ type
   end;
 
   { TRecibosClienteDataTableRules }
-  TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
+  TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
   private
   protected
     { Property getters and setters }
@@ -624,7 +624,7 @@ type
   end;
 
   { TPagosClienteDataTableRules }
-  TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
+  TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
   private
   protected
     { Property getters and setters }
@@ -893,7 +893,7 @@ type
   end;
 
   { TRecibosCompensadosCliDataTableRules }
-  TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
+  TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
   private
   protected
     { Property getters and setters }

Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */
-/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.drf */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC2.tmp */

Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm

@@ -3,9 +3,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
   ClientHeight = 530
   ClientWidth = 691
   OnClose = CustomEditorClose
-  ExplicitTop = -110
   ExplicitWidth = 699
-  ExplicitHeight = 564
+  ExplicitHeight = 557
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -271,6 +270,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         inherited ToolBar1: TToolBar
           Width = 683
           ExplicitWidth = 683
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
           inherited ToolButton3: TToolButton
             ExplicitWidth = 98
           end

Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas

@@ -10,7 +10,8 @@ uses
   pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboCliente,
   uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController,
   uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData,
-  uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados;
+  uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados,
+  uDAInterfaces;
 
 type
   TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente)

Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm

@@ -52,19 +52,19 @@ inherited frViewPagosCliente: TfrViewPagosCliente
       Transparent = True
       object ToolButton1: TToolButton
         Left = 0
-        Top = 2
+        Top = 0
         Action = actAnadir
         AutoSize = True
       end
       object ToolButton4: TToolButton
         Left = 62
-        Top = 2
+        Top = 0
         Action = actModificar
         AutoSize = True
       end
       object ToolButton5: TToolButton
         Left = 136
-        Top = 2
+        Top = 0
         Width = 8
         Caption = 'ToolButton5'
         ImageIndex = 2
@@ -72,7 +72,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
       end
       object ToolButton2: TToolButton
         Left = 144
-        Top = 2
+        Top = 0
         Action = actEliminar
         AutoSize = True
       end
@@ -209,6 +209,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
     end
   end
   object DADataSource: TDADataSource
+    DataSet = tbl_PagosCliente.Dataset
     DataTable = DataModuleRecibosCliente.tbl_PagosCliente
     Left = 8
     Top = 8

Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas

@@ -11,7 +11,7 @@ uses
   cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
   cxClasses, cxGridCustomView, cxGrid, uBizPagosCliente, ActnList, TB2Item,
   TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList,
-  PngImageList, ComCtrls, ToolWin;
+  PngImageList, ComCtrls, ToolWin, uDAInterfaces;
 
 type
   IViewPagosCliente = interface(IViewBase)

Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas

@@ -6,7 +6,8 @@ uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, uViewBase, uBizRecibosCliente, DB, uDADataTable, dxLayoutControl,
   cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
-  cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls;
+  cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
+  uDAInterfaces;
 
 type
   IViewReciboCliente = interface(IViewBase)

Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas

@@ -312,7 +312,7 @@ var
   ASeleccionados : IBizTipoIVA;
 begin
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizTipoIVA);
-  CopyDataTable2(ATipoIVA.DataTable, ASeleccionados.DataTable, True);
+  CopyDataTableDA3(ATipoIVA.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
 end;
 

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\dtfA2.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8A.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\dtfA0.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf88.tmp */

Source/Servidor/FactuGES_Server.dproj

@@ -1,155 +1,154 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <PropertyGroup>
+	<PropertyGroup>
-    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-    <MainSource>FactuGES_Server.dpr</MainSource>
+		<MainSource>FactuGES_Server.dpr</MainSource>
-    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-  </PropertyGroup>
+	</PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <Version>7.0</Version>
+		<Version>7.0</Version>
-    <DCC_DebugInformation>False</DCC_DebugInformation>
+		<DCC_DebugInformation>False</DCC_DebugInformation>
-    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-    <DCC_MapFile>3</DCC_MapFile>
+		<DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-    <DCC_Define>RELEASE</DCC_Define>
+		<DCC_Define>RELEASE</DCC_Define>
-  </PropertyGroup>
+	</PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <Version>7.0</Version>
+		<Version>7.0</Version>
-    <DCC_MapFile>3</DCC_MapFile>
+		<DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-    <DCC_Define>DEBUG;</DCC_Define>
+		<DCC_Define>DEBUG;</DCC_Define>
-    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-  </PropertyGroup>
+	</PropertyGroup>
-  <ProjectExtensions>
+	<ProjectExtensions>
-    <Borland.Personality>Delphi.Personality</Borland.Personality>
+		<Borland.Personality>Delphi.Personality</Borland.Personality>
-    <Borland.ProjectType />
+		<Borland.ProjectType/>
-    <BorlandProject>
+		<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>
+			<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 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>
-    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+	</ProjectExtensions>
-  </ProjectExtensions>
+	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+	<ItemGroup>
-  <ItemGroup>
+		<DelphiCompile Include="FactuGES_Server.dpr">
-    <DelphiCompile Include="FactuGES_Server.dpr">
+			<MainSource>MainSource</MainSource>
-      <MainSource>MainSource</MainSource>
+		</DelphiCompile>
-    </DelphiCompile>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+			<Form>srvEmpresas</Form>
-      <Form>srvEmpresas</Form>
+			<DesignClass>TDARemoteService</DesignClass>
-      <DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
+		<DCCReference Include="..\Base\schBase_Intf.pas"/>
-    <DCCReference Include="..\Base\schBase_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+			<Form>srvAlbaranesCliente</Form>
-      <Form>srvAlbaranesCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+			<Form>srvAlmacenes</Form>
-      <Form>srvAlmacenes</Form>
+			<DesignClass>TDARemoteService</DesignClass>
-      <DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+			<Form>srvContactos</Form>
-      <Form>srvContactos</Form>
+			<DesignClass>TDARemoteService</DesignClass>
-      <DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+			<Form>srvFacturasCliente</Form>
-      <Form>srvFacturasCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+			<Form>RptPresupuestosCliente</Form>
-      <Form>RptPresupuestosCliente</Form>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+			<Form>srvPresupuestosCliente</Form>
-      <Form>srvPresupuestosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+			<Form>srvRecibosCliente</Form>
-      <Form>srvRecibosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
+		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
-    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
-    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
+		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+			<Form>srvConfiguracion</Form>
-      <Form>srvConfiguracion</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="Configuracion\uConexionBD.pas">
-    <DCCReference Include="Configuracion\uConexionBD.pas">
+			<Form>frConexionBD</Form>
-      <Form>frConexionBD</Form>
+			<DesignClass>TFrame</DesignClass>
-      <DesignClass>TFrame</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="Configuracion\uConfGeneral.pas">
-    <DCCReference Include="Configuracion\uConfGeneral.pas">
+			<Form>frConfGeneral</Form>
-      <Form>frConfGeneral</Form>
+			<DesignClass>TFrame</DesignClass>
-      <DesignClass>TFrame</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="Configuracion\uConfiguracion.pas">
-    <DCCReference Include="Configuracion\uConfiguracion.pas">
+			<Form>fConfiguracion</Form>
-      <Form>fConfiguracion</Form>
+			<DesignClass>TForm</DesignClass>
-      <DesignClass>TForm</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+			<Form>FrameConfiguracion</Form>
-      <Form>FrameConfiguracion</Form>
+			<DesignClass>TFrame</DesignClass>
-      <DesignClass>TFrame</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="srvLogin_Impl.pas">
-    <DCCReference Include="srvLogin_Impl.pas">
+			<Form>srvLogin</Form>
-      <Form>srvLogin</Form>
+			<DesignClass>TDARemoteService</DesignClass>
-      <DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="uAcercaDe.pas">
-    <DCCReference Include="uAcercaDe.pas">
+			<Form>fAcercaDe</Form>
-      <Form>fAcercaDe</Form>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="uDataModuleServer.pas">
-    <DCCReference Include="uDataModuleServer.pas">
+			<Form>dmServer</Form>
-      <Form>dmServer</Form>
+			<DesignClass>TDataModule</DesignClass>
-      <DesignClass>TDataModule</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="uServerMainForm.pas">
-    <DCCReference Include="uServerMainForm.pas">
+			<Form>fServerForm</Form>
-      <Form>fServerForm</Form>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="Utiles\RegExpr.pas"/>
-    <DCCReference Include="Utiles\RegExpr.pas" />
+		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
-    <DCCReference Include="Utiles\uBusinessUtils.pas" />
+		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
-    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
+		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
-    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
+		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
-    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
+		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
-    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
+		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
-    <DCCReference Include="Utiles\uServerAppUtils.pas" />
+		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
-    <DCCReference Include="Utiles\uSesionesUtils.pas" />
+	</ItemGroup>
-  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]

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", "miércoles, 14 de noviembre de 2007 19:07\0"
+              VALUE "CompileDate", "jueves, 15 de noviembre de 2007 13:47\0"
          END
     END
     BLOCK "VarFileInfo"