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

2007-12-03 11:13:39 +00:00 · 2007-12-03 11:13:39 +00:00 · 180d49281e
commit 180d49281e
parent e297060736
9 changed files with 1028 additions and 216 deletions
--- a/Source/Modulos/Contabilidad/Controller/uAsientosController.pas
+++ b/Source/Modulos/Contabilidad/Controller/uAsientosController.pas
@ -0,0 +1,297 @@
+unit uAsientosController;
+
+interface
+
+
+uses
+  Classes, SysUtils, uDADataTable, uControllerBase,
+   uBizAsientos, uIDataModuleContabilidad;
+type
+  IAsientosController = interface(IObservador)
+  ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
+    function BuscarTodos: IBizAsiento;
+    function Buscar(ID: Integer): IBizAsiento;
+    procedure VerTodos(AAsientos: IBizAsiento);
+    procedure Ver(AAsiento: IBizAsiento);
+    procedure Anadir(AAsiento : IBizAsiento);
+    function Eliminar(AAsiento : IBizAsiento): Boolean; 
+    function Guardar(AAsiento : IBizAsiento): Boolean;
+    procedure DescartarCambios(AAsiento : IBizAsiento);
+    function Localizar(AAsientos: IBizAsiento; ADescripcion:String): Boolean;
+    function DarListaAsientos: TStringList;
+  end;
+
+  TAsientosController = class(TObservador, IAsientosController)
+  protected
+    FDataModule : IDataModuleContabilidad;
+
+    procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
+    function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
+
+    function ValidarAsiento(AAsiento: IBizAsiento): Boolean;
+    procedure AsignarDataModule;
+    procedure FiltrarAsiento(AAsiento: IBizAsiento);
+
+  public
+    constructor Create; override;
+    destructor Destroy; override;
+
+    function Eliminar(AAsiento : IBizAsiento): Boolean;
+    function Guardar(AAsiento : IBizAsiento): Boolean; virtual;
+    procedure DescartarCambios(AAsiento : IBizAsiento); virtual;
+    procedure Anadir(AAsiento : IBizAsiento);
+    function BuscarTodos: IBizAsiento;
+    function Buscar(ID: Integer): IBizAsiento;
+    procedure VerTodos(AAsientos: IBizAsiento);
+    procedure Ver(AAsiento: IBizAsiento);
+    function Localizar(AAsientos: IBizAsiento; ADescripcion:String): Boolean;
+    function DarListaAsientos: TStringList;
+  end;
+
+implementation
+
+uses
+  cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
+  uIEditorAsientos, uIEditorAsiento, uDataModuleContabilidad,
+  uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
+  uDateUtils, uROTypes, DateUtils, Controls, Windows;
+
+{ TAsientosController }
+
+procedure TAsientosController.Anadir(AAsiento: IBizAsiento);
+begin
+  AAsiento.Insert;
+end;
+
+procedure TAsientosController.AsignarDataModule;
+begin
+  FDataModule := TDataModuleContabilidad.Create(Nil);
+end;
+
+function TAsientosController.Buscar(ID: Integer): IBizAsiento;
+var
+  Condicion: TDAWhereExpression;
+begin
+  ShowHourglassCursor;
+  try
+    Result := BuscarTodos;
+
+    with Result.DataTable.DynamicWhere do
+    begin
+      // (ID = :ID)
+      Condicion := NewBinaryExpression(NewField('', fld_AsientosID), NewConstant(ID, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+function TAsientosController.BuscarTodos: IBizAsiento;
+begin
+  Result := FDataModule.GetAsientoItems;
+  FiltrarAsiento(Result);
+end;
+
+constructor TAsientosController.Create;
+begin
+  inherited;
+  AsignarDataModule;
+end;
+
+function TAsientosController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
+begin
+  Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
+end;
+
+function TAsientosController.DarListaAsientos: TStringList;
+var
+  AAsientos: IBizAsiento;
+begin
+  AAsientos := BuscarTodos;
+  AAsientos.DataTable.Active := True;
+  Result := TStringList.Create;
+  try
+    with Result do
+    begin
+      AAsientos.DataTable.First;
+      while not AAsientos.DataTable.EOF do
+      begin
+        Add(AAsientos.CONCEPTO);
+        AAsientos.DataTable.Next;
+      end;
+    end;
+  finally
+    AAsientos := NIL;
+  end;
+end;
+
+procedure TAsientosController.DescartarCambios(AAsiento: IBizAsiento);
+begin
+  if not Assigned(AAsiento) then
+    raise Exception.Create ('Asiento no asignado');
+
+  ShowHourglassCursor;
+  try
+    if (AAsiento.State in dsEditModes) then
+      AAsiento.Cancel;
+
+    AAsiento.DataTable.CancelUpdates;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+destructor TAsientosController.Destroy;
+begin
+  FDataModule:= NIL;
+  inherited;
+end;
+
+function TAsientosController.ValidarAsiento(AAsiento: IBizAsiento): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(AAsiento) then
+    raise Exception.Create ('Asiento no asignado');
+
+  if (AAsiento.DataTable.State in dsEditModes) then
+    AAsiento.DataTable.Post;
+
+  if Length(AAsiento.CONCEPTO) = 0 then
+    raise Exception.Create('Debe indicar un concepto para este Asiento.');
+
+  Result := True;
+end;
+
+procedure TAsientosController.Ver(AAsiento: IBizAsiento);
+var
+  AEditor : IEditorAsiento;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+    CreateEditor('EditorAsiento', IEditorAsiento, AEditor);
+    if Assigned(AEditor) then
+       with AEditor do
+       begin
+         Controller := Self; //OJO ORDEN MUY IMPORTANTE
+         Asiento := AAsiento;
+         ShowModal;
+         Release;
+       end;
+  finally
+    AEditor := NIL;
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TAsientosController.VerTodos(AAsientos: IBizAsiento);
+var
+  AEditor : IEditorAsientos;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+    CreateEditor('EditorAsientos', IEditorAsientos, AEditor);
+    if Assigned(AEditor) then
+       with AEditor do
+       begin
+         Controller := Self; //OJO ORDEN MUY IMPORTANTE
+         Asientos := AAsientos;
+         ShowEmbedded;
+       end;
+  finally
+    AEditor := NIL;
+    HideHourglassCursor;
+  end;
+end;
+
+function TAsientosController.Eliminar(AAsiento: IBizAsiento): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(AAsiento) then
+    raise Exception.Create ('Asiento no asignado');
+
+  ShowHourglassCursor;
+  try
+    if (AAsiento.State in dsEditModes) then
+      AAsiento.Cancel;
+
+    AAsiento.Delete;
+    AAsiento.DataTable.ApplyUpdates;
+    HideHourglassCursor;
+    Result := True;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TAsientosController.FiltrarAsiento(AAsiento: IBizAsiento);
+var
+  Condicion: TDAWhereExpression;
+begin
+  if AAsiento.DataTable.Active then
+    AAsiento.DataTable.Active := False;
+
+  // Filtrar los Asientos actuales por Asiento activo
+{  with AAsiento.DataTable.DynamicWhere do
+  begin
+    // (ID_Asiento = ID)
+    Condicion := NewBinaryExpression(NewField('', fld_AsientosID_Asiento), NewConstant(AppFactuGES.AsientoActivo.ID, datInteger), dboEqual);
+
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+  end;
+}  
+end;
+
+procedure TAsientosController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
+begin
+  inherited;
+//
+end;
+
+function TAsientosController.Guardar(AAsiento: IBizAsiento): Boolean;
+begin
+  Result := False;
+
+  if ValidarAsiento(AAsiento) then
+  begin
+    ShowHourglassCursor;
+    try
+      AAsiento.DataTable.ApplyUpdates;
+      Result := True;
+    finally
+      HideHourglassCursor;
+    end;
+  end;
+end;
+
+function TAsientosController.Localizar(AAsientos: IBizAsiento; ADescripcion: String): Boolean;
+begin
+  Result := True;
+  ShowHourglassCursor;
+  try
+    with AAsientos.DataTable do
+    begin
+      DisableControls;
+      First;
+      if not Locate(fld_AsientosCONCEPTO, ADescripcion, []) then
+         Result := False;
+      EnableControls;   
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+end.
--- a/Source/Modulos/Contabilidad/Controller/uCuentasController.pas
+++ b/Source/Modulos/Contabilidad/Controller/uCuentasController.pas
@ -0,0 +1,296 @@
+unit uCuentasController;
+
+interface
+
+
+uses
+  Classes, SysUtils, uDADataTable, uControllerBase,
+   uBizCuentas, uIDataModuleContabilidad;
+type
+  ICuentasController = interface(IObservador)
+  ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
+    function BuscarTodos: IBizCuenta;
+    function Buscar(ID: Integer): IBizCuenta;
+    procedure VerTodos(ACuentas: IBizCuenta);
+    procedure Ver(ACuenta: IBizCuenta);
+    procedure Anadir(ACuenta : IBizCuenta);
+    function Eliminar(ACuenta : IBizCuenta): Boolean; 
+    function Guardar(ACuenta : IBizCuenta): Boolean;
+    procedure DescartarCambios(ACuenta : IBizCuenta);
+    function Localizar(ACuentas: IBizCuenta; ADescripcion:String): Boolean;
+    function DarListaCuentas: TStringList;
+  end;
+
+  TCuentasController = class(TObservador, ICuentasController)
+  protected
+    FDataModule : IDataModuleContabilidad;
+
+    procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
+    function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
+
+    function ValidarCuenta(ACuenta: IBizCuenta): Boolean;
+    procedure AsignarDataModule;
+    procedure FiltrarEjercicio(ACuenta: IBizCuenta);
+
+  public
+    constructor Create; override;
+    destructor Destroy; override;
+
+    function Eliminar(ACuenta : IBizCuenta): Boolean;
+    function Guardar(ACuenta : IBizCuenta): Boolean; virtual;
+    procedure DescartarCambios(ACuenta : IBizCuenta); virtual;
+    procedure Anadir(ACuenta : IBizCuenta);
+    function BuscarTodos: IBizCuenta;
+    function Buscar(ID: Integer): IBizCuenta;
+    procedure VerTodos(ACuentas: IBizCuenta);
+    procedure Ver(ACuenta: IBizCuenta);
+    function Localizar(ACuentas: IBizCuenta; ADescripcion:String): Boolean;
+    function DarListaCuentas: TStringList;
+  end;
+
+implementation
+
+uses
+  cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
+  uIEditorCuentas, uIEditorCuenta, uDataModuleContabilidad,
+  uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
+  uDateUtils, uROTypes, DateUtils, Controls, Windows;
+
+{ TCuentasController }
+
+procedure TCuentasController.Anadir(ACuenta: IBizCuenta);
+begin
+  ACuenta.Insert;
+end;
+
+procedure TCuentasController.AsignarDataModule;
+begin
+  FDataModule := TDataModuleContabilidad.Create(Nil);
+end;
+
+function TCuentasController.Buscar(ID: Integer): IBizCuenta;
+var
+  Condicion: TDAWhereExpression;
+begin
+  ShowHourglassCursor;
+  try
+    Result := BuscarTodos;
+
+    with Result.DataTable.DynamicWhere do
+    begin
+      // (ID = :ID)
+      Condicion := NewBinaryExpression(NewField('', fld_CuentasID), NewConstant(ID, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+function TCuentasController.BuscarTodos: IBizCuenta;
+begin
+  Result := FDataModule.GetCuentaItems;
+  FiltrarEjercicio(Result);
+end;
+
+constructor TCuentasController.Create;
+begin
+  inherited;
+  AsignarDataModule;
+end;
+
+function TCuentasController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
+begin
+  Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
+end;
+
+function TCuentasController.DarListaCuentas: TStringList;
+var
+  ACuentas: IBizCuenta;
+begin
+  ACuentas := BuscarTodos;
+  ACuentas.DataTable.Active := True;
+  Result := TStringList.Create;
+  try
+    with Result do
+    begin
+      ACuentas.DataTable.First;
+      while not ACuentas.DataTable.EOF do
+      begin
+        Add(ACuentas.DESCRIPCION);
+        ACuentas.DataTable.Next;
+      end;
+    end;
+  finally
+    ACuentas := NIL;
+  end;
+end;
+
+procedure TCuentasController.DescartarCambios(ACuenta: IBizCuenta);
+begin
+  if not Assigned(ACuenta) then
+    raise Exception.Create ('Cuenta no asignado');
+
+  ShowHourglassCursor;
+  try
+    if (ACuenta.State in dsEditModes) then
+      ACuenta.Cancel;
+
+    ACuenta.DataTable.CancelUpdates;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+destructor TCuentasController.Destroy;
+begin
+  FDataModule:= NIL;
+  inherited;
+end;
+
+function TCuentasController.ValidarCuenta(ACuenta: IBizCuenta): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(ACuenta) then
+    raise Exception.Create ('Cuenta no asignado');
+
+  if (ACuenta.DataTable.State in dsEditModes) then
+    ACuenta.DataTable.Post;
+
+  if Length(ACuenta.DESCRIPCION) = 0 then
+    raise Exception.Create('Debe indicar un nombre para este Cuenta.');
+
+  Result := True;
+end;
+
+procedure TCuentasController.Ver(ACuenta: IBizCuenta);
+var
+  AEditor : IEditorCuenta;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+    CreateEditor('EditorCuenta', IEditorCuenta, AEditor);
+    if Assigned(AEditor) then
+       with AEditor do
+       begin
+         Controller := Self; //OJO ORDEN MUY IMPORTANTE
+         Cuenta := ACuenta;
+         ShowModal;
+         Release;
+       end;
+  finally
+    AEditor := NIL;
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TCuentasController.VerTodos(ACuentas: IBizCuenta);
+var
+  AEditor : IEditorCuentas;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+    CreateEditor('EditorCuentas', IEditorCuentas, AEditor);
+    if Assigned(AEditor) then
+       with AEditor do
+       begin
+         Controller := Self; //OJO ORDEN MUY IMPORTANTE
+         Cuentas := ACuentas;
+         ShowEmbedded;
+       end;
+  finally
+    AEditor := NIL;
+    HideHourglassCursor;
+  end;
+end;
+
+function TCuentasController.Eliminar(ACuenta: IBizCuenta): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(ACuenta) then
+    raise Exception.Create ('Cuenta no asignado');
+
+  ShowHourglassCursor;
+  try
+    if (ACuenta.State in dsEditModes) then
+      ACuenta.Cancel;
+
+    ACuenta.Delete;
+    ACuenta.DataTable.ApplyUpdates;
+    HideHourglassCursor;
+    Result := True;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TCuentasController.FiltrarEjercicio(ACuenta: IBizCuenta);
+var
+  Condicion: TDAWhereExpression;
+begin
+  if ACuenta.DataTable.Active then
+    ACuenta.DataTable.Active := False;
+
+  // Filtrar los Cuentas actuales por ejercicio activo
+  with ACuenta.DataTable.DynamicWhere do
+  begin
+    // (ID_EJERCICIO = ID)
+    Condicion := NewBinaryExpression(NewField('', fld_CuentasID_EJERCICIO), NewConstant(AppFactuGES.EjercicioActivo.ID, datInteger), dboEqual);
+
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+  end;
+end;
+
+procedure TCuentasController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
+begin
+  inherited;
+//
+end;
+
+function TCuentasController.Guardar(ACuenta: IBizCuenta): Boolean;
+begin
+  Result := False;
+
+  if ValidarCuenta(ACuenta) then
+  begin
+    ShowHourglassCursor;
+    try
+      ACuenta.DataTable.ApplyUpdates;
+      Result := True;
+    finally
+      HideHourglassCursor;
+    end;
+  end;
+end;
+
+function TCuentasController.Localizar(ACuentas: IBizCuenta; ADescripcion: String): Boolean;
+begin
+  Result := True;
+  ShowHourglassCursor;
+  try
+    with ACuentas.DataTable do
+    begin
+      DisableControls;
+      First;
+      if not Locate(fld_CuentasDESCRIPCION, ADescripcion, []) then
+         Result := False;
+      EnableControls;   
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+end.
--- a/Source/Modulos/Contabilidad/Model/Copia
+++ b/Source/Modulos/Contabilidad/Model/Copia
@ -0,0 +1,54 @@
+unit uBizEpigrafes;
+
+interface
+
+uses
+  uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
+
+const
+  BIZ_CLIENT_Epigrafe = 'Client.Epigrafe';
+
+type
+  IBizEpigrafe = interface(IEpigrafes)
+    ['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}']
+    function EsNuevo : Boolean;
+  end;
+
+  TBizEpigrafe = class(TEpigrafesDataTableRules, IBizEpigrafe)
+  protected
+    procedure OnNewRecord(Sender: TDADataTable); override;
+  public
+    procedure IniciarValoresEpigrafeNueva;
+    function EsNuevo : Boolean;
+  end;
+
+implementation
+
+{ TBizEpigrafe }
+
+uses
+  SysUtils, uDataTableUtils, uFactuGES_App;
+
+function TBizEpigrafe.EsNuevo: Boolean;
+begin
+  Result := (ID < 0);
+end;
+
+procedure TBizEpigrafe.IniciarValoresEpigrafeNueva;
+begin
+  ID_EJERCICIO := 5//AppFactuGES.EmpresaActiva.EjercicioActivo.ID;
+end;
+
+procedure TBizEpigrafe.OnNewRecord(Sender: TDADataTable);
+begin
+  inherited;
+  IniciarValoresEpigrafeNueva;
+end;
+
+initialization
+  RegisterDataTableRules(BIZ_CLIENT_Epigrafe, TBizEpigrafe);
+
+finalization
+
+end.
+
--- a/Source/Modulos/Contabilidad/Model/uBizAsientos.pas
+++ b/Source/Modulos/Contabilidad/Model/uBizAsientos.pas
@ -0,0 +1,54 @@
+unit uBizAsientos;
+
+interface
+
+uses
+  uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
+
+const
+  BIZ_CLIENT_Asiento = 'Client.Asiento';
+
+type
+  IBizAsiento = interface(IAsientos)
+    ['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}']
+    function EsNuevo : Boolean;
+  end;
+
+  TBizAsiento = class(TAsientosDataTableRules, IBizAsiento)
+  protected
+    procedure OnNewRecord(Sender: TDADataTable); override;
+  public
+    procedure IniciarValoresAsientoNueva;
+    function EsNuevo : Boolean;
+  end;
+
+implementation
+
+{ TBizAsiento }
+
+uses
+  SysUtils, uDataTableUtils, uFactuGES_App;
+
+function TBizAsiento.EsNuevo: Boolean;
+begin
+  Result := (ID < 0);
+end;
+
+procedure TBizAsiento.IniciarValoresAsientoNueva;
+begin
+//  ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
+end;
+
+procedure TBizAsiento.OnNewRecord(Sender: TDADataTable);
+begin
+  inherited;
+  IniciarValoresAsientoNueva;
+end;
+
+initialization
+  RegisterDataTableRules(BIZ_CLIENT_Asiento, TBizAsiento);
+
+finalization
+
+end.
+
--- a/Source/Modulos/Contabilidad/Model/uBizCuentas.pas
+++ b/Source/Modulos/Contabilidad/Model/uBizCuentas.pas
@ -0,0 +1,54 @@
+unit uBizCuentas;
+
+interface
+
+uses
+  uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
+
+const
+  BIZ_CLIENT_Cuenta = 'Client.Cuenta';
+
+type
+  IBizCuenta = interface(ICuentas)
+    ['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}']
+    function EsNuevo : Boolean;
+  end;
+
+  TBizCuenta = class(TCuentasDataTableRules, IBizCuenta)
+  protected
+    procedure OnNewRecord(Sender: TDADataTable); override;
+  public
+    procedure IniciarValoresCuentaNueva;
+    function EsNuevo : Boolean;
+  end;
+
+implementation
+
+{ TBizCuenta }
+
+uses
+  SysUtils, uDataTableUtils, uFactuGES_App;
+
+function TBizCuenta.EsNuevo: Boolean;
+begin
+  Result := (ID < 0);
+end;
+
+procedure TBizCuenta.IniciarValoresCuentaNueva;
+begin
+  ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
+end;
+
+procedure TBizCuenta.OnNewRecord(Sender: TDADataTable);
+begin
+  inherited;
+  IniciarValoresCuentaNueva;
+end;
+
+initialization
+  RegisterDataTableRules(BIZ_CLIENT_Cuenta, TBizCuenta);
+
+finalization
+
+end.
+
--- a/Source/Modulos/Contabilidad/Model/uBizSubCuentas.pas
+++ b/Source/Modulos/Contabilidad/Model/uBizSubCuentas.pas
@ -0,0 +1,54 @@
+unit uBizSubCuentas;
+
+interface
+
+uses
+  uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
+
+const
+  BIZ_CLIENT_SubCuenta = 'Client.SubCuenta';
+
+type
+  IBizSubCuenta = interface(ISubCuentas)
+    ['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}']
+    function EsNuevo : Boolean;
+  end;
+
+  TBizSubCuenta = class(TSubCuentasDataTableRules, IBizSubCuenta)
+  protected
+    procedure OnNewRecord(Sender: TDADataTable); override;
+  public
+    procedure IniciarValoresSubCuentaNueva;
+    function EsNuevo : Boolean;
+  end;
+
+implementation
+
+{ TBizSubCuenta }
+
+uses
+  SysUtils, uDataTableUtils, uFactuGES_App;
+
+function TBizSubCuenta.EsNuevo: Boolean;
+begin
+  Result := (ID < 0);
+end;
+
+procedure TBizSubCuenta.IniciarValoresSubCuentaNueva;
+begin
+  ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
+end;
+
+procedure TBizSubCuenta.OnNewRecord(Sender: TDADataTable);
+begin
+  inherited;
+  IniciarValoresSubCuentaNueva;
+end;
+
+initialization
+  RegisterDataTableRules(BIZ_CLIENT_SubCuenta, TBizSubCuenta);
+
+finalization
+
+end.
+
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@ -1,219 +1,222 @@
-<?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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</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\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\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\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.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\uBizEmpleadosServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
-		<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\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\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\Servidor\srvRecibosProveedor_Impl.pas">
-			<Form>srvRecibosProveedor</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\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\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="..\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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</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\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\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\Contabilidad\Model\schContabilidadClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.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\uBizEmpleadosServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
+    <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\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\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\Servidor\srvRecibosProveedor_Impl.pas">
+      <Form>srvRecibosProveedor</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\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\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="..\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]
--- a/Source/Servidor/FactuGES_Server.identcache
+++ b/Source/Servidor/FactuGES_Server.identcache
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@ -14,7 +14,7 @@ BEGIN
         BEGIN
              VALUE "FileVersion", "1.0.0.0\0"
              VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "sábado, 01 de diciembre de 2007 15:10\0"
+              VALUE "CompileDate", "domingo, 02 de diciembre de 2007 21:14\0"
         END
    END
    BLOCK "VarFileInfo"