Controladores: corregida la herencia de interfaces y clases. IObservador -> IControllerBase

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@274 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas

@@ -13,7 +13,7 @@ type
     function GetEtiquetaConfiguracion : String;
   end;
 
-  IConfiguracionController = interface(IObservador)
+  IConfiguracionController = interface(IControllerBase)
     ['{F29215BA-0D34-4AE9-B9A9-C80ABF49A81D}']
     procedure ConfigurarAplicacion;
     procedure SalvarConfiguracion;
@@ -30,7 +30,7 @@ type
     procedure SetSettingAsBoolean(const ASettingName: String; AValue : Boolean);
   end;
 
-  TConfiguracionController = class(TObservador, IConfiguracionController)
+  TConfiguracionController = class(TControllerBase, IConfiguracionController)
   private
     FAppXMLFileStorage : TJvAppXMLFileStorage;
   public

Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas

@@ -7,7 +7,7 @@ uses
    uBizEjercicios, uIDataModuleEjercicios;
 
 type
-  IEjerciciosController = interface(IObservador)
+  IEjerciciosController = interface(IControllerBase)
   ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
     function BuscarTodos: IBizEjercicio;
     function Buscar(ID: Integer): IBizEjercicio;
@@ -23,7 +23,7 @@ type
     function DarListaEjercicios: TStringList;
   end;
 
-  TEjerciciosController = class(TObservador, IEjerciciosController)
+  TEjerciciosController = class(TControllerBase, IEjerciciosController)
   private
     procedure FiltrarEmpresa(AEjercicio: IBizEjercicio);
 

Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas

@@ -4,15 +4,16 @@ interface
 
 uses
   Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
-  uBizEmpresas, uBizEmpresasDatosBancarios, uIDataModuleEmpresas;
+  uBizEmpresas, uBizEmpresasDatosBancarios, uIDataModuleEmpresas,
+  uControllerBase;
 
 type
-  IDatosBancariosEmpresaController = interface
+  IDatosBancariosEmpresaController = interface(IControllerBase)
   ['{E9B0313E-7B16-420A-B47E-20E42E96BAC6}']
     procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
   end;
 
-  TDatosBancariosEmpresaController = class(TInterfacedObject, IDatosBancariosEmpresaController)
+  TDatosBancariosEmpresaController = class(TControllerBase, IDatosBancariosEmpresaController)
   private
     FDataModule : IDataModuleEmpresas;
   public

Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas

@@ -4,16 +4,16 @@ interface
 
 uses
   Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
-  uIntegerListUtils, uBizEmpresasTiendas, uIDataModuleEmpresas;
+  uIntegerListUtils, uBizEmpresasTiendas, uIDataModuleEmpresas, uControllerBase;
 
 type
-  ITiendasEmpresaController = interface
+  ITiendasEmpresaController = interface(IControllerBase)
     ['{5DCF4163-7FA0-4560-9E5E-FA2A99EA4F59}']
     procedure VerTienda(ATienda : IBizEmpresasTiendas);
     function DarListaTiendas: TStringList;
   end;
 
-  TTiendasEmpresaController = class(TInterfacedObject, ITiendasEmpresaController)
+  TTiendasEmpresaController = class(TControllerBase, ITiendasEmpresaController)
   private
     FDataModule : IDataModuleEmpresas;
   public

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

@@ -9,7 +9,7 @@ uses
   uDetallesAlbaranClienteController, uBizAlbaranesCliente, uBizDireccionesContacto;
 
 type
-  IAlbaranesClienteController = interface(IObservador)
+  IAlbaranesClienteController = interface(IControllerBase)
   ['{E83F4950-400E-446B-8EB0-1609FF8FEA77}']
     function GetClienteController: IClientesController;
     procedure SetClienteController(const Value: IClientesController);
@@ -63,7 +63,7 @@ type
     procedure SetID_Tienda (AAlbaran: IBizAlbaranCliente; const ID_Tienda: Integer);
   end;
 
-  TAlbaranesClienteController = class(TObservador, IAlbaranesClienteController)
+  TAlbaranesClienteController = class(TControllerBase, IAlbaranesClienteController)
   protected
     FDataModule : IDataModuleAlbaranesCliente;
     FClienteController : IClientesController;

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

@@ -8,7 +8,7 @@ uses
   uBizAlbaranesCliente;
 
 type
-  IAlbaranesClienteReportController = interface
+  IAlbaranesClienteReportController = interface(IControllerBase)
   ['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
     procedure Preview(const AID : String);
     procedure Print(const AID : String);
@@ -16,7 +16,7 @@ type
     procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
   end;
 
-  TAlbaranesClienteReportController = class(TInterfacedObject, IAlbaranesClienteReportController)
+  TAlbaranesClienteReportController = class(TControllerBase, IAlbaranesClienteReportController)
   private
     FDataModule : IDataModuleAlbaranesClienteReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas

@@ -11,7 +11,7 @@ uses
   //, uBizInventario;
 
 type
-  IAlbaranesProveedorController = interface(IObservador)
+  IAlbaranesProveedorController = interface(IControllerBase)
   ['{E2FA2312-EDBD-4E80-B3D7-A8784F6A4E39}']
     function GetProveedorController: IProveedoresController;
     procedure SetProveedorController(const Value: IProveedoresController);
@@ -59,7 +59,7 @@ type
     procedure SetID_Tienda (AAlbaran: IBizAlbaranProveedor; const ID_Tienda: Integer);
   end;
 
-  TAlbaranesProveedorController = class(TObservador, IAlbaranesProveedorController)
+  TAlbaranesProveedorController = class(TControllerBase, IAlbaranesProveedorController)
   protected
     FDataModule : IDataModuleAlbaranesProveedor;
     FProveedorController : IProveedoresController;

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas

@@ -8,13 +8,13 @@ uses
   uBizAlbaranesProveedor;
 
 type
-  IAlbaranesProveedorReportController = interface
+  IAlbaranesProveedorReportController = interface(IControllerBase)
   ['{AAE252CE-D407-4FF4-AF2A-350C5A421C89}']
     procedure Preview(const AID : String);
     procedure Print(const AID : String);
   end;
 
-  TAlbaranesProveedorReportController = class(TInterfacedObject, IAlbaranesProveedorReportController)
+  TAlbaranesProveedorReportController = class(TControllerBase, IAlbaranesProveedorReportController)
   private
     FDataModule : IDataModuleAlbaranesProveedorReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

Source/Modulos/Almacenes/Controller/uAlmacenesController.pas

@@ -8,7 +8,7 @@ uses
   uIDataModuleAlmacenes, uBizAlmacenes;
 
 type
-  IAlmacenesController = interface(IObservador)
+  IAlmacenesController = interface(IControllerBase)
   ['{1F5E5845-5B29-4C08-87F0-D753E5454068}']
     function Buscar(const ID: Integer): IBizAlmacen;
     function BuscarTodos: IBizAlmacen;
@@ -27,7 +27,7 @@ type
     procedure Print(AAlmacen : IBizAlmacen);
   end;
 
-  TAlmacenesController = class(TObservador, IAlmacenesController)
+  TAlmacenesController = class(TControllerBase, IAlmacenesController)
   protected
     FDataModule : IDataModuleAlmacenes;
 

Source/Modulos/Articulos/Controller/uArticulosController.pas

@@ -9,7 +9,7 @@ uses
   uBizContactos;
 
 type
-  IArticulosController = interface(IObservador)
+  IArticulosController = interface(IControllerBase)
   ['{C7EA6486-7BE4-468E-A27A-621E1BA13430}']
     function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo;
     function BuscarInventariables: IBizArticulo;
@@ -43,7 +43,7 @@ type
     property ProveedoresController: IProveedoresController read GetProveedoresController;
   end;
 
-  TArticulosController = class(TObservador, IArticulosController)
+  TArticulosController = class(TControllerBase, IArticulosController)
   protected
     FDataModule : IDataModuleArticulos;
     FProveedoresController: IProveedoresController;

Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas

@@ -26,15 +26,15 @@ unit uBancaElectronicaController;
 interface
 
 uses
-  Classes, SysUtils, uDADataTable;
+  Classes, SysUtils, uDADataTable, uControllerBase;
 
 type
-  IBancaElectronicaController = interface
+  IBancaElectronicaController = interface(IControllerBase)
   ['{9E37DF46-D02C-47C4-BCBE-414FB97A7751}']
     procedure GenerarFicheroNorma19 (const IDRemesa : Integer);
   end;
 
-  TBancaElectronicaController = class(TInterfacedObject, IBancaElectronicaController)
+  TBancaElectronicaController = class(TControllerBase, IBancaElectronicaController)
   private
     function DarParametrosParaExportar(var Entidad : Integer; var Oficina : Integer;
               var AFechaCargo : TDateTime; var AFileName : String): Boolean;

Source/Modulos/Comisiones/Controller/uComisionesController.pas

@@ -8,7 +8,7 @@ uses
   uIDataModuleComisiones, uBizComisiones; //, uFacturasClienteController, uBizFacturasCliente;
 
 type
-  IComisionesController = interface(IObservador)
+  IComisionesController = interface(IControllerBase)
   ['{0C281A5D-9DF9-46BD-99CB-1150A536EFA1}']
     function BuscarTodos: IBizComisiones;
     function Buscar(const ID: Integer): IBizComisiones;
@@ -26,7 +26,7 @@ type
     procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant);
   end;
 
-  TComisionesController = class(TObservador, IComisionesController)
+  TComisionesController = class(TControllerBase, IComisionesController)
   private
 //    function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
 //    procedure QuitarExistentes(AFacturas: IBizFacturaCliente; AFacturasComision: IBizFacturasComision);

Source/Modulos/Comisiones/Controller/uComisionesReportController.pas

@@ -8,13 +8,13 @@ uses
   uBizComisiones;
 
 type
-  IComisionesReportController = interface
+  IComisionesReportController = interface(IControllerBase)
   ['{7ABB74C2-050C-4737-BC4C-C5F20883CED8}']
     procedure Preview(const AComisionID : String);
     procedure Print(const AComisionID : String);
   end;
 
-  TComisionesReportController = class(TInterfacedObject, IComisionesReportController)
+  TComisionesReportController = class(TControllerBase, IComisionesReportController)
   private
     FDataModule : IDataModuleComisionesReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

Source/Modulos/Contabilidad/Controller/uApuntesController.pas

@@ -7,7 +7,7 @@ uses
   Classes, SysUtils, uDADataTable, uControllerBase,
    uBizApuntes, uBizSubCuentas, uIDataModuleContabilidad;
 type
-  IApuntesController = interface(IObservador)
+  IApuntesController = interface(IControllerBase)
   ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
 //    function BuscarTodos: IBizApunte;
 //    function Buscar(const ID: Integer): IBizApunte;
@@ -28,7 +28,7 @@ type
     procedure AsignarHABER(AApunte: IBizApunte);
   end;
 
-  TApuntesController = class(TObservador, IApuntesController)
+  TApuntesController = class(TControllerBase, IApuntesController)
   private
     procedure CopiarSubCuenta_Apunte(AApunte: IBizApunte; ASubCuenta : IBizSubCuenta);
 

Source/Modulos/Contabilidad/Controller/uAsientosController.pas

@@ -7,7 +7,7 @@ uses
   Classes, SysUtils, uDADataTable, uControllerBase,
    uBizAsientos, uBizDiario, uIDataModuleContabilidad;
 type
-  IAsientosController = interface(IObservador)
+  IAsientosController = interface(IControllerBase)
   ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
     function BuscarAsientos(IdSubCuenta: Integer = -1): IBizDiario;
     function Buscar(const ID: Integer): IBizAsiento;
@@ -23,7 +23,7 @@ type
     procedure DescartarCambios(AAsiento : IBizAsiento);
   end;
 
-  TAsientosController = class(TObservador, IAsientosController)
+  TAsientosController = class(TControllerBase, IAsientosController)
   protected
     FDataModule : IDataModuleContabilidad;
 

Source/Modulos/Contabilidad/Controller/uBalancesController.pas

@@ -5,9 +5,9 @@ interface
 
 uses
   Classes, SysUtils, uDADataTable, uControllerBase,
-   uBizBalances, uIDataModuleContabilidad;
+	uBizBalances, uIDataModuleContabilidad;
 type
-  IBalancesController = interface(IObservador)
+  IBalancesController = interface(IControllerBase)
   ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
     function BuscarTodos: IBizBalance;
     function Buscar(ID: Integer): IBizBalance;
@@ -24,7 +24,7 @@ type
     function ElegirBalance(ABalances : IBizBalance; AMensaje: String; AMultiSelect: Boolean): IBizBalance;
   end;
 
-  TBalancesController = class(TObservador, IBalancesController)
+  TBalancesController = class(TControllerBase, IBalancesController)
   protected
     FDataModule : IDataModuleContabilidad;
 

Source/Modulos/Contabilidad/Controller/uCuentasController.pas

@@ -7,7 +7,7 @@ uses
   Classes, SysUtils, uDADataTable, uControllerBase,
    uBizCuentas, uIDataModuleContabilidad;
 type
-  ICuentasController = interface(IObservador)
+  ICuentasController = interface(IControllerBase)
   ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
     function BuscarTodos: IBizCuenta;
     function Buscar(ID: Integer): IBizCuenta;
@@ -28,7 +28,7 @@ type
     procedure ElegirCuentaEspecial(ACuenta: IBizCuenta);
   end;
 
-  TCuentasController = class(TObservador, ICuentasController)
+  TCuentasController = class(TControllerBase, ICuentasController)
   protected
     FDataModule : IDataModuleContabilidad;
 

Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas

@@ -5,9 +5,9 @@ interface
 
 uses
   Classes, SysUtils, uDADataTable, uControllerBase,
-   uBizCuentasEspeciales, uIDataModuleContabilidad;
+  uBizCuentasEspeciales, uIDataModuleContabilidad;
 type
-  ICuentasEspecialesController = interface(IObservador)
+  ICuentasEspecialesController = interface(IControllerBase)
   ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
     function BuscarTodos: IBizCuentaEspecial;
     function Buscar(ID: Integer): IBizCuentaEspecial;
@@ -24,7 +24,7 @@ type
     function ElegirCuentaEspecial(ACuentasEspeciales : IBizCuentaEspecial; AMensaje: String; AMultiSelect: Boolean): IBizCuentaEspecial;
   end;
 
-  TCuentasEspecialesController = class(TObservador, ICuentasEspecialesController)
+  TCuentasEspecialesController = class(TControllerBase, ICuentasEspecialesController)
   protected
     FDataModule : IDataModuleContabilidad;
 

Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas

@@ -7,7 +7,7 @@ uses
   Classes, SysUtils, uDADataTable, uControllerBase,
    uBizEpigrafes, uIDataModuleContabilidad;
 type
-  IEpigrafesController = interface(IObservador)
+  IEpigrafesController = interface(IControllerBase)
   ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
     function BuscarTodos: IBizEpigrafe;
     function Buscar(ID: Integer): IBizEpigrafe;
@@ -26,7 +26,7 @@ type
 
   end;
 
-  TEpigrafesController = class(TObservador, IEpigrafesController)
+  TEpigrafesController = class(TControllerBase, IEpigrafesController)
   protected
     FDataModule : IDataModuleContabilidad;
 

Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas

@@ -23,7 +23,7 @@ const
 type
   TEnumTipoSubCuenta = (tTodas, tClientes, tProveedores, tCompras, tVentas, tCajas);
 
-  ISubCuentasController = interface(IObservador)
+  ISubCuentasController = interface(IControllerBase)
   ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
     function BuscarTodos: IBizSubCuenta;
     function Buscar(ID: Integer): IBizSubCuenta;
@@ -49,7 +49,7 @@ type
     function Duplicar(ASubCuenta: IBizSubCuenta): IBizSubCuenta;    
   end;
 
-  TSubCuentasController = class(TObservador, ISubCuentasController)
+  TSubCuentasController = class(TControllerBase, ISubCuentasController)
   private
     function BuscarCuentas(const REF_CUENTA: Integer): IBizSubCuenta;
     function BuscarCuentasLibres(TipoCuenta: Integer): IBizSubCuenta;

Source/Modulos/Contactos/Controller/uContactosController.pas

@@ -6,10 +6,11 @@ interface
 uses
   Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
   uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
-  uBizDireccionesContacto, uDireccionesContactoController;
+  uBizDireccionesContacto, uDireccionesContactoController,
+  uControllerBase;
 
 type
-  IContactosController = interface
+  IContactosController = interface(IControllerBase)
     ['{43F9A4ED-6563-4F95-9A56-330CF9C66731}']
     function Buscar(const ID: Integer): IBizContacto;
     function BuscarTodos: IBizContacto;
@@ -32,7 +33,7 @@ type
     function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
   end;
 
-  TContactosController = class(TInterfacedObject, IContactosController)
+  TContactosController = class(TControllerBase, IContactosController)
   protected
     FDataModule : IDataModuleContactos;
     procedure FiltrarEmpresa(AContacto : IBizContacto); virtual;

Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas

@@ -4,17 +4,18 @@ interface
 
 uses
   Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
-  uBizContactos, uBizDireccionesContacto, uIDataModuleContactos;
+  uBizContactos, uBizDireccionesContacto, uIDataModuleContactos,
+  uControllerBase;
 
 type
-  IDireccionesContactoController = interface
+  IDireccionesContactoController = interface(IControllerBase)
   ['{9B6CB172-F32C-414F-A0E2-99920CAF88FB}']
     procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True); 
     procedure Ver(ADireccion : IBizDireccionesContacto);
     function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;    
   end;
 
-  TDireccionesContactoController = class(TInterfacedObject, IDireccionesContactoController)
+  TDireccionesContactoController = class(TControllerBase, IDireccionesContactoController)
   private
     FDataModule : IDataModuleContactos;
   public

Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas

@@ -3,17 +3,17 @@ unit uEtiquetasContactosReportController;
 interface
 
 uses
-  Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleEtiquetasContactosReport,
+  Classes, SysUtils, uDADataTable, uIDataModuleEtiquetasContactosReport,
-  uVendedoresController;
+  uVendedoresController, uControllerBase;
 
 type
-  IEtiquetasContactosReportController = interface
+  IEtiquetasContactosReportController = interface(IControllerBase)
   ['{76BB35E3-554E-4D30-8D3E-54E488EF82E2}']
     procedure Preview(const AContactosID : String);
     procedure Print(const AContactosID : String);
   end;
 
-  TEtiquetasContactosReportController = class(TInterfacedObject, IEtiquetasContactosReportController)
+  TEtiquetasContactosReportController = class(TControllerBase, IEtiquetasContactosReportController)
   private
     FDataModule : IDataModuleEtiquetasContactosReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

Source/Modulos/Contactos/Controller/uGruposClienteController.pas

@@ -4,11 +4,11 @@ interface
 
 
 uses
-  Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
+  Classes, SysUtils, uDADataTable, uEditorDBItem,
-  uIDataModuleClientes, uBizGruposCliente;
+  uIDataModuleClientes, uBizGruposCliente, uControllerBase;
 
 type
-  IGruposClienteController = interface(IObservador)
+  IGruposClienteController = interface(IControllerBase)
   ['{32D31B02-76A6-4C9B-85D4-3C632969AC79}']
     function BuscarTodos: IBizGrupoCliente;
     procedure VerTodos(AGruposCliente: IBizGrupoCliente);
@@ -20,7 +20,7 @@ type
     function DarListaGruposCliente: TStringList;
   end;
 
-  TGruposClienteController = class(TObservador, IGruposClienteController)
+  TGruposClienteController = class(TControllerBase, IGruposClienteController)
   protected
     FDataModule : IDataModuleClientes;
     procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;

Source/Modulos/Contactos/Controller/uGruposProveedorController.pas

@@ -4,11 +4,11 @@ interface
 
 
 uses
-  Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
+  Classes, SysUtils, uDADataTable, uEditorDBItem,
-  uIDataModuleProveedores, uBizGruposProveedor;
+  uIDataModuleProveedores, uBizGruposProveedor, uControllerBase;
 
 type
-  IGruposProveedorController = interface(IObservador)
+  IGruposProveedorController = interface(IControllerBase)
     ['{20B27FB1-ECEA-40B6-9869-5F5EC700EEDD}']
     function BuscarTodos: IBizGrupoProveedor;
     procedure VerTodos(AGruposProveedor: IBizGrupoProveedor);
@@ -20,7 +20,7 @@ type
     function DarListaGruposProveedor: TStringList;
   end;
 
-  TGruposProveedorController = class(TObservador, IGruposProveedorController)
+  TGruposProveedorController = class(TControllerBase, IGruposProveedorController)
   protected
     FDataModule : IDataModuleProveedores;
     procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;

Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas

@@ -4,11 +4,11 @@ interface
 
 
 uses
-  Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
+  Classes, SysUtils, uDADataTable, uEditorDBItem,
-  uIDataModuleClientes, uBizProcedenciasCliente;
+  uIDataModuleClientes, uBizProcedenciasCliente, uControllerBase;
 
 type
-  IProcedenciasClienteController = interface(IObservador)
+  IProcedenciasClienteController = interface(IControllerBase)
   ['{C2D71CED-DCD6-47F1-8BCA-1027DA4A6385}']
     function BuscarTodos: IBizProcedenciaCliente;
     procedure VerTodos(AProcedenciasCliente: IBizProcedenciaCliente);
@@ -20,7 +20,7 @@ type
     function DarListaProcedenciasCliente: TStringList;
   end;
 
-  TProcedenciasClienteController = class(TObservador, IProcedenciasClienteController)
+  TProcedenciasClienteController = class(TControllerBase, IProcedenciasClienteController)
   protected
     FDataModule : IDataModuleClientes;
     procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;

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

@@ -9,7 +9,7 @@ uses
   uBizFacturasCliente, uBizDireccionesContacto;
 
 type
-  IFacturasClienteController = interface(IObservador)
+  IFacturasClienteController = interface(IControllerBase)
   ['{CAD20B4E-6D0B-4A1C-9306-B195824B6CAD}']
     function GetClienteController: IClientesController;
     procedure SetClienteController(const Value: IClientesController);
@@ -56,7 +56,7 @@ type
     procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
   end;
 
-  TFacturasClienteController = class(TObservador, IFacturasClienteController)
+  TFacturasClienteController = class(TControllerBase, IFacturasClienteController)
   private
     FDataModule : IDataModuleFacturasCliente;
     FClienteController : IClientesController;

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

@@ -8,13 +8,13 @@ uses
   uBizFacturasCliente;
 
 type
-  IFacturasClienteReportController = interface
+  IFacturasClienteReportController = interface(IControllerBase)
   ['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}']
     procedure Preview(const AFacturaID : String);
     procedure Print(const AFacturaID : String);
   end;
 
-  TFacturasClienteReportController = class(TInterfacedObject, IFacturasClienteReportController)
+  TFacturasClienteReportController = class(TControllerBase, IFacturasClienteReportController)
   private
     FDataModule : IDataModuleFacturasClienteReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas

@@ -7,13 +7,13 @@ uses
   uClientesController, uDetallesFacturaProveedorController, uBizFacturasProveedor;
 
 type
-  IFacturasProveedorReportController = interface
+  IFacturasProveedorReportController = interface(IControllerBase)
   ['{551F82DC-B8DC-482E-A20D-15003E845078}']
     procedure Preview(const AFacturaID : String);
     procedure Print(const AFacturaID : String);
   end;
 
-  TFacturasProveedorReportController = class(TInterfacedObject, IFacturasProveedorReportController)
+  TFacturasProveedorReportController = class(TControllerBase, IFacturasProveedorReportController)
   private
     FDataModule : IDataModuleFacturasProveedorReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

Source/Modulos/Familias/Controller/uFamiliasController.pas

@@ -4,11 +4,11 @@ interface
 
 
 uses
-  Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
+  Classes, SysUtils, uDADataTable, uEditorDBItem,
-  uIDataModuleFamilias, uBizFamilias;
+  uIDataModuleFamilias, uBizFamilias, uControllerBase;
 
 type
-  IFamiliasController = interface(IObservador)
+  IFamiliasController = interface(IControllerBase)
   ['{3987874F-57A8-4C71-8B7E-CBD2D1580CBC}']
     function BuscarTodos: IBizFamilia;
     procedure VerTodos(AFamilias: IBizFamilia);
@@ -20,7 +20,7 @@ type
     function DarListaFamilias: TStringList;
   end;
 
-  TFamiliasController = class(TObservador, IFamiliasController)
+  TFamiliasController = class(TControllerBase, IFamiliasController)
   protected
     FDataModule : IDataModuleFamilias;
 

Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas

@@ -4,10 +4,11 @@ interface
 
 
 uses
-  Classes, SysUtils, uDADataTable, uControllerBase,
+   Classes, SysUtils, uDADataTable, uControllerBase, 
    uBizFormasPago, uFormasPagoPlazosController, uIDataModuleFormasPago;
+   
 type
-  IFormasPagoController = interface(IObservador)
+  IFormasPagoController = interface(IControllerBase)
   ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
     function BuscarTodos: IBizFormaPago;
     function Buscar(ID: Integer): IBizFormaPago;
@@ -23,7 +24,7 @@ type
     function DarListaFormasPago: TStringList;
   end;
 
-  TFormasPagoController = class(TObservador, IFormasPagoController)
+  TFormasPagoController = class(TControllerBase, IFormasPagoController)
   protected
     FDataModule : IDataModuleFormasPago;
     FPlazosController : IFormasPagoPlazosController;

Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas

@@ -4,13 +4,15 @@ interface
 
 uses
   Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
-  uBizFormasPago, uBizFormasPagoPlazos, uIDataModuleFormasPago;
+  uBizFormasPago, uBizFormasPagoPlazos, uIDataModuleFormasPago,
+  uControllerBase;
+  
 type
-  IFormasPagoPlazosController = interface
+  IFormasPagoPlazosController = interface(IControllerBase)
   ['{3FCE2A31-9783-45F9-96D6-1157165AB8DB}']
   end;
 
-  TFormasPagoPlazosController = class(TInterfacedObject, IFormasPagoPlazosController)
+  TFormasPagoPlazosController = class(TControllerBase, IFormasPagoPlazosController)
   private
     FDataModule : IDataModuleFormasPago;
   public

Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas

@@ -8,7 +8,7 @@ uses
   uIDataModuleHistoricoMovimientos, uBizHistoricoMovimientos, uAlmacenesController;
 
 type
-  IHistoricoMovimientosController = interface(IObservador)
+  IHistoricoMovimientosController = interface(IControllerBase)
   ['{F60D83E3-DDAA-497F-8193-62F9D693B4B0}']
     procedure VerTodos(AHistoricoMovimientos: IBizHistoricoMovimientos);
     function BuscarTodos: IBizHistoricoMovimientos;
@@ -24,7 +24,7 @@ type
     property AlmacenesController: IAlmacenesController read GetAlmacenesController write SetAlmacenesController;
   end;
 
-  THistoricoMovimientosController = class(TObservador, IHistoricoMovimientosController)
+  THistoricoMovimientosController = class(TControllerBase, IHistoricoMovimientosController)
   private
     FAlmacenesController: IAlmacenesController;
     function GetAlmacenesController: IAlmacenesController;

Source/Modulos/Inventario/Controller/uInventarioController.pas

@@ -11,7 +11,7 @@ uses
   uBizAlmacenes;
 
 type
-  IInventarioController = interface(IObservador)
+  IInventarioController = interface(IControllerBase)
   ['{FB1DE6BA-ADCC-4A83-B4D4-37DC5892766B}']
 
 
@@ -47,7 +47,7 @@ type
     procedure Copiar(AArticulos: IBizInventario; ADetalles: IDAStronglyTypedDataTable; AInventario: IBizInventario); overload;
   end;
 
-  TInventarioController = class(TObservador, IInventarioController)
+  TInventarioController = class(TControllerBase, IInventarioController)
   private
     FAlmacenesController: IAlmacenesController;
     FArticulosController : IArticulosInventarioController;

Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas

@@ -9,7 +9,7 @@ uses
   uDetallesPedidoProveedorController, uBizPedidosProveedor;
 
 type
-  IPedidosProveedorController = interface(IObservador)
+  IPedidosProveedorController = interface(IControllerBase)
   ['{404FFA2F-D683-447D-91E6-C9A7322934D8}']
     function GetProveedorController: IProveedoresController;
     procedure SetProveedorController(const Value: IProveedoresController);
@@ -51,7 +51,7 @@ type
     procedure SetID_Tienda (APedido: IBizPedidoProveedor; const ID_Tienda: Integer);
   end;
 
-  TPedidosProveedorController = class(TObservador, IPedidosProveedorController)
+  TPedidosProveedorController = class(TControllerBase, IPedidosProveedorController)
   protected
     FDataModule : IDataModulePedidosProveedor;
     FProveedorController : IProveedoresController;

Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas

@@ -8,13 +8,13 @@ uses
   uBizPedidosProveedor;
 
 type
-  IPedidosProveedorReportController = interface
+  IPedidosProveedorReportController = interface(IControllerBase)
   ['{D0686358-251C-43C4-9927-6112F2F4D3B8}']
     procedure Preview(const AID : String);
     procedure Print(const AID : String);
   end;
 
-  TPedidosProveedorReportController = class(TInterfacedObject, IPedidosProveedorReportController)
+  TPedidosProveedorReportController = class(TControllerBase, IPedidosProveedorReportController)
   private
     FDataModule : IDataModulePedidosProveedorReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

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

@@ -10,7 +10,7 @@ uses
   uBizDetallesPresupuestoCliente;
 
 type
-  IPresupuestosClienteController = interface(IObservador)
+  IPresupuestosClienteController = interface(IControllerBase)
   ['{21ED0332-F0E0-468D-8D53-8CA362757191}']
     function GetClienteController: IClientesController;
     procedure SetClienteController(const Value: IClientesController);
@@ -53,7 +53,7 @@ type
     procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
   end;
 
-  TPresupuestosClienteController = class(TObservador, IPresupuestosClienteController)
+  TPresupuestosClienteController = class(TControllerBase, IPresupuestosClienteController)
   protected
     FDataModule : IDataModulePresupuestosCliente;
     FClienteController : IClientesController;

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

@@ -3,18 +3,18 @@ unit uPresupuestosClienteReportController;
 interface
 
 uses
-  Classes, SysUtils, uDADataTable, uControllerBase, uIDataModulePresupuestosClienteReport,
+  Classes, SysUtils, uDADataTable, uIDataModulePresupuestosClienteReport,
   uClientesController, uPresupuestosClienteController, uDetallesPresupuestoClienteController,
-  uBizPresupuestosCliente;
+  uBizPresupuestosCliente, uControllerBase;
 
 type
-  IPresupuestosClienteReportController = interface
+  IPresupuestosClienteReportController = interface(IControllerBase)
   ['{D0686358-251C-43C4-9927-6112F2F4D3B8}']
     procedure Preview(const AID : String);
     procedure Print(const AID : String);
   end;
 
-  TPresupuestosClienteReportController = class(TInterfacedObject, IPresupuestosClienteReportController)
+  TPresupuestosClienteReportController = class(TControllerBase, IPresupuestosClienteReportController)
   private
     FDataModule : IDataModulePresupuestosClienteReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

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

@@ -31,7 +31,7 @@ uses
   uBizRecibosCliente, uIDataModuleRecibosCliente;
 
 type
-  IRecibosClienteController = interface(IObservador)
+  IRecibosClienteController = interface(IControllerBase)
   ['{CBC8BDB8-FBE0-4D54-B2F1-A9330E8339EB}']
     function GetClienteController: IClientesController;
     procedure SetClienteController(const Value: IClientesController);
@@ -85,7 +85,7 @@ type
     procedure Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false);
   end;
 
-  TRecibosClienteController = class(TObservador, IRecibosClienteController)
+  TRecibosClienteController = class(TControllerBase, IRecibosClienteController)
   private
     function ImporteTotalModificado(ARecibosCliente: IBizRecibosCliente;
       var ImporteRestante: Currency): Boolean;

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

@@ -3,17 +3,17 @@ unit uRecibosClienteReportController;
 interface
 
 uses
-  Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRecibosClienteReport,
+  Classes, SysUtils, uDADataTable, uIDataModuleRecibosClienteReport,
-  uBizRecibosCliente;
+  uBizRecibosCliente, uControllerBase;
 
 type
-  IRecibosClienteReportController = interface
+  IRecibosClienteReportController = interface(IControllerBase)
   ['{3837DFA3-0A38-4BB2-B0DB-D0615249EA49}']
     procedure Preview(const ID : String);
     procedure Print(const ID : String);
   end;
 
-  TRecibosClienteReportController = class(TInterfacedObject, IRecibosClienteReportController)
+  TRecibosClienteReportController = class(TControllerBase, IRecibosClienteReportController)
   private
     FDataModule : IDataModuleRecibosClienteReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas

@@ -31,7 +31,7 @@ uses
   uBizRecibosProveedor, uIDataModuleRecibosProveedor;
 
 type
-  IRecibosProveedorController = interface(IObservador)
+  IRecibosProveedorController = interface(IControllerBase)
   ['{763DF610-3540-42BE-A09A-35AABFAF2DA1}']
     function GetProveedorController: IProveedoresController;
     procedure SetProveedorController(const Value: IProveedoresController);
@@ -79,7 +79,7 @@ type
     procedure Print(ARecibosProveedor : IBizRecibosProveedor);
   end;
 
-  TRecibosProveedorController = class(TObservador, IRecibosProveedorController)
+  TRecibosProveedorController = class(TControllerBase, IRecibosProveedorController)
   private
     function ImporteTotalModificado(ARecibosProveedor: IBizRecibosProveedor;
       var ImporteRestante: Currency): Boolean;

Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas

@@ -7,13 +7,13 @@ uses
   uBizRecibosProveedor;
 
 type
-  IRecibosProveedorReportController = interface
+  IRecibosProveedorReportController = interface(IControllerBase)
   ['{33009D46-9B5C-4255-AC5E-8AA93A1DDB7B}']
     procedure Preview(const ID : integer);
     procedure Print(const ID : integer);
   end;
 
-  TRecibosProveedorReportController = class(TInterfacedObject, IRecibosProveedorReportController)
+  TRecibosProveedorReportController = class(TControllerBase, IRecibosProveedorReportController)
   private
     FDataModule : IDataModuleRecibosProveedorReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

Source/Modulos/Referencias/Controller/uReferenciasController.pas

@@ -8,7 +8,7 @@ uses
   uIDataModuleReferencias, uBizReferencias;
 
 type
-  IReferenciasController = interface(IObservador)
+  IReferenciasController = interface(IControllerBase)
   ['{832E33B0-3228-4519-A740-F551DF3004DD}']
     function BuscarTodos: IBizReferencia;
     procedure VerTodos(AReferencias: IBizReferencia);
@@ -16,7 +16,7 @@ type
     procedure DescartarCambios(AReferencia : IBizReferencia);
   end;
 
-  TReferenciasController = class(TObservador, IReferenciasController)
+  TReferenciasController = class(TControllerBase, IReferenciasController)
   protected
     FDataModule : IDataModuleReferencias;
 

Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas

@@ -9,7 +9,7 @@ uses
   uBizContactos, uRecibosClienteController;
 
 type
-  IRemesasClienteController = interface(IObservador)
+  IRemesasClienteController = interface(IControllerBase)
   ['{F5D925C6-255C-4374-9A71-DFC0FBB7FA96}']
     function Buscar(const ID: Integer): IBizRemesaCliente;
     function BuscarTodos: IBizRemesaCliente; overload;
@@ -37,7 +37,7 @@ type
     function ExtraerSeleccionados(ARemesasCliente: IBizRemesaCliente) : IBizRemesaCliente;
   end;
 
-  TRemesasClienteController = class(TObservador, IRemesasClienteController)
+  TRemesasClienteController = class(TControllerBase, IRemesasClienteController)
   protected
     FDataModule : IDataModuleRemesasCliente;
     FRecibosClienteController: IRecibosClienteController;

Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas

@@ -7,13 +7,13 @@ uses
   uBizRemesasCliente;
 
 type
-  IRemesasClienteReportController = interface
+  IRemesasClienteReportController = interface(IControllerBase)
   ['{EA6EAD10-E07B-45A9-9B5E-0D560E2B92DF}']
     procedure Preview(const ID : String);
     procedure Print(const ID : String);
   end;
 
-  TRemesasClienteReportController = class(TInterfacedObject, IRemesasClienteReportController)
+  TRemesasClienteReportController = class(TControllerBase, IRemesasClienteReportController)
   private
     FDataModule : IDataModuleRemesasClienteReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas

@@ -9,7 +9,7 @@ uses
   uBizContactos, uRecibosProveedorController;
 
 type
-  IRemesasProveedorController = interface(IObservador)
+  IRemesasProveedorController = interface(IControllerBase)
   ['{C14143FE-0806-4E64-93E2-A2C0170BBD41}']
     function Buscar(const ID: Integer): IBizRemesaProveedor;
     function BuscarTodos: IBizRemesaProveedor; overload;
@@ -37,7 +37,7 @@ type
     function ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor) : IBizRemesaProveedor;
   end;
 
-  TRemesasProveedorController = class(TObservador, IRemesasProveedorController)
+  TRemesasProveedorController = class(TControllerBase, IRemesasProveedorController)
   protected
     FDataModule : IDataModuleRemesasProveedor;
     FRecibosProveedorController: IRecibosProveedorController;

Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas

@@ -7,13 +7,13 @@ uses
   uBizRemesasProveedor;
 
 type
-  IRemesasProveedorReportController = interface
+  IRemesasProveedorReportController = interface(IControllerBase)
   ['{A89AAA05-19AD-4455-BAF6-8A5373D15FE7}']
     procedure Preview(const ID : String);
     procedure Print(const ID : String);
   end;
 
-  TRemesasProveedorReportController = class(TInterfacedObject, IRemesasProveedorReportController)
+  TRemesasProveedorReportController = class(TControllerBase, IRemesasProveedorReportController)
   private
     FDataModule : IDataModuleRemesasProveedorReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;

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

@@ -30,7 +30,7 @@ uses
   uBizTiposIVA, uIDataModuleTiposIVA;
 
 type
-  ITiposIVAController = interface(IObservador)
+  ITiposIVAController = interface(IControllerBase)
   ['{DD8BBB7C-3688-4FCA-80EF-47FB61175D62}']
     procedure Anadir(ATipoIVA : IBizTipoIVA);
     function Eliminar(ATipoIVA : IBizTipoIVA): Boolean;
@@ -48,7 +48,7 @@ type
     function ExtraerSeleccionados(ATipoIVA: IBizTipoIVA) : IBizTipoIVA;
   end;
 
-  TTiposIVAController = class(TObservador, ITiposIVAController)
+  TTiposIVAController = class(TControllerBase, ITiposIVAController)
   private
   protected
     FDataModule : IDataModuleTiposIVA;

Source/Modulos/Tipos de venta/Controller/uTiposVentaController.pas

@@ -8,7 +8,7 @@ uses
   uIDataModuleTiposVenta, uBizTiposVenta;
 
 type
-  ITiposVentaController = interface(IObservador)
+  ITiposVentaController = interface(IControllerBase)
   ['{A5616174-3C9C-4EF3-8437-2C64E20137EB}']
     function BuscarTodos: IBizTipoVenta;
     procedure VerTodos(ATiposVenta: IBizTipoVenta);
@@ -17,7 +17,7 @@ type
     function DarListaTiposVenta: TStringList;
   end;
 
-  TTiposVentaController = class(TObservador, ITiposVentaController)
+  TTiposVentaController = class(TControllerBase, ITiposVentaController)
   protected
     FDataModule : IDataModuleTiposVenta;
 

Source/Servidor/FactuGES_Server.dproj

@@ -1,268 +1,266 @@
-<?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">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 23 de mayo de 2008 17:19</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">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 23 de mayo de 2008 17:19</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>
-      <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>
+	</ProjectExtensions>
-    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
-  </ProjectExtensions>
+	<ItemGroup>
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+		<DelphiCompile Include="FactuGES_Server.dpr">
-  <ItemGroup>
+			<MainSource>MainSource</MainSource>
-    <DelphiCompile Include="FactuGES_Server.dpr">
+		</DelphiCompile>
-      <MainSource>MainSource</MainSource>
+		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
-    </DelphiCompile>
+		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
-    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
-    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
+			<Form>srvEjercicios</Form>
-    <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvEjercicios</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
+			<Form>srvEmpresas</Form>
-    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+			<DesignClass>TDARemoteService</DesignClass>
-      <Form>srvEmpresas</Form>
+		</DCCReference>
-      <DesignClass>TDARemoteService</DesignClass>
+		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-    </DCCReference>
+			<Form>srvProvinciasPoblaciones</Form>
-    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
+			<DesignClass>TRORemoteDataModule</DesignClass>
-      <Form>srvProvinciasPoblaciones</Form>
+		</DCCReference>
-      <DesignClass>TRORemoteDataModule</DesignClass>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
+		<DCCReference Include="..\Base\schBase_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Base\schBase_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.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\Reports\uRptAlbaranesCliente_Server.pas" />
+			<Form>srvAlbaranesCliente</Form>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvAlbaranesCliente</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
+			<Form>srvAlbaranesProveedor</Form>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvAlbaranesProveedor</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
+			<Form>srvAlmacenes</Form>
-    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+			<DesignClass>TDARemoteService</DesignClass>
-      <Form>srvAlmacenes</Form>
+		</DCCReference>
-      <DesignClass>TDARemoteService</DesignClass>
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
-    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
-    <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
+			<Form>RptComisiones</Form>
-    <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
+			<DesignClass>TDataModule</DesignClass>
-      <Form>RptComisiones</Form>
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
-    </DCCReference>
+			<Form>srvComisiones</Form>
-    <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvComisiones</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
-    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
-    <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
+			<Form>srvContabilidad</Form>
-    <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvContabilidad</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
+			<Form>RptEtiquetasContacto</Form>
-    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+			<DesignClass>TDataModule</DesignClass>
-      <Form>RptEtiquetasContacto</Form>
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-    </DCCReference>
+			<Form>srvContactos</Form>
-    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+			<DesignClass>TDARemoteService</DesignClass>
-      <Form>srvContactos</Form>
+		</DCCReference>
-      <DesignClass>TDARemoteService</DesignClass>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
+			<Form>RptFacturasCliente</Form>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+			<DesignClass>TDataModule</DesignClass>
-      <Form>RptFacturasCliente</Form>
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-    </DCCReference>
+			<Form>srvFacturasCliente</Form>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvFacturasCliente</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
+			<Form>srvFacturasProveedor</Form>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvFacturasProveedor</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
+			<Form>srvHistoricoMovimientos</Form>
-    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvHistoricoMovimientos</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
+			<Form>srvInventario</Form>
-    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvInventario</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
+			<Form>srvPedidosProveedor</Form>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvPedidosProveedor</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
+			<Form>RptPresupuestosCliente</Form>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+		</DCCReference>
-      <Form>RptPresupuestosCliente</Form>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-    </DCCReference>
+			<Form>srvPresupuestosCliente</Form>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvPresupuestosCliente</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
+			<Form>RptRecibosCliente</Form>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+			<DesignClass>TDataModule</DesignClass>
-      <Form>RptRecibosCliente</Form>
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-    </DCCReference>
+			<Form>srvRecibosCliente</Form>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvRecibosCliente</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
+			<Form>srvRecibosProveedor</Form>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvRecibosProveedor</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
+			<Form>srvReferencias</Form>
-    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvReferencias</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
+			<Form>srvRemesasCliente</Form>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvRemesasCliente</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
+			<Form>srvRemesasProveedor</Form>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvRemesasProveedor</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
+			<Form>srvUnidadesMedida</Form>
-    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvUnidadesMedida</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
-    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
+			<Form>srvConfiguracion</Form>
-    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvConfiguracion</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="Configuracion\uConexionBD.pas">
-    </DCCReference>
+			<Form>frConexionBD</Form>
-    <DCCReference Include="Configuracion\uConexionBD.pas">
+			<DesignClass>TFrame</DesignClass>
-      <Form>frConexionBD</Form>
+		</DCCReference>
-      <DesignClass>TFrame</DesignClass>
+		<DCCReference Include="Configuracion\uConfGeneral.pas">
-    </DCCReference>
+			<Form>frConfGeneral</Form>
-    <DCCReference Include="Configuracion\uConfGeneral.pas">
+			<DesignClass>TFrame</DesignClass>
-      <Form>frConfGeneral</Form>
+		</DCCReference>
-      <DesignClass>TFrame</DesignClass>
+		<DCCReference Include="Configuracion\uConfiguracion.pas">
-    </DCCReference>
+			<Form>fConfiguracion</Form>
-    <DCCReference Include="Configuracion\uConfiguracion.pas">
+			<DesignClass>TForm</DesignClass>
-      <Form>fConfiguracion</Form>
+		</DCCReference>
-      <DesignClass>TForm</DesignClass>
+		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-    </DCCReference>
+			<Form>FrameConfiguracion</Form>
-    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+			<DesignClass>TFrame</DesignClass>
-      <Form>FrameConfiguracion</Form>
+		</DCCReference>
-      <DesignClass>TFrame</DesignClass>
+		<DCCReference Include="srvLogin_Impl.pas">
-    </DCCReference>
+			<Form>srvLogin</Form>
-    <DCCReference Include="srvLogin_Impl.pas">
+			<DesignClass>TDARemoteService</DesignClass>
-      <Form>srvLogin</Form>
+		</DCCReference>
-      <DesignClass>TDARemoteService</DesignClass>
+		<DCCReference Include="uAcercaDe.pas">
-    </DCCReference>
+			<Form>fAcercaDe</Form>
-    <DCCReference Include="uAcercaDe.pas">
+		</DCCReference>
-      <Form>fAcercaDe</Form>
+		<DCCReference Include="uDataModuleServer.pas">
-    </DCCReference>
+			<Form>dmServer</Form>
-    <DCCReference Include="uDataModuleServer.pas">
+			<DesignClass>TDataModule</DesignClass>
-      <Form>dmServer</Form>
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="uServerMainForm.pas">
-    </DCCReference>
+			<Form>fServerForm</Form>
-    <DCCReference Include="uServerMainForm.pas">
+		</DCCReference>
-      <Form>fServerForm</Form>
+		<DCCReference Include="Utiles\RegExpr.pas"/>
-    </DCCReference>
+		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
-    <DCCReference Include="Utiles\RegExpr.pas" />
+		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
-    <DCCReference Include="Utiles\uBusinessUtils.pas" />
+		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
-    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
+		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
-    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
+		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
-    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
+		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
-    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
+		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
-    <DCCReference Include="Utiles\uServerAppUtils.pas" />
+	</ItemGroup>
-    <DCCReference Include="Utiles\uSesionesUtils.pas" />
-  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.2.3.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
               VALUE "ProductVersion", "2.2.3.0\0"
-              VALUE "CompileDate", "jueves, 03 de julio de 2008 13:07\0"
+              VALUE "CompileDate", "lunes, 14 de julio de 2008 15:59\0"
          END
     END
     BLOCK "VarFileInfo"