From 313af74b47a91c1c6b2590d652533a07c93ead77 Mon Sep 17 00:00:00 2001 From: david Date: Mon, 18 Feb 2008 14:42:55 +0000 Subject: [PATCH] =?UTF-8?q?Presupuestos=20de=20cliente:=20permitir=20modif?= =?UTF-8?q?icaciones=20aunque=20el=20presupuesto=20est=C3=A9=20aceptado.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@275 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/uPresupuestosClienteController.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 1b222b52..8e3b6ee5 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -522,7 +522,10 @@ begin if not Assigned(APresupuesto) then raise Exception.Create ('Presupuesto no asignado: EsModificable'); - Result := (APresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE); + //Result := (APresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE); + // En Tecsitel, todos los presupuestos son modificables independientemente + // de su situación. + Result := True; end; procedure TPresupuestosClienteController.RecalcularImportes(