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);