filtro de tipoperiodo y puesto, se agregó la visualización de columna de horas dobles y triples

RH/RepAsistencias.aspx.vb

@@ -14,10 +14,16 @@ Partial Class RH_RepAsistencias
             CargaClientes()
             CargaProyecto()
             CargaTurnos()
+            CargaTiposPeriodo()
 
             TxtFechaAsistenciaFin.Text = Now.ToShortDateString
             TxtFechaAsistencia.Text = $"01/{Now.ToString("MM")}/{Now.Year}"
-
+            If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then ' emp citricola
+                divCliente.Visible = False
+                LblCliente.Visible = False
+                GV.Columns(2).Visible = False
+                GV.Columns(3).Visible = True
+            End If
 
         End If
     End Sub
@@ -45,21 +51,16 @@ Partial Class RH_RepAsistencias
     End Sub
 
     Private Sub CargaClientes()
-        Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then
-            DdlCliente.DataSource = ObjClientes.DtResultados
-        Else
-            DdlCliente.DataSource = Nothing
-        End If
-        ObjClientes.Dispose()
+        'Dim ObjClientes As New ClsClientes
+        'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then
+        '    DdlCliente.DataSource = ObjClientes.DtResultados
+        'Else
+        '    DdlCliente.DataSource = Nothing
+        'End If
+        'ObjClientes.Dispose()
 
 
-        DdlCliente.DataBind()
-    End Sub
-
-    Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
-        CargaClientes()
-        'DdlCliente.Attributes.Remove("onclick")
+        'DdlCliente.DataBind()
     End Sub
 
     Private Sub CargaProyecto()
@@ -85,6 +86,13 @@ Partial Class RH_RepAsistencias
     Private Sub CargaTurnos()
         DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
+        DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
+        DdlPuesto.databind
+    End Sub
+    Private Sub CargaTiposPeriodo()
+
+        DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo
+        DdlTipoPeriodo.DataBind()
     End Sub
 
 #End Region
@@ -105,7 +113,7 @@ Partial Class RH_RepAsistencias
             Dim CveClienteAsignado As Integer = If(DdlCliente.SelectedValue.ToEntero > 0, DdlCliente.SelectedValue.ToEntero, -1)
 
             If objpersonal.RepGetAsistencias(DdlGrupo.SelectedValue.ToEntero, CveClienteAsignado, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, TxtFechaAsistencia.Text.Trim.ToDate,
-                                             TxtFechaAsistenciaFin.Text.Trim.ToDate, UsuarioActual.CveEmpresa, DdlSupervisorOrganigrama.SelectedValue.ToEntero()) Then
+                                             TxtFechaAsistenciaFin.Text.Trim.ToDate, UsuarioActual.CveEmpresa, DdlSupervisorOrganigrama.SelectedValue.ToEntero(), DdlTipoPeriodo.SelectedValue.ToEntero, DdlPuesto.SelectedValue.ToEntero) Then
                 dtTemp = objpersonal.DtResultados
 
                 GvMostrarColumnas(dtTemp)
@@ -143,7 +151,6 @@ Partial Class RH_RepAsistencias
     Private Sub GvMostrarColumnas(dt As DataTable)
         Dim index = 1
 
-
         For index = 1 To dt.Columns.Count - 5
             CType(GV.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
             GV.Columns(index + 4).Visible = True
@@ -153,13 +160,7 @@ Partial Class RH_RepAsistencias
             Else
                 CType(GV.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
             End If
-
-
-
-
         Next
-
-
         UpDatos.Update()
     End Sub
 
@@ -167,17 +168,10 @@ Partial Class RH_RepAsistencias
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If e.Row.DataKey("Ordenador").ToEntero = 0 Then
+            If e.Row.DataKey("Ordenador") = "0" Then
                 e.Row.CssClass = "SubTotales"
-
             End If
-
-            '  e.Row.Attributes.Add("style", "max-height: 22px;")
-
         End If
-
-
-
     End Sub
 
     Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click