From f2972e8e644f333a374fbad9b2ddbbe241875411 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 11 Nov 2008 18:58:30 +0000 Subject: [PATCH] Se adaptan los presupuestos para que puedan meter bonificaciones como en el preograma antiguo. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@764 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../uPresupuestosClienteController.pas | 23 +++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 58aa5b31..21cd9e19 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -62,6 +62,8 @@ type procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente); function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean; function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; + + procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente); end; TPresupuestosClienteController = class(TControllerBase, IPresupuestosClienteController) @@ -134,6 +136,8 @@ type function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean; procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente); function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; + + procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente); end; implementation @@ -191,6 +195,25 @@ begin FDataModule := TDataModulePresupuestosCliente.Create(Nil); end; +procedure TPresupuestosClienteController.BorrarBonificacion(APresupuesto: IBizPresupuestoCliente); +var + EnEdicion: Boolean; +begin + if Assigned(APresupuesto) then + begin + EnEdicion := APresupuesto.DataTable.Editing; + if not EnEdicion then + APresupuesto.DataTable.Edit; + + APresupuesto.DESCRIPCION_BONIFICACIONIsNull := True; + APresupuesto.IMPORTE_BONIFICACIONIsNull := True; + APresupuesto.DataTable.Post; + + if EnEdicion then + APresupuesto.DataTable.Edit; + end; +end; + function TPresupuestosClienteController.Buscar(const ID: Integer): IBizPresupuestoCliente; begin Result := FDataModule.GetItem(ID);