From 40eb23ea465bc9ac1fbf9c361595cc9f15b51737 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 4 Feb 2010 11:03:18 +0000
Subject: [PATCH] Arreglos varios

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@86 f33bb606-9f5c-448d-9c99-757f00063c96
---
 .../Views/uDialogOpcionesImpresionFacturasCliente.dfm     | 1 +
 .../Views/uDialogOpcionesImpresionFacturasCliente.pas     | 8 ++++++++
 2 files changed, 9 insertions(+)

diff --git a/Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.dfm
index ad2d086..6ddc186 100644
--- a/Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.dfm	
+++ b/Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.dfm	
@@ -81,6 +81,7 @@ inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFact
     Top = 16
     inherited actAceptar: TAction
       OnExecute = actAceptarExecute
+      OnUpdate = actAceptarUpdate
     end
     inherited actCancelar: TAction
       OnExecute = actCancelarExecute
diff --git a/Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.pas
index efc6a95..b562335 100644
--- a/Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.pas	
@@ -13,6 +13,7 @@ type
     cbContabilidad: TCheckBox;
     procedure actAceptarExecute(Sender: TObject);
     procedure actCancelarExecute(Sender: TObject);
+    procedure actAceptarUpdate(Sender: TObject);
   private
     { Private declarations }
   public
@@ -57,6 +58,13 @@ begin
   ModalResult := mrOk
 end;
 
+procedure TfDialogOpcionesImpresionFacturasCliente.actAceptarUpdate(
+  Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := cbOriginal.Checked or cbCopia.Checked or cbContabilidad.Checked;
+end;
+
 procedure TfDialogOpcionesImpresionFacturasCliente.actCancelarExecute(Sender: TObject);
 begin
   inherited;