From 32bf6dd0f58ba61889bad6605d0fdb9365985aff Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 13 Oct 2010 09:36:28 +0000
Subject: [PATCH] Errores #452: Repasar el refresco del numero de copias
 impresas que hay que dar a refrescar para ver el valor correcto

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@88 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
---
 .../Controller/uAlbaranesClienteController.pas    | 15 ++++++++-------
 .../uAlbaranesClienteReportController.pas         | 15 ++++++++-------
 .../Views/uEditorAlbaranesCliente.pas             |  3 ++-
 3 files changed, 18 insertions(+), 15 deletions(-)

diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
index 272f0d6..6ec6c66 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
@@ -51,9 +51,9 @@ type
     procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
     const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
     const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
-    procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
+    function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
     const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
-    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
     procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
 
@@ -172,9 +172,9 @@ type
     procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
     const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
     const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
-    procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
+    function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
     const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
-    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
     procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
 
@@ -1201,14 +1201,15 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteController.Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
+function TAlbaranesClienteController.Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
     const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
-    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
 var
   AReportController : IAlbaranesClienteReportController;
   ID_Albaranes: TIntegerList;
 
 begin
+  Result := False;
   AReportController := TAlbaranesClienteReportController.Create;
   ID_Albaranes := TIntegerList.Create;
   try
@@ -1229,7 +1230,7 @@ begin
    else
      ID_Albaranes.Add(AAlbaran.ID);
 
-    AReportController.Print(ID_Albaranes, VerImprimirPrecios, VerImprimirRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
+   Result := AReportController.Print(ID_Albaranes, VerImprimirPrecios, VerImprimirRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
 
   finally
     AReportController := NIL;
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
index d202c85..62a5689 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas	
@@ -13,9 +13,9 @@ type
     procedure Preview(const AListaID : TIntegerList;
     const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
     const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
-    procedure Print(const AListaID : TIntegerList;
+    function Print(const AListaID : TIntegerList;
     const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
-    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
     procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
     function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
@@ -34,9 +34,9 @@ type
     procedure Preview(const AListaID : TIntegerList;
     const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
     const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
-    procedure Print(const AListaID : TIntegerList;
+    function Print(const AListaID : TIntegerList;
     const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
-    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
     function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
     function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;    
     procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean);
@@ -216,14 +216,15 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList;
+function TAlbaranesClienteReportController.Print(const AListaID : TIntegerList;
     const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
-    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
 
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesClientePreview;
 begin
+  Result := False;
   AEditor := NIL;
 
   ShowHourglassCursor;
@@ -240,7 +241,7 @@ begin
           AEditor.LoadFromStream(AStream);
           AEditor.TablaImpresion := nme_AlbaranesCliente;
           AEditor.IdTablaImpresion := AListaID.ToString;
-          AEditor.Print;
+          Result := AEditor.Print;
         finally
           AEditor.Release;
         end;
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
index f2b4127..1c8a95c 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas	
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas	
@@ -465,7 +465,8 @@ begin
 
                   if Assigned(AAlbaranes) then
                      if ElegirOpcionesImpresionAlbaranCliente(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
-                        FController.Print(AAlbaranes, AllItems, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
+                        if FController.Print(AAlbaranes, AllItems, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
+                           RefrescarInterno;
                 end;
       end;
     end;