diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index a78a05d7c..452c26b47 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -125,6 +125,68 @@ Public Class ClsRH End Sub #End Region + Public Function AgroOrigenGet(CveEmpresa As Int32, CveOrigen As Integer, Estatus As Integer, CveTipoNomina As Integer, CveSubProyecto As Integer, GPO As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Agro_OrigenGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveOrigen", SqlDbType.Int).Value = CveOrigen + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@CveTipoNomina", SqlDbType.Int).Value = CveTipoNomina + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@GPO", SqlDbType.Int).Value = GPO + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al obtener los agro departamentos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + Public Function AgroDepartamentosGet(CveEmpresa As Int32, CveDepartamento As Integer, CveTipoTrabajador As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Agro_DepartamentosGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento + .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al obtener los agro departamentos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + + Public Function AgroDepartamentoPersonalUp(CveEmpresa As Int32, CveDepartamento As Integer, CvePersonal As Integer, CharolaForanea As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Agro_DepartamentoPersonalUP", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento + .Add("@CharolaForanea", SqlDbType.Int).Value = CharolaForanea + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al obtener los agro departamentos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function #Region "DiasFestivos" Public Function DiasFestivosGet(CveEmpresa As Int32) As Boolean @@ -138,9 +200,9 @@ Public Class ClsRH retorno = True Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al obtener los días festivos", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al obtener los días festivos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception - OnError("Ocurrió un error al Guardar el Tipo de A-I", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al obtener los días festivos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return retorno End Function diff --git a/Nomina/ChecadorAsistencia.aspx b/Nomina/ChecadorAsistencia.aspx index 8ad4fd876..43ee0dab3 100644 --- a/Nomina/ChecadorAsistencia.aspx +++ b/Nomina/ChecadorAsistencia.aspx @@ -4,9 +4,10 @@