RH/ActualizacionMasiva.aspx.vb

@@ -102,11 +102,17 @@ Partial Class RH_ActualizacionMasiva
     End Sub
 
     Private Sub CargaSuperioresOrganigrama()
+        Using objbase As New ClsClaseBase
+            Dim strquery As String = String.Format("SELECT CvePersonal,NombreCompleto FROM RH_Personal WHERE CveEmpresa = {0} AND CvePersonal IN (SELECT CvePersonalPadre FROM  RH_Organigrama )", UsuarioActual.CveEmpresa)
+            If (objbase.runQuerystr(strquery)) Then
+                DdlSupervisor.DataSource = objbase.DtResultados
+
+            End If
+        End Using
         Dim ObjRH As New ClsRH
 
         If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
             ViewState("dtSupervisores") = ObjRH.DtResultados
-            DdlSupervisor.DataSource = ObjRH.DtResultados
         Else
             DdlSupervisor.DataSource = Nothing
             Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")

RH/Asistencias.aspx.vb

@@ -25,15 +25,23 @@ Partial Class RH_Asistencias
 
 #Region "  ORGANIGRAMA  "
     Private Sub CargaSuperioresOrganigrama()
-        Dim ObjRH As New ClsRH
+        'Dim ObjRH As New ClsRH
 
-        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-            DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
-        Else
-            DdlSupervisorOrganigrama.DataSource = Nothing
-            Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
-        End If
-        ObjRH.Dispose()
+        'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+        '    DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
+        'Else
+        '    DdlSupervisorOrganigrama.DataSource = Nothing
+        '    Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
+        'End If
+        'ObjRH.Dispose()
+
+        Using objbase As New ClsClaseBase
+            Dim strquery As String = String.Format("SELECT CvePersonal,NombreCompleto FROM RH_Personal WHERE CveEmpresa = {0} AND CvePersonal IN (SELECT CvePersonalPadre FROM  RH_Organigrama )", UsuarioActual.CveEmpresa)
+            If (objbase.runQuerystr(strquery)) Then
+                DdlSupervisorOrganigrama.DataSource = objbase.DtResultados
+
+            End If
+        End Using
 
         If DdlSupervisorOrganigrama.DataSource IsNot Nothing Then
             DdlSupervisorOrganigrama.DataBind()

RH/Personal.aspx.vb

@@ -7297,6 +7297,7 @@ Partial Class RH_Personal
         TxtSRINCfolio.Text = ""
         TxtSRINCfechaInicio.Text = ""
         TxtSRINCdiasAutorizados.Text = ""
+        TxtDiasPagoEmpresa.Text = If(UsuarioActual.CveEmpresa = 141, "3", "")
         DdlSRINCcveTipodeIncidencia.SelectedValue = "-1"
         DdlSRINCcveRamoSeguro.SelectedValue = "-1"
         DdlSRINCcveTipoRiesgo.SelectedValue = "-1"