diff --git a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
index c437830d..0aee8556 100644
--- a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
+++ b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
@@ -13,8 +13,8 @@ type
   TEnumReferencia = (tCliente, tProveedor);
 
   IControllerDetallesArticulos = interface(IControllerDetallesBase)
-  ['{6E156796-DB1F-4727-BBFB-FBAEF2E5C098}']
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable);
+  ['{6E156796-DB1F-4727-BBFB-FBAEF2E5C098}']  
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True);  
     function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1): Boolean; overload;
     function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1): Boolean; overload;
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
@@ -39,7 +39,7 @@ type
   public
     function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1): Boolean; overload;
     function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1): Boolean; overload;
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable); virtual;
+    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True);  
     procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
     procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable);
     procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String);
@@ -70,7 +70,7 @@ begin
       ADetalles.DataTable.First;
       with ADetalles.DataTable do
       begin
-        while not Eof do
+        while not EOF do
         begin
           Edit;
           AArticulos.DataTable.First;
@@ -129,10 +129,10 @@ function TControllerDetallesArticulos.AnadirArticulo(ADetalles: IDAStronglyTyped
 var
   AArticulo: IBizArticulo;
 begin
-{
-  Añade el artículo con la referencia pasada por parametro a los detalles pasados por parametro
-  En el caso de asignar un AClienteID el articulo debe contener el descuento para ese cliente
-}
+	{
+	Añade el artículo con la referencia pasada por parametro a los detalles pasados por parametro
+	En el caso de asignar un AClienteID el articulo debe contener el descuento para ese cliente
+	}
 
   Result := False;
   BeginUpdate(ADetalles);
@@ -155,16 +155,20 @@ begin
   end;
 end;
 
-procedure TControllerDetallesArticulos.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable);
+procedure TControllerDetallesArticulos.AnadirArticulos(
+	ADetalles: IDAStronglyTypedDataTable; const ANuevaFila: Boolean);
 var
   AArticulos: IBizArticulo;
 begin
   if Assigned(ADetalles) then
   begin
     try
-      AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
-      AArticulos := FArticulosController.ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir', True);
-      Add(ADetalles, AArticulos);
+		AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
+		AArticulos := FArticulosController.ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir', True);
+		if ANuevaFila then
+			Add(ADetalles, AArticulos)
+		else
+			RellenarDetalle(ADetalles, AArticulos);
     finally
       AArticulos := Nil;
     end;