-vacacionesrep[orte

App_Code/ClsNominas.vb

@@ -2726,6 +2726,30 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
+    Public Function ReporteVacacionesCalendario(CveProyecto As Integer, CveSubProyecto As Integer, cveEmpresa As Integer, fechaInicio As String, fechaFin As String) As Boolean
+        Dim retorno As Boolean = False
+        Try
+            DTSet = New DataSet()
+            DataAdapter("PA_Nom_ReporteVacacionesCalendario", CommandType.StoredProcedure)
+            SqlAdapter.SelectCommand.CommandTimeout = 2400
+            With SqlAdapter.SelectCommand.Parameters
+                .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+                .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+                .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+                .Add("@FechaInicio", SqlDbType.Date).Value = fechaInicio
+                .Add("@FechaFin", SqlDbType.Date).Value = fechaFin
+            End With
+            SqlAdapter.Fill(DTSet)
+            retorno = True
+        Catch sqEx As SqlException
+            retorno = False
+            OnError("Ocurrió un error al realizar el reporte de vacaciones.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            retorno = False
+            OnError("Ocurrió un error al realizar el reporte de vacaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
     Public Function GetNominasSinTimbrar(CvePeriodo As Integer, CveEmpresa As Integer) As Boolean
         Dim retorno As Boolean = False
         Try

Nomina/Nomina.aspx.cs

@@ -415,7 +415,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             }
             DmodalCancelartimbre.Visible = (UsuarioActual.CveUsuario == 100);
             //LnkOpenCancelarTimbre.Visible = (UsuarioActual.CveUsuario == 100);
-            LnkVerCalculoISR.Visible = (UsuarioActual.CveUsuario == 100 || UsuarioActual.CveEmpresa == 119);
+            LnkVerCalculoISR.Visible = true;// (UsuarioActual.CveUsuario == 100 || UsuarioActual.CveEmpresa == 119);
             TxtPeriodo.Text = $"{NowADS():yyyyMM}";
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto);
             CargarCentrosDeCosto(DdlPRProyecto, DdlPRSubProyecto, LblPRProyecto, LblPRSubProyeccto);