App_Code/ClsRH.vb

@@ -6912,6 +6912,26 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
     End Function
 
 
+    Public Function GethorariosChecador(CveChecadorHorario As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_RH_ChecadorHorariosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveChecadorHorario", SqlDbType.Int).Value = CveChecadorHorario
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al  consultar  las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
 #End Region