From c9e25122994012a5413ff4ebbc5bc2b502e0d619 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Tue, 25 Mar 2008 19:06:25 +0000
Subject: [PATCH] Se habilita duplicar albaranes de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@181 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Controller/uAlbaranesClienteController.pas                 | 1 +
 .../Albaranes de cliente/Views/uEditorAlbaranesCliente.pas     | 3 ---
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
index c4ad12c3..845b8c23 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
@@ -422,6 +422,7 @@ begin
       USUARIO := AppFactuGES.UsuarioActivo.UserName;
       FECHA_ALBARAN := DateOf(Now);
       INCIDENCIAS_ACTIVAS := 0;
+      SITUACION := SITUACION_ALBARAN_PENDIENTE;
 //      INCIDENCIAS := Nil;
       REFERENCIA := '';
       FECHA_PREVISTA_ENVIO := 0;
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
index 00c52161..e628911c 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas	
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas	
@@ -281,8 +281,6 @@ procedure TfEditorAlbaranesCliente.DuplicarInterno;
 var
   APedido : IBizAlbaranCliente;
 begin
-AppFactuGES.ShowCapado;
-{
   inherited;
   APedido := FController.Duplicar(Albaranes);
   try
@@ -290,7 +288,6 @@ AppFactuGES.ShowCapado;
   finally
     actRefrescar.Execute;
   end;
-}  
 end;
 
 procedure TfEditorAlbaranesCliente.EliminarInterno;