diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index b7d219a9..f1971bee 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -54,58 +54,58 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxExportD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxGridD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>
diff --git a/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas
index a6cdc24c..c7c9cbee 100644
--- a/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas	
@@ -134,8 +134,15 @@ begin
         Cell(iRowCount, 3).Range.Text := FieldByName('CONCEPTO').AsString;
         Cell(iRowCount, 4).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + FieldByName('UNIDAD_MEDIDA').AsString;
 
-        Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat);
-        Cell(iRowCount, 6).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat);
+        if (FieldByName('IMPORTE_UNIDAD').AsFloat = 0) then
+          Cell(iRowCount, 5).Range.Text := ''
+        else
+          Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat);
+
+        if (FieldByName('IMPORTE_TOTAL').AsFloat = 0) then
+          Cell(iRowCount, 6).Range.Text := ''
+        else
+          Cell(iRowCount, 6).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat);
         Next;
         Inc (iRowCount);
     end;
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas
index 8196b741..33f32478 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas	
@@ -154,8 +154,17 @@ begin
       Rows.Item(iContador).Cells.Split (numRows, numCols, mergesplit);
       Cell(iContador, 1).Range.Text := FieldByName('CONCEPTO').AsString;
       Cell(iContador, 2).Range.Text := FieldByName('CANTIDAD').AsString;
-      Cell(iContador, 3).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat);
-      Cell(iContador, 4).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat);
+
+      if (FieldByName('IMPORTE_UNIDAD').AsFloat = 0) then
+        Cell(iContador, 3).Range.Text := ''
+      else
+        Cell(iContador, 3).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat);
+
+      if (FieldByName('IMPORTE_TOTAL').AsFloat = 0) then
+        Cell(iContador, 4).Range.Text := ''
+      else
+        Cell(iContador, 4).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat);
+
       TotalConceptos := TotalConceptos + FieldByName('IMPORTE_TOTAL').AsFloat;
       Next;
       Inc (iContador);
diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk
index d35bb342..fe125459 100644
Binary files a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk and b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk differ
diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj
index 3610d937..4e1f05f8 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj	
+++ b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj	
@@ -1,4 +1,5 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
     <MainSource>FacturasProveedor_controller.dpk</MainSource>
@@ -48,19 +49,20 @@
     <DelphiCompile Include="FacturasProveedor_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\AlbaranesProveedor_controller.dcp" />
-    <DCCReference Include="..\..\..\AlbaranesProveedor_model.dcp" />
-    <DCCReference Include="..\..\..\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\..\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\..\FacturasProveedor_data.dcp" />
-    <DCCReference Include="..\..\..\FacturasProveedor_model.dcp" />
-    <DCCReference Include="..\..\..\FormasPago_controller.dcp" />
-    <DCCReference Include="..\..\..\RecibosProveedor_controller.dcp" />
     <DCCReference Include="uArticulosFacturaProveedorController.pas" />
     <DCCReference Include="uDetallesFacturaProveedorController.pas" />
     <DCCReference Include="uFacturasProveedorController.pas" />
     <DCCReference Include="uFacturasProveedorReportController.pas" />
+    <DCCReference Include="View\AlbaranesProveedor_controller.dcp" />
+    <DCCReference Include="View\AlbaranesProveedor_model.dcp" />
+    <DCCReference Include="View\Articulos_controller.dcp" />
+    <DCCReference Include="View\Contactos_controller.dcp" />
+    <DCCReference Include="View\FacturasProveedor_data.dcp" />
+    <DCCReference Include="View\FacturasProveedor_model.dcp" />
+    <DCCReference Include="View\FormasPago_controller.dcp" />
+    <DCCReference Include="View\RecibosProveedor_controller.dcp" />
     <DCCReference Include="View\uIEditorElegirArticulosFacturasProveedor.pas" />
+    <DCCReference Include="View\uIEditorElegirDomiciliacion.pas" />
     <DCCReference Include="View\uIEditorFacturaProveedor.pas" />
     <DCCReference Include="View\uIEditorFacturasProveedor.pas" />
     <DCCReference Include="View\uIEditorFacturasProveedorPreview.pas" />
diff --git a/Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirDomiciliacion.pas b/Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirDomiciliacion.pas
new file mode 100644
index 00000000..ba41fe5a
--- /dev/null
+++ b/Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirDomiciliacion.pas	
@@ -0,0 +1,18 @@
+unit uIEditorElegirDomiciliacion;
+
+interface
+
+uses
+  uEditorBasico;
+
+type
+  IEditorElegirDomiciliacion = interface(IEditorBasico)
+  ['{35DDA0EC-8A96-432E-9721-755CD52923FA}']
+  function GetCuentaBancaria: String;
+  procedure SetCuentaBancaria(const Value: String);
+  property CuentaBancaria: String Read GetCuentaBancaria write SetCuentaBancaria;
+  end;
+
+implementation
+
+end.
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index 025d45be..66bb5c55 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
@@ -53,6 +53,8 @@ type
 
     function DarListaAnosFacturas: TStringList;
     procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String);
+
+    function AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList;
   end;
 
   TFacturasProveedorController = class(TControllerBase, IFacturasProveedorController)
@@ -119,6 +121,8 @@ type
 
     function DarListaAnosFacturas: TStringList;
     procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String);
+
+    function AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList;
   end;
 
 implementation
@@ -133,7 +137,8 @@ uses
   uBizPedidosProveedor, uPedidosProveedorController, uBizDetallesPedidoProveedor,
   uRecibosProveedorController, uBizRecibosProveedor, uNumUtils,
   uFacturasProveedorReportController, DateUtils, Forms, Dialogs,
-  uFormasPagoController, uBizFormasPago, uStringsUtils;
+  uFormasPagoController, uBizFormasPago, uStringsUtils,
+  uIEditorElegirDomiciliacion;
 
 procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoProveedor;
   ADestino : IBizDetallesFacturaProveedor);
@@ -250,10 +255,51 @@ begin
   AFactura.TIPO := CTE_TIPO_ABONO;
 end;
 
+function TFacturasProveedorController.AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList;
+//Devolverá la lista de facturas que no han podido ser modificadas referencia=nombreproveedor
+var
+  AEditor : IEditorElegirDomiciliacion;
+  ACuentaBancaria: String;
+
+begin
+  Result := TStringList.Create;
+
+  if Assigned(AFacturas) then
+  begin
+    CreateEditor('EditorElegirDomiciliacion', IEditorElegirDomiciliacion, AEditor);
+    if Assigned(AEditor) then
+       try
+         if (AEditor.ShowModal = mrOk) then
+            ACuentaBancaria := AEditor.CuentaBancaria;
+       finally
+         AEditor.Release;
+         AEditor := NIL;
+       end;
+
+    with  AFacturas.DataTable do
+    begin
+      First;
+      while not EOF do
+      begin
+        if (AFacturas.SITUACION = CTE_PENDIENTE) then
+        begin
+          Edit;
+          AFacturas.DATOS_BANCARIOS := ACuentaBancaria;
+          Post;
+        end
+        else
+           Result.Add(Format('%s=%s', [AFacturas.REFERENCIA, AFacturas.NOMBRE]));
+        Next;
+      end;
+      ApplyUpdates;
+    end;
+ end;
+end;
+
 function TFacturasProveedorController.Buscar(const ID: Integer): IBizFacturaProveedor;
 begin
   Result := (FDataModule as IDataModuleFacturasProveedor).GetItem(ID);
-  FiltrarEmpresa(Result);  
+  FiltrarEmpresa(Result);
 end;
 
 function TFacturasProveedorController.BuscarTodos(
diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk
index a49e4b19..aa908645 100644
Binary files a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk and b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk differ
diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
index 9a8344c8..24cab1ab 100644
--- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj	
+++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj	
@@ -41,7 +41,6 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <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">False</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><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">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
@@ -50,39 +49,38 @@
     <DelphiCompile Include="FacturasProveedor_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\adortl.dcp" />
-    <DCCReference Include="..\..\Lib\AlbProv_FacProv_relation.dcp" />
-    <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
-    <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxExportD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxGridD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
-    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
-    <DCCReference Include="..\..\Lib\dsnap.dcp" />
-    <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" />
-    <DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
-    <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
-    <DCCReference Include="..\..\Lib\PedProv_FacProv_relation.dcp" />
-    <DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\Lib\PNG_D10.dcp" />
-    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Lib\rtl.dcp" />
-    <DCCReference Include="..\..\Lib\vcl.dcp" />
-    <DCCReference Include="..\..\Lib\vclactnband.dcp" />
-    <DCCReference Include="..\..\Lib\vcldb.dcp" />
-    <DCCReference Include="..\..\Lib\vcljpg.dcp" />
-    <DCCReference Include="..\..\Lib\vclx.dcp" />
+    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="AlbProv_FacProv_relation.dcp" />
+    <DCCReference Include="Articulos_view.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
+    <DCCReference Include="cxExportD11.dcp" />
+    <DCCReference Include="cxExtEditorsD11.dcp" />
+    <DCCReference Include="cxGridD11.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="cxPageControlD11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
+    <DCCReference Include="FacturasProveedor_controller.dcp" />
+    <DCCReference Include="FacturasProveedor_model.dcp" />
+    <DCCReference Include="GestorInformes_controller.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="PedProv_FacProv_relation.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
       <Form>fEditorElegirArticulosFacturaProveedor</Form>
       <DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorElegirDomiciliacion.pas">
+      <Form>fEditorElegirDomiciliacion</Form>
+      <DesignClass>TfEditorFacturaProveedor</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorFacturaProveedor.pas">
       <Form>fEditorFacturaProveedor</Form>
       <DesignClass>TfEditorFacturaProveedor</DesignClass>
@@ -116,6 +114,11 @@
       <Form>frViewPedidosFacturaProveedor</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="vclx.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.dfm
new file mode 100644
index 00000000..2f7e33ee
--- /dev/null
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.dfm	
@@ -0,0 +1,87 @@
+object fEditorElegirDomiciliacion: TfEditorElegirDomiciliacion
+  Left = 0
+  Top = 0
+  BorderStyle = bsDialog
+  Caption = 'Domiciliaci'#243'n bancaria'
+  ClientHeight = 124
+  ClientWidth = 497
+  Color = clWindow
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 21
+    Top = 16
+    Width = 319
+    Height = 13
+    Caption = 
+      'Seleccione la cuenta bancaria donde desea domiciliar la/s factur' +
+      'a/s'
+  end
+  object Label2: TLabel
+    Left = 22
+    Top = 45
+    Width = 83
+    Height = 13
+    Alignment = taRightJustify
+    Caption = 'Cuenta bancaria:'
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 83
+    Width = 497
+    Height = 41
+    Align = alBottom
+    TabOrder = 0
+    DesignSize = (
+      497
+      41)
+    object bAceptar: TButton
+      Left = 333
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'Aceptar'
+      ModalResult = 1
+      TabOrder = 0
+    end
+    object bCancelar: TButton
+      Left = 414
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'Cancelar'
+      ModalResult = 2
+      TabOrder = 1
+    end
+  end
+  object cbCuentaBancaria: TcxComboBox
+    Left = 111
+    Top = 41
+    Properties.DropDownListStyle = lsFixedList
+    Properties.DropDownRows = 12
+    Properties.ImmediatePost = True
+    Properties.ImmediateUpdateText = True
+    Properties.PostPopupValueOnTab = True
+    Style.BorderColor = clWindowFrame
+    Style.BorderStyle = ebs3D
+    Style.HotTrack = False
+    Style.LookAndFeel.SkinName = ''
+    Style.ButtonStyle = bts3D
+    Style.PopupBorderStyle = epbsFrame3D
+    StyleDisabled.LookAndFeel.SkinName = ''
+    StyleFocused.LookAndFeel.SkinName = ''
+    StyleHot.LookAndFeel.SkinName = ''
+    TabOrder = 1
+    Width = 378
+  end
+end
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.pas
new file mode 100644
index 00000000..d86c4340
--- /dev/null
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.pas	
@@ -0,0 +1,88 @@
+unit uEditorElegirDomiciliacion;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
+  cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorElegirDomiciliacion,
+  cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit, uEmpresasController;
+
+type
+  TfEditorElegirDomiciliacion = class(TfEditorBasico, IEditorElegirDomiciliacion)
+    Label1: TLabel;
+    bAceptar: TButton;
+    bCancelar: TButton;
+    Label2: TLabel;
+    Panel1: TPanel;
+    cbCuentaBancaria: TcxComboBox;
+    procedure FormShow(Sender: TObject);
+
+  private
+    FCuentaBancaria: String;
+    function GetCuentaBancaria: String;
+    procedure SetCuentaBancaria(const Value: String);
+
+  public
+    property CuentaBancaria: String Read GetCuentaBancaria write SetCuentaBancaria;
+  end;
+
+implementation
+{$R *.dfm}
+
+uses uFactuGES_App;
+
+procedure TfEditorElegirDomiciliacion.FormShow(Sender: TObject);
+var
+  AController: IEmpresasController;
+  ALista : TStringList;
+  AListaIBAN : TStringList;
+  i : integer;
+
+begin
+  AController := TEmpresasController.Create;
+  try
+    ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
+    AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
+
+    try
+      with cbCuentaBancaria.Properties.Items do
+      begin
+        BeginUpdate;
+        try
+          Clear;
+          Add('');
+          for i := 0 to ALista.Count - 1 do
+              Add(ALista.Names[i]);
+
+          if AListaIBAN.Count > 0 then
+          begin
+            Add('--------------');
+            for i := 0 to AListaIBAN.Count - 1 do
+                Add(AListaIBAN.Names[i]);
+          end;
+        finally
+          EndUpdate;
+        end;
+      end;
+    finally
+      FreeANDNIL(ALista);
+      FreeANDNIL(AListaIBAN);
+    end;
+  finally
+    AController := NIL;
+  end;
+end;
+
+function TfEditorElegirDomiciliacion.GetCuentaBancaria: String;
+begin
+  Result := cbCuentaBancaria.EditValue;
+end;
+
+procedure TfEditorElegirDomiciliacion.SetCuentaBancaria(const Value: String);
+begin
+  cbCuentaBancaria.ItemIndex := cbCuentaBancaria.Properties.Items.IndexOfName(Value);
+end;
+
+
+end.
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm
index e198e6a3..43d0428a 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm	
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm	
@@ -38,7 +38,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
     Width = 849
     ExplicitWidth = 849
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 849
+      ExplicitWidth = 775
       object TBXSubmenuItem2: TTBXSubmenuItem [0]
         Caption = 'Nuevo'
         DisplayMode = nbdmImageAndText
@@ -77,7 +77,12 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
       Left = 427
       Visible = True
       ExplicitLeft = 427
-      ExplicitWidth = 66
+      ExplicitWidth = 179
+      object TBXItem41: TTBXItem
+        Action = actDomiciliacion
+      end
+      object TBXSeparatorItem17: TTBXSeparatorItem
+      end
       object TBXItem40: TTBXItem
         Action = actInformes
       end
@@ -265,6 +270,12 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
       Caption = 'Informes'
       OnExecute = actInformesExecute
     end
+    object actDomiciliacion: TAction
+      Category = 'Acciones'
+      Caption = 'Asignar domiciliaci'#243'n'
+      OnExecute = actDomiciliacionExecute
+      OnUpdate = actDomiciliacionUpdate
+    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <
@@ -4002,4 +4013,306 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
     Left = 408
     Top = 72
   end
+  object JsListaFacturasNoModificables: TJSDialog
+    Glyph.Data = {
+      0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+      00001C0806000000720DDF940000000970485973000017120000171201679FD2
+      520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+      5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+      1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+      3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+      B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+      60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+      21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+      A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+      225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+      081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+      A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+      70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+      EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+      286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+      6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+      81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+      CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+      469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+      F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+      86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+      4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+      673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+      ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+      FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+      82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+      1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+    Instruction.Text = 
+      'Las siguientes facturas no han podido ser modificadas, porque ti' +
+      'enen recibos con pagos o devoluciones emitidas'
+    Instruction.Glyph.Data = {
+      0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+      00001C0806000000720DDF940000000970485973000017120000171201679FD2
+      520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+      5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+      1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+      3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+      B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+      60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+      21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+      A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+      225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+      081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+      A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+      70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+      EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+      286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+      6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+      81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+      CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+      469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+      F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+      86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+      4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+      673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+      ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+      FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+      82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+      1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+    Instruction.Icon = tdiCustom
+    ButtonBar.Buttons = [cbOK]
+    ButtonBar.Cancel = cbOK
+    ButtonBar.UseCancel = False
+    MainIcon = tdiCustom
+    Title = 'FactuGES'
+    Position = dpMainFormCenter
+    Icon.Data = {
+      0000010003002020100001000400E8020000360000002020000001000800A808
+      00001E0300002020000001002000A8100000C60B000028000000200000004000
+      0000010004000000000000020000000000000000000000000000000000000000
+      000000008000008000000080800080000000800080008080000080808000C0C0
+      C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
+      0000000000000000000000000000000008777777777777777777777700000000
+      0877767777677776777767760000000008F88888888888888888888700000000
+      08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
+      08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
+      08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
+      08F8676767677677677658E50000000008FF8888888887878787888700000000
+      08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
+      08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
+      0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
+      08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
+      8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
+      B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
+      B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
+      B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
+      B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
+      08BB883B78888788787700000000000000B9000000000000000000000000FFFF
+      FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+      000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+      000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
+      000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
+      0000200000004000000001000800000000000004000000000000000000000001
+      00000001000000000000694731007C5D49007E604C0081635000826451008567
+      540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
+      61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
+      76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
+      970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
+      E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
+      FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
+      F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
+      C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
+      E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
+      F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
+      F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
+      FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
+      F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
+      F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
+      8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
+      9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
+      9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
+      A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
+      8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
+      AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
+      9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
+      BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
+      B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
+      F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
+      C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
+      C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
+      D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
+      DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
+      FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
+      EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
+      F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0000000000000000009C9C19191919191919191919191919191919191919
+      1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
+      8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
+      9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
+      9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
+      9007000000000000000000AFF0D5017783838386868686869099909999907BB0
+      9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
+      9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
+      9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
+      9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
+      9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
+      9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
+      9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
+      9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
+      9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
+      9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
+      9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
+      9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
+      9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
+      9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
+      9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
+      9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
+      7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
+      0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
+      A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
+      1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
+      700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
+      000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
+      000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
+      0000000000000000000000003227000000000000000000000000000000000000
+      000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
+      000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+      000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
+      000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
+      00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000007067
+      5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
+      40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
+      40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
+      A070000000000000000000000000000000000000000000000000000000005E54
+      4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
+      79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
+      79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
+      967F000000000000000000000000000000000000000000000000000000006055
+      4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
+      BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
+      B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006056
+      4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
+      D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
+      C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006155
+      4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
+      DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
+      C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006157
+      4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
+      CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
+      B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006256
+      4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
+      94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
+      9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006256
+      4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
+      CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006256
+      4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
+      C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006257
+      4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
+      4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
+      5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006357
+      507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
+      A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
+      98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006357
+      507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
+      95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
+      DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006458
+      517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
+      7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
+      DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006458
+      517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
+      F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
+      DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006459
+      517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
+      EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
+      D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006559
+      527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
+      8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
+      8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
+      967E000000000000000000000000000000000000000000000000000000006559
+      527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
+      C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
+      F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
+      967E00000000000000000000000000000000000000000000000000000000685A
+      527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
+      C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
+      967E00000000000000000000000000000000007792910072A7A3001E33366957
+      4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
+      A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
+      76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
+      967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
+      A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
+      CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
+      8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
+      967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
+      FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
+      B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
+      F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
+      967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
+      F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
+      63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
+      F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
+      967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
+      FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
+      FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
+      F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
+      967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
+      FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
+      FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
+      F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
+      987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
+      FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
+      F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
+      FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
+      9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
+      FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
+      FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
+      FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
+      831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
+      FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
+      FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
+      000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
+      FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
+      000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
+      BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
+      F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
+      E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
+      0000000000000000000000000000000000000075B7AF0099C7C500323E425442
+      3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
+      A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
+      7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
+      0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
+      0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
+      0007C0000007C000000700000007000000070000000700000007C000000FC000
+      001F8000003F800000FFF8FFFFFF}
+    Width = 450
+    Left = 224
+    Top = 112
+  end
 end
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
index 89d6e0db..cec76e40 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas	
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas	
@@ -34,12 +34,18 @@ type
     JSInformesDialog: TJSDialog;
     actInformes: TAction;
     TBXItem40: TTBXItem;
+    actDomiciliacion: TAction;
+    TBXItem41: TTBXItem;
+    TBXSeparatorItem17: TTBXSeparatorItem;
+    JsListaFacturasNoModificables: TJSDialog;
     procedure FormShow(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
     procedure actNuevaFacturaExecute(Sender: TObject);
     procedure actNuevoAbonoExecute(Sender: TObject);
     procedure actInformesExecute(Sender: TObject);
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
+    procedure actDomiciliacionExecute(Sender: TObject);
+    procedure actDomiciliacionUpdate(Sender: TObject);
 
   private
     FFacturas: IBizFacturaProveedor;
@@ -55,8 +61,6 @@ type
     procedure EliminarInterno; override;
     procedure ModificarInterno; override;
     procedure DuplicarInterno; override;
-    procedure ImprimirInterno; override;
-    procedure PrevisualizarInterno; override;
     procedure RefrescarInterno; override;
 
   public
@@ -71,7 +75,7 @@ type
 implementation
 
 uses
-  uDataModuleFacturasProveedor, uDataModuleUsuarios,
+  uDataModuleFacturasProveedor, uDataModuleUsuarios, cxControls,
   uGridStatusUtils, uDBSelectionListUtils, uFactuGES_App,
   uAlbaranesProveedorController, uBizAlbaranesProveedor,
   uEditorBase, uGenerarFacturasProvAlbProvUtils, uGenerarFacturasProvPedUtils,
@@ -82,6 +86,50 @@ uses
 {
 *************************** TfEditorFacturasProveedor ***************************
 }
+procedure TfEditorFacturasProveedor.actDomiciliacionExecute(Sender: TObject);
+var
+  AFacturas: IBizFacturaProveedor;
+  AListaFacturasNoModificadas: TStringList;
+  i: integer;
+
+begin
+  inherited;
+
+  ViewGrid.SaveGridStatus;
+  try
+    SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
+    AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
+  finally
+    ViewGrid.RestoreGridStatus;
+  end;
+
+  AListaFacturasNoModificadas := Controller.AsignarCuentaBancaria(AFacturas);
+
+  JsListaFacturasNoModificables.Content.Clear;
+  for i := 0 to AListaFacturasNoModificadas.Count - 1 do
+      JsListaFacturasNoModificables.Content.Add('Ref. factura: ' + AListaFacturasNoModificadas.Names[i] + '  ' + AListaFacturasNoModificadas.Values[AListaFacturasNoModificadas.Names[i]]);
+  if AListaFacturasNoModificadas.Count > 0 then
+     JsListaFacturasNoModificables.Execute;
+
+  FreeAndNil(AListaFacturasNoModificadas);
+  RefrescarInterno;
+end;
+
+procedure TfEditorFacturasProveedor.actDomiciliacionUpdate(Sender: TObject);
+begin
+  inherited;
+
+  if HayDatos and Assigned(ViewGrid) then
+    (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
+      and ViewGrid.esSeleccionCeldaDatos
+      and (ViewGrid.NumSeleccionados > 0)
+  else
+    (Sender as TAction).Enabled := False;
+
+  if (Sender as TAction).Enabled then
+     (Sender as TAction).Enabled := (FFacturas.SITUACION = CTE_PENDIENTE);
+end;
+
 procedure TfEditorFacturasProveedor.actEliminarUpdate(Sender: TObject);
 begin
   inherited;
@@ -199,7 +247,7 @@ begin
 
   if AllItems then
   begin
-    if (Application.MessageBox('¿Desea borrar las facturas/abonos de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then
+    if (Application.MessageBox('¿Desea borrar las facturas/abonos de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then
     begin
       SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
       AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
@@ -274,50 +322,6 @@ begin
   Result := FFacturas;
 end;
 
-procedure TfEditorFacturasProveedor.ImprimirInterno;
-{var
-  Respuesta : Integer;
-  AFacturas: IBizFacturaProveedor;
-  AllItems: Boolean;}
-begin
-  inherited;
-{
-  AFacturas := Nil;
-  AllItems := False;
-
-  if MultiSelect and Assigned(ViewGrid) then
-     AllItems :=  (ViewGrid.NumSeleccionados > 1);
-
-  //Si esta agrupado solo podré imprimir la lista de elementos visibles
-  if not ViewGrid.esSeleccionCeldaDatos then
-     inherited
-  else
-  begin
-    Respuesta := JsImprimirDialog.Execute;
-    if Respuesta <> IDCANCEL then
-    begin
-      case JsImprimirDialog.CustomButtonResult of
-        200   : begin   // Lista de elementos visibles
-                  inherited;
-                end;
-        100   : begin   // Elemento Seleccionado
-                  if AllItems then
-                  begin
-                    SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
-                    AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
-                  end
-                  else
-                    AFacturas := Facturas;
-
-                  if Assigned(AFacturas) then
-                     FController.Print(AFacturas, AllItems);
-                end;
-      end;
-    end;
-  end;
-}  
-end;
-
 procedure TfEditorFacturasProveedor.ModificarInterno;
 begin
   inherited;
@@ -366,50 +370,6 @@ begin
   inherited PonerTitulos(FTitulo);
 end;
 
-procedure TfEditorFacturasProveedor.PrevisualizarInterno;
-{var
-  Respuesta : Integer;
-  AFacturas: IBizFacturaProveedor;
-  AllItems: Boolean;}
-begin
-  inherited;
-{
-  AFacturas := Nil;
-  AllItems := False;
-
-  if MultiSelect and Assigned(ViewGrid) then
-     AllItems :=  (ViewGrid.NumSeleccionados > 1);
-
-  //Si esta agrupado solo podré imprimir la lista de elementos visibles
-  if not ViewGrid.esSeleccionCeldaDatos then
-     inherited
-  else
-  begin
-    Respuesta := JsPrevisualizarDialog.Execute;
-    if Respuesta <> IDCANCEL then
-    begin
-      case JsPrevisualizarDialog.CustomButtonResult of
-        200   : begin   // Lista de elementos visibles
-                  inherited;
-                end;
-        100   : begin   // Elemento Seleccionado
-                  if AllItems then
-                  begin
-                    SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
-                    AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
-                  end
-                  else
-                    AFacturas := Facturas;
-
-                  if Assigned(AFacturas) then
-                     FController.Preview(AFacturas, AllItems);
-                end;
-      end;
-    end;
-  end;
-}  
-end;
-
 procedure TfEditorFacturasProveedor.RefrescarInterno;
 begin
   //Volvemos a cargar los años de los albaranes
diff --git a/Source/Modulos/Facturas de proveedor/Views/uFacturasProveedorViewRegister.pas b/Source/Modulos/Facturas de proveedor/Views/uFacturasProveedorViewRegister.pas
index 4726c0ff..2ef7aa83 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uFacturasProveedorViewRegister.pas	
+++ b/Source/Modulos/Facturas de proveedor/Views/uFacturasProveedorViewRegister.pas	
@@ -9,10 +9,12 @@ implementation
 
 uses
   uEditorRegistryUtils, uEditorFacturasProveedor,  uEditorFacturaProveedor,
-  uEditorElegirArticulosFacturaProveedor, uEditorFacturasProveedorReport;
+  uEditorElegirDomiciliacion, uEditorElegirArticulosFacturaProveedor,
+  uEditorFacturasProveedorReport;
 
 procedure RegisterViews;
 begin
+  EditorRegistry.RegisterClass(TfEditorElegirDomiciliacion, 'EditorElegirDomiciliacion');
   EditorRegistry.RegisterClass(TfEditorFacturasProveedor, 'EditorFacturasProveedor');
   EditorRegistry.RegisterClass(TfEditorFacturaProveedor, 'EditorFacturaProveedor');
   EditorRegistry.RegisterClass(TfEditorElegirArticulosFacturaProveedor, 'EditorElegirArticulosFacturaProveedor');
@@ -21,6 +23,7 @@ end;
 
 procedure UnregisterViews;
 begin
+  EditorRegistry.UnRegisterClass(TfEditorElegirDomiciliacion);
   EditorRegistry.UnRegisterClass(TfEditorFacturasProveedor);
   EditorRegistry.UnRegisterClass(TfEditorFacturaProveedor);
   EditorRegistry.UnRegisterClass(TfEditorElegirArticulosFacturaProveedor);
diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas
index 99e6fe44..47db31a7 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas	
@@ -138,15 +138,18 @@ begin
         Cell(iRowCount, 3).Range.Text := FieldByName('CONCEPTO').AsString;
         Cell(iRowCount, 4).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + FieldByName('UNIDAD_MEDIDA').AsString;
 
-        if ImprimirPrecio then
+        if ImprimirPrecio
+        and (FieldByName('IMPORTE_UNIDAD').AsFloat <> 0) then
           Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat)
         else
           Cell(iRowCount, 5).Range.Text := '';
 
-        if ImprimirPrecio then
+        if ImprimirPrecio
+        and (FieldByName('IMPORTE_TOTAL').AsFloat <> 0) then
           Cell(iRowCount, 6).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat)
         else
           Cell(iRowCount, 6).Range.Text := '';
+
         Next;
         Inc (iRowCount);
     end;
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
index 020644d0..ce608bd1 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
@@ -162,12 +162,14 @@ begin
       Cell(iContador, 1).Range.Text := FieldByName('CONCEPTO').AsString;
       Cell(iContador, 2).Range.Text := FieldByName('CANTIDAD').AsString + ' ' +
                                        FieldByName('UNIDAD_MEDIDA').AsString;
-      if FImportes then
+      if FImportes
+      and (FieldByName('IMPORTE_UNIDAD').AsFloat <> 0) then
         Cell(iContador, 3).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat)
       else
         Cell(iContador, 3).Range.Text := '';
 
-      if FImportes then
+      if FImportes
+      and (FieldByName('IMPORTE_TOTAL').AsFloat <> 0) then
         Cell(iContador, 4).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat)
       else
         Cell(iContador, 4).Range.Text := '';
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 26175653..094309bf 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 661bf6f3..0a083e1a 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.6.7.0\0"
               VALUE "ProductVersion", "1.6.7.0\0"
-              VALUE "CompileDate", "lunes, 02 de marzo de 2009 18:14\0"
+              VALUE "CompileDate", "martes, 03 de marzo de 2009 14:06\0"
          END
     END
     BLOCK "VarFileInfo"