diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
index e0e2a530..730b5d39 100644
--- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk	
+++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk	
@@ -29,7 +29,8 @@ requires
   FacturasCliente_model,
   FacturasCliente_controller,
   Contactos_view,
-  Articulos_view;
+  Articulos_view,
+  AlbCli_FacCli_relation;
 
 contains
   uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
index 2f2f0dbb..b7de9dad 100644
--- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj	
+++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj	
@@ -41,53 +41,14 @@
     <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">FacturasCliente_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">FacturasCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="FacturasCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
     <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
     <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
     <DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
@@ -95,15 +56,19 @@
     <DCCReference Include="..\..\Lib\GUIBase.dcp" />
     <DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
       <Form>fEditorElegirArticulosFacturaCliente</Form>
+      <DesignClass>TForm</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorElegirFacturasCliente.pas">
       <Form>fEditorElegirFacturasCliente</Form>
+      <DesignClass>TfEditorElegirFacturasCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorFacturaCliente.pas">
       <Form>fEditorFacturaCliente</Form>
+      <DesignClass>TfEditorFacturaCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorFacturasCliente.pas">
       <Form>fEditorFacturasCliente</Form>
+      <DesignClass>TfEditorFacturasCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorFacturasClienteReport.pas">
       <Form>fEditorFacturasClientePreview</Form>
@@ -111,19 +76,22 @@
     <DCCReference Include="uFacturasClienteViewRegister.pas" />
     <DCCReference Include="uViewDetallesFacturaCliente.pas">
       <Form>frViewDetallesFacturaCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewElegirArticulosFacturasCliente.pas">
       <Form>frViewElegirArticulosFacturasCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewFacturaCliente.pas">
       <Form>frViewFacturaCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewFacturasCliente.pas">
       <Form>frViewFacturasCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res
index 36f26e23..86c94e6a 100644
Binary files a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res and b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res differ
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
index d9b3e817..6de0b1e1 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas	
@@ -64,7 +64,7 @@ implementation
 uses
   uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
 //  uPedidosClienteController, uBizPedidosCliente,
-//  uGenerarFacturasCliAlbCliUtils,
+  uGenerarFacturasCliAlbCliUtils,
   uBizAlbaranesCliente,
   uEditorBase,  uGridUtils, uDBSelectionListUtils;
 
@@ -304,7 +304,7 @@ begin
                   end;}
                 end;
       200   : begin   // Utilizar albaranes
-//                  GenerarFacturaCli;
+                  GenerarFacturaCli;
                   actRefrescar.Execute;
       end;
       100    : begin   // Albaran nuevo vacio
diff --git a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dpk b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dpk
index 6e8e712a..23f76caa 100644
--- a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dpk	
+++ b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dpk	
@@ -22,25 +22,13 @@ package AlbCli_FacCli_relation;
 {$WRITEABLECONST OFF}
 {$MINENUMSIZE 1}
 {$IMAGEBASE $400000}
-{$IMPLICITBUILD OFF}
+{$IMPLICITBUILD ON}
 
 requires
-  rtl,
-  Base,
-  ControllerBase,
-  Contactos_model,
-  Contactos_controller,
-  PNG_D10,
-  vcl,
-  JSDialog100,
-  vclx,
-  vclactnband,
-  xmlrtl,
-  designide,
-  AlbaranesCliente_controller,
   AlbaranesCliente_model,
-  FacturasCliente_controller,
-  FacturasCliente_model;
+  FacturasCliente_model,
+  AlbaranesCliente_controller,
+  FacturasCliente_controller;
 
 contains
   uGenerarFacturasCliAlbCliUtils in 'uGenerarFacturasCliAlbCliUtils.pas' {dmGenerarFacturasCli},
diff --git a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.res b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.res
index 36f26e23..86c94e6a 100644
Binary files a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.res and b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.res differ
diff --git a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas
index 71e2f6b1..328269d0 100644
--- a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas	
+++ b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas	
@@ -188,7 +188,7 @@ begin
      AAlbaran.DataTable.Active := True;
 
   try
-     AFacturasNuevas := AFacturasClienteController.Nuevo;
+     AFacturasNuevas := AFacturasClienteController.Buscar(-100); //Nuevo; OJO pendiente de arreglar
      if AFacturasClienteController.Anadir(AFacturasNuevas, AAlbaran) then
      begin
        if AFacturasNuevas.DataTable.RecordCount = 1 then