Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglos varios

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@86 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-04 11:03:18 +00:00
parent baf9b5d19c
commit 40eb23ea46
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.dfm
View File

@ -81,6 +81,7 @@ inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFact
Top = 16 Top = 16
inherited actAceptar: TAction inherited actAceptar: TAction
OnExecute = actAceptarExecute OnExecute = actAceptarExecute
OnUpdate = actAceptarUpdate
end end
inherited actCancelar: TAction inherited actCancelar: TAction
OnExecute = actCancelarExecute OnExecute = actCancelarExecute

8
Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.pas
View File

@ -13,6 +13,7 @@ type
cbContabilidad: TCheckBox; cbContabilidad: TCheckBox;
procedure actAceptarExecute(Sender: TObject); procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject); procedure actCancelarExecute(Sender: TObject);
procedure actAceptarUpdate(Sender: TObject);
private private
{ Private declarations } { Private declarations }
public public
@ -57,6 +58,13 @@ begin
ModalResult := mrOk ModalResult := mrOk
end; 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); procedure TfDialogOpcionesImpresionFacturasCliente.actCancelarExecute(Sender: TObject);
begin begin
inherited; inherited;