Generacion automatica de subcuenta para el pago de recibos y remesas de cliente, falta repaso de facturas de cliente.

Tambien se ha incluido la directiva de compilacion para el modulo de contabilidad git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@164 f4e31baf-9722-1c47-927c-6f952f962d4b
2008-02-29 18:10:08 +00:00 · 2008-02-29 18:10:08 +00:00 · d6e8d1a440
commit d6e8d1a440
parent f29fdb104a
46 changed files with 831 additions and 673 deletions
--- a/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
+++ b/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
@ -77,6 +77,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
  inherited pgPaginas: TPageControl
    Width = 668
    Height = 453
+    ActivePage = pagTiendas
    ExplicitLeft = 3
    ExplicitTop = 79
    ExplicitWidth = 668
@ -243,7 +244,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
        end
      end
    end
-    object TabSheet1: TTabSheet
+    object pagDatosBancarios: TTabSheet
      Caption = 'Datos bancarios'
      ImageIndex = 1
      inline frViewDatosBancarios1: TfrViewDatosBancarios
@ -310,6 +311,11 @@ inherited fEditorEmpresa: TfEditorEmpresa
          Height = 400
          ExplicitWidth = 660
          ExplicitHeight = 400
+          inherited cxGridView: TcxGridDBTableView
+            inherited cxGridViewCODIGO_CONTABLE: TcxGridDBColumn
+              VisibleForCustomization = False
+            end
+          end
        end
        inherited ToolBar1: TToolBar
          Width = 660
--- a/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.pas
+++ b/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.pas
@ -20,7 +20,7 @@ type
    frViewEmpresa1: TfrViewEmpresa;
    dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
    dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
-    TabSheet1: TTabSheet;
+    pagDatosBancarios: TTabSheet;
    frViewDatosBancarios1: TfrViewDatosBancarios;
    pagTiendas: TTabSheet;
    frViewTiendas1: TfrViewTiendas;
@ -54,8 +54,8 @@ type
  end;
  
 implementation
-
 {$R *.dfm}
+{$INCLUDE ..\..\..\FactuGES.inc}

 uses
  uCustomEditor, uDataModuleEmpresas;
@ -142,7 +142,7 @@ begin
    raise Exception.Create('No hay ningún Empresa asignado');

  Empresa.DataTable.Active := True;
-//  FViewEmpresa.ShowEmbedded(pagGeneral);
+  pgPaginas.ActivePage := pagGeneral;
  FViewEmpresa.SetFocus;
 end;

@ -161,6 +161,12 @@ constructor TfEditorEmpresa.Create(AOwner: TComponent);
 begin
  inherited;
  FViewEmpresa := frViewEmpresa1;
+
+  {$IFDEF CONTABILIDAD}
+    pagDatosBancarios.TabVisible := false;
+  {$ELSE}
+    pagDatosBancarios.TabVisible := true;  
+  {$ENDIF}
 end;

 destructor TfEditorEmpresa.Destroy;
--- a/Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.dfm
+++ b/Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.dfm
@ -162,7 +162,6 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
    Caption = '&Aceptar'
    ModalResult = 1
    TabOrder = 0
-    ExplicitLeft = 343
  end
  object CancelBtn: TButton
    Left = 349
@ -174,7 +173,6 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
    Caption = '&Cancelar'
    ModalResult = 2
    TabOrder = 1
-    ExplicitLeft = 343
  end
  object eDireccion: TDBEdit
    Left = 135
--- a/Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.pas
+++ b/Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.pas
@ -60,11 +60,12 @@ type
  end;

 implementation
+{$R *.dfm}
+{$INCLUDE ..\..\..\FactuGES.inc}

 uses
  Variants;

-{$R *.dfm}

 type
  THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
@ -75,6 +76,16 @@ constructor TfEditorTiendaEmpresa.Create(AOwner: TComponent);
 begin
  inherited;
  FController := NIL;
+
+  {$IFDEF CONTABILIDAD}
+    Bevel2.Visible := True;
+    Label10.Visible := True;
+    eCodigoContable.Visible := True;
+  {$ELSE}
+    Bevel2.Visible := False;
+    Label10.Visible := False;
+    eCodigoContable.Visible := False;
+  {$ENDIF}
 end;

 destructor TfEditorTiendaEmpresa.Destroy;
--- a/Source/ApplicationBase/Empresas/Views/uViewTiendas.dfm
+++ b/Source/ApplicationBase/Empresas/Views/uViewTiendas.dfm
@ -1,6 +1,7 @@
 inherited frViewTiendas: TfrViewTiendas
  Width = 583
  Height = 464
+  OnCreate = CustomViewCreate
  ExplicitWidth = 583
  ExplicitHeight = 464
  inherited cxGrid: TcxGrid
--- a/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
+++ b/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
@ -26,6 +26,7 @@ type
    cxGridViewCODIGO_CONTABLE: TcxGridDBColumn;
    procedure cxGridViewDblClick(Sender: TObject);
    procedure actEliminarExecute(Sender: TObject);
+    procedure CustomViewCreate(Sender: TObject);
  protected
    procedure AnadirInterno; override;
    procedure ModificarInterno; override;
@ -34,8 +35,8 @@ type
  end;

 implementation
-
 {$R *.dfm}
+{$INCLUDE ..\..\..\FactuGES.inc}

 uses
  uDialogUtils, uTiendasEmpresaController, uBizEmpresasTiendas;
@ -63,6 +64,19 @@ begin
  end;
 end;

+procedure TfrViewTiendas.CustomViewCreate(Sender: TObject);
+begin
+  inherited;
+
+  {$IFDEF CONTABILIDAD}
+    cxGridViewCODIGO_CONTABLE.VisibleForCustomization := true;
+    cxGridViewCODIGO_CONTABLE.Visible := true;
+  {$ELSE}
+    cxGridViewCODIGO_CONTABLE.VisibleForCustomization := false;
+    cxGridViewCODIGO_CONTABLE.Visible := false;
+  {$ENDIF}
+end;
+
 procedure TfrViewTiendas.cxGridViewDblClick(Sender: TObject);
 begin
  inherited;
--- a/Source/Base/Base.res
+++ b/Source/Base/Base.res
--- a/Source/Cliente/uBootStrap.pas
+++ b/Source/Cliente/uBootStrap.pas
@ -25,14 +25,13 @@ begin
    LoadModule('TiposVenta_plugin.bpl');
    LoadModule('FormasPago_plugin.bpl');
    LoadModule('TiposIVA_plugin.bpl');
-
    LoadModule('Contactos_plugin.bpl');

    {$IFDEF ALMACEN}
-{    LoadModule('Familias_plugin.bpl');
+    LoadModule('Familias_plugin.bpl');
    LoadModule('UnidadesMedida_plugin.bpl');
    LoadModule('Almacenes_plugin.bpl');
-    LoadModule('Articulos_plugin.bpl');}
+    LoadModule('Articulos_plugin.bpl');
    {$ENDIF}

    LoadModule('PresupuestosCliente_plugin.bpl');
@ -42,8 +41,8 @@ begin
    LoadModule('FacturasCliente_plugin.bpl');

    {$IFDEF PEDIDOSPROVEEDOR}
-{    LoadModule('PedidosProveedor_plugin.bpl');
-    LoadModule('AlbaranesProveedor_plugin.bpl');}
+    LoadModule('PedidosProveedor_plugin.bpl');
+    LoadModule('AlbaranesProveedor_plugin.bpl');
    {$ENDIF}

    LoadModule('RecibosProveedor_plugin.bpl');
@ -53,12 +52,14 @@ begin
    LoadModule('RemesasProveedor_plugin.bpl');

    {$IFDEF ALMACEN}
-{    LoadModule('Inventario_plugin.bpl');
-    LoadModule('HistoricoMovimientos_plugin.bpl');}
+    LoadModule('Inventario_plugin.bpl');
+    LoadModule('HistoricoMovimientos_plugin.bpl');
    {$ENDIF}

+    {$IFDEF CONTABILIDAD}
    LoadModule('Ejercicios_plugin.bpl');
    LoadModule('Contabilidad_plugin.bpl');
+    {$ENDIF}
  end;
 end;

--- a/Source/FactuGES.inc
+++ b/Source/FactuGES.inc
@ -1,2 +1,3 @@
 {DEFINE ALMACEN}
-{DEFINE PEDIDOSPROVEEDOR}
+{DEFINE PEDIDOSPROVEEDOR}
+{$DEFINE CONTABILIDAD}
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@ -57,23 +57,23 @@
    <DelphiCompile Include="GUIBase.dpk">
      <MainSource>MainSource</MainSource>
    </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contactos\Base.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxBarExtItemsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxPsPrVwAdvD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Lib\Base.dcp" />
+    <DCCReference Include="..\Modulos\Lib\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Lib\dxBarD11.dcp" />
+    <DCCReference Include="..\Modulos\Lib\dxBarExtItemsD11.dcp" />
+    <DCCReference Include="..\Modulos\Lib\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Lib\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\Modulos\Lib\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\Modulos\Lib\dxPsPrVwAdvD11.dcp" />
+    <DCCReference Include="..\Modulos\Lib\frx11.dcp" />
+    <DCCReference Include="..\Modulos\Lib\frxe11.dcp" />
+    <DCCReference Include="..\Modulos\Lib\fs11.dcp" />
+    <DCCReference Include="..\Modulos\Lib\JvAppFrmD11R.dcp" />
+    <DCCReference Include="..\Modulos\Lib\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Lib\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\Modulos\Lib\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Lib\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Lib\vcldb.dcp" />
    <DCCReference Include="uDialogBase.pas">
      <Form>fDialogBase</Form>
    </DCCReference>
--- a/Source/GUIBase/GUIBase.res
+++ b/Source/GUIBase/GUIBase.res
--- a/Source/GUIBase/uEditorBase.dfm
+++ b/Source/GUIBase/uEditorBase.dfm
@ -2,8 +2,8 @@ object fEditorBase: TfEditorBase
  Left = 222
  Top = 127
  Caption = 'EditorBase'
-  ClientHeight = 458
-  ClientWidth = 795
+  ClientHeight = 456
+  ClientWidth = 793
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
@ -23,7 +23,7 @@ object fEditorBase: TfEditorBase
  object JvNavPanelHeader: TJvNavPanelHeader
    Left = 0
    Top = 49
-    Width = 795
+    Width = 793
    Align = alTop
    Caption = 'Editor'
    Font.Charset = DEFAULT_CHARSET
@ -37,6 +37,7 @@ object fEditorBase: TfEditorBase
    ImageIndex = 0
    StyleManager = dmBase.StyleManager
    ParentStyleManager = False
+    ExplicitWidth = 795
    object Image1: TImage
      Left = 768
      Top = 0
@ -70,8 +71,9 @@ object fEditorBase: TfEditorBase
  object TBXDock: TTBXDock
    Left = 0
    Top = 0
-    Width = 795
+    Width = 793
    Height = 49
+    ExplicitWidth = 795
    object tbxMain: TTBXToolbar
      Left = 0
      Top = 23
@ -244,10 +246,12 @@ object fEditorBase: TfEditorBase
  end
  object StatusBar: TJvStatusBar
    Left = 0
-    Top = 439
-    Width = 795
+    Top = 437
+    Width = 793
    Height = 19
    Panels = <>
+    ExplicitTop = 439
+    ExplicitWidth = 795
  end
  object EditorActionList: TActionList
    Images = SmallImages
--- a/Source/GUIBase/uEditorDBBase.dfm
+++ b/Source/GUIBase/uEditorDBBase.dfm
@ -2,14 +2,14 @@ inherited fEditorDBBase: TfEditorDBBase
  Left = 295
  Top = 247
  Caption = 'fEditorDBBase'
-  ClientHeight = 456
-  ClientWidth = 648
-  ExplicitWidth = 656
-  ExplicitHeight = 490
+  ClientHeight = 454
+  ClientWidth = 646
+  ExplicitWidth = 654
+  ExplicitHeight = 488
  PixelsPerInch = 96
  TextHeight = 13
  inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 648
+    Width = 646
    ExplicitWidth = 648
    inherited Image1: TImage
      Left = 621
@ -17,18 +17,18 @@ inherited fEditorDBBase: TfEditorDBBase
    end
  end
  inherited TBXDock: TTBXDock
-    Width = 648
+    Width = 646
    ExplicitWidth = 648
    inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 648
+      ExplicitWidth = 646
    end
    inherited tbxMenu: TTBXToolbar
-      ExplicitWidth = 648
+      ExplicitWidth = 646
    end
  end
  inherited StatusBar: TJvStatusBar
-    Top = 437
-    Width = 648
+    Top = 435
+    Width = 646
    ExplicitTop = 437
    ExplicitWidth = 648
  end
--- a/Source/GUIBase/uEditorDBItem.dfm
+++ b/Source/GUIBase/uEditorDBItem.dfm
@ -2,14 +2,14 @@ inherited fEditorDBItem: TfEditorDBItem
  Left = 450
  Top = 321
  Caption = 'fEditorDBItem'
-  ClientHeight = 461
-  ClientWidth = 652
-  ExplicitWidth = 660
-  ExplicitHeight = 495
+  ClientHeight = 459
+  ClientWidth = 650
+  ExplicitWidth = 658
+  ExplicitHeight = 493
  PixelsPerInch = 96
  TextHeight = 13
  inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 652
+    Width = 650
    ExplicitWidth = 652
    inherited Image1: TImage
      Left = 625
@ -18,7 +18,7 @@ inherited fEditorDBItem: TfEditorDBItem
    end
  end
  inherited TBXDock: TTBXDock
-    Width = 652
+    Width = 650
    ExplicitWidth = 652
    inherited tbxMain: TTBXToolbar
      ExplicitWidth = 605
@ -30,7 +30,7 @@ inherited fEditorDBItem: TfEditorDBItem
      end
    end
    inherited tbxMenu: TTBXToolbar
-      ExplicitWidth = 652
+      ExplicitWidth = 650
      inherited TBXSubmenuItem1: TTBXSubmenuItem
        Visible = False
      end
@ -40,8 +40,8 @@ inherited fEditorDBItem: TfEditorDBItem
    AlignWithMargins = True
    Left = 3
    Top = 79
-    Width = 646
-    Height = 360
+    Width = 644
+    Height = 358
    ActivePage = pagGeneral
    Align = alClient
    TabOrder = 2
@ -58,8 +58,8 @@ inherited fEditorDBItem: TfEditorDBItem
    end
  end
  inherited StatusBar: TJvStatusBar
-    Top = 442
-    Width = 652
+    Top = 440
+    Width = 650
    Panels = <
      item
        Width = 200
--- a/Source/Modulos/Contabilidad/Views/uViewCajasBancos.dfm
+++ b/Source/Modulos/Contabilidad/Views/uViewCajasBancos.dfm
@ -23,7 +23,7 @@ inherited frViewCajasBancos: TfrViewCajasBancos
      73)
    object cbCajasBancos: TcxComboBox
      Left = 80
-      Top = 37
+      Top = 10
      Anchors = [akLeft, akTop, akRight]
      Properties.DropDownListStyle = lsFixedList
      Properties.ImmediatePost = True
@ -41,33 +41,38 @@ inherited frViewCajasBancos: TfrViewCajasBancos
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 1
+      TabOrder = 0
      Width = 376
    end
    object eContabilizar: TcxCheckBox
-      Left = 10
+      Left = 309
      Top = 10
      Caption = 'Ignorar en contabiliad'
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      Properties.OnEditValueChanged = eContabilizarPropertiesEditValueChanged
-      TabOrder = 0
+      TabOrder = 1
      Width = 203
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
+      LayoutDirection = ldHorizontal
      ShowBorder = False
-      object dxLayoutControl1Item2: TdxLayoutItem
-        ShowCaption = False
-        Control = eContabilizar
-        ControlOptions.ShowBorder = False
-      end
      object dxLayoutControl1Item1: TdxLayoutItem
+        AutoAligns = [aaVertical]
+        AlignHorz = ahClient
        Caption = 'Caja / Banco:'
        Control = cbCajasBancos
        ControlOptions.ShowBorder = False
      end
+      object dxLayoutControl1Item2: TdxLayoutItem
+        AutoAligns = [aaVertical]
+        AlignHorz = ahClient
+        ShowCaption = False
+        Control = eContabilizar
+        ControlOptions.ShowBorder = False
+      end
    end
  end
 end
--- a/Source/Modulos/Contabilidad/Views/uViewCajasBancos.pas
+++ b/Source/Modulos/Contabilidad/Views/uViewCajasBancos.pas
@ -35,8 +35,8 @@ type


 implementation
-
 {$R *.dfm}
+{$INCLUDE ..\..\..\FactuGES.inc}

 uses
  uFactuGES_App, uSubCuentasController;
@ -69,6 +69,12 @@ begin
    end;
    Free;
  end;
+
+  {$IFDEF CONTABILIDAD}
+    eContabilizar.Checked := false;
+  {$ELSE}
+    eContabilizar.Checked := true;
+  {$ENDIF}
 end;

 procedure TfrViewCajasBancos.CustomViewDestroy(Sender: TObject);
--- a/Source/Modulos/Contactos/Model/uBizContactos.pas
+++ b/Source/Modulos/Contactos/Model/uBizContactos.pas
@ -391,6 +391,8 @@ type


 implementation
+{$INCLUDE ..\..\..\FactuGES.inc}
+

 uses
  uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App, uBizEmpresasTiendas;
@ -646,7 +648,12 @@ begin
  BLOQUEADO := 0;
  RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
  REGIMEN_IVA := CLIENTE_REGIMEN_IVA;
-  IGNORAR_CONTABILIDAD := 0;
+
+  {$IFDEF CONTABILIDAD}
+    IGNORAR_CONTABILIDAD := 0;
+  {$ELSE}
+    IGNORAR_CONTABILIDAD := 1;
+  {$ENDIF}
 end;

 { TBizProveedor }
@ -696,7 +703,12 @@ begin
  inherited;
  ID_CATEGORIA := CATEGORIA_PROVEEDOR;
  REGIMEN_IVA := PROVEEDOR_REGIMEN_IVA;
-  IGNORAR_CONTABILIDAD := 0;
+
+  {$IFDEF CONTABILIDAD}
+    IGNORAR_CONTABILIDAD := 0;
+  {$ELSE}
+    IGNORAR_CONTABILIDAD := 1;
+  {$ENDIF}
 end;

 constructor TBizProveedor.Create(aDataTable: TDADataTable);
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@ -5,7 +5,7 @@ inherited fEditorCliente: TfEditorCliente
  ClientHeight = 645
  ClientWidth = 896
  ExplicitWidth = 904
-  ExplicitHeight = 679
+  ExplicitHeight = 672
  PixelsPerInch = 96
  TextHeight = 13
  inherited JvNavPanelHeader: TJvNavPanelHeader
@ -65,6 +65,7 @@ inherited fEditorCliente: TfEditorCliente
  inherited pgPaginas: TPageControl
    Width = 890
    Height = 544
+    ActivePage = pagContabilidad
    ExplicitWidth = 890
    ExplicitHeight = 544
    inherited pagGeneral: TTabSheet
@ -285,8 +286,8 @@ inherited fEditorCliente: TfEditorCliente
            ExplicitTop = 270
            inherited dxLayoutControl1: TdxLayoutControl
              inherited cbTienda: TcxComboBox
-                ExplicitWidth = 376
-                Width = 376
+                ExplicitWidth = 250
+                Width = 250
              end
            end
          end
--- a/Source/Modulos/Contactos/Views/uEditorCliente.pas
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.pas
@ -40,14 +40,13 @@ type
  end;

 implementation
+{$R *.dfm}
+{$INCLUDE ..\..\..\FactuGES.inc}

 uses
  uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem,
  uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils;

-
-{$R *.dfm}
-
 procedure TfEditorCliente.actGruposClienteExecute(Sender: TObject);
 var
  AGruposController : IGruposClienteController;
@ -67,6 +66,12 @@ constructor TfEditorCliente.Create(AOwner: TComponent);
 begin
  inherited;
  ViewContacto := frViewCliente1;
+
+  {$IFDEF CONTABILIDAD}
+    pagContabilidad.TabVisible := true;
+  {$ELSE}
+    pagContabilidad.TabVisible := false;
+  {$ENDIF}
 end;

 procedure TfEditorCliente.EliminarInterno;
@ -79,6 +84,7 @@ procedure TfEditorCliente.FormShow(Sender: TObject);
 begin
  inherited;
  pgPaginas.ActivePageIndex := 0;
+
 end;

 procedure TfEditorCliente.PonerTitulos(const ATitulo: string);
--- a/Source/Modulos/Contactos/Views/uEditorContacto.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorContacto.dfm
@ -7,7 +7,7 @@ inherited fEditorContacto: TfEditorContacto
  ClientWidth = 632
  Scaled = False
  ExplicitWidth = 640
-  ExplicitHeight = 240
+  ExplicitHeight = 488
  PixelsPerInch = 96
  TextHeight = 13
  inherited JvNavPanelHeader: TJvNavPanelHeader
--- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
@ -3,7 +3,7 @@ inherited fEditorProveedor: TfEditorProveedor
  ClientHeight = 590
  ClientWidth = 648
  ExplicitWidth = 656
-  ExplicitHeight = 624
+  ExplicitHeight = 617
  PixelsPerInch = 96
  TextHeight = 13
  inherited JvNavPanelHeader: TJvNavPanelHeader
@ -289,10 +289,6 @@ inherited fEditorProveedor: TfEditorProveedor
          Width = 634
          LookAndFeel = dxLayoutOfficeLookAndFeel
          ExplicitWidth = 634
-          inherited eEntidad: TcxDBTextEdit
-            ExplicitWidth = 114
-            Width = 114
-          end
          inherited eSucursal: TcxDBTextEdit
            Left = 323
            ExplicitLeft = 323
--- a/Source/Modulos/Contactos/Views/uEditorProveedor.pas
+++ b/Source/Modulos/Contactos/Views/uEditorProveedor.pas
@ -36,8 +36,8 @@ type
  end;

 implementation
-
 {$R *.dfm}
+{$INCLUDE ..\..\..\FactuGES.inc}

 { TfEditorProveedor }

@ -63,6 +63,12 @@ constructor TfEditorProveedor.Create(AOwner: TComponent);
 begin
  inherited;
  ViewContacto := frViewProveedor1;
+
+  {$IFDEF CONTABILIDAD}
+    pagContabilidad.TabVisible := true;
+  {$ELSE}
+    pagContabilidad.TabVisible := false;
+  {$ENDIF}
 end;

 procedure TfEditorProveedor.EliminarInterno;
--- a/cliente/Controller/RecibosCliente_controller.dproj
+++ b/cliente/Controller/RecibosCliente_controller.dproj
@ -39,57 +39,17 @@
    <Borland.Personality>Delphi.Personality</Borland.Personality>
    <Borland.ProjectType>Package</Borland.ProjectType>
    <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Package_Options>
-      <Package_Options Name="ImplicitBuild">True</Package_Options>
-      <Package_Options Name="DesigntimeOnly">False</Package_Options>
-      <Package_Options Name="RuntimeOnly">False</Package_Options>
-    </Package_Options>
-    <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">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Source>
-      <Source Name="MainSource">RecibosCliente_controller.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
  </ProjectExtensions>
  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
  <ItemGroup>
    <DelphiCompile Include="RecibosCliente_controller.dpk">
      <MainSource>MainSource</MainSource>
    </DelphiCompile>
-    <DCCReference Include="..\..\Lib\Base.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Lib\RecibosCliente_data.dcp" />
-    <DCCReference Include="..\..\Lib\RecibosCliente_model.dcp" />
+    <DCCReference Include="..\..\Contactos\Views\Base.dcp" />
+    <DCCReference Include="..\..\Contactos\Views\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Contactos\Views\RecibosCliente_data.dcp" />
+    <DCCReference Include="..\..\Contactos\Views\RecibosCliente_model.dcp" />
    <DCCReference Include="uPagosClienteController.pas" />
    <DCCReference Include="uRecibosClienteController.pas" />
    <DCCReference Include="uRecibosClienteReportController.pas" />
@ -100,7 +60,6 @@
    <DCCReference Include="View\uIEditorRecibosClientePreview.pas" />
  </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
--- a/cliente/Controller/RecibosCliente_controller.rc
+++ b/cliente/Controller/RecibosCliente_controller.rc
@ -0,0 +1,22 @@
+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
--- a/cliente/Controller/RecibosCliente_controller.res
+++ b/cliente/Controller/RecibosCliente_controller.res
--- a/cliente/Controller/uPagosClienteController.pas
+++ b/cliente/Controller/uPagosClienteController.pas
@ -32,8 +32,8 @@ uses
 type
  IPagosClienteController = interface(ISujeto)
  ['{1864471E-74FA-4E96-BA8D-21357DA38B0F}']
-    function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean;
-    procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer);
+    function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer): Boolean;
+    procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer);
    function Eliminar(APagoCliente : IBizPagosCliente): Boolean;
    function EliminarTodo(APagossCliente : IBizPagosCliente): Boolean;
  end;
@ -47,8 +47,8 @@ type
  public
    constructor Create; virtual;
    destructor Destroy; override;
-    function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean;
-    procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer);
+    function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer): Boolean;
+    procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer);
    function Eliminar(APagoCliente : IBizPagosCliente): Boolean;
    function EliminarTodo(APagosCliente : IBizPagosCliente): Boolean;
  end;
@ -63,7 +63,7 @@ uses

 { TPagosClienteController }

-function TPagosClienteController.Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean;
+function TPagosClienteController.Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer): Boolean;
 { Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser
 una devolución devolvemos false}
 begin
@ -139,11 +139,12 @@ begin
  end;
 end;

-procedure TPagosClienteController.Modificar(APagosCliente: IBizPagosCliente; const Fecha: String; Const IgnorarContabilidad: Integer);
+procedure TPagosClienteController.Modificar(APagosCliente: IBizPagosCliente; const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer);
 begin
  APagosCliente.DataTable.Edit;
  APagosCliente.FECHA_PAGO := StrToDate(Fecha);
  APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
+  APagosCliente.CUENTA := IntToStr(IdSubCuenta);  
  APagosCliente.DataTable.Post;
 end;

--- a/cliente/Controller/uRecibosClienteController.pas
+++ b/cliente/Controller/uRecibosClienteController.pas
@ -44,8 +44,8 @@ type
    procedure Anadir(ARecibosCliente : IBizRecibosCliente);
    function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;

-    function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''): Boolean;
-    procedure ModificarPago(ARecibosCliente : IBizRecibosCliente);
+    function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
+    procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0);
    function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
    function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;

@ -70,7 +70,7 @@ type
    function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
    function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;

-    procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer);
+    procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
    procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
    procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);

@ -115,8 +115,8 @@ type

    procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente);
    procedure Anadir(ARecibosCliente : IBizRecibosCliente);
-    function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''): Boolean;
-    procedure ModificarPago(ARecibosCliente : IBizRecibosCliente);
+    function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
+    procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0);
    function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
    function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
    function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;
@ -140,7 +140,7 @@ type
    function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
    function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean;

-    procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer);
+    procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
    procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
    procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);

@ -169,51 +169,25 @@ begin
  ARecibosCliente.Insert;
 end;

-function TRecibosClienteController.AnadirPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''): Boolean;
+function TRecibosClienteController.AnadirPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; ASubCuenta: Integer = 0): Boolean;
 var
  AEditor : IEditorFechaPago;
-  AIgnorarContabilidad : Integer;
-  ASubCuenta: Integer;
 begin
  Result := False;

-  if (Length(ARecibosCliente.REFERENCIA_REMESA) = 0) or
-    (Application.MessageBox(PChar('Este recibo está remesado en la remesa de referencia ' + ARecibosCliente.REFERENCIA_REMESA + '.' + #10#13 + 'Si añade una devolución, el recibo quedará libre y podrá ser incluido en otra remesa diferente.' + #10#13 + '¿Desea continuar?'), 'Atención', MB_YESNO) = IDYES) then
-  begin
-    //Pedimos la fecha del pago
-    if (Length(FechaPago) = 0) then
-    begin
-      CreateEditor('EditorFechaPago', IEditorFechaPago, AEditor);
-      if Assigned(AEditor) then
-        try
-          if (AEditor.ShowModal = mrOk) then
-          begin
-             FechaPago := DateToStr(AEditor.FechaPago);
-             AIgnorarContabilidad := AEditor.IgnorarContabilidad;
-             ASubCuenta := AEditor.IdSubcuenta;
-          end;
-          AEditor.Release;
-        finally
-          AEditor := NIL;
-        end;
-    end;
-
-    // Se cancela la operación
-    if Length(FechaPago) = 0 then
-       Exit;
-
-    //Liberamos el recibo aunque ya este libre
-    if not ARecibosCliente.DataTable.Editing then
-       ARecibosCliente.DataTable.Edit;
-
-    ARecibosCliente.ID_REMESA := 0;
-    ARecibosCliente.REFERENCIA_REMESA := '';
-    ARecibosCliente.DataTable.Post;
-  end
  // Se cancela la operación
-  else
-    Exit;
+  if Length(FechaPago) = 0 then
+     raise Exception.Create('Debe indicar la fecha del pago.');

+  //Liberamos el recibo aunque ya este libre
+  if not ARecibosCliente.DataTable.Editing then
+     ARecibosCliente.DataTable.Edit;
+
+  ARecibosCliente.ID_REMESA := 0;
+  ARecibosCliente.REFERENCIA_REMESA := '';
+  ARecibosCliente.DataTable.Post;
+
+  
  //Finalmente añadimos el pago (cobro o devolucion)
  if PagosController.Anadir(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta) then
  begin
@ -235,7 +209,7 @@ begin
  FDataModule := TDataModuleRecibosCliente.Create(Nil);
 end;

-procedure TRecibosClienteController.AsignarRemesa(ARecibos: IBizRecibosCliente; ID_REMESA: Integer);
+procedure TRecibosClienteController.AsignarRemesa(ARecibos: IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
 begin
  if Assigned(ARecibos) then
  begin
@ -249,7 +223,7 @@ begin
          ARecibos.Edit;
          //Añadimos el cobro automatico por la remesa y volvemos a asignar ID
          //para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle
-          AnadirPago(ARecibos, DateToStr(Date)); //->Ojo el orden es importante
+          AnadirPago(ARecibos, DateToStr(Date), AIgnorarContabilidad, ASubCuenta); //->Ojo el orden es importante
          ARecibos.ID_REMESA := ID_REMESA;
        end;
        Next;
@ -828,30 +802,10 @@ begin
  end;
 end;

-procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente);
-var
-  AEditor : IEditorFechaPago;
-  FechaPago: String;
-  IgnorarContabilidad: Integer;
+procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0);
 begin
-  try
-    //Pedimos la fecha del pago
-    CreateEditor('EditorFechaPago', IEditorFechaPago, AEditor);
-    if Assigned(AEditor) then
-       AEditor.FechaPago := ARecibosCliente.Pagos.FECHA_PAGO;
-       AEditor.IgnorarContabilidad := ARecibosCliente.Pagos.IGNORAR_CONTABILIDAD;
-       if (AEditor.ShowModal = mrOk) then
-       begin
-          FechaPago := DateToStr(AEditor.FechaPago);
-          IgnorarContabilidad := AEditor.IgnorarContabilidad;
-       end;
-       AEditor.Release;
-  finally
-    AEditor := NIL;
-  end;
-
  if Length(FechaPago) > 0 then
-     PagosController.Modificar(ARecibosCliente.Pagos, FechaPago, IgnorarContabilidad);
+     PagosController.Modificar(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta);
 end;

 function TRecibosClienteController.Nuevo: IBizRecibosCliente;
--- a/cliente/Model/uBizPagosClienteServer.pas
+++ b/cliente/Model/uBizPagosClienteServer.pas
@ -65,10 +65,7 @@ begin
    with ACommand do
    begin
      ParamByName('IdPago').Value := aChange.OldValueByName[fld_PagosClienteID];
-      if (aChange.OldValueByName[fld_PagosClienteTIPO] = CTE_PAGO) then
-         ParamByName('Tipo').Value := 'c'
-      else
-         ParamByName('Tipo').Value := 'p';      
+      ParamByName('Tipo').Value := 'c';
      Execute;
    end;
  finally
--- a/cliente/Views/uEditorFechaPago.dfm
+++ b/cliente/Views/uEditorFechaPago.dfm
@ -13,6 +13,7 @@ object fEditorFechaPago: TfEditorFechaPago
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
+  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
@ -57,17 +58,16 @@ object fEditorFechaPago: TfEditorFechaPago
    Align = alBottom
    TabOrder = 1
    object bAceptar: TButton
-      Left = 119
+      Left = 41
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Aceptar'
      ModalResult = 1
      TabOrder = 0
-      OnClick = bAceptarClick
    end
    object bCancelar: TButton
-      Left = 200
+      Left = 122
      Top = 8
      Width = 75
      Height = 25
--- a/cliente/Views/uEditorFechaPago.pas
+++ b/cliente/Views/uEditorFechaPago.pas
@ -20,8 +20,8 @@ type
    frViewCajasBancos1: TfrViewCajasBancos;
    procedure FormShow(Sender: TObject);
    procedure eFechaPagoPropertiesChange(Sender: TObject);
-    procedure BitBtn3Click(Sender: TObject);
-    procedure bAceptarClick(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+
  private
    FFechaPago : TDateTime;
    function GetFechaPago: TDateTime;
@ -41,38 +41,47 @@ var
  fEditorFechaPago: TfEditorFechaPago;

 implementation
-
 {$R *.dfm}
+{$INCLUDE ..\..\..\FactuGES.inc}

-//uses uBizSubCuentas;
-
-procedure TfEditorFechaPago.bAceptarClick(Sender: TObject);
-begin
-//  if (not eContabilizar.Checked)
-//  and (eIdSubcuenta.Text = '') then
-//    raise Exception.Create ('Es necesario que elija la SubCuenta donde se realizará el pago');
-end;
-
-procedure TfEditorFechaPago.BitBtn3Click(Sender: TObject);
-//var
-//  ASubCuenta: IBizSubcuenta;
-begin
-//  ASubCuenta := FController.ElegirSubCuenta(FController.BuscarTodos,'sssss', False);
-//  eIDSubcuenta.Text := IntToStr(ASubcuenta.ID);
-//  eRefSubCuenta.Text := ASubcuenta.REF_SUBCUENTA;
-//  eSubCuenta.Text := ASubcuenta.DESCRIPCION;
-//  ASubCuenta := Nil;
-end;
+uses uDialogUtils;

 procedure TfEditorFechaPago.eFechaPagoPropertiesChange(Sender: TObject);
 begin
  FechaPago := eFechaPago.Date;
 end;

+procedure TfEditorFechaPago.FormCloseQuery(Sender: TObject;
+  var CanClose: Boolean);
+begin
+  CanClose := True;
+  
+  if Self.ModalResult = mrOk then
+  begin
+    if (length(eFechaPago.EditValue) = 0) then
+    begin
+       CanClose := False;
+       ShowWarningMessage('Debe establecer la fecha del pago');
+    end;
+
+    if ((IgnorarContabilidad = 0) and (IdSubCuenta < 1)) then
+    begin
+       CanClose := False;
+       ShowWarningMessage('Debe establecer la caja o banco donde se realiza el pago');
+    end
+  end;
+end;
+
 procedure TfEditorFechaPago.FormShow(Sender: TObject);
 begin
  if (length(eFechaPago.Text) = 0) then
     eFechaPago.Date := Date;
+
+  {$IFDEF CONTABILIDAD}
+    frViewCajasBancos1.Visible := true;
+  {$ELSE}
+    frViewCajasBancos1.Visible := false;
+  {$ENDIF}
 end;

 function TfEditorFechaPago.GetFechaPago: TDateTime;
--- a/cliente/Views/uEditorReciboCliente.dfm
+++ b/cliente/Views/uEditorReciboCliente.dfm
@ -1,18 +1,18 @@
 inherited fEditorReciboCliente: TfEditorReciboCliente
  Caption = 'Recibo de cliente'
-  ClientHeight = 530
-  ClientWidth = 691
+  ClientHeight = 528
+  ClientWidth = 689
  OnClose = CustomEditorClose
-  ExplicitWidth = 699
-  ExplicitHeight = 557
+  ExplicitWidth = 697
+  ExplicitHeight = 562
  PixelsPerInch = 96
  TextHeight = 13
  inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 691
+    Width = 689
    Caption = 'Recibo de cliente'
    ExplicitWidth = 691
    inherited Image1: TImage
-      Left = 664
+      Left = 662
      Picture.Data = {
        0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
        0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -39,18 +39,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
    end
  end
  inherited TBXDock: TTBXDock
-    Width = 691
+    Width = 689
    ExplicitWidth = 691
    inherited tbxMain: TTBXToolbar
      ExplicitWidth = 425
    end
    inherited tbxMenu: TTBXToolbar
-      ExplicitWidth = 691
+      ExplicitWidth = 689
    end
  end
  inherited pgPaginas: TPageControl
-    Width = 685
-    Height = 329
+    Width = 683
+    Height = 327
    OnChanging = pgPaginasChanging
    ExplicitLeft = 3
    ExplicitTop = 79
@ -64,7 +64,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
      inline frViewReciboCliente1: TfrViewReciboCliente
        Left = 0
        Top = 0
-        Width = 677
+        Width = 675
        Height = 335
        Align = alTop
        Font.Charset = DEFAULT_CHARSET
@ -78,12 +78,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
        ExplicitWidth = 677
        ExplicitHeight = 335
        inherited dxLayoutControl1: TdxLayoutControl
-          Width = 677
+          Width = 675
          Height = 335
          ExplicitWidth = 677
          ExplicitHeight = 335
          DesignSize = (
-            677
+            675
            335)
          inherited eReferencia: TcxDBTextEdit
            ExplicitWidth = 217
@ -153,10 +153,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
            ExplicitWidth = 217
            Width = 217
          end
-          inherited rRefReciboCompensado: TcxDBTextEdit
-            ExplicitWidth = 191
-            Width = 191
-          end
          inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente
            Top = 272
            Width = 350
@ -200,11 +196,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
    object pagPagos: TTabSheet
      Caption = 'Pagos'
      ImageIndex = 2
+      ExplicitWidth = 677
+      ExplicitHeight = 301
      inline frViewPagosCliente1: TfrViewPagosCliente
        Left = 0
        Top = 0
-        Width = 677
-        Height = 301
+        Width = 675
+        Height = 299
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
@ -217,25 +215,17 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
        ExplicitWidth = 677
        ExplicitHeight = 301
        inherited dxLayoutControl1: TdxLayoutControl
-          Width = 677
-          Height = 301
+          Width = 675
+          Height = 299
          ExplicitWidth = 677
          ExplicitHeight = 301
        end
        inherited dxLayoutControl2: TdxLayoutControl
-          Width = 677
-          Height = 301
+          Width = 675
+          Height = 299
          ExplicitWidth = 677
          ExplicitHeight = 301
-          inherited ToolBar1: TToolBar
-            Width = 666
-            ExplicitWidth = 666
-          end
          inherited ListaPagosCliente: TcxGrid
-            Width = 605
-            Height = 262
-            ExplicitWidth = 605
-            ExplicitHeight = 262
            inherited ListaPagosClienteDBTableView1: TcxGridDBTableView
              inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn
                IsCaptionAssigned = True
@ -262,11 +252,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
    object pagCompensados: TTabSheet
      Caption = 'Recibos compensados'
      ImageIndex = 1
+      ExplicitWidth = 677
+      ExplicitHeight = 301
      inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
        Left = 0
        Top = 0
-        Width = 677
-        Height = 301
+        Width = 675
+        Height = 299
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
@ -279,8 +271,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
        ExplicitWidth = 677
        ExplicitHeight = 301
        inherited cxGrid: TcxGrid
-          Width = 677
-          Height = 276
+          Width = 675
+          Height = 274
          ExplicitWidth = 677
          ExplicitHeight = 276
          inherited cxGridView: TcxGridDBTableView
@ -294,7 +286,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
          end
        end
        inherited ToolBar1: TToolBar
-          Width = 677
+          Width = 675
          ExplicitWidth = 677
          inherited ToolButton1: TToolButton
            ExplicitWidth = 113
@ -319,8 +311,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
    end
  end
  inherited StatusBar: TJvStatusBar
-    Top = 511
-    Width = 691
+    Top = 509
+    Width = 689
    Panels = <
      item
        Width = 200
@ -330,8 +322,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
  end
  inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
    Left = 0
-    Top = 411
-    Width = 691
+    Top = 409
+    Width = 689
    Height = 100
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
@ -345,13 +337,11 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
    ExplicitTop = 411
    ExplicitWidth = 691
    inherited dxLayoutControl1: TdxLayoutControl
-      Width = 691
+      Width = 689
      ExplicitWidth = 691
      inherited eImporte: TcxDBCurrencyEdit
        DataBinding.DataSource = dsDataTable
        Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
-        ExplicitWidth = 150
-        Width = 150
      end
      inherited eOtrosGastos: TcxDBCurrencyEdit
        DataBinding.DataSource = dsDataTable
--- a/cliente/Views/uEditorReciboCliente.pas
+++ b/cliente/Views/uEditorReciboCliente.pas
@ -140,10 +140,36 @@ begin
 end;

 procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirExecute(Sender: TObject);
+var
+  AFechaPago: String;
+  AIgnorarContabilidad: Integer;
+  ASubCuenta: Integer;
+
 begin
  inherited;

-  FController.AnadirPago(Recibo);
+  if (Length(Recibo.REFERENCIA_REMESA) = 0) or
+    (Application.MessageBox(PChar('Este recibo está remesado en la remesa de referencia ' + Recibo.REFERENCIA_REMESA + '.' + #10#13 + 'Si añade una devolución, el recibo quedará libre y podrá ser incluido en otra remesa diferente.' + #10#13 + '¿Desea continuar?'), 'Atención', MB_YESNO) = IDYES) then
+  begin
+    with TfEditorFechaPago.Create(Nil) do
+    begin
+      if (ShowModal = mrOk) then
+      begin
+        AFechaPago := DateToStr(FechaPago);
+        AIgnorarContabilidad := IgnorarContabilidad;
+        ASubCuenta := IdSubcuenta;
+        Release;
+      end
+      else
+      begin
+        //Operación cancelada
+        Release;
+        exit;
+      end;
+    end;
+  end;
+
+  FController.AnadirPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);

  //Solo podremos modificar el recibo si esta pendiente o devuelto
  if (Recibo.SITUACION = CTE_COBRADO) then
@ -195,9 +221,35 @@ begin
 end;

 procedure TfEditorReciboCliente.frViewPagosCliente1actModificarExecute(Sender: TObject);
+var
+  AFechaPago: String;
+  AIgnorarContabilidad: Integer;
+  ASubCuenta: Integer;
+
 begin
  inherited;
-  FController.ModificarPago(Recibo);
+
+  with TfEditorFechaPago.Create(Nil) do
+  begin
+    FechaPago := Recibo.Pagos.FECHA_PAGO;
+    IgnorarContabilidad := Recibo.Pagos.IGNORAR_CONTABILIDAD;
+
+    if (ShowModal = mrOk) then
+    begin
+      AFechaPago := DateToStr(FechaPago);
+      AIgnorarContabilidad := IgnorarContabilidad;
+      ASubCuenta := IdSubcuenta;
+      Release;
+    end
+    else
+    begin
+      //Operación cancelada
+      Release;
+      exit;
+    end;
+  end;
+
+  FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
 end;

 procedure TfEditorReciboCliente.frViewPagosCliente1actModificarUpdate(Sender: TObject);
--- a/cliente/Views/uViewPagosCliente.dfm
+++ b/cliente/Views/uViewPagosCliente.dfm
@ -83,6 +83,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
      Width = 605
      Height = 262
      Align = alClient
+      Enabled = False
      TabOrder = 1
      LookAndFeel.Kind = lfStandard
      LookAndFeel.NativeStyle = True
--- a/cliente/Controller/uRemesasClienteController.pas
+++ b/cliente/Controller/uRemesasClienteController.pas
@ -19,7 +19,7 @@ type
    procedure Anadir(ARemesaCliente : IBizRemesaCliente);
    function Eliminar(const ID : Integer): Boolean; overload;
    function Eliminar(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean; overload;
-    function Guardar(ARemesaCliente : IBizRemesaCliente): Boolean;
+    function Guardar(ARemesaCliente : IBizRemesaCliente; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
    procedure DescartarCambios(ARemesaCliente : IBizRemesaCliente);
    function Existe(const ID: Integer) : Boolean;

@ -63,7 +63,7 @@ type

    function Eliminar(const ID : Integer): Boolean; overload;
    function Eliminar(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean; overload;
-    function Guardar(ARemesaCliente : IBizRemesaCliente): Boolean;
+    function Guardar(ARemesaCliente : IBizRemesaCliente; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
    procedure DescartarCambios(ARemesaCliente : IBizRemesaCliente); virtual;
    function Existe(const ID: Integer) : Boolean; virtual;
    procedure Anadir(ARemesaCliente : IBizRemesaCliente); virtual;
@ -84,6 +84,7 @@ type
  end;

 implementation
+{$INCLUDE ..\..\..\FactuGES.inc}

 uses
  cxControls, DB, uEditorRegistryUtils, schRemesasClienteClient_Intf, uFactuGES_App,
@ -199,8 +200,11 @@ begin
  if ARemesaCliente.DataTable.FieldByName(fld_RemesasClienteFECHA_REMESA).IsNull then
     raise Exception.Create('Debe indicar la fecha de esta remesa.');

-  if ARemesaCliente.ID_DATOS_BANCO < 1 then
-     raise Exception.Create('Debe la cuenta bancaria sobre la que realizará la remesa.');
+  {$IFDEF CONTABILIDAD}
+  {$ELSE}
+    if ARemesaCliente.ID_DATOS_BANCO < 1 then
+       raise Exception.Create('Debe la cuenta bancaria sobre la que realizará la remesa.');
+  {$ENDIF}

  // Asegurarse de valores en campos "automáticos"
  ARemesaCliente.Edit;
@ -480,7 +484,7 @@ begin
  Result := FRecibosClienteController;
 end;

-function TRemesasClienteController.Guardar(ARemesaCliente: IBizRemesaCliente): Boolean;
+function TRemesasClienteController.Guardar(ARemesaCliente: IBizRemesaCliente; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
 var
  bEsNuevo: Boolean;
 begin
@ -498,7 +502,7 @@ begin

      //Si todo ha ido bien, asignamos la remesa a los recibos asociados
      //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
-      RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, ARemesaCliente.ID);
+      RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, ARemesaCliente.ID, AIgnorarContabilidad, ASubCuenta);
      ARemesaCliente.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboCliente/ ElegirRecibosCliente)

      //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen
--- a/cliente/RemesasCliente_Group.groupproj
+++ b/cliente/RemesasCliente_Group.groupproj
@ -9,7 +9,10 @@
    <Projects Include="..\..\Cliente\FactuGES.dproj" />
    <Projects Include="..\..\GUIBase\GUIBase.dproj" />
    <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
+    <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
+    <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
    <Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
+    <Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
    <Projects Include="Controller\RemesasCliente_controller.dproj" />
    <Projects Include="Data\RemesasCliente_data.dproj" />
    <Projects Include="Model\RemesasCliente_model.dproj" />
@ -121,14 +124,41 @@
  <Target Name="RecibosCliente_controller:Make">
    <MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Make" />
  </Target>
+  <Target Name="RecibosCliente_view">
+    <MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="" />
+  </Target>
+  <Target Name="RecibosCliente_view:Clean">
+    <MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RecibosCliente_view:Make">
+    <MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Contabilidad_view">
+    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
+  </Target>
+  <Target Name="Contabilidad_view:Clean">
+    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contabilidad_view:Make">
+    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Contactos_view">
+    <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
+  </Target>
+  <Target Name="Contactos_view:Clean">
+    <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contactos_view:Make">
+    <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
+  </Target>
  <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RecibosCliente_controller" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RecibosCliente_controller;RecibosCliente_view;Contabilidad_view;Contactos_view" />
  </Target>
  <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_controller:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;Contabilidad_view:Clean;Contactos_view:Clean" />
  </Target>
  <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_controller:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;Contabilidad_view:Make;Contactos_view:Make" />
  </Target>
  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>
--- a/cliente/Views/RemesasCliente_view.dpk
+++ b/cliente/Views/RemesasCliente_view.dpk
@ -34,7 +34,8 @@ requires
  teeUI,
  tee,
  fsTee11,
-  frxTee11;
+  frxTee11,
+  Contabilidad_view;

 contains
  uViewRemesasCliente in 'uViewRemesasCliente.pas' {frViewRemesasCliente: TFrame},
--- a/cliente/Views/RemesasCliente_view.dproj
+++ b/cliente/Views/RemesasCliente_view.dproj
@ -47,63 +47,24 @@
    <Borland.Personality>Delphi.Personality</Borland.Personality>
    <Borland.ProjectType>Package</Borland.ProjectType>
    <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Package_Options>
-      <Package_Options Name="ImplicitBuild">True</Package_Options>
-      <Package_Options Name="DesigntimeOnly">False</Package_Options>
-      <Package_Options Name="RuntimeOnly">False</Package_Options>
-    </Package_Options>
-    <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">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Source>
-      <Source Name="MainSource">RemesasCliente_view.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemesasCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
  </ProjectExtensions>
  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
  <ItemGroup>
    <DelphiCompile Include="RemesasCliente_view.dpk">
      <MainSource>MainSource</MainSource>
    </DelphiCompile>
-    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="Familias_controller.dcp" />
-    <DCCReference Include="Familias_model.dcp" />
-    <DCCReference Include="frxTee11.dcp" />
-    <DCCReference Include="fsTee11.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="RemesasCliente_controller.dcp" />
-    <DCCReference Include="RemesasCliente_model.dcp" />
-    <DCCReference Include="tee.dcp" />
-    <DCCReference Include="teeUI.dcp" />
+    <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
+    <DCCReference Include="..\..\Lib\Familias_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Familias_model.dcp" />
+    <DCCReference Include="..\..\Lib\frxTee11.dcp" />
+    <DCCReference Include="..\..\Lib\fsTee11.dcp" />
+    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\RemesasCliente_controller.dcp" />
+    <DCCReference Include="..\..\Lib\RemesasCliente_model.dcp" />
+    <DCCReference Include="..\..\Lib\tee.dcp" />
+    <DCCReference Include="..\..\Lib\teeUI.dcp" />
    <DCCReference Include="uEditorRemesaCliente.pas">
      <Form>fEditorRemesaCliente</Form>
      <DesignClass>TfEditorRemesaCliente</DesignClass>
@ -131,7 +92,6 @@
    </DCCReference>
  </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
--- a/cliente/Views/RemesasCliente_view.rc
+++ b/cliente/Views/RemesasCliente_view.rc
@ -0,0 +1,22 @@
+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
--- a/cliente/Views/RemesasCliente_view.res
+++ b/cliente/Views/RemesasCliente_view.res
--- a/cliente/Views/uEditorRemesaCliente.dfm
+++ b/cliente/Views/uEditorRemesaCliente.dfm
@ -4,21 +4,20 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'Ficha de remesa de cobro'
-  ClientHeight = 583
-  ClientWidth = 676
+  ClientHeight = 727
+  ClientWidth = 724
  Scaled = False
  OnClose = CustomEditorClose
-  ExplicitLeft = -49
-  ExplicitWidth = 684
-  ExplicitHeight = 617
+  ExplicitWidth = 732
+  ExplicitHeight = 754
  PixelsPerInch = 96
  TextHeight = 13
  inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 676
+    Width = 724
    Caption = 'Remesa de cobro'
-    ExplicitWidth = 676
+    ExplicitWidth = 724
    inherited Image1: TImage
-      Left = 649
+      Left = 697
      Picture.Data = {
        0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
        0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -47,8 +46,8 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
    end
  end
  inherited TBXDock: TTBXDock
-    Width = 676
-    ExplicitWidth = 676
+    Width = 724
+    ExplicitWidth = 724
    inherited tbxMain: TTBXToolbar
      ExplicitWidth = 598
      inherited TBXItem2: TTBXItem
@ -66,7 +65,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
    end
    inherited tbxMenu: TTBXToolbar
      DockPos = 0
-      ExplicitWidth = 676
+      ExplicitWidth = 724
      inherited TBXSubmenuItem4: TTBXSubmenuItem
        inherited TBXItem8: TTBXItem
          Visible = False
@ -107,21 +106,23 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
    end
  end
  inherited pgPaginas: TPageControl
-    Width = 676
-    Height = 442
+    Width = 718
+    Height = 580
    MultiLine = True
-    ExplicitWidth = 676
-    ExplicitHeight = 442
+    ExplicitLeft = 3
+    ExplicitTop = 79
+    ExplicitWidth = 718
+    ExplicitHeight = 580
    inherited pagGeneral: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 24
-      ExplicitWidth = 668
-      ExplicitHeight = 414
+      ExplicitWidth = 710
+      ExplicitHeight = 552
      inline frViewRemesaCliente1: TfrViewRemesaCliente
        Left = 0
        Top = 0
-        Width = 668
-        Height = 145
+        Width = 710
+        Height = 185
        Align = alTop
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
@ -131,17 +132,17 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
        ParentFont = False
        TabOrder = 0
        ReadOnly = False
-        ExplicitWidth = 668
-        ExplicitHeight = 145
+        ExplicitWidth = 710
+        ExplicitHeight = 185
        inherited dxLayoutControlRemesaCliente: TdxLayoutControl
-          Width = 668
-          Height = 160
+          Width = 710
+          Height = 200
          Align = alTop
-          ExplicitWidth = 668
-          ExplicitHeight = 160
+          ExplicitWidth = 710
+          ExplicitHeight = 200
          DesignSize = (
-            668
-            160)
+            710
+            200)
          inherited eReferencia: TcxDBTextEdit
            ExplicitWidth = 326
            Width = 326
@ -151,8 +152,8 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
            Width = 540
          end
          inherited edtFechaRemesa: TcxDBDateEdit
-            Left = 495
-            ExplicitLeft = 495
+            Left = 521
+            ExplicitLeft = 521
            ExplicitWidth = 170
            Width = 170
          end
@ -164,6 +165,24 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
            ExplicitWidth = 121
            Width = 121
          end
+          inherited frViewCajasBancos1: TfrViewCajasBancos
+            Width = 453
+            ExplicitWidth = 453
+            inherited dxLayoutControl1: TdxLayoutControl
+              Width = 453
+              ExplicitWidth = 453
+              inherited cbCajasBancos: TcxComboBox
+                ExplicitWidth = 376
+                Width = 376
+              end
+              inherited eContabilizar: TcxCheckBox
+                Left = 458
+                ExplicitLeft = 458
+                ExplicitWidth = 203
+                Width = 203
+              end
+            end
+          end
        end
        inherited dsDataTable: TDADataSource
          Left = 104
@ -175,9 +194,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
      end
      inline frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente
        Left = 0
-        Top = 145
-        Width = 668
-        Height = 269
+        Top = 185
+        Width = 710
+        Height = 367
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
@ -190,16 +209,16 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
        ParentFont = False
        TabOrder = 1
        ReadOnly = False
-        ExplicitTop = 145
-        ExplicitWidth = 668
-        ExplicitHeight = 269
+        ExplicitTop = 185
+        ExplicitWidth = 710
+        ExplicitHeight = 367
        inherited cxGrid: TcxGrid
          Left = 15
-          Width = 638
-          Height = 229
+          Width = 680
+          Height = 327
          ExplicitLeft = 15
-          ExplicitWidth = 638
-          ExplicitHeight = 208
+          ExplicitWidth = 680
+          ExplicitHeight = 327
          inherited cxGridView: TcxGridDBTableView
            DataController.Summary.FooterSummaryItems = <
              item
@ -215,27 +234,27 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
        end
        inherited ToolBar1: TToolBar
          Left = 15
-          Width = 638
+          Width = 680
          ExplicitLeft = 15
-          ExplicitWidth = 638
+          ExplicitWidth = 680
        end
      end
    end
  end
  inherited StatusBar: TJvStatusBar
-    Top = 564
-    Width = 676
+    Top = 708
+    Width = 724
    Panels = <
      item
        Width = 200
      end>
-    ExplicitTop = 519
-    ExplicitWidth = 676
+    ExplicitTop = 708
+    ExplicitWidth = 724
  end
  inline frViewTotales1: TfrViewTotales [4]
    Left = 0
-    Top = 518
-    Width = 676
+    Top = 662
+    Width = 724
    Height = 46
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
@ -246,12 +265,12 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
    ParentFont = False
    TabOrder = 4
    ReadOnly = False
-    ExplicitTop = 473
-    ExplicitWidth = 676
+    ExplicitTop = 662
+    ExplicitWidth = 724
    ExplicitHeight = 46
    inherited dxLayoutControl1: TdxLayoutControl
-      Width = 676
-      ExplicitWidth = 676
+      Width = 724
+      ExplicitWidth = 724
      inherited Bevel1: TBevel
        Left = 92
        Top = 91
@ -261,18 +280,18 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
        ExplicitWidth = 73
      end
      inherited Bevel3: TBevel
-        Left = 336
+        Left = 359
        Top = 10
        Height = 30
-        ExplicitLeft = 336
+        ExplicitLeft = 359
        ExplicitTop = 10
        ExplicitHeight = 30
      end
      inherited Bevel4: TBevel
-        Left = 448
+        Left = 471
        Top = 91
        Width = 192
-        ExplicitLeft = 448
+        ExplicitLeft = 471
        ExplicitTop = 91
        ExplicitWidth = 192
      end
@ -287,20 +306,20 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
        Width = 93
      end
      inherited ImporteIVA: TcxDBCurrencyEdit
-        Left = 519
+        Left = 542
        Top = 37
        DataBinding.DataField = ''
        Style.IsFontAssigned = True
-        ExplicitLeft = 519
+        ExplicitLeft = 542
        ExplicitTop = 37
        ExplicitWidth = 137
        Width = 137
      end
      inherited ImporteTotal: TcxDBCurrencyEdit
-        Left = 449
+        Left = 472
        Top = 111
        Style.IsFontAssigned = True
-        ExplicitLeft = 449
+        ExplicitLeft = 472
        ExplicitTop = 111
        ExplicitWidth = 137
        Width = 137
@ -314,37 +333,37 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
        ExplicitTop = 111
      end
      inherited edtIVA: TcxDBSpinEdit
-        Left = 448
+        Left = 471
        Top = 37
        DataBinding.DataField = ''
        Style.IsFontAssigned = True
-        ExplicitLeft = 448
+        ExplicitLeft = 471
        ExplicitTop = 37
      end
      inherited ImporteBase: TcxDBCurrencyEdit
-        Left = 448
+        Left = 471
        Top = 10
        DataBinding.DataField = ''
        Style.IsFontAssigned = True
-        ExplicitLeft = 448
+        ExplicitLeft = 471
        ExplicitTop = 10
        ExplicitWidth = 92
        Width = 92
      end
      inherited edtRE: TcxDBSpinEdit
-        Left = 448
+        Left = 471
        Top = 64
        DataBinding.DataField = ''
        Style.IsFontAssigned = True
-        ExplicitLeft = 448
+        ExplicitLeft = 471
        ExplicitTop = 64
      end
      inherited ImporteRE: TcxDBCurrencyEdit
-        Left = 519
+        Left = 542
        Top = 64
        DataBinding.DataField = ''
        Style.IsFontAssigned = True
-        ExplicitLeft = 519
+        ExplicitLeft = 542
        ExplicitTop = 64
        ExplicitWidth = 56
        Width = 56
@ -379,9 +398,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
        Width = 81
      end
      inherited bTiposIVA: TButton
-        Left = 188
+        Left = 211
        Top = 37
-        ExplicitLeft = 188
+        ExplicitLeft = 211
        ExplicitTop = 37
      end
      inherited cbRecargoEquivalencia: TcxDBCheckBox
--- a/cliente/Views/uEditorRemesaCliente.pas
+++ b/cliente/Views/uEditorRemesaCliente.pas
@ -70,8 +70,8 @@ type
  end;

 implementation
-
 {$R *.dfm}
+{$INCLUDE ..\..\..\FactuGES.inc}

 uses
  uDataTableUtils, cxControls, uDataModuleUsuarios, uDialogUtils, uCustomEditor,
@ -111,6 +111,9 @@ end;
 procedure TfEditorRemesaCliente.GuardarInterno;
 var
  bEsNuevo : Boolean;
+  AIgnorarContabilidad: Integer;
+  ASubCuenta: Integer;
+
 begin
  inherited;
  bEsNuevo := False;
@ -121,7 +124,14 @@ begin
 //  frViewDetallesFacturaCliente1.BeginUpdate;  // Para que no se mueva el foco
  try
    bEsNuevo := FRemesaCliente.EsNuevo;
+
+  {$IFDEF CONTABILIDAD}
+    AIgnorarContabilidad := frViewRemesaCliente1.frViewCajasBancos1.eContabilizar.EditValue;
+    ASubCuenta := frViewRemesaCliente1.frViewCajasBancos1.IdSubCuenta;
+    FController.Guardar(FRemesaCliente, AIgnorarContabilidad, ASubCuenta);
+  {$ELSE}
    FController.Guardar(FRemesaCliente);
+  {$ENDIF}

  finally
 //    frViewDetallesFacturaCliente1.EndUpdate;
--- a/cliente/Views/uViewRemesaCliente.dfm
+++ b/cliente/Views/uViewRemesaCliente.dfm
@ -1,5 +1,5 @@
 inherited frViewRemesaCliente: TfrViewRemesaCliente
-  Width = 451
+  Width = 513
  Height = 304
  Align = alClient
  ExplicitWidth = 451
@ -7,16 +7,16 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
  object dxLayoutControlRemesaCliente: TdxLayoutControl
    Left = 0
    Top = 0
-    Width = 451
+    Width = 513
    Height = 304
    Align = alClient
    ParentBackground = True
    TabOrder = 0
    AutoContentSizes = [acsWidth, acsHeight]
    LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitHeight = 157
+    ExplicitWidth = 451
    DesignSize = (
-      451
+      513
      304)
    object eReferencia: TcxDBTextEdit
      Left = 110
@ -62,7 +62,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
      Width = 108
    end
    object edtFechaRemesa: TcxDBDateEdit
-      Left = 311
+      Left = 342
      Top = 30
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_REMESA'
@ -137,6 +137,44 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
      TabOrder = 3
      Width = 121
    end
+    inline frViewCajasBancos1: TfrViewCajasBancos
+      Left = 22
+      Top = 138
+      Width = 469
+      Height = 35
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 5
+      ReadOnly = False
+      ExplicitLeft = 22
+      ExplicitTop = 138
+      ExplicitWidth = 469
+      ExplicitHeight = 35
+      inherited dxLayoutControl1: TdxLayoutControl
+        Width = 469
+        inherited cbCajasBancos: TcxComboBox
+          Left = 86
+          ExplicitLeft = 86
+          ExplicitWidth = 376
+          Width = 376
+        end
+        inherited eContabilizar: TcxCheckBox
+          Left = 322
+          ExplicitLeft = 322
+          ExplicitWidth = 203
+          Width = 203
+        end
+        inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+          inherited dxLayoutControl1Item1: TdxLayoutItem
+            Caption = 'Caja / Banco:  '
+          end
+        end
+      end
+    end
    object dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
@ -169,7 +207,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
          ShowCaption = False
          Hidden = True
          ShowBorder = False
-          object dxLayoutControlRemesaClienteItem9: TdxLayoutItem
+          object dxlcCuentaBancaria: TdxLayoutItem
            AutoAligns = [aaVertical]
            AlignHorz = ahClient
            Caption = 'Cuenta bancaria:'
@ -188,6 +226,11 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
            Control = eDescripcion
            ControlOptions.ShowBorder = False
          end
+          object dxlcCuentaContable: TdxLayoutItem
+            Control = frViewCajasBancos1
+            ControlOptions.AutoColor = True
+            ControlOptions.ShowBorder = False
+          end
        end
      end
      object dxLayoutControlRemesaClienteGroup3: TdxLayoutGroup
--- a/cliente/Views/uViewRemesaCliente.pas
+++ b/cliente/Views/uViewRemesaCliente.pas
@ -12,7 +12,7 @@ uses
  uFamiliasController, cxSpinEdit, cxCurrencyEdit,
  uBizRemesasCliente, uRemesasClienteController, cxCalendar,
  dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
-  cxImageComboBox, uDAInterfaces;
+  cxImageComboBox, uDAInterfaces, uViewCajasBancos;

 type
  IViewRemesaCliente = interface(IViewBase)
@ -41,12 +41,14 @@ type
    dxLayoutControlRemesaClienteGroup5: TdxLayoutGroup;
    dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
    dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
-    dxLayoutControlRemesaClienteItem9: TdxLayoutItem;
+    dxlcCuentaBancaria: TdxLayoutItem;
    cbCuentaBancaria: TcxDBLookupComboBox;
    dsDatosBanco: TDADataSource;
    dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup;
    cbTipo: TcxDBImageComboBox;
    dxLayoutControlRemesaClienteItem1: TdxLayoutItem;
+    dxlcCuentaContable: TdxLayoutItem;
+    frViewCajasBancos1: TfrViewCajasBancos;

  protected
    FController: IRemesasClienteController;
@ -62,8 +64,8 @@ type
  end;

 implementation
-
 {$R *.dfm}
+{$INCLUDE ..\..\..\FactuGES.inc}

 uses
  uDataModuleUsuarios, uFactuGES_App;
@ -107,7 +109,16 @@ begin
  AItem.Description := CTE_TIPO_TRANSFERENCIA;
  AItem.Value := CTE_TIPO_TRANSFERENCIA;

-  cbTipo.Properties.Items.EndUpdate;  
+  cbTipo.Properties.Items.EndUpdate;
+
+  {$IFDEF CONTABILIDAD}
+    dxlcCuentaBancaria.visible := false;
+    dxlcCuentaContable.Visible := true;
+  {$ELSE}
+    dxlcCuentaBancaria.visible := true;
+    dxlcCuentaContable.Visible := false;
+  {$ENDIF}
+
 end;

 function TfrViewRemesaCliente.GetController: IRemesasClienteController;
--- a/Source/Servidor/FactuGES_Server.RES
+++ b/Source/Servidor/FactuGES_Server.RES
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@ -1,255 +1,254 @@
-<?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\Reports\uRptEtiquetasContacto_Server.pas">
-      <Form>RptEtiquetasContacto</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
-      <Form>RptFichasEmpleado</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\Servidor\srvRecibosProveedor_Impl.pas">
-      <Form>srvRecibosProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <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\Tipos de venta\Servidor\srvTiposVenta_Impl.pas">
-      <Form>srvTiposVenta</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <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">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\Reports\uRptEtiquetasContacto_Server.pas">
+			<Form>RptEtiquetasContacto</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
+			<Form>RptFichasEmpleado</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\Servidor\srvRecibosProveedor_Impl.pas">
+			<Form>srvRecibosProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<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\Tipos de venta\Servidor\srvTiposVenta_Impl.pas">
+			<Form>srvTiposVenta</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<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]
--- 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", "jueves, 28 de febrero de 2008 17:38\0"
+              VALUE "CompileDate", "viernes, 29 de febrero de 2008 18:25\0"
         END
    END
    BLOCK "VarFileInfo"