diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
index 4a8a064d..1d17a228 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm	
@@ -59,14 +59,16 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
               ' V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10'    V_PRESUPUESTOS_CL' +
               'IENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA,'#10'    V_PRESUPUE' +
               'STOS_CLIENTE.ID_CLIENTE,'#10'    V_PRESUPUESTOS_CLIENTE.REFERENCIA_C' +
-              'LIENTE,'#10'    V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10'    V_CLIENTES' +
-              '.NIF_CIF, V_CLIENTES.NOMBRE,'#10'    V_PRESUPUESTOS_CLIENTE.IMPORTE_' +
-              'IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10'    V_CLIENTES.CALLE,' +
-              ' V_CLIENTES.POBLACION,'#10'    V_CLIENTES.PROVINCIA, V_CLIENTES.CODI' +
-              'GO_POSTAL,'#10'    V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO'#10'FROM'#10'    ' +
-              'V_PRESUPUESTOS_CLIENTE INNER JOIN V_CLIENTES ON'#10'        (V_PRESU' +
-              'PUESTOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)'#10'  WHERE V_PRESUPUEST' +
-              'OS_CLIENTE.ID = :ID'#10
+              'LIENTE,'#10'    V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10'    CONTACTOS.' +
+              'NIF_CIF, CONTACTOS.NOMBRE,'#10'    V_PRESUPUESTOS_CLIENTE.IMPORTE_IV' +
+              'A, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10'    CONTACTOS_DIRECCION' +
+              'ES.CALLE, CONTACTOS_DIRECCIONES.POBLACION,'#10'    CONTACTOS_DIRECCI' +
+              'ONES.PROVINCIA, CONTACTOS_DIRECCIONES.CODIGO_POSTAL,'#10'    V_PRESU' +
+              'PUESTOS_CLIENTE.PERSONA_CONTACTO'#10'FROM'#10'    V_PRESUPUESTOS_CLIENTE' +
+              #10'    INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIE' +
+              'NTE.ID_CLIENTE)'#10'    INNER JOIN CONTACTOS_DIRECCIONES ON (CONTACT' +
+              'OS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' ' +
+              '   V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm
index e54ed648..98a0144c 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm	
@@ -2,7 +2,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
   OldCreateOrder = False
   OnCreate = DataModuleCreate
   Height = 262
-  Width = 374
+  Width = 344
   object schReport: TDASchema
     ConnectionManager = dmServer.ConnectionManager
     DataDictionary = DataDictionary
@@ -11,7 +11,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
         Params = <
           item
             Name = 'ID'
-            Value = '31'
+            Value = '71'
             ParamType = daptInput
           end>
         Statements = <
@@ -27,14 +27,16 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
               ' V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10'    V_PRESUPUESTOS_CL' +
               'IENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA,'#10'    V_PRESUPUE' +
               'STOS_CLIENTE.ID_CLIENTE,'#10'    V_PRESUPUESTOS_CLIENTE.REFERENCIA_C' +
-              'LIENTE,'#10'    V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10'    V_CLIENTES' +
-              '.NIF_CIF, V_CLIENTES.NOMBRE,'#10'    V_PRESUPUESTOS_CLIENTE.IMPORTE_' +
-              'IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10'    V_PRESUPUESTOS_CL' +
-              'IENTE.PERSONA_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.POBLACION,'#10 +
-              '    V_CLIENTES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL'#10'FROM'#10'    V_PR' +
-              'ESUPUESTOS_CLIENTE INNER JOIN V_CLIENTES ON'#10'        (V_PRESUPUES' +
-              'TOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)'#10'  WHERE V_PRESUPUESTOS_C' +
-              'LIENTE.ID = :ID'#10
+              'LIENTE,'#10'    V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10'    CONTACTOS.' +
+              'NIF_CIF, CONTACTOS.NOMBRE,'#10'    V_PRESUPUESTOS_CLIENTE.IMPORTE_IV' +
+              'A, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10'    CONTACTOS_DIRECCION' +
+              'ES.CALLE, CONTACTOS_DIRECCIONES.POBLACION,'#10'    CONTACTOS_DIRECCI' +
+              'ONES.PROVINCIA, CONTACTOS_DIRECCIONES.CODIGO_POSTAL,'#10'    V_PRESU' +
+              'PUESTOS_CLIENTE.PERSONA_CONTACTO'#10'FROM'#10'    V_PRESUPUESTOS_CLIENTE' +
+              #10'    INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIE' +
+              'NTE.ID_CLIENTE)'#10'    INNER JOIN CONTACTOS_DIRECCIONES ON (CONTACT' +
+              'OS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' ' +
+              '   V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -227,11 +229,6 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
             Name = 'IMPORTE_TOTAL'
             DataType = datCurrency
           end
-          item
-            Name = 'PERSONA_CONTACTO'
-            DataType = datString
-            Size = 255
-          end
           item
             Name = 'CALLE'
             DataType = datString
@@ -251,6 +248,11 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
             Name = 'CODIGO_POSTAL'
             DataType = datString
             Size = 10
+          end
+          item
+            Name = 'PERSONA_CONTACTO'
+            DataType = datString
+            Size = 255
           end>
         ReadOnly = True
       end
@@ -522,11 +524,6 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
         Name = 'IMPORTE_TOTAL'
         DataType = datCurrency
       end
-      item
-        Name = 'PERSONA_CONTACTO'
-        DataType = datString
-        Size = 255
-      end
       item
         Name = 'CALLE'
         DataType = datString
@@ -546,11 +543,16 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
         Name = 'CODIGO_POSTAL'
         DataType = datString
         Size = 10
+      end
+      item
+        Name = 'PERSONA_CONTACTO'
+        DataType = datString
+        Size = 255
       end>
     Params = <
       item
         Name = 'ID'
-        Value = '31'
+        Value = '71'
         ParamType = daptInput
       end>
     LogChanges = False
@@ -593,7 +595,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
       item
         Name = 'CONCEPTO'
         DataType = datString
-        Size = 254
+        Size = 32765
       end
       item
         Name = 'CONCEPTO_RTF'