diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 7c9436364..5da9e2bbf 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -8059,12 +8059,18 @@ Public Class ClsPaginas
                 If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
                 LblSubProyecto.Text = "Sucursal"
         End Select
-        DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
-        DdlProyecto.DataBind()
 
-        DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        If DdlProyecto IsNot Nothing Then
+            DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
+            DdlProyecto.DataBind()
+            DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
+
+        If DdlSubProyecto IsNot Nothing Then
+            DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+            DdlSubProyecto.DataBind()
+            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
     End Sub
 End Class
 
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 7ae62dd50..390c3f3f6 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -5775,33 +5775,34 @@ Partial Class RH_Personal
         If dtVC.Rows.Count > 0 Then
             dr = dtVC.Rows(0)
 
-            If UsuarioActual.CveEmpresa.Contiene(72) Then
-                Dim SBDomicilioSucursal As New StringBuilder()
-                Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero, Estatus:=1).FiltroPrimero("")
+            'If UsuarioActual.CveEmpresa.Contiene(72, 119) Then
+            'End If
 
-                If DRSucursal IsNot Nothing Then
-                    Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
-                    Dim DomicilioSucursal As String = ""
+            Dim SBDomicilioSucursal As New StringBuilder()
+            Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero, Estatus:=1).FiltroPrimero("")
 
-                    SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle"))
-                    If DRSucursal("NoExt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString().ToEntero)
-                    If DRSucursal("NoInt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString().ToEntero)
-                    If DRSucursal("Colonia").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString())
-                    If DRSucursal("CP").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString())
-                    If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
-                    If DRSucursal("Pais").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString())
-                End If
+            If DRSucursal IsNot Nothing Then
+                Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
+                Dim DomicilioSucursal As String = ""
 
-                params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString()))
-                params.Add(New ReportParameter("RFC", dr("RFC").ToString()))
-                params.Add(New ReportParameter("Puesto", dr("Puesto").ToString()))
-                params.Add(New ReportParameter("Departamento", dr("Departamento").ToString()))
-                params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString()))
-                params.Add(New ReportParameter("Telefono", dr("Celular").ToString()))
-                params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString()))
-                params.Add(New ReportParameter("PuestoUsuarioActual", dr("PuestoUsuarioImprimio").ToString()))
+                SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle"))
+                If DRSucursal("NoExt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString().ToEntero)
+                If DRSucursal("NoInt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString().ToEntero)
+                If DRSucursal("Colonia").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString())
+                If DRSucursal("CP").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString())
+                If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
+                If DRSucursal("Pais").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString())
             End If
 
+            params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString()))
+            params.Add(New ReportParameter("RFC", dr("RFC").ToString()))
+            params.Add(New ReportParameter("Puesto", dr("Puesto").ToString()))
+            params.Add(New ReportParameter("Departamento", dr("Departamento").ToString()))
+            params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString()))
+            params.Add(New ReportParameter("Telefono", dr("Celular").ToString()))
+            params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString()))
+            params.Add(New ReportParameter("PuestoUsuarioActual", dr("PuestoUsuarioImprimio").ToString()))
+
             params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))