diff --git a/Sistemas/DefinicionEmpresa.aspx b/Sistemas/DefinicionEmpresa.aspx
index f020e0434..741dd2086 100644
--- a/Sistemas/DefinicionEmpresa.aspx
+++ b/Sistemas/DefinicionEmpresa.aspx
@@ -1025,15 +1025,18 @@
 
                 <div class="modal-body">
                     <ul>
+                        
+                        <li>{"TipoDocumento"}</li>
                         <li>{"SerieFolio"}</li>
                         <li>{"Total"}</li>
                         <li>{"Fecha"}</li>
                         <li>{"FechaVencimiento"}</li>
                         <li>{"NombreEmpresa"}</li>
-                        <li>{"NombreCliente"}</li>
-                        <li>{"NombreCliente"}</li>
+                        <li>{"NombreCliente"}</li>                        
                         <li>{"Vigencia"}</li>
                         <li>{"Sucursal"}</li>
+                        <li>{"DescripcionVenta"}</li>
+                        <li>{"AtencionA"}</li>
                     </ul>
                 </div>
                 <br />
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 6f61c20e7..6542dd47e 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2193,6 +2193,8 @@ Partial Class Clientes
                             Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
                             Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
                             Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
+                            Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
+                            Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
 
                         End If
 
@@ -2212,6 +2214,8 @@ Partial Class Clientes
                             Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
                             Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
                             Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
+                            Asunto = Asunto.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
+                            Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
 
                         End If
                     End If
@@ -2231,6 +2235,8 @@ Partial Class Clientes
                             Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
                             Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
                             Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
+                            Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
+                            Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
                         End If
                     End If
 
@@ -2247,6 +2253,9 @@ Partial Class Clientes
                             Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
                             Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
                             Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
+                            Asunto = Asunto.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
+                            Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
+
                         End If
                     End If
                 End If
@@ -5614,6 +5623,10 @@ Partial Class Clientes
                             Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
                             Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
                             Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
+                            Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
+                            Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
+
+
 
                         End If
                     End If
@@ -5632,6 +5645,8 @@ Partial Class Clientes
                             Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
                             Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
                             Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
+                            Asunto = Asunto.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
+                            Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
 
                         End If
                     End If
@@ -5650,6 +5665,8 @@ Partial Class Clientes
                             Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
                             Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
                             Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
+                            Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
+                            Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
                         End If
                     End If
 
@@ -5667,6 +5684,9 @@ Partial Class Clientes
                             Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
                             Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
                             Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
+                            Asunto = Asunto.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
+                            Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
+
                         End If
                     End If
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index a17c40d89..df7f915bc 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -21095,6 +21095,7 @@ Partial Class Ventas
                     Cuerpo = Cuerpo.Replace("{""Vigencia""}", TxtFechaVencimientoCotizacion.Text)
                     Cuerpo = Cuerpo.Replace("{""AtencionA""}", TxtAtencionA.Text)
                     Cuerpo = Cuerpo.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
+                    Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", TxtDescripcionVenta.Text)
                 End If
 
                 If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
@@ -21109,6 +21110,7 @@ Partial Class Ventas
                     Asunto = Asunto.Replace("{""Vigencia""}", TxtFechaVencimientoCotizacion.Text)
                     Asunto = Asunto.Replace("{""AtencionA""}", TxtAtencionA.Text)
                     Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
+                    Asunto = Asunto.Replace("{""DescripcionVenta""}", TxtDescripcionVenta.Text)
                 End If
 
             Else
@@ -21123,6 +21125,7 @@ Partial Class Ventas
                     Cuerpo = Cuerpo.Replace("{""SerieFolio""}", SerieFolio)
                     Cuerpo = Cuerpo.Replace("{""AtencionA""}", TxtAtencionA.Text)
                     Cuerpo = Cuerpo.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
+                    Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", TxtDescripcionVenta.Text)
                 End If
 
                 If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
@@ -21136,6 +21139,7 @@ Partial Class Ventas
                     Asunto = Asunto.Replace("{""SerieFolio""}", SerieFolio)
                     Asunto = Asunto.Replace("{""AtencionA""}", TxtAtencionA.Text)
                     Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
+                    Asunto = Asunto.Replace("{""DescripcionVenta""}", TxtDescripcionVenta.Text)
                 End If
             End If
 
@@ -36312,6 +36316,10 @@ Partial Class Ventas
                     RegistraScript("$('#DvModalTipoVenta').modal('hide');")
             End Select
 
+
+            LblDvModalTipoVentaTitulo.Text = RBLTipoVenta.SelectedItem.Text
+
+
         End If
         UpDvModalTipoVenta.Update()
     End Sub
@@ -36402,6 +36410,9 @@ Partial Class Ventas
         GvProductosProcedimiento.DataBind()
         DVGvProductosProcedimiento.Visible = False
 
+
+        LblDvModalTipoVentaTitulo.Text = "Tipo de Venta"
+
         UpDvModalTipoVenta.Update()
 
     End Sub