From 50b7a50b3b2e5fbee309a8988a159082a635dea4 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Fri, 21 Dec 2007 10:57:07 +0000
Subject: [PATCH] =?UTF-8?q?uControllerDetallesArticulos.pas:=20=20*=20Nuev?=
 =?UTF-8?q?a=20funcionar=20para=20a=C3=B1adir=20un=20art=C3=ADculo=20a=20u?=
 =?UTF-8?q?na=20lista=20de=20detalles=20pudiente=20elegir=20si=20se=20inse?=
 =?UTF-8?q?rta=20una=20nueva=20fila=20o=20utilizando=20la=20actual.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@197 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Controller/uControllerDetallesArticulos.pas    | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
index c437830d..23eb4e57 100644
--- a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
+++ b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
@@ -14,7 +14,7 @@ type
 
   IControllerDetallesArticulos = interface(IControllerDetallesBase)
   ['{6E156796-DB1F-4727-BBFB-FBAEF2E5C098}']
-    procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable);
+    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); virtual;
     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;
@@ -155,7 +155,8 @@ begin
   end;
 end;
 
-procedure TControllerDetallesArticulos.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable);
+procedure TControllerDetallesArticulos.AnadirArticulos(
+  ADetalles: IDAStronglyTypedDataTable; const ANuevaFila: Boolean);
 var
   AArticulos: IBizArticulo;
 begin
@@ -164,7 +165,10 @@ begin
     try
       AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
       AArticulos := FArticulosController.ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir', True);
-      Add(ADetalles, AArticulos);
+      if ANuevaFila then      
+        Add(ADetalles, AArticulos)
+      else
+        RellenarDetalle(ADetalles, AArticulos);
     finally
       AArticulos := Nil;
     end;