Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

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
+
+        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
 

RH/Personal.aspx.vb

@@ -5775,7 +5775,9 @@ Partial Class RH_Personal
         If dtVC.Rows.Count > 0 Then
             dr = dtVC.Rows(0)
 
-            If UsuarioActual.CveEmpresa.Contiene(72) Then
+            'If UsuarioActual.CveEmpresa.Contiene(72, 119) Then
+            'End If
+
             Dim SBDomicilioSucursal As New StringBuilder()
             Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero, Estatus:=1).FiltroPrimero("")
 
@@ -5800,7 +5802,6 @@ Partial Class RH_Personal
             params.Add(New ReportParameter("Telefono", dr("Celular").ToString()))
             params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString()))
             params.Add(New ReportParameter("PuestoUsuarioActual", dr("PuestoUsuarioImprimio").ToString()))
-            End If
 
             params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))