Ticket #50 -> Botón 'Generar contrato' aparece activo cuando no tengo nada seleccionado en el grid

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@440 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2009-10-06 12:14:56 +00:00
parent 2b4cf43a6c
commit 8632ddac4e

View File

@ -281,7 +281,7 @@ procedure TfEditorPresupuestosCliente.actGenerarContratoUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1)
and (ViewGrid.NumSeleccionados = 1)
and (FPresupuestos.REF_CONTRATO = '')
and ViewGrid.esSeleccionCeldaDatos
and (FPresupuestos.SITUACION = SITUACION_PRESUPUESTO_ACEPTADO);