This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -847,6 +847,7 @@ Partial Class RH_Personal
|
||||
|
||||
If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero() > 0 Then
|
||||
ViewState("CvePersonal") = Request("CvePersonal")
|
||||
DdlFormapagovacaciones_SelectedIndexChanged(Nothing, Nothing)
|
||||
'CvePersonal = ViewState("CvePersonal").ToString().ToEntero()
|
||||
CargaDatos()
|
||||
CargaDocumentacionFirmaDecontratos()
|
||||
@@ -4503,43 +4504,70 @@ Partial Class RH_Personal
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
Dim dtosvac As DataTable
|
||||
Private Sub CargaVacacionesResumenPeriodoActual()
|
||||
Dim objRH As New ClsRH
|
||||
|
||||
If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
If objRH.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
VacInicioPeriodo = objRH.DtResultados(0)("InicioPeriodo").ToString().ToDate
|
||||
VacFinPeriodo = objRH.DtResultados(0)("FinPeriodo").ToString().ToDate
|
||||
VacAnios = objRH.DtResultados(0)("Anios").ToString().ToEntero()
|
||||
VacDias = objRH.DtResultados(0)("Dias").ToString().ToEntero()
|
||||
VacDiasUsados = objRH.DtResultados(0)("DiasUsados").ToString().ToEntero()
|
||||
VacDiasCancelados = objRH.DtResultados(0)("DiasCancelados").ToString().ToEntero()
|
||||
VacDiasDisponibles = objRH.DtResultados(0)("DiasDisponibles").ToString().ToEntero()
|
||||
GvVacacionesResumen.DataSource = objRH.DtResultados
|
||||
VacSupervisorNombre = objRH.DtResultados(0)("SupervisorNombre").ToString()
|
||||
VacSupervisorCorreo = objRH.DtResultados(0)("SupervisorCorreo").ToString()
|
||||
VacCveSupervisor = objRH.DtResultados(0)("SupervisorCorreo").ToString().ToEntero()
|
||||
|
||||
Else
|
||||
VacInicioPeriodo = Now
|
||||
VacFinPeriodo = Now
|
||||
VacAnios = 0
|
||||
VacDias = 0
|
||||
VacDiasUsados = 0
|
||||
VacDiasCancelados = 0
|
||||
VacDiasDisponibles = 0
|
||||
Using objnom As New ClsNominas
|
||||
If objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
|
||||
RPTVacacionesResumen.DataSource = objnom.DtResultados
|
||||
End If
|
||||
End If
|
||||
If objnom.GETPersonalVacaciones(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
|
||||
dtosvac = objnom.DtResultados
|
||||
GvVaczxy.DataSource = dtosvac
|
||||
GvVaczxy.DataBind()
|
||||
End If
|
||||
End Using
|
||||
|
||||
objRH.Dispose()
|
||||
RPTVacacionesResumen.DataBind()
|
||||
Using objRH As New ClsRH
|
||||
If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
If objRH.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
VacInicioPeriodo = objRH.DtResultados(0)("InicioPeriodo").ToString().ToDate
|
||||
VacFinPeriodo = objRH.DtResultados(0)("FinPeriodo").ToString().ToDate
|
||||
VacAnios = objRH.DtResultados(0)("Anios").ToString().ToEntero()
|
||||
VacDias = objRH.DtResultados(0)("Dias").ToString().ToEntero()
|
||||
VacDiasUsados = objRH.DtResultados(0)("DiasUsados").ToString().ToEntero()
|
||||
VacDiasCancelados = objRH.DtResultados(0)("DiasCancelados").ToString().ToEntero()
|
||||
VacDiasDisponibles = objRH.DtResultados(0)("DiasDisponibles").ToString().ToEntero()
|
||||
GvVacacionesResumen.DataSource = objRH.DtResultados
|
||||
VacSupervisorNombre = objRH.DtResultados(0)("SupervisorNombre").ToString()
|
||||
VacSupervisorCorreo = objRH.DtResultados(0)("SupervisorCorreo").ToString()
|
||||
VacCveSupervisor = objRH.DtResultados(0)("SupervisorCorreo").ToString().ToEntero()
|
||||
|
||||
Else
|
||||
VacInicioPeriodo = Now
|
||||
VacFinPeriodo = Now
|
||||
VacAnios = 0
|
||||
VacDias = 0
|
||||
VacDiasUsados = 0
|
||||
VacDiasCancelados = 0
|
||||
VacDiasDisponibles = 0
|
||||
End If
|
||||
End If
|
||||
|
||||
End Using
|
||||
GvVacacionesResumen.DataBind()
|
||||
|
||||
UpGvVacacionesResumen.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub RPTVacacionesResumen_ItemDataBound(sender As Object, e As RepeaterItemEventArgs)
|
||||
|
||||
'Dim item As DataRowView = DirectCast(e.Item.DataItem, DataRowView)
|
||||
'If (item IsNot Nothing AndAlso item("CveEmpresa") IsNot Nothing) Then
|
||||
|
||||
' Dim CveEmpresa As Integer = item("CveEmpresa").ToString().ToEntero()
|
||||
' Dim CvePersonal As Integer = item("CvePersonal").ToString().ToEntero()
|
||||
' Dim Ejercicio As Integer = item("Ejercicio").ToString().ToEntero()
|
||||
' Dim RptTitulo As GridView = DirectCast(e.Item.FindControl("GvVaczx"), GridView)
|
||||
' If dtosvac IsNot Nothing Then
|
||||
' RptTitulo.DataSource = dtosvac.FiltraParametros(String.Format("Ejercicio={0}", Ejercicio), "FechaIng")
|
||||
' RptTitulo.DataBind()
|
||||
' End If
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnSolicitarVacaciones_Click(sender As Object, e As EventArgs) Handles BtnSolicitarVacaciones.Click
|
||||
Dim fInicio As Date = TxtFechaInicioVac.Text.ToDate()
|
||||
Dim fFin As Date = TxtFechaFinVac.Text.ToDate()
|
||||
@@ -4551,7 +4579,7 @@ Partial Class RH_Personal
|
||||
VacFolioActual = VacFolioActual + 1
|
||||
Dim objRH As New ClsRH
|
||||
'Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones)
|
||||
Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago:=fechapago, diasinabiles:=diasinhabil, CveTipoPago:=DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras:=TxtVacDiasExtra.Text.ToEntero())
|
||||
Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago:=fechapago, diasinabiles:=diasinhabil, CveTipoPago:=DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras:=TxtVacDiasExtra.Text.ToEntero(), Ejercicio:=TxtVacEjercicio.Text.ToEntero(), PrimaVacacional:=If(ChkVacPrimaVacacional.Checked, 1, 0), CobrarImss:=If(ChkVacCobrarIMSS.Checked, 1, 0), diasPago:=TxtVacDiasPago.Text.ToEntero())
|
||||
If objRH.DtResultados.Rows.Count > 0 Then
|
||||
Dim ShowError As String = objRH.DtResultados.Rows(0)("ShowError").ToString()
|
||||
If ShowError.Length > 0 Then
|
||||
@@ -5088,6 +5116,41 @@ Partial Class RH_Personal
|
||||
Return ListaTags
|
||||
End Function
|
||||
|
||||
Protected Sub DdlFormapagovacaciones_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
PnlVacfechas.Visible = False
|
||||
PnlVacDias.Visible = False
|
||||
PnlVacFechapago.Visible = False
|
||||
PnlVacDiasPago.Visible = False
|
||||
PnlVacChecks.Visible = False
|
||||
TxtVacDiasPago.Text = "0"
|
||||
|
||||
Select Case DdlFormapagovacaciones.SelectedValue.ToEntero()
|
||||
Case 1
|
||||
PnlVacfechas.Visible = True
|
||||
PnlVacDias.Visible = True
|
||||
PnlVacFechapago.Visible = True
|
||||
PnlVacDiasPago.Visible = True
|
||||
PnlVacChecks.Visible = True
|
||||
Case 2
|
||||
PnlVacfechas.Visible = True
|
||||
PnlVacDias.Visible = True
|
||||
PnlVacChecks.Visible = True
|
||||
Case 3
|
||||
PnlVacfechas.Visible = True
|
||||
PnlVacDias.Visible = True
|
||||
PnlVacDiasPago.Visible = False
|
||||
PnlVacFechapago.Visible = True
|
||||
Case 4
|
||||
PnlVacFechapago.Visible = True
|
||||
PnlVacDiasPago.Visible = True
|
||||
PnlVacChecks.Visible = True
|
||||
Case 5
|
||||
PnlVacfechas.Visible = True
|
||||
Case 6
|
||||
PnlVacFechapago.Visible = True
|
||||
PnlVacDiasPago.Visible = True
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "CURSOS"
|
||||
@@ -6601,5 +6664,7 @@ Partial Class RH_Personal
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user