diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index ec5a422b..e80724c1 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
@@ -23,7 +23,7 @@ type
     function BuscarTodos: IBizFacturaProveedor;
     procedure Ver(AFactura : IBizFacturaProveedor);
     procedure VerTodos(AFacturas: IBizFacturaProveedor);
-    function Nuevo : IBizFacturaProveedor;
+    function Nuevo (withInsert: Boolean = True) : IBizFacturaProveedor;
     function Anadir(AFactura : IBizFacturaProveedor) : Boolean; overload;
     function AnadirAbono(AFactura : IBizFacturaProveedor) : Boolean;
     function Anadir(AFacturas : IBizFacturaProveedor; AListaAlbaranes : IBizAlbaranProveedor): Boolean; overload;
@@ -89,7 +89,7 @@ type
     function Buscar(const ID: Integer): IBizFacturaProveedor;
     function BuscarTodos: IBizFacturaProveedor;
 //    function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
-    function Nuevo : IBizFacturaProveedor;
+    function Nuevo (withInsert: Boolean = True): IBizFacturaProveedor;
     procedure Ver(AFactura : IBizFacturaProveedor);
     procedure VerTodos(AFacturas: IBizFacturaProveedor);
     function Duplicar(AFactura: IBizFacturaProveedor): IBizFacturaProveedor;
@@ -912,14 +912,15 @@ begin
   end;
 end;
 
-function TFacturasProveedorController.Nuevo: IBizFacturaProveedor;
+function TFacturasProveedorController.Nuevo(withInsert: Boolean = True): IBizFacturaProveedor;
 var
   AFactura : IBizFacturaProveedor;
 begin
   AFactura := FDataModule.NewItem;
   FiltrarEmpresa(AFactura);
   AFactura.DataTable.Active := True;
-  AFactura.Insert;
+  if withInsert then
+     AFactura.Insert;
   Result := AFactura;
 end;
 
@@ -1076,4 +1077,3 @@ begin
 end;
 
 end.
-  
\ No newline at end of file