Personal vacaciones calculo dias feriados y fecha fin

2023-07-15 15:05:21 -07:00
parent d236ce0b34
commit 6fc8ea8ac0
9 changed files with 2761 additions and 257 deletions
--- a/RH/CatTurno.aspx.vb
+++ b/RH/CatTurno.aspx.vb
@@ -127,13 +127,7 @@ Partial Class RH_CatTurno

    Private Sub CargaGlobalDTTurno()

-        Dim ObjRH As New ClsRH
-        If ObjRH.GetTurnos() Then
-            Application("GlobalDTTurno") = ObjRH.DtResultados
-        Else
-            Application("GlobalDTTurno") = Nothing
-        End If
-        ObjRH.Dispose()
+        GlobalDTTurno(UsuarioActual.CveEmpresa) = Nothing

    End Sub
    Public Sub Delete_Click(sender As Object, e As EventArgs)