-

App_Code/ClsNominas.vb

@@ -2804,7 +2804,7 @@ Public Class ClsNominas
     End Function
 
 #Region "Vacaciones"
-    Public Function GETPersonalVacResumen(CveEmpresa As Integer, CvePersonal As Integer) As Boolean
+    Public Function GetPersonalVacResumen(CveEmpresa As Integer, CvePersonal As Integer) As Boolean
         Dim retorno As Boolean = False
 
         Try
@@ -2824,7 +2824,7 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function GETPersonalVacaciones(CveEmpresa As Integer, CvePersonal As Integer) As Boolean
+    Public Function GetPersonalVacaciones(CveEmpresa As Integer, CvePersonal As Integer) As Boolean
         Dim retorno As Boolean = False
 
         Try
@@ -2948,8 +2948,6 @@ Public Class ClsNominas
                 .Add("@Fecha", SqlDbType.Date).Value = Fecha
                 .Add("@PrimadeRiesgo", SqlDbType.Money).Value = PrimadeRiesgo
             End With
-
-
             SqlAdapter.Fill(DTSet)
             retorno = True
         Catch sqEx As SqlException
@@ -2970,8 +2968,6 @@ Public Class ClsNominas
                 .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
                 .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
             End With
-
-
             SqlAdapter.Fill(DTSet)
             retorno = True
         Catch sqEx As SqlException
@@ -2993,8 +2989,6 @@ Public Class ClsNominas
                 .Add("@CveTabla", SqlDbType.Int).Value = CveTabla
                 .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
             End With
-
-
             SqlAdapter.Fill(Data)
             retorno = True
         Catch sqEx As SqlException
@@ -3450,7 +3444,6 @@ Public Class ClsNominas
     End Function
 #End Region
 
-
 #Region "CRUD_RH_TablasValores"
     Public Function RH_TablasValoresGet(cveEmpresa As Int32, tipo As Int32) As Boolean
         Dim retorno As Boolean = False
@@ -3540,8 +3533,6 @@ Public Class ClsNominas
         Return retorno
     End Function
 #End Region
-
-
     Public Function GetAsistenciabetweendate(CveEmpresa As Integer, FechaInicio As DateTime, FechaFin As DateTime) As Boolean
         Dim retorno As Boolean = False
         Try
@@ -3575,7 +3566,6 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-
     Public Function EmbarqueManifiestoGet(cveSubproyecto As Int32, cveUsuario As Int32, cveEmpresa As Int32, cveEmbarqueManifiesto As Int32) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_AGRO_Embarque_ManifiestoGet", CommandType.StoredProcedure)
@@ -3586,7 +3576,6 @@ Public Class ClsNominas
         retorno = RunQuery("Ocurrió un error al obtener el  Embarque Manifiesto .")
         Return retorno
     End Function
-
     Public Function RepFiniquitos(cveSubproyecto As Int32, CveEstatusFiniquito As Int32, cveEmpresa As Int32, FechaInicio As String, FechaFin As String) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Nom_RepFiniquitos", CommandType.StoredProcedure)
@@ -3819,9 +3808,6 @@ Public Class ClsNominas
 
 #End Region
 #End Region
-
-
-
     Public Function GetLayoutAltaBanorte(CvePeriodo As Integer, CveEmpresa As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Nom_LayoutAltaBanorteGet", CommandType.StoredProcedure)
@@ -3838,7 +3824,6 @@ Public Class ClsNominas
         Return retorno
     End Function
 
-
     'Public Function GetDispersionNominaBanorte(CvePeriodo As Integer, CveEmpresa As Integer) As Boolean
     '    Dim retorno As Boolean = False
     '    DataAdapter("PA_Nom_DispersionNominaBanorteGet", CommandType.StoredProcedure)
@@ -3854,7 +3839,6 @@ Public Class ClsNominas
     '    End Try
     '    Return retorno
     'End Function
-
     Public Function PreNominaTotalSemana(numeroPeriodo As Int32, cveEmpresa As Int32, cveSubProyecto As Int32, cveTipoNomina As Int32, tipoTrabajador As String, ejercicio As Int32, facturado As Boolean) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_RH_PreNominaTotalSemana", CommandType.StoredProcedure)
@@ -3878,9 +3862,6 @@ Public Class ClsNominas
         retorno = RunQuery("Ocurrió un error al obtener el PA_Agro_Embarque_TableroGet.")
         Return retorno
     End Function
-
-
-
     Public Function GetRepPersonalDIM(Ejercicio As Integer, CveEmpresa As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Nom_PersonalDIM", CommandType.StoredProcedure)
@@ -3912,7 +3893,6 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-
     Public Function CargaPeriodosEjercicio(ejercicio As Int32, cveTipoPeriodo As Int32, cveSubTipoPeriodo As Int32, numero As Int32, fechaInicio As String, cveEmpresa As Int32, cveUsuario As Int32) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Nom_CargaPeriodosEjercicio", CommandType.StoredProcedure)
@@ -3926,8 +3906,6 @@ Public Class ClsNominas
         retorno = RunQuery("Ocurrió un error al realizar la carga de periodos.")
         Return retorno
     End Function
-
-
     Public Function CalculaDiasFeriados(fechaInicio As String, fechaFin As String, DiasPagos As Int32, DiasFeriados As Int32, cveEmpresa As Int32, cveUsuario As Int32) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Nom_CalculaDiasFeriados", CommandType.StoredProcedure)
@@ -3940,8 +3918,6 @@ Public Class ClsNominas
         retorno = RunQuery("Ocurrió un error al realizar la carga de periodos.")
         Return retorno
     End Function
-
-
     Public Function MovimientosSaldosGet(cvePersonal As Int32, cvePeriodo As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Nom_MovimientosSaldosGet", CommandType.StoredProcedure)