diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm
index 8b419a44..95c6f50a 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm	
@@ -35,11 +35,13 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
               '   COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA' +
               ') AS PROVINCIA,'#10'    COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL' +
               ', CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10'    V_PRESUPUESTOS_' +
-              'CLIENTE.PERSONA_CONTACTO'#10'FROM'#10'    V_PRESUPUESTOS_CLIENTE'#10'    INN' +
-              'ER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_C' +
-              'LIENTE)'#10'    LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_' +
-              'DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10'    ' +
-              'V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
+              'CLIENTE.PERSONA_CONTACTO,'#10'    V_PRESUPUESTOS_CLIENTE.DESCRIPCION' +
+              '_BONIFICACION,'#10'    V_PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION'#10'F' +
+              'ROM'#10'    V_PRESUPUESTOS_CLIENTE'#10'    INNER JOIN CONTACTOS ON (CONT' +
+              'ACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10'    LEFT OUTER JOI' +
+              'N CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPU' +
+              'ESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10'    V_PRESUPUESTOS_CLIENTE.ID ' +
+              '= :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -141,6 +143,14 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
               item
                 DatasetField = 'CODIGO_POSTAL'
                 TableField = 'CODIGO_POSTAL'
+              end
+              item
+                DatasetField = 'DESCRIPCION_BONIFICACION'
+                TableField = 'DESCRIPCION_BONIFICACION'
+              end
+              item
+                DatasetField = 'IMPORTE_BONIFICACION'
+                TableField = 'IMPORTE_BONIFICACION'
               end>
           end>
         Name = 'Informe_Cabecera'
@@ -256,6 +266,15 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
             Name = 'PERSONA_CONTACTO'
             DataType = datString
             Size = 255
+          end
+          item
+            Name = 'DESCRIPCION_BONIFICACION'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'IMPORTE_BONIFICACION'
+            DataType = datCurrency
           end>
         ReadOnly = True
       end
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
index 17fd0d56..020644d0 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
@@ -230,11 +230,11 @@ begin
   
   with FDocumento, tbl_Cabecera do
   begin
-    if FieldByName('DESCUENTO').AsFloat > 0 then
-       FDesBonificacion := 'Bonificación ' + FormatFloat(DISPLAY_PORCENTAJE, FieldByName('DESCUENTO').AsFloat)
+    if FieldByName('IMPORTE_BONIFICACION').AsFloat > 0 then
+       FDesBonificacion := FieldByName('DESCRIPCION_BONIFICACION').AsString
     else
        FDesBonificacion := Null;
-    FImpBonificacion := FieldByName('IMPORTE_DESCUENTO').AsFloat;
+    FImpBonificacion := FieldByName('IMPORTE_BONIFICACION').AsFloat;
 
     ReplaceBookmark('CodigoPresupuestoCab', FieldByName('REFERENCIA').AsString);
     ReplaceBookmark('FechaPresupuestoCab', FieldByName('FECHA_PRESUPUESTO').AsString);