Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@274 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-14 14:35:47 +00:00
parent f932ed73ba
commit 99891c432f
57 changed files with 395 additions and 391 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/ApplicationBase/ApplicationBase.res
View File

Binary file not shown.

4
Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas
View File

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

4
Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas
View File

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

7
Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
View File

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

6
Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas
View File

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

BIN
Source/Base/Base.res
View File

Binary file not shown.

6
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -4,12 +4,12 @@ interface
uses
SysUtils, uDADataTable, uEditorDBItem,
SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModuleAlbaranesCliente, uClientesController,
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;

4
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

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

6
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -4,14 +4,14 @@ interface
uses
SysUtils, uDADataTable, uEditorDBItem,
SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModuleAlbaranesProveedor, uProveedoresController,
uDetallesAlbaranProveedorController, uBizAlbaranesProveedor,
uBizDireccionesContacto;
//, 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;

4
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas
View File

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

4
Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
View File

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

4
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

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

6
Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas
View File

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

4
Source/Modulos/Comisiones/Controller/uComisionesController.pas
View File

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

4
Source/Modulos/Comisiones/Controller/uComisionesReportController.pas
View File

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

4
Source/Modulos/Contabilidad/Controller/uApuntesController.pas
View File

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

4
Source/Modulos/Contabilidad/Controller/uAsientosController.pas
View File

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

6
Source/Modulos/Contabilidad/Controller/uBalancesController.pas
View File

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

4
Source/Modulos/Contabilidad/Controller/uCuentasController.pas
View File

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

6
Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas
View File

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

4
Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas
View File

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

4
Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
View File

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

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.res
View File

Binary file not shown.

7
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

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

7
Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
View File

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

8
Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
View File

@ -3,17 +3,17 @@ unit uEtiquetasContactosReportController;
interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleEtiquetasContactosReport,
uVendedoresController;
Classes, SysUtils, uDADataTable, uIDataModuleEtiquetasContactosReport,
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;

8
Source/Modulos/Contactos/Controller/uGruposClienteController.pas
View File

@ -4,11 +4,11 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
uIDataModuleClientes, uBizGruposCliente;
Classes, SysUtils, uDADataTable, uEditorDBItem,
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;

8
Source/Modulos/Contactos/Controller/uGruposProveedorController.pas
View File

@ -4,11 +4,11 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
uIDataModuleProveedores, uBizGruposProveedor;
Classes, SysUtils, uDADataTable, uEditorDBItem,
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;

8
Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas
View File

@ -4,11 +4,11 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
uIDataModuleClientes, uBizProcedenciasCliente;
Classes, SysUtils, uDADataTable, uEditorDBItem,
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;

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

Binary file not shown.

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

Binary file not shown.

4
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

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

4
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
View File

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

4
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas
View File

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

8
Source/Modulos/Familias/Controller/uFamiliasController.pas
View File

@ -4,11 +4,11 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
uIDataModuleFamilias, uBizFamilias;
Classes, SysUtils, uDADataTable, uEditorDBItem,
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;

7
Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas
View File

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

8
Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas
View File

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

6
Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas
View File

@ -4,11 +4,11 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
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;

4
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

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

4
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

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

4
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas
View File

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

6
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -4,13 +4,13 @@ interface
uses
SysUtils, uDADataTable, uEditorDBItem,
SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModulePresupuestosCliente, uClientesController,
uDetallesPresupuestoClienteController, uBizPresupuestosCliente, uBizDireccionesContacto,
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;

8
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
View File

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

4
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

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

8
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas
View File

@ -3,17 +3,17 @@ unit uRecibosClienteReportController;
interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRecibosClienteReport,
uBizRecibosCliente;
Classes, SysUtils, uDADataTable, uIDataModuleRecibosClienteReport,
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;

6
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -26,12 +26,12 @@ unit uRecibosProveedorController;
interface
uses
Classes, SysUtils, uDADataTable, uControllerBase,
Classes, SysUtils, uDADataTable, uControllerBase,
uPagosProveedorController, uProveedoresController, uBizDireccionesContacto,
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;

4
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas
View File

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

4
Source/Modulos/Referencias/Controller/uReferenciasController.pas
View File

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

4
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
View File

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

4
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas
View File

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

4
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas
View File

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

4
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas
View File

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

4
Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas
View File

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

4
Source/Modulos/Tipos de venta/Controller/uTiposVentaController.pas
View File

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

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

526
Source/Servidor/FactuGES_Server.dproj
View File

@ -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>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_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\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<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\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.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\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_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\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<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\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.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\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

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