diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 38f493d93..5338a9c4d 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -887,6 +887,7 @@ Partial Class PopUpVerFactura
             Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString
             Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString
             Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
+            Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString
             Vta.RefDocto = dtVentas(0)("Ref").ToString
             Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
             Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString
diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc
index 894b6a23f..ee1a0f96c 100644
--- a/Empresas/141/Formatos/Factura.rdlc
+++ b/Empresas/141/Formatos/Factura.rdlc
@@ -2039,11 +2039,45 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value />
+                    <Value>=iif(Parameters!ClienteContactoMail.Value = "","","Teléfono: ")</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>9pt</FontSize>
-                      <FontWeight>Normal</FontWeight>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value xml:space="preserve"> </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!ClienteTelefono.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value xml:space="preserve"> </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=iif(Parameters!ClienteContactoMail.Value = "","","Correo: ")</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!ClienteContactoMail.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
                     </Style>
                   </TextRun>
                 </TextRuns>