diff --git a/Source/ApplicationBase/ApplicationBase.dpk b/Source/ApplicationBase/ApplicationBase.dpk
index 95398a23..96171746 100644
--- a/Source/ApplicationBase/ApplicationBase.dpk
+++ b/Source/ApplicationBase/ApplicationBase.dpk
@@ -51,7 +51,34 @@ requires
JvSystemD11R,
JvMMD11R,
JvStdCtrlsD11R,
- JvCtrlsD11R;
+ JvCtrlsD11R,
+ RemObjects_Core_D11,
+ DataAbstract_Core_D11,
+ dsnap,
+ adortl,
+ cxGridD10,
+ cxPageControlD10,
+ cxExtEditorsD10,
+ cxExportD10,
+ dxLayoutControlD10,
+ dxComnD10,
+ dxPSCoreD10,
+ dxPScxCommonD10,
+ dxPSLnksD10,
+ designide,
+ xmlrtl,
+ vclshlctrls,
+ dxPScxGridLnkD10,
+ dclcxLibraryD10,
+ tb2k_d10,
+ tbx_d10,
+ JvAppFrmD11R,
+ JvPageCompsD11R,
+ cxIntlPrintSys3D10,
+ GUISDK_D11,
+ cfpack_d11,
+ ccpackD11,
+ JSDialog100;
contains
uFactuGES_App in 'uFactuGES_App.pas',
@@ -80,6 +107,19 @@ contains
schUsuariosClient_Intf in 'Usuarios\Model\schUsuariosClient_Intf.pas',
uIEditorLogin in 'Usuarios\Controller\View\uIEditorLogin.pas',
uEditorLogin in 'Usuarios\Views\uEditorLogin.pas',
- uUsuariosViewRegister in 'Usuarios\Views\uUsuariosViewRegister.pas';
+ uUsuariosViewRegister in 'Usuarios\Views\uUsuariosViewRegister.pas',
+ uIDataModuleEjercicios in 'Ejercicios\Model\Data\uIDataModuleEjercicios.pas',
+ schEjerciciosClient_Intf in 'Ejercicios\Model\schEjerciciosClient_Intf.pas',
+ schEjerciciosServer_Intf in 'Ejercicios\Model\schEjerciciosServer_Intf.pas',
+ uBizEjercicios in 'Ejercicios\Model\uBizEjercicios.pas',
+ uDataModuleEjercicios in 'Ejercicios\Data\uDataModuleEjercicios.pas' {DataModuleEjercicios},
+ uEjerciciosController in 'Ejercicios\Controller\uEjerciciosController.pas',
+ uIEditorEjercicios in 'Ejercicios\Controller\View\uIEditorEjercicios.pas',
+ uIEditorEjercicio in 'Ejercicios\Controller\View\uIEditorEjercicio.pas',
+ uViewEjercicios in 'Ejercicios\Views\uViewEjercicios.pas',
+ uEditorEjercicio in 'Ejercicios\Views\uEditorEjercicio.pas',
+ uEditorEjercicios in 'Ejercicios\Views\uEditorEjercicios.pas',
+ uEjerciciosViewRegister in 'Ejercicios\Views\uEjerciciosViewRegister.pas',
+ uViewEjercicio in 'Ejercicios\Views\uViewEjercicio.pas';
end.
diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj
index 1c0c04eb..04830631 100644
--- a/Source/ApplicationBase/ApplicationBase.dproj
+++ b/Source/ApplicationBase/ApplicationBase.dproj
@@ -46,6 +46,13 @@
Package
FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -60,32 +67,74 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/ApplicationBase/ApplicationBase.identcache b/Source/ApplicationBase/ApplicationBase.identcache
index 2d8260ef..f74ffcb6 100644
Binary files a/Source/ApplicationBase/ApplicationBase.identcache and b/Source/ApplicationBase/ApplicationBase.identcache differ
diff --git a/Source/ApplicationBase/ApplicationBase.res b/Source/ApplicationBase/ApplicationBase.res
index 1641339f..8b251f31 100644
Binary files a/Source/ApplicationBase/ApplicationBase.res and b/Source/ApplicationBase/ApplicationBase.res differ
diff --git a/Source/ApplicationBase/Ejercicios/Model/schEjerciciosClient_Intf.pas b/Source/ApplicationBase/Ejercicios/Model/schEjerciciosClient_Intf.pas
index 083293a0..7d0f4e26 100644
--- a/Source/ApplicationBase/Ejercicios/Model/schEjerciciosClient_Intf.pas
+++ b/Source/ApplicationBase/Ejercicios/Model/schEjerciciosClient_Intf.pas
@@ -3,7 +3,7 @@ unit schEjerciciosClient_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@@ -117,7 +117,7 @@ type
end;
{ TEjerciciosDataTableRules }
- TEjerciciosDataTableRules = class(TDADataTableRules, IEjercicios)
+ TEjerciciosDataTableRules = class(TIntfObjectDADataTableRules, IEjercicios)
private
protected
{ Property getters and setters }
diff --git a/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.rc b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.rc
index 153736af..e69de29b 100644
--- a/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.rc
+++ b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.rc
@@ -1,22 +0,0 @@
-1 VERSIONINFO
-FILEVERSION 1,0,0,0
-PRODUCTVERSION 1,0,0,0
-FILEFLAGSMASK 0x3FL
-FILEFLAGS 0x00L
-FILEOS 0x40004L
-FILETYPE 0x1L
-FILESUBTYPE 0x0L
-BEGIN
- BLOCK "StringFileInfo"
- BEGIN
- BLOCK "0C0A04E4"
- BEGIN
- VALUE "FileVersion", "1.0.0.0\0"
- VALUE "ProductVersion", "1.0.0.0\0"
- END
- END
- BLOCK "VarFileInfo"
- BEGIN
- VALUE "Translation", 0x0C0A, 1252
- END
-END
diff --git a/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.res b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.res
index 02236de8..36f26e23 100644
Binary files a/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.res and b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.res differ
diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas
index 73585024..5ca2ae00 100644
--- a/Source/ApplicationBase/uFactuGES_App.pas
+++ b/Source/ApplicationBase/uFactuGES_App.pas
@@ -29,7 +29,7 @@ type
function GetAppVersion: String;
function GetUsuarioActivo: TUsuario;
function GetEmpresaActiva: IBizEmpresa;
- function GetEjercicioActivo: IBizEjercicio;
+// function GetEjercicioActivo: IBizEjercicio;
function GetModuleManager : THostManager;
function GetTerminated: Boolean;
@@ -54,7 +54,7 @@ type
property AppName : String read GetAppName;
property MainForm : TCustomForm read GetMainForm;
property EmpresaActiva : IBizEmpresa read GetEmpresaActiva;
- property EjercicioActivo : IBizEjercicio read GetEjercicioActivo;
+// property EjercicioActivo : IBizEjercicio read GetEjercicioActivo;
property UsuarioActivo : TUsuario read GetUsuarioActivo;
property EmpresasController : IEmpresasController read GetEmpresasController;
property UsuariosController : IUsuariosController read GetUsuariosController;
diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas
index 8db9e21b..0f8a600c 100644
--- a/Source/Cliente/uBootStrap.pas
+++ b/Source/Cliente/uBootStrap.pas
@@ -46,10 +46,11 @@ begin
LoadModule('Inventario_plugin.bpl');
LoadModule('HistoricoMovimientos_plugin.bpl');
- LoadModule('Balances_plugin.bpl');
- LoadModule('CuentasEspeciales_plugin.bpl');
+// LoadModule('Balances_plugin.bpl');
+// LoadModule('CuentasEspeciales_plugin.bpl');
LoadModule('Ejercicios_plugin.bpl');
- LoadModule('Epigrafes_plugin.bpl');
+ LoadModule('Contabilidad_plugin.bpl');
+// LoadModule('Epigrafes_plugin.bpl');
end;
end;
diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.res b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.res
index 1641339f..8b251f31 100644
Binary files a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.res and b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.res differ
diff --git a/Source/Modulos/Contabilidad/Data/Contabilidad_data.res b/Source/Modulos/Contabilidad/Data/Contabilidad_data.res
index 1641339f..8b251f31 100644
Binary files a/Source/Modulos/Contabilidad/Data/Contabilidad_data.res and b/Source/Modulos/Contabilidad/Data/Contabilidad_data.res differ
diff --git a/Source/Modulos/Contabilidad/Model/Contabilidad_model.res b/Source/Modulos/Contabilidad/Model/Contabilidad_model.res
index 1641339f..8b251f31 100644
Binary files a/Source/Modulos/Contabilidad/Model/Contabilidad_model.res and b/Source/Modulos/Contabilidad/Model/Contabilidad_model.res differ
diff --git a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas
index 1e7b0ac6..cce81a86 100644
--- a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas
+++ b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas
@@ -3,7 +3,7 @@ unit schContabilidadClient_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@@ -93,7 +93,7 @@ type
end;
{ TCuentasEspecialesDataTableRules }
- TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales)
+ TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales)
private
protected
{ Property getters and setters }
@@ -164,7 +164,7 @@ type
end;
{ TEpigrafesDataTableRules }
- TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes)
+ TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes)
private
protected
{ Property getters and setters }
@@ -271,7 +271,7 @@ type
end;
{ TBalancesDataTableRules }
- TBalancesDataTableRules = class(TDADataTableRules, IBalances)
+ TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances)
private
protected
{ Property getters and setters }
diff --git a/Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.res b/Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.res
index 1641339f..8b251f31 100644
Binary files a/Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.res and b/Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.res differ
diff --git a/Source/Modulos/Contabilidad/Views/Contabilidad_view.res b/Source/Modulos/Contabilidad/Views/Contabilidad_view.res
index 1641339f..8b251f31 100644
Binary files a/Source/Modulos/Contabilidad/Views/Contabilidad_view.res and b/Source/Modulos/Contabilidad/Views/Contabilidad_view.res differ
diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index be3dc306..09ab5e6c 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -331,25 +331,9 @@
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index 68eee011..0cec4bdf 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -46,9 +46,7 @@ const
IsrvAlbaranesCliente_IID : TGUID = '{6E910718-9AB0-47BB-9875-B0DE66A68D7A}';
IsrvAlbaranesProveedor_IID : TGUID = '{66B71884-5CE4-4574-B825-60CDA956B628}';
IsrvEjercicios_IID : TGUID = '{E99052D5-4ED9-480C-B4D4-384E8C6E4B08}';
- IsrvBalances_IID : TGUID = '{5F784976-5E16-4936-ABCA-62308A79F77F}';
- IsrvEpigrafes_IID : TGUID = '{100459D7-4478-4052-BFFA-8C513DA97034}';
- IsrvCuentasEspeciales_IID : TGUID = '{1C00FC9A-041E-4A06-B1AA-4189C887B165}';
+ IsrvContabilidad_IID : TGUID = '{04CDF2E1-EFC2-4247-AA4F-09BE782C73FA}';
{ Event ID's }
@@ -77,9 +75,7 @@ type
IsrvAlbaranesCliente = interface;
IsrvAlbaranesProveedor = interface;
IsrvEjercicios = interface;
- IsrvBalances = interface;
- IsrvEpigrafes = interface;
- IsrvCuentasEspeciales = interface;
+ IsrvContabilidad = interface;
TRdxEmpresasArray = class;
@@ -584,52 +580,18 @@ type
function GenerarPGC(const ID_EJERCICIO_COPIA: Integer; const ID_EJERCICIO: Integer): Boolean;
end;
- { IsrvBalances }
- IsrvBalances = interface(IDataAbstractService)
- ['{5F784976-5E16-4936-ABCA-62308A79F77F}']
+ { IsrvContabilidad }
+ IsrvContabilidad = interface(IDataAbstractService)
+ ['{04CDF2E1-EFC2-4247-AA4F-09BE782C73FA}']
end;
- { CosrvBalances }
- CosrvBalances = class
- class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvBalances;
+ { CosrvContabilidad }
+ CosrvContabilidad = class
+ class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvContabilidad;
end;
- { TsrvBalances_Proxy }
- TsrvBalances_Proxy = class(TDataAbstractService_Proxy, IsrvBalances)
- protected
- function __GetInterfaceName:string; override;
-
- end;
-
- { IsrvEpigrafes }
- IsrvEpigrafes = interface(IDataAbstractService)
- ['{100459D7-4478-4052-BFFA-8C513DA97034}']
- end;
-
- { CosrvEpigrafes }
- CosrvEpigrafes = class
- class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvEpigrafes;
- end;
-
- { TsrvEpigrafes_Proxy }
- TsrvEpigrafes_Proxy = class(TDataAbstractService_Proxy, IsrvEpigrafes)
- protected
- function __GetInterfaceName:string; override;
-
- end;
-
- { IsrvCuentasEspeciales }
- IsrvCuentasEspeciales = interface(IDataAbstractService)
- ['{1C00FC9A-041E-4A06-B1AA-4189C887B165}']
- end;
-
- { CosrvCuentasEspeciales }
- CosrvCuentasEspeciales = class
- class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvCuentasEspeciales;
- end;
-
- { TsrvCuentasEspeciales_Proxy }
- TsrvCuentasEspeciales_Proxy = class(TDataAbstractService_Proxy, IsrvCuentasEspeciales)
+ { TsrvContabilidad_Proxy }
+ TsrvContabilidad_Proxy = class(TDataAbstractService_Proxy, IsrvContabilidad)
protected
function __GetInterfaceName:string; override;
@@ -1516,40 +1478,16 @@ begin
end
end;
-{ CosrvBalances }
+{ CosrvContabilidad }
-class function CosrvBalances.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvBalances;
+class function CosrvContabilidad.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvContabilidad;
begin
- result := TsrvBalances_Proxy.Create(aMessage, aTransportChannel);
+ result := TsrvContabilidad_Proxy.Create(aMessage, aTransportChannel);
end;
-function TsrvBalances_Proxy.__GetInterfaceName:string;
+function TsrvContabilidad_Proxy.__GetInterfaceName:string;
begin
- result := 'srvBalances';
-end;
-
-{ CosrvEpigrafes }
-
-class function CosrvEpigrafes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvEpigrafes;
-begin
- result := TsrvEpigrafes_Proxy.Create(aMessage, aTransportChannel);
-end;
-
-function TsrvEpigrafes_Proxy.__GetInterfaceName:string;
-begin
- result := 'srvEpigrafes';
-end;
-
-{ CosrvCuentasEspeciales }
-
-class function CosrvCuentasEspeciales.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvCuentasEspeciales;
-begin
- result := TsrvCuentasEspeciales_Proxy.Create(aMessage, aTransportChannel);
-end;
-
-function TsrvCuentasEspeciales_Proxy.__GetInterfaceName:string;
-begin
- result := 'srvCuentasEspeciales';
+ result := 'srvContabilidad';
end;
initialization
@@ -1578,9 +1516,7 @@ initialization
RegisterProxyClass(IsrvAlbaranesCliente_IID, TsrvAlbaranesCliente_Proxy);
RegisterProxyClass(IsrvAlbaranesProveedor_IID, TsrvAlbaranesProveedor_Proxy);
RegisterProxyClass(IsrvEjercicios_IID, TsrvEjercicios_Proxy);
- RegisterProxyClass(IsrvBalances_IID, TsrvBalances_Proxy);
- RegisterProxyClass(IsrvEpigrafes_IID, TsrvEpigrafes_Proxy);
- RegisterProxyClass(IsrvCuentasEspeciales_IID, TsrvCuentasEspeciales_Proxy);
+ RegisterProxyClass(IsrvContabilidad_IID, TsrvContabilidad_Proxy);
finalization
@@ -1609,8 +1545,6 @@ finalization
UnregisterProxyClass(IsrvAlbaranesCliente_IID);
UnregisterProxyClass(IsrvAlbaranesProveedor_IID);
UnregisterProxyClass(IsrvEjercicios_IID);
- UnregisterProxyClass(IsrvBalances_IID);
- UnregisterProxyClass(IsrvEpigrafes_IID);
- UnregisterProxyClass(IsrvCuentasEspeciales_IID);
+ UnregisterProxyClass(IsrvContabilidad_IID);
end.
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index b8548ed9..46a94785 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -176,19 +176,7 @@ type
procedure Invoke_GenerarPGC(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
- TsrvBalances_Invoker = class(TDataAbstractService_Invoker)
- private
- protected
- published
- end;
-
- TsrvEpigrafes_Invoker = class(TDataAbstractService_Invoker)
- private
- protected
- published
- end;
-
- TsrvCuentasEspeciales_Invoker = class(TDataAbstractService_Invoker)
+ TsrvContabilidad_Invoker = class(TDataAbstractService_Invoker)
private
protected
published
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index 3d74a9ba..a6eeaa79 100644
Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index e87ffb00..3272641e 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 13375952..c1264575 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -96,19 +96,13 @@ uses
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas',
schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas',
- srvEjercicios_Impl in '..\Modulos\Contabilidad ejercicios\Servidor\srvEjercicios_Impl.pas' {srvEjercicios: TDataAbstractService},
- schBalancesClient_Intf in '..\Modulos\Contabilidad balances\Model\schBalancesClient_Intf.pas',
- schBalancesServer_Intf in '..\Modulos\Contabilidad balances\Model\schBalancesServer_Intf.pas',
- srvBalances_Impl in '..\Modulos\Contabilidad balances\Servidor\srvBalances_Impl.pas' {srvBalances: TDataAbstractService},
- srvEpigrafes_Impl in '..\Modulos\Contabilidad epigrafes\Servidor\srvEpigrafes_Impl.pas' {srvEpigrafes: TDataAbstractService},
- schEpigrafesClient_Intf in '..\Modulos\Contabilidad epigrafes\Model\schEpigrafesClient_Intf.pas',
- schEpigrafesServer_Intf in '..\Modulos\Contabilidad epigrafes\Model\schEpigrafesServer_Intf.pas',
- srvCuentasEspeciales_Impl in '..\Modulos\Contabilidad cuentas especiales\Servidor\srvCuentasEspeciales_Impl.pas' {srvCuentasEspeciales: TDataAbstractService},
- schCuentasEspecialesClient_Intf in '..\Modulos\Contabilidad cuentas especiales\Model\schCuentasEspecialesClient_Intf.pas',
- schCuentasEspecialesServer_Intf in '..\Modulos\Contabilidad cuentas especiales\Model\schCuentasEspecialesServer_Intf.pas',
- uBizEjerciciosServer in '..\Modulos\Contabilidad ejercicios\Model\uBizEjerciciosServer.pas',
- schEjerciciosClient_Intf in '..\Modulos\Contabilidad ejercicios\Model\schEjerciciosClient_Intf.pas',
- schEjerciciosServer_Intf in '..\Modulos\Contabilidad ejercicios\Model\schEjerciciosServer_Intf.pas';
+ srvEjercicios_Impl in '..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas' {srvEjercicios: TDataAbstractService},
+ uBizEjerciciosServer in '..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas',
+ schEjerciciosServer_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas',
+ schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas',
+ srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService},
+ schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
+ schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index ffd23d3f..955d95f1 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,263 +1,219 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
-
-
- Delphi.Personality
-
-
-FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.03.0.0.0lunes, 19 de noviembre de 2007 18:58
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- RemObjects Pascal Script - RemObjects SDK 3.0 Integration
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+ FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.03.0.0.0lunes, 19 de noviembre de 2007 18:58
+ RemObjects Pascal Script - RemObjects SDK 3.0 Integration
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+