diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 9f4100846..7e0de0225 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1089,11 +1089,18 @@ Partial Class RH_Personal
     End Sub
 
     Private Sub CargaSubProyectoAsignado()
-        DdlSubProyectoAsignado.Items.Clear()
-        DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(DdlProyectoAsignado.SelectedValue.ToEntero)
-        DdlSubProyectoAsignado.DataBind()
-
-        DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
+        If DivProyectosAsignado.Visible Then
+
+            DdlSubProyectoAsignado.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+            DdlSubProyectoAsignado.DataBind()
+            DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
+            'old
+            'DdlSubProyectoAsignado.Items.Clear()
+            'DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(DdlProyectoAsignado.SelectedValue.ToEntero)
+            'DdlSubProyectoAsignado.DataBind()
+
+            'DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
+        End If
     End Sub
 
     Private Sub CargaSubProyectoAsistenciaC()
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index c2b28c20a..de17079a9 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2731,7 +2731,7 @@ Partial Class Clientes
             'HLRemision.HRef = $"/Ventas/Ventas.aspx?CveRemision={e.Row.DBCampo("CveVenta")}"
 
             Dim Liga As String = String.Format("< a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta"))
-            HLSendMail.HRef = String.Format("javascript:$get('HdnTipoDocto').value='{0}';$get('HdnCveVenta').value='{1}';$get('HdnFolioVenta').value='{2}';$get('TxtParaMail').value='{3}';$get('HdnSerieFolio').value='{4}';$get('HdnSubProyecto').value='{5}';$('#ModalDivMail').modal();", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveVenta"), e.Row.DBCampo("folio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto"))
+            HLSendMail.HRef = String.Format("javascript:(function mail(){{$get('HdnTipoDocto').value='{0}';$get('HdnCveVenta').value='{1}';$get('HdnFolioVenta').value='{2}';$get('TxtParaMail').value='{3}';$get('HdnSerieFolio').value='{4}';$get('HdnSubProyecto').value='{5}';$('#ModalDivMail').modal();return false;}})();", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveVenta"), e.Row.DBCampo("folio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto"))
             e.Row.FCLiteral("LtlFactura").Text = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">{1}</a>", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("Folio"))
 
             UpSendMail.Update()
diff --git a/vwd.webinfo b/vwd.webinfo
index f280abd89..c04cff67c 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -114,6 +114,8 @@
     
   
     
+  
+