RH/Asistencias.aspx.vb

@@ -5,6 +5,14 @@ Imports Microsoft.Reporting.WebForms
 Partial Class RH_Asistencias
     Inherits ClsPaginas
 
+    Private Property dTAsistenciasInasistencias As DataTable
+        Get
+            Return DirectCast(ViewState("dTAsistenciasInasistencias"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("dTAsistenciasInasistencias") = value
+        End Set
+    End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not IsPostBack Then
@@ -13,6 +21,8 @@ Partial Class RH_Asistencias
             CargaSuperioresOrganigrama()
             CargaProyecto()
             CargaTurnos()
+            dTAsistenciasInasistencias = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
+
             If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then ' emp citricola
                 divCliente.Visible = False
                 LblCliente.Visible = False
@@ -93,6 +103,9 @@ Partial Class RH_Asistencias
                 ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then
                     dt = dt.FiltraParametros("CvePersonalPadre IS NULL")
                 End If
+                'If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
+                '    dt = dt.FiltraParametros("", "Tipo")
+                'End If
                 GV.DataSource = dt
             Else
                 GV.DataSource = Nothing
@@ -175,7 +188,7 @@ Partial Class RH_Asistencias
             e.Row.FCTextBox("TxtHorasTriples").Text = e.Row.DBCampo("HorasTriples")
 
             'Carga Tipos de Asistencia
-            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
+            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = dTAsistenciasInasistencias
             e.Row.FCDropDownList("DdlTipoAsistencias").DataBind()
             If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")