Option Explicit On
Option Strict On

Imports Extensiones
Imports System.IO
Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports System.Globalization
Partial Class RH_Personal
    Inherits ClsPaginas

#Region "P R O P I E D A D E S"

    Property salarioVariable As Decimal
        Get
            If ViewState("salarioVariable") Is Nothing Then
                Return 0
            Else
                Return DirectCast(ViewState("salarioVariable"), Decimal)
            End If
        End Get
        Set(value As Decimal)
            ViewState("salarioVariable") = value
        End Set
    End Property


    Property CveSubTipoPeriodo As Integer
        Get
            If ViewState("CveSubTipoPeriodo") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveSubTipoPeriodo"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CveSubTipoPeriodo") = value
        End Set
    End Property
    Property CcveMovtoPermanente As Integer
        Get
            If ViewState("CcveMovtoPermanente") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CcveMovtoPermanente"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CcveMovtoPermanente") = value
        End Set
    End Property
    Property CveFonacot As Integer
        Get
            If ViewState("CveFonacot") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveFonacot"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CveFonacot") = value
        End Set
    End Property
    Private Property DTCuentasBancos As DataTable
        Get
            Return CType(ViewState("DTCuentasBancos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTCuentasBancos") = value
        End Set
    End Property
    Private Property DTLicencias As DataTable
        Get
            Return CType(ViewState("DTLicencias"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTLicencias") = value
        End Set
    End Property
    Private Property TempDTCuentasBancos As DataTable
        Get
            Return CType(ViewState("TempDTCuentasBancos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("TempDTCuentasBancos") = value
        End Set
    End Property
    Private Property DTDocumentacion As DataTable
        Get
            If ViewState("DTDocumentacion") Is Nothing Then
                Return New DataTable
            Else
                Return DirectCast(ViewState("DTDocumentacion"), DataTable)
            End If
        End Get
        Set(value As DataTable)
            ViewState("DTDocumentacion") = value
        End Set
    End Property
    Private Property DTDocumentacionFiscal As DataTable
        Get
            If ViewState("DTDocumentacionFiscal") Is Nothing Then
                Return New DataTable
            Else
                Return DirectCast(ViewState("DTDocumentacionFiscal"), DataTable)
            End If
        End Get
        Set(value As DataTable)
            ViewState("DTDocumentacionFiscal") = value
        End Set
    End Property
    Property NombreCompleto As String
        Get
            If ViewState("NombreCompleto") Is Nothing Then
                Return ""
            Else
                Return ViewState("NombreCompleto").ToString()
            End If
        End Get
        Set(value As String)
            ViewState("NombreCompleto") = value
        End Set
    End Property
    Property CredencialElector As String
        Get
            If ViewState("CredencialElector") Is Nothing Then
                Return "-1"
            Else
                Return ViewState("CredencialElector").ToString()
            End If
        End Get
        Set(value As String)
            ViewState("CredencialElector") = value
        End Set
    End Property
    Property Documentacion As String
        Get
            If ViewState("Documentacion") Is Nothing Then
                Return "-1"
            Else
                Return ViewState("Documentacion").ToString()
            End If
        End Get
        Set(value As String)
            ViewState("Documentacion") = value
        End Set
    End Property
    Property CveCuentaDeposito As Integer
        Get
            If ViewState("CveCuentaDeposito") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveCuentaDeposito"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CveCuentaDeposito") = value
        End Set
    End Property
    Property CveDocumentacion As Integer
        Get
            If ViewState("CveDocumentacion") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveDocumentacion"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CveDocumentacion") = value
        End Set
    End Property
    Property CveDocumentacionElectronica As Integer
        Get
            If ViewState("CvePersonalClienteDocumentacion") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CvePersonalClienteDocumentacion"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CvePersonalClienteDocumentacion") = value
        End Set
    End Property
    Property ActualizarDocumentacion As Boolean
        Get
            If ViewState("ActualizarDocumentacion") Is Nothing Then
                Return True
            Else
                Return DirectCast(ViewState("ActualizarDocumentacion"), Boolean)
            End If
        End Get
        Set(value As Boolean)
            ViewState("ActualizarDocumentacion") = value
        End Set
    End Property
    Private Property FechaLimite As Date
        Get
            If ViewState("FechaLimite") Is Nothing Then
                Return NowADS().AddDays(15)
            Else
                Return ViewState("FechaLimite").ToString().ToDate
            End If
        End Get
        Set(value As Date)
            ViewState("FechaLimite") = value
        End Set

    End Property
    Property Estatus As Integer
        Get
            If ViewState("Estatus") Is Nothing Then
                Return 0
            Else
                Return DirectCast(ViewState("Estatus"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("Estatus") = value
        End Set
    End Property
    Property ObservacionDocumentacion As String
        Get
            If ViewState("ObservacionDocumentacion") Is Nothing Then
                Return ""
            Else
                Return ViewState("ObservacionDocumentacion").ToString()
            End If
        End Get
        Set(value As String)
            ViewState("ObservacionDocumentacion") = value
        End Set
    End Property
    Property AdjuntoDocumentacion As String
        Get
            If ViewState("AdjuntoDocumentacion") Is Nothing Then
                Return ""
            Else
                Return ViewState("AdjuntoDocumentacion").ToString()
            End If
        End Get
        Set(value As String)
            ViewState("AdjuntoDocumentacion") = value
        End Set
    End Property
    Private ReadOnly Property CvePersonal As Integer
        Get
            If ViewState("CvePersonal") Is Nothing Then
                Return -1
            Else
                Return ViewState("CvePersonal").ToString().ToEntero()
            End If
        End Get
    End Property


    Private Property dtSubTipoPeriodo As Data.DataTable
        Get
            Return CType(ViewState("dtSubTipoPeriodo"), DataTable)
        End Get
        Set(value As Data.DataTable)
            ViewState("dtSubTipoPeriodo") = value
        End Set
    End Property
    Private Property dtNomConceptos As Data.DataTable
        Get
            Return CType(ViewState("dtNomConceptos"), DataTable)
        End Get
        Set(value As Data.DataTable)
            ViewState("dtNomConceptos") = value
        End Set
    End Property

    Private Property DtCuentasContables As Data.DataTable
        Get
            Return CType(ViewState("DtCuentasContables"), DataTable)
        End Get
        Set(value As Data.DataTable)
            ViewState("DtCuentasContables") = value
        End Set
    End Property
    Private ReadOnly Property SendMail As String
        Get
            Return ViewState("SendMail").ToString()
        End Get
    End Property
    Private ReadOnly Property SendMailPassword As String
        Get
            Return ViewState("SendMailPassword").ToString()
        End Get
    End Property

    Private ReadOnly Property CveUniforme As Integer
        Get
            If ViewState("CveUniforme") Is Nothing Then
                Return -1
            Else
                Return ViewState("CveUniforme").ToString().ToEntero()
            End If
        End Get
    End Property
    Private Property DTConsumos As DataTable
        Get
            Return CType(ViewState("DTConsumos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTConsumos") = value
        End Set
    End Property
    Private Property DTViaticosDetalle As DataTable
        Get
            Return CType(ViewState("DTViaticosDetalle"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTViaticosDetalle") = value
        End Set
    End Property
    Private Property DTGastosSinComp As DataTable
        Get
            Return CType(ViewState("DTGastosSinComp"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTGastosSinComp") = value
        End Set
    End Property
    Private Property DTGastosPorCheque As DataTable
        Get
            Return CType(ViewState("DTGastosPorCheque"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTGastosPorCheque") = value
        End Set
    End Property

    Private Property CvePersonalEstatusInicial As Integer
        Get
            If ViewState("CvePersonalEstatusInicial") Is Nothing Then
                Return -1
            Else
                Return ViewState("CvePersonalEstatusInicial").ToString().ToEntero()
            End If
        End Get
        Set(value As Integer)
            ViewState("CvePersonalEstatusInicial") = value
        End Set
    End Property

    Private Property UniformesInfo As DataTable
        Get
            Return CType(ViewState("UniformesInfo"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("UniformesInfo") = value
        End Set
    End Property

    Private Property CveAlmacenUniforme As Integer
        Get
            Return CInt(ViewState("CveAlmacenUniforme"))
        End Get
        Set(value As Integer)
            ViewState("CveAlmacenUniforme") = value
        End Set
    End Property
    Private Property CveSeccionAlmacenUniforme As Integer
        Get
            Return CInt(ViewState("CveSeccionAlmacenUniforme"))
        End Get
        Set(value As Integer)
            ViewState("CveSeccionAlmacenUniforme") = value
        End Set
    End Property

    Private Property DescripcionUniforme As String
        Get
            Return CStr(ViewState("DescripcionUniforme"))
        End Get
        Set(value As String)
            ViewState("DescripcionUniforme") = value
        End Set
    End Property

    Private Property CveUM As Integer
        Get
            Return CInt(ViewState("CveUM"))
        End Get
        Set(value As Integer)
            ViewState("CveUM") = value
        End Set
    End Property

    Private Property CvePS As Integer
        Get
            Return CInt(ViewState("CvePS"))
        End Get
        Set(value As Integer)
            ViewState("CvePS") = value
        End Set
    End Property

    Private Property PU As Decimal
        Get
            Return ViewState("PU").ToString.ToDecimal
        End Get
        Set(value As Decimal)
            ViewState("PU") = value
        End Set
    End Property
    Private Property CveMovimientoUniforme As Integer
        Get
            Return CInt(ViewState("CveMovimientoUniforme"))
        End Get
        Set(value As Integer)
            ViewState("CveMovimientoUniforme") = value
        End Set
    End Property
    Private Property CveMovimientoDetalleUniforme As Integer
        Get
            Return CInt(ViewState("CveMovimientoDetalleUniforme"))
        End Get
        Set(value As Integer)
            ViewState("CveMovimientoDetalleUniforme") = value
        End Set
    End Property


    Private Property IndexCuentaDepostito As Integer
        Get
            If ViewState("IndexCuentaDepostito") Is Nothing Then
                ViewState("IndexCuentaDepostito") = -1
            End If
            Return ViewState("IndexCuentaDepostito").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("IndexCuentaDepostito") = value
        End Set
    End Property


#End Region

#Region "V A C A C I O N E S - P E R M I S O S"

    Private Property VacInicioPeriodo As Date
        Get
            If ViewState("VacInicioPeriodo") Is Nothing Then
                Return NowADS()
            Else
                Return DirectCast(ViewState("VacInicioPeriodo"), Date)
            End If
        End Get
        Set(value As Date)
            ViewState("VacInicioPeriodo") = value
        End Set
    End Property
    Private Property VacFinPeriodo As Date
        Get
            If ViewState("VacFinPeriodo") Is Nothing Then
                Return NowADS()
            Else
                Return DirectCast(ViewState("VacFinPeriodo"), Date)
            End If
        End Get
        Set(value As Date)
            ViewState("VacFinPeriodo") = value
        End Set
    End Property

    Private Property VacAnios As Integer
        Get
            If ViewState("VacAnios") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("VacAnios"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("VacAnios") = value
        End Set
    End Property


    Private Property VacDias As Integer
        Get
            If ViewState("VacDias") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("VacDias"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("VacDias") = value
        End Set
    End Property

    Private Property VacDiasUsados As Integer
        Get
            If ViewState("VacDiasUsados") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("VacDiasUsados"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("VacDiasUsados") = value
        End Set
    End Property

    Private Property VacDiasCancelados As Integer
        Get
            If ViewState("VacDiasCancelados") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("VacDiasCancelados"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("VacDiasCancelados") = value
        End Set
    End Property

    Private Property VacDiasDisponibles As Integer
        Get
            If ViewState("VacDiasDisponibles") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("VacDiasDisponibles"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("VacDiasDisponibles") = value
        End Set
    End Property


    Private Property VacSupervisorNombre As String
        Get
            If ViewState("VacSupervisorNombre") Is Nothing Then
                Return ""
            Else
                Return ViewState("VacSupervisorNombre").ToString()
            End If
        End Get
        Set(value As String)
            ViewState("VacSupervisorNombre") = value
        End Set
    End Property

    Private Property VacSupervisorCorreo As String
        Get
            If ViewState("VacSupervisorCorreo") Is Nothing Then
                Return ""
            Else
                Return ViewState("VacSupervisorCorreo").ToString()
            End If
        End Get
        Set(value As String)
            ViewState("VacSupervisorCorreo") = value
        End Set
    End Property

    Private Property VacCveSupervisor As Integer
        Get
            If ViewState("VacCveSupervisor") Is Nothing Then
                Return -1
            Else
                Return ViewState("VacCveSupervisor").ToString().ToEntero()
            End If
        End Get
        Set(value As Integer)
            ViewState("VacCveSupervisor") = value
        End Set
    End Property


    Private Property VacFolioActual As Integer
        Get
            If ViewState("VacFolioActual") Is Nothing Then
                Return 0
            Else
                Return DirectCast(ViewState("VacFolioActual"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("VacFolioActual") = value
        End Set
    End Property

    Private Property CvePersonalVacaciones As Integer
        Get
            If ViewState("CvePersonalVacaciones") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CvePersonalVacaciones"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CvePersonalVacaciones") = value
        End Set
    End Property


    Private Property VacDiaActivo As Boolean
        Get
            If ViewState("VacDiaActivo") Is Nothing Then
                Return False
            Else
                Return DirectCast(ViewState("VacDiaActivo"), Boolean)
            End If
        End Get
        Set(value As Boolean)
            ViewState("VacDiaActivo") = value
        End Set
    End Property


    Private Property VacFolio As Integer
        Get
            If ViewState("VacFolio") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("VacFolio"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("VacFolio") = value
        End Set
    End Property



    Private Property CvePermiso As Integer
        Get
            If ViewState("CvePermiso") Is Nothing Then
                Return -1
            Else
                Return ViewState("CvePermiso").ToString().ToEntero()
            End If
        End Get
        Set(value As Integer)
            ViewState("CvePermiso") = value
        End Set
    End Property

#End Region

#Region "Desorden Antres del load"

#Region "PROPIEDADES FAMILIARES"

    Private Property ActualizarFamiliar As Boolean
        Get
            If ViewState("ActualizarFamiliar") Is Nothing Then
                Return True
            Else
                Return DirectCast(ViewState("ActualizarFamiliar"), Boolean)

            End If
        End Get
        Set(value As Boolean)
            ViewState("ActualizarFamiliar") = value
        End Set
    End Property
    Private Property CveFamiliar As Integer
        Get
            If ViewState("CveFamiliar") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveFamiliar"), Integer)
            End If

        End Get
        Set(value As Integer)
            ViewState("CveFamiliar") = value
        End Set
    End Property

    Private Property IndexActual As Integer
        Get
            If ViewState("IndexActual") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("IndexActual"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("IndexActual") = value
        End Set
    End Property

    Property DTFamiliares As DataTable
        Get
            Return DirectCast(ViewState("DTFamiliares"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTFamiliares") = value
        End Set
    End Property


    Private Property ValPadre As Boolean
        Get
            If ViewState("ValPadre") Is Nothing Then
                Return False
            Else
                Return DirectCast(ViewState("ValPadre"), Boolean)
            End If
        End Get
        Set(value As Boolean)
            ViewState("ValPadre") = value
        End Set
    End Property

    Private Property ValMadre As Boolean
        Get
            If ViewState("ValMadre") Is Nothing Then
                Return False
            Else
                Return DirectCast(ViewState("ValMadre"), Boolean)
            End If
        End Get
        Set(value As Boolean)
            ViewState("ValMadre") = value
        End Set
    End Property


    Private Property DocumentoParametros As String
        Get
            If ViewState("DocumentoParametros") Is Nothing Then
                Return ""
            Else
                Return ViewState("DocumentoParametros").ToString
            End If
        End Get
        Set(value As String)
            ViewState("DocumentoParametros") = value
        End Set
    End Property





#End Region


    Public Property GlobalDTSubProyectosUsuariosB(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEstatus As Integer = -1) As DataTable
        Get
            Dim AppNombre As String = $"GlobalDTSubProyectosUsuarios-{CveEmpresa}"
            HttpContext.Current.Application(AppNombre) = Nothing
            If HttpContext.Current.Application(AppNombre) Is Nothing OrElse DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0 Then
                Dim ObjSubProyectos As New ClsSubProyectos()
                If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados
                ObjSubProyectos.Dispose()
            End If
            Dim filtros As New List(Of String)
            If CveProyecto <> -1 Then filtros.Add($"CveProyecto = {CveProyecto}")
            If CveSubProyecto <> -1 Then filtros.Add($"CveSubProyecto = {CveSubProyecto}")
            If CveUsuario <> -1 Then filtros.Add($"CveUsuario = {CveUsuario}")
            If CveEstatus <> -1 Then filtros.Add($"CveEstatus = {CveEstatus}")
            If filtros.Count > 0 Then
                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
                GlobalDTSubProyectosUsuariosB = Dv.ToTable
                Dv.Dispose()
            Else
                GlobalDTSubProyectosUsuariosB = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
            End If
        End Get
        Set(ByVal value As DataTable)
            Dim AppNombre As String = $"GlobalDTSubProyectosUsuarios-{CveEmpresa}"
            HttpContext.Current.Application(AppNombre) = value
        End Set
    End Property
    Private Shared Function sendURL(ByVal URL As String, Optional Methodo As String = "POST", Optional Cookie As String = "", Optional maxTimeMilliseconds As Integer = 120000) As String
        Dim resultado As String = ""

        Try
            Dim request As Net.HttpWebRequest = CType(Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
            request.Timeout = maxTimeMilliseconds
            request.Method = Methodo
            request.ContentType = "text/html; charset=utf-8" '"text/xml; charset=utf-8"

            If Not String.IsNullOrEmpty(Cookie) Then
                request.Headers.Add("Cookie", Cookie)
            End If

            'Using stream As IO.Stream = request.GetRequestStream()

            '    Using stmw As IO.StreamWriter = New IO.StreamWriter(stream)
            '        stmw.Write("")
            '    End Using
            'End Using

            Dim response As Net.WebResponse = CType(request.GetResponse(), Net.WebResponse)
            Dim sr As IO.StreamReader = New IO.StreamReader(response.GetResponseStream())
            resultado = sr.ReadToEnd()
            sr.Close()
        Catch ex As Exception
            ex.ToString().GuardaLog()
            'Extenciones.ApplicationParameter.GuardaLogEx(ex, $"SOAPAction : {SOAPAction} XML : {xml}")
        End Try

        Return resultado
    End Function
    '<ScriptMethod(UseHttpGet:=True, ResponseFormat:=ResponseFormat.Json)>
    <System.Web.Services.WebMethod()>
    Public Shared Function gettingCURP(ByVal Curp As String, year As Integer) As String
        Dim abc As String() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
        Dim numeric01 As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
        Dim rule1 As String() = If(year < 2000, numeric01, abc)
        Dim curpresult As String = ""
        Dim i As Integer = 0
        While Curp.Length = 0 AndAlso i < rule1.Length
            Dim z As Integer = 0
            While Curp.Length = 0 AndAlso z < numeric01.Length
                curpresult = String.Format("{0}{1}{2}", Curp, rule1(i), numeric01(z))
                Dim respuesta As String = sendURL(String.Format("http://www.renapo.sep.gob.mx/wsrenapo/MainControllerParam?curp={0}", curpresult), "GET")

                Dim trlines As New List(Of String)
                Dim keydict As New System.Collections.Concurrent.ConcurrentDictionary(Of String, String)

                Dim indexttr As Integer = 0
                Dim indexttrB As Integer = 0
                Dim indexttd As Integer = 0
                Dim indextdiv As Integer = 0
                Dim indexinittext As Integer = 0
                While Not IsNothing(respuesta) AndAlso respuesta.Length > 0
                    indexttr = respuesta.IndexOf("<tr")
                    If indexttr >= 0 Then
                        indexttrB = respuesta.Substring(indexttr + 3).IndexOf("<tr")
                        If indexttrB >= 0 Then
                            trlines.Add(respuesta.Substring(indexttr, indexttrB))
                        Else
                            trlines.Add(respuesta.Substring(indexttr))

                        End If
                        respuesta = respuesta.Substring(indexttr + 3)
                    Else
                        respuesta = ""
                    End If

                End While

                Dim key As String = ""
                Dim keyvalue As String = ""
                For Each item As String In trlines
                    key = ""
                    keyvalue = ""
                    indexttd = item.IndexOf("<td")
                    indextdiv = item.IndexOf("<div")
                    If indextdiv >= 0 Then
                        indexttr = indextdiv
                        indexttrB = item.IndexOf("</div")
                    Else
                        indexttr = indexttd
                        indexttrB = item.IndexOf("</td")
                    End If
                    If indexttr >= 0 Then
                        indexinittext = item.Substring(indexttr + 3).IndexOf(">")
                        key = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))

                        item = item.Substring(indexttrB + 3)
                    Else
                        item = ""
                    End If

                    If item.Length > 0 Then

                        indexttd = item.IndexOf("<td")
                        indextdiv = item.IndexOf("<div")
                        If indextdiv >= 0 Then
                            indexttr = indextdiv
                            indexttrB = item.IndexOf("</div")
                        Else
                            indexttr = indexttd
                            indexttrB = item.IndexOf("</td")
                        End If
                        If indexttr >= 0 Then
                            indexinittext = item.Substring(indexttr + 3).IndexOf(">")
                            keyvalue = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))

                            item = item.Substring(indexttr + 3)
                        Else
                            item = ""
                        End If

                    End If
                    If key.Length > 0 Then
                        keydict.TryAdd(key.Replace(":", "").Trim(), keyvalue.Trim().ToLower())
                    End If
                Next
                Dim Apellido1 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
                Dim Apellido2 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
                Dim Nombres As String = "" : keydict.TryGetValue("Nombres", Nombres)
                If Nombres Is Nothing OrElse Nombres.Length = 0 Then
                    curpresult = ""
                End If
                z = z + 1
            End While
            i = i + 1
        End While
        Return curpresult
    End Function

    Const wdPageBreak As Integer = 7
    Const wdCharacter As Integer = 1

    Public ReadOnly Property showsalarios As Boolean
        Get
            Return UsuarioActual.Empresa.Funcionalidad(701) = "1"
        End Get
    End Property
#End Region
    'Configuración
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim dt As DataTable = GlobalDTSubProyectosUsuariosB(1360, -1, 172, -1, -1)
            If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
                pnlSalarioIMSS.Visible = False
            End If
            LnkContratoAgropecuaria.Visible = (UsuarioActual.CveEmpresa.Contiene(1, 158))
            Using objno As New ClsNominas
                objno.GetConceptos(UsuarioActual.CveEmpresa)
                dtNomConceptos = objno.DtResultados
                objno.GetSubTipoPeriodo(UsuarioActual.CveEmpresa)
                dtSubTipoPeriodo = objno.DtResultados
            End Using
            divSubTipoPeriodo.Visible = False
            PnlSalarios.Visible = showsalarios

            ViewState("Orden") = ""
            ViewState("Orden1") = ""
            Session("FileUpload") = ""
            ViewState("Archivo") = ""
            DTConsumos = Nothing


            SetValues()
            'SetPermisos() 

            CargaEscolaridad()
            CargaEstadoCivil()
            CargaDepartamento()
            CargaPuestos()
            CargaEstatusPersonal(1)
            CargaGenero()
            CargaMotivoBaja()
            CargaRuta()
            CargaTiposContrato()
            CargaTipoPeriodo()
            CargaTurno()
            CargaJornadas()
            CargaProyecto()
            CargaTiposAsistencia()
            CargaMotivoHoraExtra()
            CargaMotivosHorasExtras()
            CargaSupervisores()
            CargaMetodosPago()
            CargaTipoRegimen()
            CargaRiesgoPuesto()
            CargaBancos()
            CargaSubProyectosZona()
            CargaEstados(151)
            CargaMonedas()
            CargaSuperioresOrganigrama()
            CargaUsuariosNomina()
            CargaComboUniformes()
            CargaPermisos()
            CargaCombosBuzon()
            CargaPermisosReemplazos()
            CargaPaises()
            CargaRegistroPatronal()
            CargaOutSourcing()
            CargaDDlPersonalRefsReference()
            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()
                If CargaDatos() Then
                    CargaDocumentacionFirmaDecontratos()
                    CargaPersonalIncapacidad()
                    CargaMovtoPermanente()
                    'LnkAddLicencias.Visible = True
                    'TabLicencias.Visible = True
                    'Configuración de Modalidad Update
                    BtnGuardar.Text = "Guardar Cambios"
                    LtlTitulo.Text = "Consulta de Personal:"
                    If UsuarioActual.CveRol = 1 Then
                        'ImgImprimir.Visible = True
                        ImgImprimirExpediente.Visible = True
                    End If

                    'ImgAddObs.Attributes.Add("onclick", "javascript: PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ")
                    If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero() - 1

                    'Inicia Permisos
                    If UsuarioActual.TienePermisoProceso(228) Then
                        GVAsistencia.Columns(10).Visible = True
                    End If
                    'Fin Permisos
                    HlEvento.Visible = True
                    HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CvePersonal=" & CvePersonal & "&TB_iframe=true&height=370&width=600;"

                    CargaViaticosPersonal()

                    divBitacora.Visible = True
                    CargaGvBitacora()
                    CarcaConceptosNomina()
                    CargaFonacot()
                    CargaPersonalRefs()
                End If

                ValidaDeudorAcreedor()

            Else
                cargatipoTrabajador()
                MostrarOcultarFechasEstatus()
                LoadDefaultValues()

                ImgAddObs.Visible = False
                LblFechaCaptura.Text = NowADS().ToShortDateString()
                LblUsuarioCapturo.Text = UsuarioActual.Usuario
                ViewState("CvePersonal") = -1
                BtnEliminar.Visible = False

            End If

            CargaCuentasBancarias()

            If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then

                CrearEstructuraFamiliares()
                CargaFamiliares()

                LIFamiliaresAcciones.Visible = True
                DivFamiliares.Visible = True
                DivPadres.Visible = False
            End If

            If Not CvePersonal > 0 Then
                DivSuperiorInmediato.Visible = False
            End If

            If UsuarioActual.CveEmpresa = 7 Then
                DivSuperiorInmediato.Visible = True
                DVSupervisorAsignado.Visible = False
            End If


            '09/05/2018 - Si el Personal tiene consumos, muestra boton para generar reporte
            If DTConsumos IsNot Nothing Then
                If DTConsumos.Rows.Count > 0 Then
                    UpDescargaConsumos.Visible = True
                End If
            End If
            CargaLicencias()
            LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CvePersonal:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CvePersonal)

            If UsuarioActual.CveRol = 1 Or UsuarioActual.CveUsuario = 100 Then
                DVNetoPeriodo.Visible = True
            End If

            If UsuarioActual.Empresa.Funcionalidad(712) = "1" Or UsuarioActual.CveEmpresa = 1 Then
                DvRuta.Visible = True
                DVTxtTelefono.Attributes.Add("class", "col-md-6")
                DVDdlTipoSangre.Visible = True
            End If

            If Not CvePersonal > 0 Then
                AsignaSiguienteCodigo()
            End If


        End If
        AgregarEventosAsincronosGvVacaciones()
    End Sub

    Private Sub AsignaSiguienteCodigo()
        Dim ObjPersonal As New ClsRH()
        If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then

            Dim MaxCodigo As Integer = 1

            If ObjPersonal.DtResultados.Rows.Count > 0 Then
                MaxCodigo = ObjPersonal.DtResultados.AsEnumerable() _
                    .Select(Function(row)
                                Dim codigoStr As String = row.Field(Of String)("Codigo")
                                If Not String.IsNullOrWhiteSpace(codigoStr) Then
                                    Dim codigo As Integer
                                    If Integer.TryParse(codigoStr, codigo) Then
                                        Return codigo
                                    End If
                                End If
                                Return 0
                            End Function) _
                    .DefaultIfEmpty(0) _
                    .Max()
            End If

            TxtCodigo.Text = (MaxCodigo + 1).ToString("000")

        End If
        ObjPersonal.Dispose()
    End Sub

    Private Sub LoadDefaultValues()
        DdlDepartamento.SelectedIndex = 1
        DdlRegimenContratacion.SelectedValueExist(1)
        DdlMetodoPago.SelectedValueExist(1)
        DdlTipoPeriodo.SelectedValueExist(1)
        DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing)
        DdlTipoContrato.SelectedValueExist(2)
        DdlJornada.SelectedValueExist(6)
        DdlPuesto.SelectedIndex = 1
        DdlTurno.SelectedIndex = 1
        DdlEstatusPersonal.SelectedValue = "1"
        DdlRiesgoPuesto.SelectedIndex = 1
    End Sub
    Private Sub CargaCuentasContables()
        Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
        If ObjContabilidad.GetCuentas(-1, "-1", -1) Then
            DtCuentasContables = ObjContabilidad.DtResultados

        Else
            DtCuentasContables = Nothing

        End If
        ObjContabilidad.Dispose()

    End Sub
    Private Sub SetValues()
        ViewState("Orden") = String.Empty
        CargaClientes()
        Dim fechainicioasistencia As String
        Dim fechaFinasistencia As String
        If NowADS().Day >= 15 Then
            fechainicioasistencia = String.Format("{0:16/MM/yyyy}", NowADS())
            Dim dateendasis As DateTime = String.Format("{0:01/MM/yyyy}", NowADS()).ToDateTime().AddMonths(1).AddDays(-1)
            fechaFinasistencia = String.Format("{0:dd/MM/yyyy}", dateendasis)
        Else
            fechainicioasistencia = String.Format("{0:01/MM/yyyy}", NowADS())
            fechaFinasistencia = String.Format("{0:15/MM/yyyy}", NowADS())
        End If
        If Request("FechaI") IsNot Nothing AndAlso IsDate(Request("FechaI")) Then
            txtFechaI.Text = Request("FechaI")
        Else
            txtFechaI.Text = fechainicioasistencia
        End If

        If Request("FechaF") IsNot Nothing AndAlso IsDate(Request("FechaF")) Then
            txtFechaF.Text = Request("FechaF")
        Else
            txtFechaF.Text = fechaFinasistencia
        End If

        If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
            Dim DTSub As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Request("CveSubProyecto").ToEntero()) 'Cambiame
            If DTSub.Rows.Count > 0 Then
                Dim DTProy As DataTable = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("CveProyecto = " & DTSub.Rows(0)("CveProyecto").ToString())
                If DTProy.Rows.Count > 0 Then
                    DdlProyectoAsistenciaC.SelectedValue = DTProy.Rows(0)("CveProyecto").ToString()
                    DdlProyectoAsistenciaA_SelectedIndexChanged(Me, New EventArgs)
                    DdlSubProyectoAsistenciasC.SelectedValue = Request("CveSubProyecto")
                End If
            End If
        End If

        TxtFechaICredito.Text = $"01/01/{NowADS().Year}"
        TxtFechaFCredito.Text = NowADS().ToShortDateString

        If UsuarioActual.Empresa.Funcionalidad(509) = "1" Then
            divCliente.Visible = True
            tdCliente1.Visible = True
            tdCliente2.Visible = True
            GVAsistencia.Columns(1).Visible = True
        End If
        'no sedeben habilitar ya que solo son informativos
        'If UsuarioActual.TienePermisoProceso(372) Then
        '    TxtSalarioDiarioImSS.Enabled = True
        '    TxtSalarioDiarioIntegrado.Enabled = True
        'End If

    End Sub
    Private Sub SetPermisos()
        'Permisos

    End Sub

#Region "Carga Combos"

    Public Sub cargatipoTrabajador()
        Using objrh As New ClsRH()
            If UsuarioActual.CveEmpresa <> 158 Then
                If (objrh.TiposTrabajadorGet(-1, UsuarioActual.CveEmpresa)) Then
                    Dim dt As DataTable = objrh.DtResultados
                    Dim drow As DataRow = dt.NewRow()
                    drow("CveTipoTrabajador") = "-1"
                    drow("TipoTrabajadorB") = "Seleccione"
                    dt.Rows.InsertAt(drow, 0)
                    DdlTipoTrabajador.DataSource = dt
                    DdlTipoTrabajador.DataBind()
                End If

            Else

                If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
                    Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
                    Dim drow As DataRow = dt.NewRow()
                    If UsuarioActual.CveEmpresa <> 158 Then
                        drow = dt.NewRow()
                        drow("CveTipoTrabajador") = "2"
                        drow("TipoTrabajadorB") = "Operativo"
                        dt.Rows.InsertAt(drow, 0)
                        drow = dt.NewRow()
                        drow("CveTipoTrabajador") = "3"
                        drow("TipoTrabajadorB") = "Administrativo"
                        dt.Rows.InsertAt(drow, 0)

                    End If
                    drow = dt.NewRow()
                    drow("CveTipoTrabajador") = "-1"
                    drow("TipoTrabajadorB") = "Seleccione"
                    dt.Rows.InsertAt(drow, 0)
                    If DdlTipoTrabajador.Items.Count() > 0 Then
                        DdlTipoTrabajador.SelectedValueExist("-1")
                    End If
                    DdlTipoTrabajador.DataSource = dt
                    DdlTipoTrabajador.DataBind()
                End If
            End If
        End Using
    End Sub

    Protected Sub cargaagrodeptos()

        If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then 'empresa agricola
            Using objrh As New ClsRH()
                divAgroTipoTrabajador.Visible = True
                divAgroDepto.Visible = True
                divMedioTransporte.Visible = True
                divAgro1.Visible = True
                divAgro2.Visible = True
                If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
                    Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue.ToEntero()))
                    Dim drow As DataRow = dt.NewRow()
                    drow("CveDepartamento") = "-1"
                    drow("Departamento") = "Seleccione"
                    dt.Rows.InsertAt(drow, 0)
                    If DDlAgroDepartamento.Items.Count() > 0 Then
                        DDlAgroDepartamento.SelectedValueExist("-1")
                    End If
                    DDlAgroDepartamento.DataSource = dt
                    DDlAgroDepartamento.DataBind()
                End If
            End Using
        End If

    End Sub
    Private Sub CargaEscolaridad()
        DdlEscolaridad.DataSource = GlobalDTEscolaridad
        DdlEscolaridad.DataBind()
    End Sub

    Private Sub CargaGenero()
        DdlGenero.DataSource = GlobalDTGenero
        DdlGenero.DataBind()
    End Sub

    Private Sub CargaEstadoCivil()
        DdlEstadoCivil.DataSource = GlobalDTEstadoCivil
        DdlEstadoCivil.DataBind()
    End Sub

    Private Sub CargaTipoPeriodo()
        DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo
        DdlTipoPeriodo.DataBind()
    End Sub

    Private Sub CargaTiposContrato()
        Dim dt As DataTable = GlobalDTTiposContrato
        DdlTipoContrato.DataSource = dt
        DdlTipoContrato.DataBind()
    End Sub

    Private Sub CargaTurno()
        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
        DdlTurno.DataBind()
    End Sub

    Private Sub CargaJornadas()
        DdlJornada.DataSource = GlobalDTJornadas
        DdlJornada.DataBind()
    End Sub

    Private Sub CargaMotivoHoraExtra()
        DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa)
        DdlMotivoHoraExtra.DataBind()
    End Sub

    Private Sub CargaDepartamento()
        DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
        DdlDepartamento.DataBind()
    End Sub

    Private Sub CargaPuestos()
        DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
        DdlPuesto.DataBind()
    End Sub

    Private Sub CargaRuta()
        DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)
        DdlRuta.DataBind()
    End Sub

    Private Sub CargaMotivoBaja()
        DdlMotivoBaja.DataSource = GlobalDTMotivoBaja(UsuarioActual.CveEmpresa)
        DdlMotivoBaja.DataBind()
    End Sub

    Private Sub CargaEstatusPersonal(CveEstatus As Integer)
        Dim filtro As String = ""
        Select Case CveEstatus
            Case 1 'ingreso
                filtro = " CveEstatusPersonal IN(1,2) "
            Case 5 'reingreso
                filtro = " CveEstatusPersonal IN(2,5) "
            Case 2 'baja
                filtro = " CveEstatusPersonal IN(2,5) "
            Case 3 'reclutamiento
                filtro = " CveEstatusPersonal IN(1,3,4,6) "
            Case 4 'descartado reclutamiento
                filtro = " CveEstatusPersonal IN(4) "
            Case 6 'reclutamiento prealta
                filtro = " CveEstatusPersonal IN(1,3,4,6) "
        End Select

        DdlEstatusPersonal.DataSource = GlobalDTEstatusPersonal.FiltraParametros(filtro)
        DdlEstatusPersonal.DataBind()
    End Sub

    Private Sub CargaUsuariosNomina()
        Dim dttemp As DataTable
        Dim FiltroAD() As String = {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol", "Correo", "Empresa", "CveRol"}
        dttemp = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
        DDLUsuarioNomina.DataSource = dttemp.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1 and CveRol <> 1", UsuarioActual.CveEmpresa), "Rol ASC", FiltroAD)
        DDLUsuarioNomina.DataBind()

        DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1"))

    End Sub
    Private Sub CargaClientes()
        'Dim ObjClientes As New ClsClientes
        'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
        '    DdlClienteAsignado.DataSource = ObjClientes.DtResultados
        '    DdlClienteAsistenciaC.DataSource = ObjClientes.DtResultados
        '    DdlClienteAsistenciaA.DataSource = ObjClientes.DtResultados
        'Else
        '    DdlClienteAsignado.DataSource = Nothing
        '    DdlClienteAsistenciaC.DataSource = Nothing
        '    DdlClienteAsistenciaA.DataSource = Nothing
        'End If
        'ObjClientes.Dispose()
        'DdlClienteAsignado.DataBind()
        'DdlClienteAsistenciaC.DataBind()
        'DdlClienteAsistenciaA.DataBind()
        DdlClienteAsignado.setEsWebService(True)
        DdlClienteAsistenciaC.setEsWebService(True)
        DdlClienteAsistenciaA.setEsWebService(True)
        DdlClienteBuzon.setEsWebService(True)
    End Sub

    Private Sub CargaProyecto()

        CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyectoAsignado, LblSubProyectoAsignado)
        DivProyectosAsignado.Visible = LblProyectoAsignado.Visible
        'DdlProyectoAsignado.Items.Clear()
        'DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 1)
        'DdlProyectoAsignado.DataBind()

        'DdlProyectoAsignado.Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))

        DdlProyectoAsistenciaC.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
        DdlProyectoAsistenciaC.DataBind()

        DdlProyectoAsistenciaA.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
        DdlProyectoAsistenciaA.DataBind()

    End Sub

    Private Sub CargaSubProyectoAsignado()
        If DivProyectosAsignado.Visible Then

            DdlSubProyectoAsignado.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
            DdlSubProyectoAsignado.DataBind()
            DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
            'old
            'DdlSubProyectoAsignado.Items.Clear()
            'DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(DdlProyectoAsignado.SelectedValue.ToEntero())
            'DdlSubProyectoAsignado.DataBind()

            'DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
        End If
    End Sub

    Private Sub CargaSubProyectoAsistenciaC()
        DdlSubProyectoAsistenciasC.Items.Clear()
        DdlSubProyectoAsistenciasC.DataSource = GlobalDTSubProyectos(DdlProyectoAsistenciaC.SelectedValue.ToEntero())
        DdlSubProyectoAsistenciasC.DataBind()

        DdlSubProyectoAsistenciasC.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub

    Private Sub CargaSubProyectoAsistenciaA()
        DdlSubProyectoAsistenciasA.Items.Clear()
        DdlSubProyectoAsistenciasA.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlProyectoAsistenciaA.SelectedValue.ToEntero())
        DdlSubProyectoAsistenciasA.DataBind()

        DdlSubProyectoAsistenciasA.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub

    Private Sub CargaTiposAsistencia()
        DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
        DdlTipoAsistencias.DataBind()
    End Sub

    Private Sub CargaMotivosHorasExtras()
        DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa)
        DdlMotivoHoraExtra.DataBind()
    End Sub

    Private Sub CargaSupervisores()
        DdlSupervisor.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("  EsSupervisorRH = 1 ")
        DdlSupervisor.DataBind()
    End Sub



    Private Sub CargaPermisosReemplazos()

        Dim ObjRH As New ClsRH

        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
            DdlPermisosReemplazo.DataSource = ObjRH.DtResultados
        Else
            DdlPermisosReemplazo.DataSource = Nothing
            ' Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
        End If
        ObjRH.Dispose()


        DdlPermisosReemplazo.DataBind()




        ' DdlPermisosReemplazo.DataSource = GlobalDTUsuarios(-1,UsuarioActual.CveEmpresa)
        'DdlPermisosReemplazo.DataBind()
    End Sub
    Private Sub CargaMetodosPago()
        DdlMetodoPago.DataSource = GlobalDTVtaMetodoPago
        DdlMetodoPago.DataBind()

        DdlFormaPago.DataSource = GlobalDTVtaFormaPago
        DdlFormaPago.DataBind()
    End Sub

    Private Sub CargaTipoRegimen()
        Dim dt As DataTable = GlobalDTNomSatRegimenContratacion.Copy()
        For Each item As DataRow In dt.Rows
            item("RegimenContratacion") = String.Format("{1}{0} {2}", item("CveSATRegimenContratacion"), If(item("CveSATRegimenContratacion").ToString().Length > 1, "", "0"), item("RegimenContratacion"))
        Next
        dt.AcceptChanges()

        DdlRegimenContratacion.DataSource = dt.FiltraParametros("", "RegimenContratacion")
        DdlRegimenContratacion.DataBind()
    End Sub

    Private Sub CargaRiesgoPuesto()
        DdlRiesgoPuesto.DataSource = GlobalDTNomSatRiesgoPuesto
        DdlRiesgoPuesto.DataBind()
    End Sub

    Private Sub CargaBancos()
        DdlBanco.DataSource = GlobalDTNomSatBancos
        DdlBancoSat.DataSource = GlobalDTNomSatBancos
        DdlBanco.DataBind()
        DdlBancoSat.DataBind()
    End Sub

    Private Sub CargaEstados(pCvePais As Integer)
        DdlEstados.DataSource = GlobalDTGralEstados("-1", pCvePais)
        DdlEstados.DataBind()
        DdlEstadosDomicilio.DataSource = GlobalDTGralEstados("-1", pCvePais)
        DdlEstadosDomicilio.DataBind()
    End Sub

    'Private Sub CargaSucursales()
    '    DdlSucursal.DataSource = GlobalDTSucursales.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
    '    DdlSucursal.DataBind()

    '    If UsuarioActual.CveSucursal = -1 Then
    '        DdlSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
    '    Else
    '        DdlSucursal.SelectedValue = UsuarioActual.CveSucursal.ToString()
    '    End If
    'End Sub

    Private Sub CargaSubProyectosZona()
        Dim objRH As New ClsRH

        If objRH.SubproyectoZonaGet(-1, -1, UsuarioActual.Empresa.CveEmpresa) Then
            DdlSubproyectoZona.DataSource = objRH.DtResultados.FiltraParametros("Estatus=1")
        Else
            DdlSubproyectoZona.DataSource = Nothing
        End If

        objRH.Dispose()
        DdlSubproyectoZona.DataBind()

    End Sub
    Private Sub CargaNominas()
        Dim Nom As New ClsRH

        If Nom.GetNominas(CvePersonal, UsuarioActual.CveEmpresa) Then
            GvNominas.DataSource = Nom.DtResultados
        End If
        If UsuarioActual.CveRol = 1 Then GvNominas.Columns(10).Visible = True

        Nom.Dispose()
        GvNominas.DataBind()

    End Sub


    Private Sub CargaPaises()

        Dim ObjGral As New ClsGenerales

        If ObjGral.GetSATPais() Then
            DdlPais.DataSource = ObjGral.DtResultados
        Else
            DdlPais.DataSource = Nothing
        End If
        ObjGral.Dispose()


        DdlPais.DataBind()

        DdlPais.Items.Insert(0, New ListItem("Seleccione una", "-1"))

    End Sub


    Private Sub CargaRegistroPatronal()

        Dim ObjRH As New ClsRH

        If ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, 1) Then
            DdlRegistroPatronal.DataSource = ObjRH.DtResultados
        Else
            DdlRegistroPatronal.DataSource = Nothing
        End If

        ObjRH.Dispose()

        DdlRegistroPatronal.DataBind()
        DdlRegistroPatronal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))

    End Sub


    Private Sub CargaOutSourcing()

        Dim DtModulosEmpresa As New DataTable
        Dim ObjEmpresas As New ClsSisEmpresas
        If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
            DtModulosEmpresa = ObjEmpresas.DtResultados
        Else
            DtModulosEmpresa = Nothing
        End If
        ObjEmpresas.Dispose()


        If UsuarioActual.CveEmpresa = 7 Then
            DdlEmpresaAsignada.DataSource = DtModulosEmpresa.FiltraParametros("CveEmpresa in (7,11,12,122,145,113)")
            DdlEmpresaAsignada.DataBind()
            DvOutsourcing.Visible = True
        End If


        DdlEmpresaAsignada.Items.Insert(0, New ListItem("Seleccione uno", "-1"))

    End Sub

#End Region

#Region "Asistencias"


    Protected Sub LnkEliminarAsistencia_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
        Dim ObjRH As New ClsRH
        If ObjRH.RemovePersonalAsistencias(GvRow.DataKey("CveAsistencia").ToEntero()) Then
            Alert("La asistencia ha sido eliminada correctamente.")
            CargaGvAsistencias()
        End If
        ObjRH.Dispose()
    End Sub
    Protected Sub BtnConsultarAsistencia_Click(sender As Object, e As System.EventArgs) Handles BtnConsultarAsistencia.Click
        CargaGvAsistencias()
        'Dim FechaI, FechaF As Date
        'Dim CveTurno, CveSubProyecto As Integer
    End Sub

    Protected Sub CargaGvAsistencias(Optional Orden As String = "")
        Using objpersonal As New ClsRH

            Dim CveCliente As Integer = DdlClienteAsistenciaC.SelectedValue.ToEntero()
            If CveCliente <= 0 Then
                CveCliente = -1
            End If
            If objpersonal.GetAsistencias(CvePersonal, CveCliente, -1, DdlSubProyectoAsistenciasC.SelectedValue.ToEntero(), DdlTurno.SelectedValue.ToEntero(), -1, -1, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
                GVAsistencia.DataSource = objpersonal.DtResultados.FiltraParametros("Fecha IS NOT NULL")
            Else
                GVAsistencia.DataSource = Nothing
            End If
        End Using
        GVAsistencia.DataBind()
        UpDatos.Update()
    End Sub
    Protected Sub LbGuardarAsistencia_Click(sender As Object, e As System.EventArgs) Handles LbGuardarAsistencia.Click
        Using ObjPersonal As New ClsRH()
            If ObjPersonal.AddAsistencia(CvePersonal, DdlClienteAsistenciaA.SelectedValue.ToEntero(), DdlSubProyectoAsistenciasA.SelectedValue.ToEntero(), TxtFechaAsistencia.Text.Trim.ToDate,
            DdlTipoAsistencias.SelectedValue.ToEntero(), TxtPorPago.Text.Trim.ToDouble, TxtHorasDobles.Text.Trim.ToDouble,
          TxtHorasTriples.Text.Trim.ToDouble, DdlMotivoHoraExtra.SelectedValue.ToEntero(), TxtObservaciones.Text.Trim,
          UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "A") Then

                Alert("Las Asistencias se guardaron correctamente.", TipoMensaje.MsgInformacion)
                BtnConsultarAsistencia_Click(sender, e)
            End If

        End Using
    End Sub

    Protected Sub GVAsistencia_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAsistencia.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then


            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
            e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left

            If IsDate(e.Row.DBCampo("Fecha")) Then e.Row.FCLiteral("LtlFecha").Text = e.Row.DBCampo("Fecha").ToDate.ToShortDateString
            If e.Row.FCLiteral("LtlCliente").Text <> "N/A" Then e.Row.FCLiteral("LtlCliente").Text = "<a class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente=" & e.Row.DBCampo("CveCliente") & """>" & e.Row.DBCampo("Cliente") & "</a>"
            e.Row.FCTextBox("TxtPorPago").Text = e.Row.DBCampo("PorcentajePago")
            e.Row.FCTextBox("TxtHorasDobles").Text = e.Row.DBCampo("HorasDobles")
            e.Row.FCTextBox("TxtHorasTriples").Text = e.Row.DBCampo("HorasTriples")

            'Carga Tipos de Asistencia
            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
            e.Row.FCDropDownList("DdlTipoAsistencias").DataBind()
            If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")

            'Carga Motivos Horas Extras
            e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa)
            e.Row.FCDropDownList("DdlMotivoHoraExtra").DataBind()
            If e.Row.DBCampo("CveMotivoHoraExtra") <> "-1" Then e.Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue = e.Row.DBCampo("CveMotivoHoraExtra")

            e.Row.FCTextBox("TxtObservaciones").Text = e.Row.DBCampo("Observacion")

            If e.Row.DBCampo("SeModifico") = "0" Then
                e.Row.Cells(0).BackColor = Drawing.Color.LightBlue
                e.Row.Cells(1).BackColor = Drawing.Color.LightBlue
                e.Row.Cells(2).BackColor = Drawing.Color.LightBlue
                e.Row.Cells(3).BackColor = Drawing.Color.LightBlue
            ElseIf e.Row.DBCampo("SeModifico") = "1" Then
                e.Row.Cells(0).ForeColor = Drawing.Color.Red
                e.Row.Cells(1).ForeColor = Drawing.Color.Red
                e.Row.Cells(2).ForeColor = Drawing.Color.Red
                e.Row.Cells(3).ForeColor = Drawing.Color.Red
            End If

        End If
    End Sub

    Protected Sub BtnGuardarAsistenciaCambios_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarAsistenciaCambios.Click
        Using ObjPersonal As New ClsRH()

            ObjPersonal.IniciaTransacSQL()
            Dim OcurrioError As Boolean = False

            For Each Row As GridViewRow In GVAsistencia.Rows
                If Not ObjPersonal.AddAsistencia(Row.DataKey("CvePersonal").ToEntero(), -2, -2, Row.FCLiteral("LtlFecha").Text.Trim.ToDate,
                  Row.FCDropDownList("DdlTipoAsistencias").SelectedValue.ToEntero(), Row.FCTextBox("TxtPorPago").Text.Trim.ToDouble, Row.FCTextBox("TxtHorasDobles").Text.Trim.ToDouble,
                  Row.FCTextBox("TxtHorasTriples").Text.Trim.ToDouble, Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue.ToEntero(), Row.FCTextBox("TxtObservaciones").Text.Trim,
                  UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "B") Then
                    OcurrioError = True
                    Exit For
                End If
            Next

            If OcurrioError Then
                ObjPersonal.RollBack()
                Alert("Ocurrió un error al guardar las Asistencias.", TipoMensaje.MsgError)
            Else
                ObjPersonal.Commit()
                Alert("Las Asistencias se guardaron correctamente.", TipoMensaje.MsgInformacion)
            End If

        End Using

        BtnConsultarAsistencia_Click(sender, e)
    End Sub
#End Region
    Private Sub CargaConsignacion()

        Dim ObjInventario As New ClsInventarios

        If ObjInventario.GetConsignaciones(UsuarioActual.CveEmpresa, CvePersonal) Then
            GvConsignacion.DataSource = ObjInventario.DtResultados
            GvConsignacion.DataBind()
        End If
        ObjInventario.Dispose()
    End Sub
    Private Function CargaDatos() As Boolean
        Dim Retorno As Boolean = False
        Dim ObjPersonal As New ClsRH()
        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
            If ObjPersonal.DtResultados.Rows.Count > 0 Then
                Dim drow As DataRow = ObjPersonal.DtResultados.Rows(0)
                Retorno = True
                CveSubTipoPeriodo = drow("CveSubTipoPeriodo").ToString().ToEntero()
                ChkEstemporal.Checked = drow("esTemporal").ToString() = "1"
                CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1"
                'ChkPensionado.Checked = drow("Pensionado").ToString().ToUpper().Contiene("1", "TRUE")
                ChkSindicalizado.Checked = drow("Sindicalizado").ToString().ToUpper().Contiene("1", "TRUE")
                'TxtMailrecibonomina.Text = drow("Correo").ToString()
                'Carga Datos Personales
                LtlPersonal.Text = ObjPersonal.NombreCompleto
                NombreCompleto = ObjPersonal.NombreCompleto
                'TxtNombre.Text = ObjPersonal.Nombre
                TxtAPaterno.Text = ObjPersonal.APaterno
                TxtAMaterno.Text = ObjPersonal.AMaterno
                TxtNombres.Text = ObjPersonal.Nombres
                TxtCorreo.Text = ObjPersonal.Correo
                TxtCodigo.Text = ObjPersonal.Codigo
                DdlEscolaridad.SelectedValue = ObjPersonal.CveEscolaridad.ToString()
                DdlEstadoCivil.SelectedValueExist(ObjPersonal.CveEstadoCivil.ToString())
                DdlAreageografica.SelectedValueExist(drow("Areageografica").ToString())
                DdlGenero.SelectedValue = ObjPersonal.CveGenero.ToString()
                TxtFechaNacimiento.Text = ObjPersonal.FechaNacimiento.ToShortDateString
                TxtRFC.Text = ObjPersonal.RFC
                TxtCURP.Text = ObjPersonal.CURP
                'Localización 
                'TxtDireccion.Text = ObjPersonal.Direccion
                TxtCalle.Text = ObjPersonal.Calle
                TxtNumExt.Text = ObjPersonal.NumExt
                TxtNumInt.Text = ObjPersonal.NumInt
                TxtColonia.Text = ObjPersonal.Colonia
                'DdlEstados.SelectedValueExist(ObjPersonal.CveEstado.ToString()) 
                DdlEstados.SelectedValueExistInsert(ObjPersonal.CveEstado.ToString(), drow("EstadoText").ToString())
                DdlEstadosDomicilio.SelectedValueExistInsert(drow("CveEstadoDomicilio").ToString(), drow("EstadoDomicilioText").ToString())
                TxtCiudadOrigen.Text = drow("CiudadOrigen").ToString()
                TxtCP.Text = ObjPersonal.CP
                TxtColonia.Text = ObjPersonal.Colonia
                TxtCiudad.Text = ObjPersonal.Ciudad
                TxtEstado.Text = ObjPersonal.Estado
                TxtTelefono.Text = ObjPersonal.Telefono
                TxtTelefonoEmergencia.Text = ObjPersonal.TelefonoEmergencia
                TxtBeneficiario.Text = ObjPersonal.Beneficiario
                TxtCelular.Text = ObjPersonal.Celular
                TxtLugarNacimiento.Text = ObjPersonal.LugarNacimiento.ToString()
                TxtCredencialElector.Text = ObjPersonal.CredencialElector
                TxtNombrePadre.Text = ObjPersonal.NombrePadre
                TxtNombreMadre.Text = ObjPersonal.NombreMadre
                Session("FileUpload") = ObjPersonal.URL
                ViewState("Archivo") = ObjPersonal.URL
                TxtTelefonoExtension.Text = ObjPersonal.TelefonoExtension
                TxtCelularPersonal.Text = ObjPersonal.CelularPersonal
                TxtTelefonoMarcadoRapido.Text = ObjPersonal.TelefonoMarcadoRapido
                DdlTipoSangre.SelectedValueExist(ObjPersonal.TipoSangre)
                'TxtContactoAlterno.Text = ObjPersonal.ContactoAlterno


                If ObjPersonal.CveUniforme > 0 Or UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
                    LnkSurtir.Visible = True
                    ViewState("CveUniforme") = ObjPersonal.CveUniforme
                    DdlUniforme.SelectedValueExist(CveUniforme)
                    LnkSurtir.PostBackUrl = $"../Inventarios/ResguardoMaterial.aspx?CvePersonal={CvePersonal}"
                    CargaUniformesPersonal()
                End If

                If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154, 140) Then

                    LnkSurtir.Visible = True
                    DdlUniforme.Visible = False
                    LnkSurtir.PostBackUrl = $"../Inventarios/ResguardoMaterial.aspx?CvePersonal={CvePersonal}&EsSurtidoUniforme=1"
                    CargaUniformesPersonal()

                End If

                If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".jpg") Then
                    'Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.jpg", UsuarioActual.CveEmpresa, CvePersonal)
                    Dim LogoRutaFisica As String = String.Format("{0}RH\Personal\{1}.jpg", UsuarioActual.Empresa.Ruta, CvePersonal)
                    Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))

                    ImgPersonal.ImageUrl = logouri
                ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".png") Then
                    'Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal)
                    Dim LogoRutaFisica As String = String.Format("{0}RH\Personal\{1}.png", UsuarioActual.Empresa.Ruta, CvePersonal)
                    Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))

                    ImgPersonal.ImageUrl = logouri
                ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".bmp") Then
                    'Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.bmp", UsuarioActual.CveEmpresa, CvePersonal)
                    Dim LogoRutaFisica As String = String.Format("{0}RH\Personal\{1}.bmp", UsuarioActual.Empresa.Ruta, CvePersonal)
                    Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
                    ImgPersonal.ImageUrl = logouri
                ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".jpeg") Then
                    'Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal)
                    Dim LogoRutaFisica As String = String.Format("{0}RH\Personal\{1}.jpeg", UsuarioActual.Empresa.Ruta, CvePersonal)
                    Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))

                    ImgPersonal.ImageUrl = logouri
                End If
                'BtnCargarArchivo_Click(Me, New EventArgs)


                'Carga RH
                TxtFechaInicioContrato.Text = ObjPersonal.FechaInicioContrato.ToShortDateString
                TxtFechaFinContrato.Text = If(ObjPersonal.FechaFinContrato.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaFinContrato.ToShortDateString)
                DDlTipoSalario.SelectedValue = drow("CveTipodeSalario").ToString()
                DdlTipoContrato.SelectedValue = ObjPersonal.CveTipoContrato.ToString()
                DdlTurno.SelectedValue = ObjPersonal.CveTurno.ToString()
                DdlJornada.SelectedValue = ObjPersonal.CveJornada.ToString()
                DdlDepartamento.SelectedValue = ObjPersonal.CveDepartamento.ToString()
                DdlSubproyectoZona.SelectedValueExist(ObjPersonal.CveSubproyectoZona)
                DDLUsuarioNomina.SelectedValueExist(ObjPersonal.CveUsuarioNomina)

                'For i As Integer = DdlDepartamento.Items.Count - 1 To 1 Step -1
                '    If DdlDepartamento.Items(i).Value.Contains(ObjPersonal.CveDepartamento.ToString()) Then
                '        DdlDepartamento.Items(i).Selected = True
                '        Exit For
                '    End If
                'Next

                DdlPuesto.SelectedValue = ObjPersonal.CvePuesto.ToString()
                DdlRuta.SelectedValue = ObjPersonal.CveRuta.ToString()
                DdlMotivoBaja.SelectedValue = ObjPersonal.CveMotivoBaja.ToString()

                TxtFechaBaja.Text = If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)


                'If ObjPersonal.DtResultados IsNot Nothing AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
                '    TxtFechaActivo.Text = If(drow("FechaActivo").ToString().Length > 0, drow("FechaActivo").ToString().ToDate.ToString("dd/MM/yyyy"), drow("FechaIng").ToString().ToDate.ToString("dd/MM/yyyy"))
                '    TxtFechaReingreso.Text = If(drow("FechaReingreso").ToString().Length > 0, drow("FechaReingreso").ToString().ToDate.ToString("dd/MM/yyyy"), "")
                'End If

                DdlEstatusPersonal.SelectedValue = ObjPersonal.CveEstatusPersonal.ToString()
                LnkActivar.Visible = (ObjPersonal.CveEstatusPersonal = 2)
                LnkDesactivar.Visible = Not LnkActivar.Visible
                CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero())
                MostrarOcultarFechasEstatus()

                CvePersonalEstatusInicial = ObjPersonal.CveEstatusPersonal
                ViewState("CveEstatusOriginal") = ObjPersonal.CveEstatusPersonal.ToString()
                'Asignación
                If ObjPersonal.CveCliente <> -1 Then
                    'DdlClienteAsignado.Items.Insert(1, New ListItem(ObjPersonal.Cliente, ObjPersonal.CveCliente.ToString()))
                    DdlClienteAsignado.SelectedValue = ObjPersonal.CveCliente.ToString()
                Else
                    DdlClienteAsignado.SelectedValue = ObjPersonal.CveCliente.ToString()
                End If
                DdlProyectoAsignado.SelectedValue = ObjPersonal.CveProyecto.ToString()
                If ObjPersonal.CveProyecto <> -1 Then DdlProyectoAsignado_SelectedIndexChanged(Me, New System.EventArgs())
                DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString()
                DdlSubProyectoAsignado_SelectedIndexChanged1(Nothing, Nothing)
                DdlMedioTransporte.SelectedValueExist(drow("CveMedioTransporte").ToString())
                chkEsReserva.Checked = (drow("EsReserva").ToString().ToUpper().Contiene("1", "TRUE"))
                chkNoFiscalizar.Checked = Not (drow("Fiscalizable").ToString().ToUpper().Contiene("1", "TRUE"))
                cargatipoTrabajador()
                DdlTipoTrabajador.SelectedValueExist(drow("CveTipoTrabajador").ToString())
                cargaagrodeptos()
                DDlAgroDepartamento.SelectedValueExist(drow("CveDepartamentoAgropecuaria").ToString())
                ChkCharolaForanea.Checked = (drow("CharolaForanea").ToString().ToUpper().Contiene("1", "TRUE"))
                ChkPensionado.Checked = (drow("Pensionado").ToString().ToUpper().Contiene("1", "TRUE"))


                DdlSupervisor.SelectedValue = ObjPersonal.CveSupervisor.ToString()
                'Carga Nómina
                TxtFechaIngreso.Text = ObjPersonal.FechaIngreso.ToShortDateString
                DdlTipoPeriodo.SelectedValue = ObjPersonal.CveTipoPeriodo.ToString()
                DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing)
                TxtNumeroSS.Text = ObjPersonal.NumeroSS
                ChkSeInscribioSS.Checked = ObjPersonal.SeInscribioSS
                TxtSalarioDiarioPago.Text = ObjPersonal.SalarioDiarioPago.ToString()
                TxtNetoPeriodo.Text = ObjPersonal.NetoPeriodo.ToString()
                TxtSalarioDiario.Text = ObjPersonal.SalarioDiario.ToString()
                TxtSDI.Text = ObjPersonal.SDI.ToString()
                salarioVariable = drow("SalarioVariable").ToString().ToDecimal() 'ObjPersonal.SalarioDiarioSS.ToString().ToDecimal() - ObjPersonal.SDI.ToString().ToDecimal()
                salarioVariable = If(salarioVariable > 0, salarioVariable, 0)
                TxtSalarioCotizado.Text = ObjPersonal.SalarioDiarioSS.ToString()
                TxtFISalariodiario.Text = ObjPersonal.SalarioDiario.ToString()
                'TxtBono.Text = ObjPersonal.Bono.ToString()
                TxtNumDiasAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString()
                TxtFIAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString()
                TxtPorPrimaVacacional.Text = ObjPersonal.PorPrimaVacacional.ToString()
                TxtFIPrimaVacacional.Text = ObjPersonal.PorPrimaVacacional.ToString()

                'DdlMetodoPago.SelectedValue = ObjPersonal.CveMetodoPago.ToString()
                DdlFormaPago.SelectedValue = ObjPersonal.CveFormaPago.ToString()
                TxtBancoNumCuenta.Text = ObjPersonal.BancoNumCuenta
                TxtCLABE.Text = ObjPersonal.CLABE
                DdlSupervisorOrganigrama.SelectedValueExist(If(ObjPersonal.CvePersonalPadre = ObjPersonal.CvePersonal, "0", If(ObjPersonal.CvePersonalPadre.ToString() = "0", "-1", ObjPersonal.CvePersonalPadre.ToString())))


                DdlRegimenContratacion.SelectedValue = ObjPersonal.CveSATRegimenContratacion.ToString()
                DdlBanco.SelectedValue = If(ObjPersonal.CveSATBanco = 0, "-1", ObjPersonal.CveSATBanco.ToString())
                DdlRiesgoPuesto.SelectedValue = ObjPersonal.CveSATRiesgoPuesto.ToString()
                DdlPais.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CvePais").ToString)


                DdlRegistroPatronal.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveRegistroPatronal").ToString)
                DdlEmpresaAsignada.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveEmpresaAsignado").ToString)

                TxtCodigoDispersionVale.Text = ObjPersonal.CodigoDispersionVale

                'Carga Incidencias
                BtnConsultarAsistencia_Click(Me, New System.EventArgs)

                'Carga Buzón de Calidad
                If ObjPersonal.GetBuzonCalidad(CvePersonal, UsuarioActual.CveEmpresa) Then
                    ViewState("DTBuzonCalidad") = ObjPersonal.DtResultados
                    GvBuzonCalidad.DataSource = ObjPersonal.DtResultados
                Else
                    GvBuzonCalidad.DataSource = Nothing
                    ViewState("DTBuzonCalidad") = Nothing
                End If
                GvBuzonCalidad.DataBind()

                'Carga Conceptos de Nómina
                CarcaConceptosNomina()
                CargaFonacot()
                'Carga Pagos no Bancarios
                CargarPagosNoBancarios()
                'Carga Resguardos
                Dim ObjResguardos As New ClsAF
                If ObjResguardos.GetActivosFijosResguardos(-1, -1, CvePersonal, -1) Then
                    GvResguardos.DataSource = ObjResguardos.DtResultados
                Else
                    GvResguardos.DataSource = Nothing
                End If
                ObjResguardos.Dispose()
                GvResguardos.DataBind()

                If UsuarioActual.Empresa.UsaContabilidad Then
                    DdlViaticos.AutoPostBack = True
                    DdlPrestamos.AutoPostBack = True

                    DdlViaticos.Attributes.Add("onclick", "CargaCuentas(1);")
                    DdlPrestamos.Attributes.Add("onclick", "CargaCuentas(2);")

                End If

                LblFechaCaptura.Text = ObjPersonal.FechaIngreso.ToShortDateString
                LblUsuarioCapturo.Text = ObjPersonal.Usuario
                CargaNominas()
                CargaCastosSinComprobar()
                CargaGastosPorCheque()
                CargaEventoBitacora()
                CargaConsignacion()
                CargaCursos()
                CargaVacaciones()
                CargaVacacionesResumenPeriodoActual()
                Consumos()
                CargaPagoFactura()
                'DescarSolicitudVacaciones(-1)

                TabVacaciones.Visible = True
                If UsuarioActual.CveEmpresa = 7 Or UsuarioActual.CveEmpresa = 72 Then

                    'If UsuarioActual.CveEmpresa = 72 Then

                    '    GvVacacionesResumen.Visible = False
                    '    DvHistorialVacaiones.Visible = False
                    '    FvPerimososVacaciones.Visible = False
                    '    'DVSolicitudVacaiones.Attributes.Add("class", "col-md-12")
                    '    BtnSolicitarVacaciones.Text = "Solicitar"
                    '    DvPermisosMotivos1.Visible = True
                    '    DvPermisosMotivos2.Visible = True

                    'End If

                Else
                    'TabVacaciones.Visible = False
                End If

                If VacDiasDisponibles > 0 Then
                    TxtFechaInicioVac.Text = NowADS().AddDays(1).ToString("dd/MM/yyyy")
                Else
                    TxtFechaInicioVac.Text = NowADS().ToString("dd/MM/yyyy")
                End If
                TxtFechaFinVac.Text = NowADS().AddDays(VacDiasDisponibles).ToString("dd/MM/yyyy")

                'PERSONAL ALTAS
                If ObjPersonal.GetPersonalAltas(CvePersonal) Then
                    GvPersonalAltas.DataSource = ObjPersonal.DtResultados
                    GvPersonalAltas.DataBind()
                End If
                'Cargar Almacenes en DropDown GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 8)
                DdlAlmacenDestinoLiberarUniforme.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 19")
                DdlAlmacenDestinoLiberarUniforme.DataBind()

                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                    CargaCuentasConceptos()
                    divCuentas.Visible = True
                    divCuentasContp.Visible = False
                ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
                    divCuentas.Visible = False
                    divCuentasContp.Visible = True
                End If

            Else
                Alert("El Personal Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                BtnGuardar.Enabled = False
            End If
        End If
        ObjPersonal.Dispose()
        Return Retorno
    End Function

    Private Sub CargaCuentasConceptos()
        Dim ObjConta As New ClsContabilidad
        If ObjConta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
            GvCta.DataSource = ObjConta.DtResultados
        End If
        ObjConta.Dispose()
        GvCta.DataBind()
        UpCuentaConceptos.Update()
    End Sub

    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click

        Dim EnviarCorreoNomina As Boolean = False
        'System.Threading.Thread.Sleep(3000)
        Using ObjPersonal As New ClsRH()
            Using ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL())
                Using ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL())


                    Dim Extension As String = Path.GetExtension(UsuarioActual.Empresa.Ruta & "Temp\RH\" & ViewState("Archivo").ToString())
                    Dim URL As String = If(Extension.Trim().Length > 0, CvePersonal & Extension, "")
                    Dim Ruta As String = String.Format("{0}Temp\RH\{1}", UsuarioActual.Empresa.Ruta, ViewState("Archivo").ToString())
                    Dim Archivo As New System.IO.FileInfo(Ruta)

                    Dim TieneError As Boolean = False
                    Dim Mensaje As String = ""
                    Dim Accion As String = ""

                    'Dim FechaBaja As Date = MinFecha
                    'Dim FechaActivo As Date = MinFecha
                    'Dim FechaReingreso As Date = MinFecha

                    'If DdlEstatusPersonal.SelectedValue.ToEntero() <> CvePersonalEstatusInicial Then
                    '    If DdlEstatusPersonal.SelectedValue.ToEntero() = 1 Then
                    '        FechaActivo = TxtFechaActivo.Text.ToDate
                    '    ElseIf DdlEstatusPersonal.SelectedValue.ToEntero() = 2 Then
                    '    ElseIf DdlEstatusPersonal.SelectedValue.ToEntero() = 5 Then
                    '        FechaReingreso = TxtFechaReingreso.Text.ToDate
                    '    End If
                    'End If

                    If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
                        TxtSalarioCotizado.Text = TxtSDI.Text
                    End If
                    CveSubTipoPeriodo = ddlSubTipoPeriodo.SelectedValue.ToEntero()

                    If CvePersonal = -1 Then
                        URL = ""

                        If ObjPersonal.AddPersonal(TxtCodigo.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, TxtCorreo.Text.Trim, TxtFechaIngreso.Text.ToDate,
                           DdlTipoPeriodo.SelectedValue.ToEntero(), TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked, TxtSalarioDiarioPago.Text.Trim.ToDouble,
                           TxtSalarioDiarioM.Text.Trim.ToDouble, TxtSDI.Text.Trim.ToDouble, TxtSalarioCotizado.Text.Trim.ToDouble, TxtBono.Text.Trim.ToDouble, TxtNumDiasAguinaldo.Text.Trim.ToEntero(),
                           TxtPorPrimaVacacional.Text.Trim.ToDouble, DdlFormaPago.SelectedValue.ToEntero(), TxtFechaInicioContrato.Text.Trim.ToDate, If(IsDate(TxtFechaFinContrato.Text.Trim()), TxtFechaFinContrato.Text.Trim(), "-1"),
                           DdlTipoContrato.SelectedValue.ToEntero(), TxtUbicacion.Text.Trim,
                           DdlTurno.SelectedValue.ToEntero(), DdlPuesto.SelectedValue.ToEntero(),
                           DdlDepartamento.SelectedValue.ToEntero(),
                           DdlRuta.SelectedValue.ToEntero(),
                           DdlEscolaridad.SelectedValue.ToEntero(),
                           DdlEstadoCivil.SelectedValue.ToEntero(),
                           DdlGenero.SelectedValue.ToEntero(),
                           -1, "-1",
                           DdlEstatusPersonal.SelectedValue.ToEntero(), TxtFechaNacimiento.Text.ToDate,
                           TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
                           DdlEstados.SelectedValue.ToEntero(), TxtTelefono.Text.Trim, TxtTelefonoEmergencia.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim, TxtCURP.Text.Trim, TxtCredencialElector.Text.Trim,
                           TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim, DdlBanco.SelectedValue.ToEntero(), DdlRiesgoPuesto.SelectedValue.ToEntero(), DdlRegimenContratacion.SelectedValue.ToEntero(),
                           DdlClienteAsignado.SelectedValue.ToEntero(), DdlSubProyectoAsignado.SelectedValue.ToEntero(), URL,
                           DdlSupervisor.SelectedValue.ToEntero(), TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero(), DdlViaticos.SelectedValue.ToEntero(),
                           UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), TxtBeneficiario.Text.Trim, DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
                           TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(),
                           Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(),
                           CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo,
                           AreaGeografica:=DdlAreageografica.SelectedValue, CodigoDispersionVale:=TxtCodigoDispersionVale.Text.Trim) Then

                            If Archivo.Exists Then

                                If Not IsNothing(ViewState("FilesMoveimgNew")) Then
                                    Dim filemove As String = ViewState("FilesMoveimgNew").ToString()
                                    If Not String.IsNullOrWhiteSpace(filemove) Then
                                        filemove.FilesMove(ObjPersonal.CvePersonal.ToString(), String.Format("{0}RH\Personal\", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)

                                    End If
                                End If

                                If File.Exists(String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL)) Then
                                    File.Delete(String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL))
                                End If
                                System.IO.File.Move(String.Format("{0}Temp\RH\{1}", UsuarioActual.Empresa.Ruta, URL), String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL))

                            End If


                            ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
                            'Agregar Cuentas Bancarias
                            ViewState("CvePersonal") = ObjPersonal.CvePersonal

                            'Funsion usa RH Familiares
                            If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
                                ProcesaDTFamiliares(ObjPersonal)
                            End If
                            If TempDTCuentasBancos IsNot Nothing AndAlso TempDTCuentasBancos.Rows.Count > 0 Then

                                For Each row As DataRow In TempDTCuentasBancos.Rows
                                    If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(),
                                                                                  row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), row("RefCrediProveedor").ToString(), UsuarioActual.CveUsuario,
                                                                                  row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario,
                                                                                  CveSATBanco:=row("CveSATBanco").ToString.ToEntero, BBVAAlias:=row("BBVAAlias").ToString(), EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString),
                                                                                  EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), Correo:=row("Correo").ToString(),
                                                                                  ConceptoCIE:=row("ConceptoCIE").ToString(), Estatus:=If(row("EstatusTexto").ToString = "Activo", True, False)) Then
                                        TieneError = True
                                        Exit For
                                    End If
                                Next
                            End If
                            If DTLicencias IsNot Nothing AndAlso DTLicencias.Rows.Count > 0 Then
                                For Each Dr As DataRow In DTLicencias.Rows
                                    If Not ObjAF.AddLicencia(-1, Dr("Licencia").ToString(), Dr("FechaExpedicion").ToString().ToDateTime(), Dr("FechaVencimiento").ToString().ToDateTime(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePersonal:=ObjPersonal.CvePersonal) Then
                                        TieneError = True
                                        Exit For
                                    End If
                                Next
                            End If

                            'If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
                            '    GlobalDTGralColectivas(-1) = ObjPersonal.DtResultados
                            'Else
                            '    TieneError = True
                            'End If

                            Mensaje = "El Personal se guardó correctamente."
                            Accion = If(Request("CveFactura") Is Nothing, "document.location.href=""/RH/CatPersonal.aspx""", "window.opener.location.href = window.opener.location.href; window.close();")

                            'Alert("El Personal se guardó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/RH/CatPersonal.aspx"";")
                            EnviarCorreoNomina = True
                        Else
                            TieneError = True
                        End If

                    Else
                        'If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
                        If ObjPersonal.UpdatePersonal(TxtCodigo.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, TxtCorreo.Text.Trim, TxtFechaIngreso.Text.ToDate,
                           DdlTipoPeriodo.SelectedValue.ToEntero(), TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked, TxtSalarioDiarioPago.Text.Trim.ToDouble,
                           TxtSalarioDiario.Text.Trim.ToDouble, TxtSDI.Text.Trim.ToDouble, TxtSalarioCotizado.Text.Trim.ToDouble, TxtBono.Text.Trim.ToDouble, TxtNumDiasAguinaldo.Text.Trim.ToEntero(),
                           TxtPorPrimaVacacional.Text.Trim.ToDouble, DdlFormaPago.SelectedValue.ToEntero(), TxtFechaInicioContrato.Text.Trim.ToDate, If(IsDate(TxtFechaFinContrato.Text.Trim()), TxtFechaFinContrato.Text.Trim(), "-1"),
                           DdlTipoContrato.SelectedValue.ToEntero(), TxtUbicacion.Text.Trim,
                           DdlTurno.SelectedValue.ToEntero(), DdlPuesto.SelectedValue.ToEntero(),
                           DdlDepartamento.SelectedValue.ToEntero(),
                           DdlRuta.SelectedValue.ToEntero(),
                           DdlEscolaridad.SelectedValue.ToEntero(),
                           DdlEstadoCivil.SelectedValue.ToEntero(),
                           DdlGenero.SelectedValue.ToEntero(),
                           DdlMotivoBaja.SelectedValue.ToEntero(), If(DdlEstatusPersonal.SelectedValue = "2", TxtFechaBaja.Text.Trim, "-1"),
                           DdlEstatusPersonal.SelectedValue.ToEntero(), TxtFechaNacimiento.Text.ToDate,
                           TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
                           DdlEstados.SelectedValue.ToEntero(), TxtTelefono.Text.Trim, TxtTelefonoEmergencia.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
                           TxtCURP.Text.Trim, TxtCredencialElector.Text.Trim, TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim,
                           DdlBanco.SelectedValue.ToEntero(), DdlRiesgoPuesto.SelectedValue.ToEntero(), DdlRegimenContratacion.SelectedValue.ToEntero(),
                           DdlClienteAsignado.SelectedValue.ToEntero(), DdlSubProyectoAsignado.SelectedValue.ToEntero(), CvePersonal,
                           URL, DdlSupervisor.SelectedValue.ToEntero(), TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero(),
                           UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), TxtBeneficiario.Text.Trim, DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
                           TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
                           CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(),
                           CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0),
                           Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo,
                            AreaGeografica:=DdlAreageografica.SelectedValue, CodigoDispersionVale:=TxtCodigoDispersionVale.Text.Trim) Then

                                'Funcion usa RH Familiares
                                If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
                                    ProcesaDTFamiliares(ObjPersonal)
                                End If

                                ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))

                                If Archivo.Exists Then

                                    If Not Directory.Exists(String.Format("{0}\RH\Personal", UsuarioActual.Empresa.Ruta)) Then Directory.CreateDirectory(String.Format("{0}\RH\Personal", UsuarioActual.Empresa.Ruta))

                                    If File.Exists(String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL)) Then
                                        File.Delete(String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL))
                                    End If
                                    System.IO.File.Move(String.Format("{0}Temp\RH\{1}", UsuarioActual.Empresa.Ruta, URL), String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL))

                                End If

                                Mensaje = "Los cambios se guardaron correctamente."
                                'If ViewState("CveEstatusOriginal").ToString() <> DdlEstatusPersonal.SelectedValue Then
                                '    'Manda Mail con bajas
                                'End If
                            Else
                                TieneError = True
                            End If
                            'GUARDA ORGANIGRAMA
                            If Not TieneError Then
                                If Not ObjPersonal.AddUpdatePersonalOrganigrama(CvePersonal, If(DdlSupervisorOrganigrama.SelectedValue.ToEntero() = 0, CvePersonal, DdlSupervisorOrganigrama.SelectedValue.ToEntero())) Then
                                    TieneError = True
                                End If
                            End If

                        End If

                        If TieneError Then
                        ObjPersonal.RollBack()
                        Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.ToastAdventencia)
                    Else
                        ObjPersonal.Commit()
                        Alert(Mensaje, TipoMensaje.MsgInformacion, Accion)

                        CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero())
                        'If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then
                        '    ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL
                        'End If
                        GlobalDTRHPersonal(UsuarioActual.CveEmpresa) = Nothing
                        GlobalDTCuentasDepositosPersonales(UsuarioActual.CveEmpresa) = Nothing

                        If CvePersonal > 0 Then
                            Using objbase As New ClsRH
                                If (objbase.PersonalDomUp(DdlEstadosDomicilio.SelectedValue.ToEntero(), TxtCiudadOrigen.Text, CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Then
                                End If
                            End Using
                            CargaDatos()
                        End If
                    End If

                    GuardarDocumentosFirmaContrato()
                    Session("FileUpload") = ""

                    ViewState("Archivo") = ""
                End Using
            End Using
        End Using
        UpDatos.Update()
        CargaGvBitacora()

        If EnviarCorreoNomina AndAlso DDLUsuarioNomina.SelectedValue.ToEntero > 0 Then
            'EnviarCorreoNominista()
            EnviarCorreoBajaReingresoNominista(TipoMovimientoRH.Alta)
        End If


    End Sub

    'Private Sub EnviarCorreoNominista()

    '    If UsuarioActual.CveEmpresa.Contiene(7) Then

    '        Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).Rows(0)("Correo").ToString

    '        If CorreoNominista = "" Then
    '            Alert($"No se envio el correo  de notificación a nominas, el nominista  no tiene {DDLUsuarioNomina.SelectedItem.Text} correo  electronico", TipoMensaje.MsgAdvertencia)
    '            Exit Sub

    '        End If


    '        Dim correo As New ClsSisMail
    '        Dim Cuerpo As New StringBuilder

    '        Dim Puesto As String = ""
    '        Dim Padre As String = ""
    '        Dim Madre As String = ""
    '        Dim FechaIngreso As String = ""

    '        Dim EmpresaDestino As String = If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, GlobalDTEmpresas(DdlEmpresaAsignada.SelectedValue.ToEntero).Rows(0)("Empresa").ToString, UsuarioActual.Empresa.Empresa)

    '        Dim objRH As New ClsRH

    '        If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then

    '            Dim DtFamiliares As DataTable = objRH.DtResultados.FiltraParametros(" CveParentesco = 1 ")

    '            If DtFamiliares.Rows.Count > 0 Then
    '                Padre = DtFamiliares.Rows(0)("Nombre").ToString
    '            End If

    '            DtFamiliares = objRH.DtResultados.FiltraParametros(" CveParentesco = 2 ")

    '            If DtFamiliares.Rows.Count > 0 Then
    '                Madre = DtFamiliares.Rows(0)("Nombre").ToString
    '            End If

    '        End If

    '        objRH.Dispose()
    '        Cuerpo.AppendLine("<table border='0' style='width:100%'>")
    '        Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  EmpresaDestino }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ NowADS().ToShortDateString }   { NowADS().ToShortTimeString  } <br/></td> </tr>")
    '        Cuerpo.AppendLine($"<tr><td style='  font-size:large; text-align: left;' colspan='3'>Notificacion por Alta de Nomina</td></tr>")
    '        Cuerpo.AppendLine("</table>")

    '        Cuerpo.AppendLine("<br/>")
    '        Cuerpo.AppendLine("<br/>")

    '        Cuerpo.AppendLine("<table border='0'>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left;  font-weight:bold;'>{If(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "")  }</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left;  font-weight:bold;'>{ If(DdlRuta.SelectedValue.ToEntero > 0, DdlRuta.SelectedItem.Text, "") }</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de ingreso:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaIngreso.Text}</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre:</td><td style=' text-align: left; font-weight:bold;'>{ NombreCompleto }</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha y Lugar de Nacimiento:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaNacimiento.Text}  {TxtLugarNacimiento.Text}</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero IMSS:</td><td style=' text-align: left; font-weight:bold;'>{ TxtNumeroSS.Text }</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero Infonavit:</td><td style=' text-align: left; font-weight:bold;'>{ If(TxtInfoNumCredito.Text.Trim = "", "NO CUENTA CON CREDITO", TxtInfoNumCredito.Text) }</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Sexo:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlGenero.SelectedValue = "1", "Masculino", "Femenino")  }</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>R.F.C.:</td><td style=' text-align: left; font-weight:bold;'>{ TxtRFC.Text }</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>CURP:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCURP.Text }</td></tr>")


    '        If Padre.Length > 0 Then
    '            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre del Padre:</td><td style=' text-align: left; font-weight:bold;'>{ Padre }</td></tr>")
    '        End If

    '        If Madre.Length > 0 Then
    '            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
    '        End If


    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text }</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "")   }</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text},{TxtTelefono.Text}</td></tr>")
    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text  }</td></tr>")
    '        Cuerpo.AppendLine("</table>")

    '        correo.SendMail(EmpresaNotificaciones, CorreoNominista, "Notificacion por Alta de Nomina: " & NombreCompleto, Cuerpo.ToString)




    '    End If

    'End Sub

    'Private Sub MandaMails(Rutas As Object)
    '    Try
    '        Dim ObjMail As New ClsSisMail()
    '        Dim ResultadoMail As Integer = 0

    '        If ObjMail.Mandacorreo(SendMail, SendMailPassword, "valfredo@ford.com", "Notificación", "Notificación de empleado nuevo.<br />Nombre: " & TxtNombre.Text & "<br />Turno: " & DdlTurno.SelectedItem.Text & "<br />Proyecto: " & DdlSubProyectoAsignado.SelectedItem.Text) Then
    '            ResultadoMail = 1
    '        Else
    '            ResultadoMail = 3
    '        End If

    '    Catch ex As Exception
    '        OnError("Ocurrió error al mandar MAIL", ex)
    '    End Try
    'End Sub

    Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
        Dim ObjPersonal As New ClsRH()
        If ObjPersonal.RemovePersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
            Alert("El Personal se Eliminó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/RH/CatPersonal.aspx""")
        End If
        ObjPersonal.Dispose()
    End Sub

    Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsignado.SelectedIndexChanged
        CargaSubProyectoAsignado()
    End Sub
    Protected Sub DdlSubProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlSubProyectoAsignado.SelectedIndexChanged
        cargatipoTrabajador()
        UpDatos.Update()
    End Sub

    Protected Sub DdlTipoTrabajador_SelectedIndexChanged(sender As Object, e As EventArgs)
        cargaagrodeptos()
        UpDatos.Update()
    End Sub


    Protected Sub DdlProyectoAsistenciaC_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsistenciaC.SelectedIndexChanged
        CargaSubProyectoAsistenciaC()
    End Sub

    Protected Sub DdlProyectoAsistenciaA_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsistenciaA.SelectedIndexChanged
        CargaSubProyectoAsistenciaA()
    End Sub

    Protected Sub LbContrato_Click(sender As Object, e As System.EventArgs) Handles LbContrato.Click
        'Dim oWordApp As Word.Application = Nothing
        'Dim oWordDoc As Word.Document = Nothing
        'Dim objSelection As Word.Selection = Nothing

        'Dim ArchivoPath As String = ""

        'Try
        '    'GuardaLog("Inicia Petición de Aplicación")
        '    oWordApp = New Word.Application
        '    oWordApp.Visible = True
        '    oWordDoc = oWordApp.Documents.Open(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Contratos\" & "SOGO.doc")
        '    'GuardaLog("Inicia Petición de Documento")
        '    If oWordDoc IsNot Nothing Then
        '        'GuardaLog("Creación de Documento")
        '        oWordDoc.Activate()
        '        objSelection = oWordApp.Selection

        '        objSelection.WholeStory()
        '        objSelection.Copy()
        '        objSelection.Delete(Unit:=wdCharacter, Count:=1)
        '        'GuardaLog("Recorrer de reemplazo de variables")

        '        objSelection.PasteAndFormat(Word.WdRecoveryType.wdPasteDefault)
        '        'ReemplazaTexto(objSelection, "{NOMBRE_PERSONAL}", String.Format("{0} {1} {2}", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim))
        '        'ReemplazaTexto(objSelection, "{DIRECCION}", String.Format("{0} {1} {2}", TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim))
        '        'ReemplazaTexto(objSelection, "{CP}", TxtCP.Text.Trim)
        '        'ReemplazaTexto(objSelection, "{CIUDAD}", TxtCiudad.Text.Trim)
        '        'ReemplazaTexto(objSelection, "{ESTADO}", TxtEstado.Text.Trim)
        '        'ReemplazaTexto(objSelection, "{DIA_INICIA_CONTRATO}", TxtFechaInicioContrato.Text.ToDate.Day.ToString())
        '        'ReemplazaTexto(objSelection, "{MES_INICIA_CONTRATO}", MonthName(TxtFechaInicioContrato.Text.ToDate.Month).ToUpper)
        '        'ReemplazaTexto(objSelection, "{ANIO_INICIA_CONTRATO}", TxtFechaInicioContrato.Text.ToDate.Year.ToString())
        '        'ReemplazaTexto(objSelection, "{DIA_FIN_CONTRATO}", TxtFechaFinContrato.Text.ToDate.Day.ToString())
        '        'ReemplazaTexto(objSelection, "{MES_FIN_CONTRATO}", MonthName(TxtFechaFinContrato.Text.ToDate.Month).ToUpper)
        '        'ReemplazaTexto(objSelection, "{ANIO_FIN_CONTRATO}", TxtFechaFinContrato.Text.ToDate.Year.ToString())

        '        'objSelection.InsertBreak(Type:=wdPageBreak)
        '        'GuardaLog("Termina de reemplazo de variables")
        '        objSelection.TypeBackspace()
        '        objSelection.TypeBackspace()
        '        If Not System.IO.Directory.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\") Then
        '            System.IO.Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\")
        '        End If
        '        ArchivoPath = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & UsuarioActual.CveUsuario & ".doc"

        '        oWordDoc.SaveAs(ArchivoPath.ToString())
        '        oWordDoc.Close()
        '    Else
        '        Alert("No se pudo generar el archivo", TipoMensaje.MsgError)
        '    End If

        'Catch ex As Exception
        '    Alert(ex.Message, TipoMensaje.MsgError)
        '    OnError("", ex)
        '    ArchivoPath = ""
        'Finally

        '    If oWordDoc IsNot Nothing Then
        '        'GuardaLog("Documento Destruido")
        '        While (Marshal.ReleaseComObject(oWordDoc) > 0)
        '        End While
        '        'GuardaLog("Documento Destruido")
        '        oWordDoc = Nothing
        '    End If

        '    If oWordApp IsNot Nothing Then
        '        oWordApp.Quit(False)
        '        While (Marshal.ReleaseComObject(oWordApp) > 0)
        '        End While
        '        'GuardaLog("Aplicación Destruida")
        '        oWordApp = Nothing
        '    End If
        '    System.GC.Collect()
        '    objSelection = Nothing

        'End Try


        'If ArchivoPath <> "" Then

        '    Dim Archivo As New System.IO.FileInfo(ArchivoPath)

        '    'If Archivo.Exists Then
        '    'HttpContext.Current.Response.Clear()
        '    'HttpContext.Current.Response.ClearContent()
        '    ''HttpContext.Current.Response.ContentType = "application/msword"
        '    'HttpContext.Current.Response.ContentType = "application/vnd.openxmlformats-officedocument.wordprocessingml.document"
        '    'HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" & Archivo.Name)
        '    'HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
        '    'HttpContext.Current.Response.TransmitFile(ArchivoPath)
        '    'HttpContext.Current.Response.Flush()
        '    'HttpContext.Current.Response.End()
        '    RegistraScript("AbrirVentana('/Ventas/PopUpImprimir.aspx?RH=True&Ext=" & Archivo.Extension & "', 700, 400, 'N', 'ImpRH')")
        '    'End If
        '    Archivo = Nothing

        'End If

    End Sub

    'Private Sub ReemplazaTexto(ByRef ObjSelection As Word.Selection, ByVal Texto As String, ByVal Reemplazar As String)
    '    With ObjSelection.Find
    '        .Text = Texto
    '        .Replacement.Text = Reemplazar
    '        .Forward = True
    '        .Wrap = Word.WdFindWrap.wdFindContinue
    '        .Format = False
    '        .MatchCase = True
    '        .MatchWholeWord = False
    '        .MatchWildcards = False
    '        .MatchSoundsLike = False
    '        .MatchAllWordForms = False
    '    End With
    '    ObjSelection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)
    'End Sub

    Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
        CargaClientes()
        DdlClienteAsignado.Attributes.Remove("onclick")
        DdlClienteAsistenciaC.Attributes.Remove("onclick")
        DdlClienteAsistenciaA.Attributes.Remove("onclick")
    End Sub

#Region "Buzón de Calidad"


    Private Sub CargaBuzonCalidad()

        Dim ObjPersonal As New ClsRH
        If ObjPersonal.GetBuzonCalidad(CvePersonal, UsuarioActual.CveEmpresa) Then
            ViewState("DTBuzonCalidad") = ObjPersonal.DtResultados
            GvBuzonCalidad.DataSource = ObjPersonal.DtResultados
        Else
            GvBuzonCalidad.DataSource = Nothing
            ViewState("DTBuzonCalidad") = Nothing
        End If
        ObjPersonal.Dispose()
        GvBuzonCalidad.DataBind()

        UpBuzonCalidad.Update()

    End Sub


    Private Sub LnkBuzonDeCalidad_Click(sender As Object, e As EventArgs) Handles LnkBuzonDeCalidad.Click

        ChkSeAtendio.Visible = False
        DvSeguimiento.Visible = False
        BuzonCalidadLimpiaModal(True)
        RegistraScript("$('#ModalBuzonCalidad').modal({ backdrop: 'static',  keyboard: false});")
    End Sub
    Private Sub LnkSaldoI_Click(sender As Object, e As EventArgs) Handles LnkSaldoI.Click
        RegistraScript("$('#ModalSaldoInicial').modal({ backdrop: 'static',  keyboard: false});")
    End Sub


    Private Sub BuzonCalidadLimpiaModal(ControlesActivos As Boolean)

        DdlClienteBuzon.SelectedValue = "0"
        DdlClienteBuzon.Enabled = ControlesActivos

        DdlSucursalClienteBuzon.SelectedIndex = 0
        DdlSucursalClienteBuzon.Enabled = ControlesActivos

        DdlTipoBuzonCalidad.SelectedIndex = 0
        DdlTipoBuzonCalidad.Enabled = ControlesActivos

        TxtFechaBuzonCalidad.Text = ""
        TxtFechaBuzonCalidad.Enabled = ControlesActivos

        TxtBuzonDescriptcion.Text = ""
        TxtBuzonDescriptcion.Enabled = ControlesActivos

        TxtNombreClienteBuzonCalidad.Text = ""
        TxtNombreClienteBuzonCalidad.Enabled = ControlesActivos

        TxtTelefonoBuzonCalidad.Text = ""
        TxtTelefonoBuzonCalidad.Enabled = ControlesActivos

        TxtMailBuzonCalidad.Text = ""
        TxtMailBuzonCalidad.Enabled = ControlesActivos

        LnkFechaBuzonCalidad.Visible = ControlesActivos

        BtnModalGuardarBuzonCalidad.Visible = ControlesActivos

        TxtObservacionesBuzon.Text = ""
        TxtObservacionesBuzon.Visible = ControlesActivos

        UpModalBuzonCalidad.Update()
        RegistraScript("$('#ModalBuzonCalidad').modal({ backdrop: 'static',  keyboard: false});")

    End Sub

    Public Sub BuzonCalidadVerInfo_Click(sender As Object, e As EventArgs)

        BuzonCalidadLimpiaModal(True)
        DvSeguimiento.Visible = True


        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        CvePersonalBuzon = GvRow.DataKey("CvePersonalBuzon").ToEntero()
        CargaBuzonCalidadSeguimiento()
        DdlClienteBuzon.SelectedValue = GvRow.DataKey("CveCliente")
        ' DdlClienteBuzon.Enabled = False

        If GvRow.DataKey("CveClienteSucursal").ToEntero() > 0 Then
            CargaClienteSucursal()
            DdlSucursalClienteBuzon.SelectedValueExist(GvRow.DataKey("CveClienteSucursal"))
        Else
            DdlSucursalClienteBuzon.DataSource = Nothing
            DdlSucursalClienteBuzon.DataBind()
            DdlSucursalClienteBuzon.SelectedIndex = 0
            '  DdlSucursalCliente.Enabled = False
        End If

        DdlTipoBuzonCalidad.SelectedValueExist(GvRow.DataKey("CveTipoBuzon"))
        ChkSeAtendio.Visible = True

        ChkSeAtendio.Checked = If(GvRow.DataKey("SeAtendioChk").ToString().ToEntero() = 1, True, False)

        TxtFechaBuzonCalidad.Text = GvRow.DataKey("FechaQueja").ToDate.ToString("dd/MM/yyyy")
        TxtBuzonDescriptcion.Text = GvRow.DataKey("Descripcion")
        TxtNombreClienteBuzonCalidad.Text = GvRow.DataKey("NombreReporto")
        TxtTelefonoBuzonCalidad.Text = GvRow.DataKey("TelefonoReporto")
        TxtMailBuzonCalidad.Text = GvRow.DataKey("MailReporto")
        TxtObservacionesBuzon.Text = GvRow.DataKey("Observaciones")

        UpModalBuzonCalidad.Update()
        RegistraScript("$('#ModalBuzonCalidad').modal({ backdrop: 'static',  keyboard: false});")


    End Sub





    Public Sub BuzonCalidadSeguimiento_Click(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        'CvePersonalBuzon,CveCliente,Cliente,TipoBuzon,FechaQueja,Descripcion,NombreReporto,TelefonoReporto,MailReporto,FechaIng,SeAtendio,Observaciones,SucursalCliente


    End Sub

    Public Sub BuzonCalidadFinalizar_Cllick(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
    End Sub

    Property CvePersonalBuzon As Integer
        Get
            If ViewState("CvePersonalBuzon") Is Nothing Then
                Return -1
            Else
                Return ViewState("CvePersonalBuzon").ToString().ToEntero()
            End If
        End Get
        Set(value As Integer)
            ViewState("CvePersonalBuzon") = value
        End Set
    End Property


    Private Sub BtnModalGuardarBuzonCalidad_Click(sender As Object, e As EventArgs) Handles BtnModalGuardarBuzonCalidad.Click
        Dim objRH As New ClsRH

        If CvePersonalBuzon = -1 Then
            objRH.AddBuzonCalidad(CvePersonal, DdlClienteBuzon.SelectedValue.ToEntero(), DdlSucursalClienteBuzon.SelectedValue.ToEntero(), DdlTipoBuzonCalidad.SelectedValue.ToEntero(), TxtFechaBuzonCalidad.Text.ToDate, TxtBuzonDescriptcion.Text.Trim, TxtNombreClienteBuzonCalidad.Text.Trim, TxtTelefono.Text.Trim, TxtMailBuzonCalidad.Text.Trim, TxtObservacionesBuzon.Text, UsuarioActual.Empresa.CveEmpresa, UsuarioActual.CveUsuario)

            RegistraScript(" $('#ModalBuzonCalidad').modal('hide')", "HideModalCalidadAgregar")
        Else
            objRH.UpdateBuzonCalidad(CvePersonalBuzon, If(ChkSeAtendio.Checked, 1, 0), DdlClienteBuzon.SelectedValue.ToEntero(), DdlSucursalClienteBuzon.SelectedValue.ToEntero(), DdlTipoBuzonCalidad.SelectedValue.ToEntero(), TxtBuzonDescriptcion.Text.Trim, TxtNombreClienteBuzonCalidad.Text.Trim, TxtTelefono.Text.Trim, TxtMailBuzonCalidad.Text.Trim, TxtObservacionesBuzon.Text, UsuarioActual.CveUsuario)
            RegistraScript(" $('#ModalBuzonCalidad').modal('hide')", "HideModalCalidadAgregar")
        End If
        CargaBuzonCalidad()

        CargaGridBC(ViewState("Orden").ToString())

        objRH.Dispose()

    End Sub



    Private Sub BtnModalGuardarBuzonDetalleCalidad_Click(sender As Object, e As EventArgs) Handles BtnModalGuardarBuzonDetalleCalidad.Click
        Dim objRH As New ClsRH

        If objRH.AddBuzonCalidadDetalle(CvePersonalBuzon, TxtObserbacionBuzonDetalle.Text.Trim, If(chkBuzonDetalleNotiificar.Checked, 1, 0), TxtMailBuzonCalidad.Text.Trim, UsuarioActual.CveUsuario) Then


            If chkBuzonDetalleNotiificar.Checked Then
                Dim Correo As New ClsSisMail
                Dim Asunto As String = $"{UsuarioActual.Empresa.Empresa} Seguimiento {DdlTipoBuzonCalidad.SelectedItem.Text}  Empleado {NombreCompleto}"

                Dim Cuerpo As New StringBuilder

                Cuerpo.AppendLine($"Seguimiento  {DdlTipoBuzonCalidad.SelectedItem.Text} <br>")
                Cuerpo.AppendLine($" {UsuarioActual.Nombre}<br>")
                Cuerpo.AppendLine($"Actualización: {TxtObserbacionBuzonDetalle.Text}<br>")
                Cuerpo.AppendLine($"<br>")


                Correo.SendMail(EmpresaNotificaciones, TxtMailBuzonCalidad.Text.Trim, Asunto, Body:=Cuerpo.ToString())

            End If




            TxtObserbacionBuzonDetalle.Text = ""
            chkBuzonDetalleNotiificar.Checked = False

        End If
        objRH.Dispose()

        CargaBuzonCalidadSeguimiento()

    End Sub


    Private Sub CargaBuzonCalidadSeguimiento()
        If CvePersonalBuzon > 0 Then
            Dim objRH As New ClsRH

            If objRH.GetBuzonCalidadDetalle(CvePersonalBuzon) Then
                GvBuzonDetalles.DataSource = objRH.DtResultados
            Else
                GvBuzonDetalles.DataSource = Nothing

            End If



            objRH.Dispose()
            GvBuzonDetalles.DataBind()
            UpModalBuzonCalidad.Update()

        End If
    End Sub




    Private Sub CargaCombosBuzon()


        'Dim ObjClientes As New ClsClientes
        'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
        '    DdlClienteBuzon.DataSource = ObjClientes.DtResultados
        '    DdlClienteBuzon.DataSource = ObjClientes.DtResultados
        '    DdlClienteBuzon.DataSource = ObjClientes.DtResultados
        'Else
        '    DdlClienteBuzon.DataSource = Nothing
        '    DdlClienteBuzon.DataSource = Nothing
        '    DdlClienteBuzon.DataSource = Nothing
        'End If
        'ObjClientes.Dispose()
        'DdlClienteBuzon.DataBind()


        Dim objRH As New ClsRH

        If objRH.GetBuzonCalidadTipo(1) Then
            DdlTipoBuzonCalidad.DataSource = objRH.DtResultados

        Else
            DdlTipoBuzonCalidad.DataSource = Nothing
        End If
        objRH.Dispose()
        DdlTipoBuzonCalidad.DataBind()

        UpModalBuzonCalidad.Update()
    End Sub


    Private Sub DdlClienteBuzon_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClienteBuzon.selectedindexchange
        CargaClienteSucursal()
    End Sub

    Private Sub CargaClienteSucursal()

        Dim ObjCliente As New ClsClientes()

        If ObjCliente.GetSucursales(DdlClienteBuzon.SelectedValue.ToEntero()) Then
            DdlSucursalClienteBuzon.DataSource = ObjCliente.DtResultados
            If ObjCliente.DtResultados.Rows.Count > 0 Then
                Divsucursalciente.Visible = True
            Else
                Divsucursalciente.Visible = False
            End If
        Else
            Divsucursalciente.Visible = False
            DdlSucursalClienteBuzon.DataSource = Nothing
        End If
        DdlSucursalClienteBuzon.DataBind()
        UpModalBuzonCalidad.Update()
    End Sub

    Protected Sub GvBuzonCalidad_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBuzonCalidad.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.FCLiteral("LtlCliente").Text = "<a class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente=" & e.Row.DBCampo("CveCliente") & """>" & e.Row.DBCampo("Cliente") & "</a>"
            If e.Row.DBCampo("SeAtendio") = "Si" Then
                e.Row.BackColor = Drawing.Color.LightBlue
            End If
        End If
    End Sub

    Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBuzonCalidad.RowCancelingEdit
        GvBuzonCalidad.EditIndex = -1
        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGridBC(ViewState("Orden").ToString())
        Else
            CargaGridBC("")
        End If
    End Sub

    'Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBuzonCalidad.RowUpdating
    '    Dim ObjBuzonCalidad As New ClsRH

    '    Dim Observaciones As String = DirectCast(GvBuzonCalidad.Rows(e.RowIndex).FindControl("TxtObs"), TextBox).Text.Trim
    '    Dim SeAtendio As Boolean = GvBuzonCalidad.Rows(e.RowIndex).FCCheckBox("ChkEstado").Checked
    '    Dim CveBuzonCalidad As Integer = GvBuzonCalidad.DataKeys(e.RowIndex).Value.ToString().ToEntero()

    '    If ObjBuzonCalidad.UpdateBuzonCalidad(SeAtendio, Observaciones, CveBuzonCalidad, UsuarioActual.CveUsuario) Then
    '        GvBuzonCalidad.EditIndex = -1
    '        ViewState("DTBuzonCalidad") = ObjBuzonCalidad.DtResultados
    '        Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
    '    End If

    '    ObjBuzonCalidad.Dispose()

    '    If ViewState("Orden").ToString() <> String.Empty Then
    '        CargaGridBC(ViewState("Orden").ToString())
    '    Else
    '        CargaGridBC("")
    '    End If

    'End Sub

    Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBuzonCalidad.RowEditing
        GvBuzonCalidad.EditIndex = e.NewEditIndex

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGridBC(ViewState("Orden").ToString())
        Else
            CargaGridBC("")
        End If
    End Sub

    Private Sub CargaGridBC(Orden As String)
        If Orden <> String.Empty Then
            Dim DV As New DataView(CType(ViewState("DTBuzonCalidad"), DataTable), "", Orden, DataViewRowState.CurrentRows)
            GvBuzonCalidad.DataSource = DV.ToTable()
            DV.Dispose()
        Else
            GvBuzonCalidad.DataSource = CType(ViewState("DTBuzonCalidad"), DataTable)
        End If
        GvBuzonCalidad.DataBind()
        UpDatos.Update()
    End Sub

#End Region

#Region "Resguardos"

    Protected Sub GvResguardos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvResguardos.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.RowIndex = 0 Then
                e.Row.Cells(0).Width = Unit.Pixel(50) 'Código
                e.Row.Cells(1).Width = Unit.Pixel(250) 'AF
                e.Row.Cells(2).Width = Unit.Pixel(150) 'Tipo AF
                e.Row.Cells(3).Width = Unit.Pixel(65) 'Inició
                e.Row.Cells(4).Width = Unit.Pixel(65) 'Finalizó
                e.Row.Cells(5).Width = Unit.Pixel(80) 'Estado
                e.Row.Cells(6).Width = Unit.Pixel(280) 'Observaciones
            End If

            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
            e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Left

            Dim Liga As String = "<a class=""Texto"" href=""/AF/AF.aspx?CveActivoFijo=" & e.Row.DBCampo("CveActivoFijo") & """>"
            e.Row.FCLiteral("LtlCodigo").Text = Liga & e.Row.FCLiteral("LtlCodigo").Text & "</a>"
            e.Row.FCLiteral("LtlAF").Text = Liga & e.Row.FCLiteral("LtlAF").Text & "</a>"

        End If
    End Sub

#End Region

#Region "Nómina"


    Private Sub CarcaConceptosNomina()
        Dim ObjPersonal As New ClsRH
        If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
            GVConceptos.DataSource = ObjPersonal.DtResultados.FiltraParametros("(CveSistema <>3 AND  CveSistema <>4) OR CveSistema IS NULL")
            Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3")
            If Not IsNothing(frow) Then
                TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
                DdlInfoTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString())

                Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero()
                TxtInfoDescripcion.Text = String.Format("{0}", frow("Descripcion02"))
                TxtInfoNumCredito.Text = String.Format("{0}", frow("Descripcion01"))
                TxtInfoFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
                ChkInfo.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
            End If


            'frow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =4")
            'TxtFonValor.Text = ""
            'DdlFonTipoAplicacion.SelectedValueExist("-1")
            'TxtFonDescripcion.Text = ""
            'TxtFonNumCredito.Text = ""
            'TxtFonFechaInicio.Text = ""
            'ChkFonacot.Checked = False
            'If Not IsNothing(frow) Then
            '    TxtFonValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
            '    DdlFonTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString())

            '    TxtFonDescripcion.Text = String.Format("{0}", frow("Descripcion02"))
            '    TxtFonNumCredito.Text = String.Format("{0}", frow("Descripcion01"))
            '    TxtFonFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
            '    ChkFonacot.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
            'End If
        Else
            'Conceptos.DataSource = Nothing
        End If
        ObjPersonal.Dispose()
        GVConceptos.DataBind()

        'For Each Row As GridViewRow In GVConceptos.Rows
        '    Dim Ddl As DropDownList = DirectCast(GVConceptos.Rows(Row.RowIndex).FCDropDownList("DdlTipoAplicacion"), DropDownList)
        '    DdlTipoAplicacion_SelectedIndexChanged(Ddl, Nothing)
        'Next
    End Sub

    Protected Sub GVConceptos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVConceptos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left

            e.Row.Cells(0).Width = Unit.Pixel(50)
            e.Row.Cells(1).Width = Unit.Pixel(50)
            e.Row.Cells(3).Width = Unit.Pixel(70)
            e.Row.Cells(4).Width = Unit.Pixel(70)
            e.Row.Cells(5).Width = Unit.Pixel(160)


            If e.Row.DBCampo("Aplica").ToEntero() = 1 Then e.Row.FCCheckBox("ChkAplica").Checked = True

            If e.Row.DBCampo("Formula") = "S" Then
                e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(3).Text = "Calculado"
                e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(4).Text = "Permanente"
            Else
                Dim TipoAplicacion As String = e.Row.DBCampo("TipoAplicacion").ToString()
                e.Row.FCDropDownList("DdlTipoAplicacion").Items.Clear()
                e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Seleccione", "-1"))
                If (e.Row.DBCampo("CveSistema").ToString() = "3") Then
                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Movto Permanente)", "5000"))
                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001"))
                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002"))
                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija Bimestral)", "5003"))
                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija Periodo)", "5004"))
                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija Mensual)", "5005"))

                ElseIf (e.Row.DBCampo("CveSistema").ToString() = "4") Then
                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Importe fijo)", "3001"))
                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Por días Labarados)", "3002"))
                Else
                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1"))
                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2"))
                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Permanente", "2600"))
                End If


                If e.Row.DBCampo("TipoAplicacion").ToEntero() > 5 Then
                    TipoAplicacion = "2600"
                End If
                e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValueExist(TipoAplicacion)
            End If

            'If e.Row.DBCampo("TipoCalculo") = "False" Then
            '    e.Row.FCTextBox("TxtImporte").Visible = False
            '    e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False
            'Else
            '    Select Case e.Row.DBCampo("TipoAplicacion").ToEntero()
            '        Case 1
            '            'Saldo
            '            e.Row.FCLiteral("LtlSaldo").Visible = True
            '            e.Row.FCTextBox("TxtSaldoIni").Visible = True
            '        Case 2
            '            'Numero de Pagos
            '            e.Row.FCLiteral("LtlNoPago").Visible = True
            '            e.Row.FCTextBox("TxtNoPagos").Visible = True
            '        Case 2600
            '            'Permanente
            '    End Select
            'End If

        End If
    End Sub

    Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs)
        Dim importe As Decimal = TxtInfoValor.Text.ToDecimal()
        Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero()
        Dim NoPagos As Integer = 0
        Dim SaldoIni As Decimal = 0
        Dim descripcion02 As String = TxtInfoDescripcion.Text
        Dim descripcion01 As String = TxtInfoNumCredito.Text
        Dim fecha As String = TxtInfoFechaInicio.Text.Replace("_", "")
        Dim estatus As Integer = If(ChkInfo.Checked, 1, 0)
        If fecha.Length > 8 Then
            fecha = fecha.ToDateTime().ToString("yyyy/MM/dd")
        Else
            fecha = ""
        End If
        Dim OcurrioError As Boolean = False
        Using ObjPersonal As New ClsRH

            If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 3, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then
                OcurrioError = True
            End If
        End Using
        If Not OcurrioError Then
            Alert("Se actualizo el calculo de infonavit")
            CarcaConceptosNomina()
        End If
    End Sub

    Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click
        If CvePersonal > 0 Then
            Dim ObjPersonal As New ClsRH
            ObjPersonal.IniciaTransacSQL()

            Dim OcurrioError As Boolean = False
            For Each Row As GridViewRow In GVConceptos.Rows
                If Row.FCCheckBox("ChkAplica").Checked = True Then
                    Dim CveConcepto As Integer = Row.DataKey("CveConcepto").ToEntero()
                    Dim Importe As Double = Row.FCTextBox("TxtImporte").Text.ToDouble
                    Dim TipoAplicacion As Integer = -1 'Row.FCDropDownList("DdlTipoAplicacion").SelectedValue.ToEntero()
                    Dim NoPagos As Integer = If(Row.FCTextBox("TxtNoPagos").Text.ToEntero() = 0, -1, Row.FCTextBox("TxtNoPagos").Text.ToEntero())
                    Dim SaldoIni As Double = If(Row.FCTextBox("TxtSaldoIni").Text.ToDouble = 0, -1, Row.FCTextBox("TxtSaldoIni").Text.ToDouble)

                    Select Case TipoAplicacion
                        Case 1
                            'Saldo
                            NoPagos = -1
                        Case 2
                            'Numero de Pagos
                            SaldoIni = -1
                        Case 2600
                            'Permanente
                            NoPagos = -1
                            SaldoIni = -1
                    End Select

                    'Insertarlo o Actualizarlo
                    If Not ObjPersonal.AddConcepto(CvePersonal, CveConcepto, Importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario) Then
                        OcurrioError = True
                        ObjPersonal.RollBack()
                        Exit For
                    End If
                Else
                    'Borrarlo
                    If Row.DataKey("CvePersonalConcepto") <> "" Then
                        If Not ObjPersonal.RemoveConcepto(Row.DataKey("CvePersonalConcepto").ToEntero()) Then
                            OcurrioError = True
                            ObjPersonal.RollBack()
                            Exit For
                        End If
                    End If
                End If
            Next

            If Not OcurrioError Then
                ObjPersonal.Commit()
                Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
            End If

            ObjPersonal.Dispose()
        End If
    End Sub
#End Region
    Protected Sub DdlEstatusPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusPersonal.SelectedIndexChanged

        MostrarOcultarFechasEstatus()
    End Sub

    Private Sub MostrarOcultarFechasEstatus()

        'DivFechaReingreso.Visible = False
        'DivFechaActivo.Visible = False

        If DdlEstatusPersonal.SelectedValue.ToEntero().Contiene(1, 2, 5) Then
            'DivFechaActivo.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero() = 1, True, False)
            DivFechaBaja.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero() = 2, True, False)
            'DivFechaReingreso.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero() = 5, True, False)
        Else
            'DivFechaActivo.Visible = False
            DivFechaBaja.Visible = False
            'DivFechaReingreso.Visible = False
        End If
        DivMotivoBaja.Visible = DivFechaBaja.Visible
    End Sub

    Protected Sub GvNominas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvNominas.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.RowIndex = 0 Then

                e.Row.Cells(0).Width = Unit.Pixel(35)
                e.Row.Cells(1).Width = Unit.Pixel(75)
                e.Row.Cells(2).Width = Unit.Pixel(75)
                e.Row.Cells(3).Width = Unit.Pixel(95)
                e.Row.Cells(4).Width = Unit.Pixel(95)
                e.Row.Cells(5).Width = Unit.Pixel(95)
                e.Row.Cells(6).Width = Unit.Pixel(95)

            End If

            e.Row.FCLinkButton("LBCancelar").Visible = True
            e.Row.FCLinkButton("LBCancelar").CommandArgument = e.Row.DBCampo("FolioFiscal")

            If e.Row.DBCampo("SeTimbro") = "True" Then

                e.Row.FCLinkButton("LbMail").CommandArgument = e.Row.DBCampo("FolioFiscal")
                ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LbMail"))
                e.Row.FCLinkButton("LbMail").Visible = True

                e.Row.FCLinkButton("LbPDF").CommandArgument = e.Row.DataKey("CvePeriodo")
                ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LbPDF")) ' registro el evento postback
                'e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Empresas/{0}/PDF/Nomina/{1}.pdf", e.Row.DBCampo("CveEmpresa"), e.Row.DBCampo("SerieFolio"))
                'e.Row.FCHyperLink("HplSeTimbro").NavigateUrl = String.Format("/Empresas/{0}/XML/Nomina/{1}.xml", e.Row.DBCampo("CveEmpresa"), e.Row.DBCampo("SerieFolio"))
                e.Row.FCLinkButton("LbPDF").Visible = True

                e.Row.FCLinkButton("LBCancelar").Visible = True
                e.Row.FCLinkButton("LBCancelar").CommandArgument = e.Row.DBCampo("FolioFiscal")
            End If
        End If
    End Sub

#Region "G A S T O S    X    C O M P R O B A R"

    Protected Sub RBLTipoGastos_SelectedIndexChanged(sender As Object, e As EventArgs)

        If RBLTipoGastos.SelectedValue = "1" Then
            PnlGastoGeneral.Visible = True
            PnlGastoCheque.Visible = False
        Else
            PnlGastoGeneral.Visible = False
            PnlGastoCheque.Visible = True
        End If

    End Sub

    Private Sub CargaCastosSinComprobar()
        'Dim objGXC As New ClsMovimientos

        'If objGXC.GetEgresosSinComprobar("-1", "-1", -1, CvePersonal, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
        '    GvGxC.DataSource = objGXC.DtResultados.FiltraParametros("Saldo > 0")

        '    GvGxCHistorial.DataSource = objGXC.DtResultados.FiltraParametros("Saldo = 0")

        'End If

        'objGXC.Dispose()
        'GvGxC.DataBind()
        'GvGxCHistorial.DataBind()

        Dim Conta As New ClsContabilidad
        If Conta.GetPersonalAuxiliar(CvePersonal, UsuarioActual.CveEmpresa) Then
            DTGastosSinComp = Conta.DtResultados
            GvGxC.DataSource = DTGastosSinComp
            LblSaldoGxC.Text = (Conta.DtResultados.SUM("Cargo", "CveMovimiento Is NULL") - Conta.DtResultados.SUM("Abono", "CveMovimiento Is NULL")).FormatoNumero()
        End If
        Conta.Dispose()
        GvGxC.DataBind()

        Dim ObjBancos As New ClsBancos
        If ObjBancos.GetPersonalPrestamoAuxiliar(CvePersonal, "-1", "-1", UsuarioActual.CveEmpresa) Then
            GvAuxiliar.DataSource = ObjBancos.DtResultados
        End If
        ObjBancos.Dispose()
        GvAuxiliar.DataBind()

    End Sub

    Private Sub CargaGastosPorCheque()
        Dim RH As New ClsRH

        If RH.GetRepPersonalBancos(CvePersonal, "-1", "-1", -1) Then
            DTGastosPorCheque = RH.DtResultados
            GvGastosCheque.DataSource = DTGastosPorCheque
        Else
            GvGastosCheque.DataSource = Nothing
            Alert("Ocurrió un error al consultar los Gastos X Comprobar agrupados por cheque.", TipoMensaje.MsgError)
        End If

        RH.Dispose()

        GvGastosCheque.DataBind()
    End Sub

    Protected Sub GvGastosCheque_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvGastosCheque.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.RowIndex = 0 Then
                e.Row.Cells(0).Width = Unit.Pixel(120)
                e.Row.Cells(1).Width = Unit.Pixel(70)
                e.Row.Cells(2).Width = Unit.Pixel(80)
                e.Row.Cells(3).Width = Unit.Pixel(80)
                e.Row.Cells(4).Width = Unit.Pixel(90)
                e.Row.Cells(5).Width = Unit.Pixel(90)
                e.Row.Cells(6).Width = Unit.Pixel(105)
                e.Row.Cells(7).Width = Unit.Pixel(90)

            End If

            If e.Row.DBCampo("CveCompra") = "" Then
                If e.Row.DBCampo("CveIE") <> "" Then
                    e.Row.Cells(0).Text = String.Format("{0} - {1} - {2}", e.Row.DBCampo("Banco"), e.Row.DBCampo("NumCuenta"), e.Row.DBCampo("Moneda"))

                    e.Row.FCLiteral("LtlFechaVenci").Text = e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString
                    e.Row.FCHyperLink("HplCheque").Visible = True
                End If
                e.Row.BackColor = Drawing.Color.LightGray

            End If

        End If

    End Sub

#End Region

#Region "E V E N T O  -  B I T A C O R A"
    Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.RowIndex = 0 Then
                e.Row.Cells(0).Width = Unit.Pixel(200)
                e.Row.Cells(1).Width = Unit.Pixel(200)
                e.Row.Cells(2).Width = Unit.Pixel(100)
                e.Row.Cells(3).Width = Unit.Pixel(500)
            End If

            If e.Row.DBCampo("Archivo").ToString() <> "" Then
                e.Row.FCLinkButton("LinkArchivo").Visible = True
                e.Row.FCLinkButton("LinkArchivo").CommandArgument = String.Format("OI\{0}", e.Row.DBCampo("Archivo").ToString())
                ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LinkArchivo")) 'Registro un evento Postbacktrigger, que recargue toda la pagina para que funcione
            End If

            e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
        End If
    End Sub
    Protected Sub BtnGuardarEventoBitacora_Click(sender As Object, e As EventArgs) Handles BtnGuardarEventoBitacora.Click

        Dim ObjEventoBitacora As New ClsOIEventos

        Dim FileExtension As String = "-1"
        Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
        Dim filemove As String = ""

        For Each fileItem As Archivo In filesgral
            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
            filemove = fileItem.filename
        Next

        If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
            If filemove <> "" Then
                filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString()), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
            End If

            GvEB.DataSource = ObjEventoBitacora.DtResultados
            TxtEventoDescripcion.Text = ""
            Anexo.Text = "[]"
            Alert("La bitácora/observación se guardó correctamente", TipoMensaje.MsgInformacion)
            RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
        End If
        ObjEventoBitacora.Dispose()
        GvEB.DataBind()

        UPEventoBitacora.Update()
        CargaEventoBitacora()
        UPAddEventoBitacora.Update()
    End Sub
    Private Sub CargaEventoBitacora()

        Dim ObjEventoBitacora As New ClsOIEventos()
        If ObjEventoBitacora.GetAgendaBitacora(-1, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
            GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2")
        Else
            GvEB.DataSource = Nothing
        End If
        GvEB.DataBind()
    End Sub

    Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
        Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument)
        Dim Archivo As New System.IO.FileInfo(filePath)

        HttpContext.Current.Response.Clear()
        HttpContext.Current.Response.ClearContent()
        HttpContext.Current.Response.ContentType = "application/octet-stream"
        HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" + Path.GetFileName(filePath))
        HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
        HttpContext.Current.Response.TransmitFile(filePath)
        HttpContext.Current.Response.Flush()
        HttpContext.Current.Response.End()

        Archivo = Nothing
    End Sub
#End Region

    Protected Sub GvGxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGxC.RowDataBound, GvGxCHistorial.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.RowIndex = 1 Then
                e.Row.Cells(0).Width = Unit.Pixel(100)
                e.Row.Cells(1).Width = Unit.Pixel(200)
                e.Row.Cells(2).Width = Unit.Pixel(350)
                e.Row.Cells(3).Width = Unit.Pixel(100)
                e.Row.Cells(4).Width = Unit.Pixel(100)
                'e.Row.Cells(5).Width = Unit.Pixel(100)
                'e.Row.Cells(6).Width = Unit.Pixel(80)
                'e.Row.Cells(7).Width = Unit.Pixel(100)
            End If

            If e.Row.DBCampo("FechaDocumento") = "" Then e.Row.BackColor = Drawing.Color.LightGray

            If e.Row.DBCampo("CveIE").ToEntero() > 0 Then
                e.Row.FCHyperLink("HplRef").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
                e.Row.FCLabel("LtlC").CssClass = "label label-sm label-success"
                e.Row.FCLabel("LtlC").ForeColor = Drawing.Color.White
            End If
            If e.Row.DBCampo("CveCompra").ToEntero() > 0 Then
                e.Row.FCHyperLink("HplRef").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra"))
                e.Row.FCLabel("LtlC").CssClass = "label label-sm label-warning"
                e.Row.FCLabel("LtlC").ForeColor = Drawing.Color.White
            End If
        End If
    End Sub
    Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
        If DtCuentasContables Is Nothing Then
            CargaCuentasContables()
        End If
        Dim SeleccionadoContViaticos As String
        Dim SeleccionadoContPrestamos As String
        Select Case HdnCuenta.Value
            Case "1"
                SeleccionadoContViaticos = DdlViaticos.SelectedValue
                DdlViaticos.Items.Clear() : DdlViaticos.Items.Add(New ListItem("Seleccione", "0"))
                DdlViaticos.DataSource = DtCuentasContables : DdlViaticos.DataBind() : DdlViaticos.SelectedValueExist(SeleccionadoContViaticos)
                DdlViaticos.AutoPostBack = False : DdlViaticos.Attributes.Remove("onclick") : DdlViaticos.CssClass &= " select2me"
            Case "2"
                SeleccionadoContPrestamos = DdlPrestamos.SelectedValue
                DdlPrestamos.Items.Clear() : DdlPrestamos.Items.Add(New ListItem("Seleccione", "0"))
                DdlPrestamos.DataSource = DtCuentasContables : DdlPrestamos.DataBind() : DdlPrestamos.SelectedValueExist(SeleccionadoContPrestamos)
                DdlPrestamos.AutoPostBack = False : DdlPrestamos.Attributes.Remove("onclick") : DdlPrestamos.CssClass &= " select2me"
        End Select
    End Sub
#Region "TAB BANCOS"
    Private Sub CargaMonedas()
        DdlMoneda.DataSource = GlobalDTMonedas
        DdlMoneda.DataBind()
        DdlMoneda.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub

    Protected Sub Lnkopenaddcuentabancaria_Click(sender As Object, e As EventArgs)
        BtnActualizarCuentaBanco.Visible = False
        BtnAgregarCuentaBanco.Visible = True
        IndexCuentaDepostito = -1
        CuentasBancosLimpiarControles()
        RegistraScript("$('#DivAddCuentasBancarias').modal();")
    End Sub

    Private Sub CuentasBancosLimpiarControles()

        DdlBancoSat.SelectedValueExist(-1)
        DdlMoneda.SelectedValueExist(-1)
        TxtNumeroCuenta.Text = ""
        TxtCLABECB.Text = ""
        ChkEstatusPagoE.Checked = False
        ChkEstatuscuenta.Checked = True

        TxtNombreBanco.Text = ""
        TxtNumeroSucursal.Text = ""
        TxtSWIFT.Text = ""
        TxtPlaza.Text = ""
        TxtConvenioCIE.Text = ""
        TxtReferenciaC.Text = ""
        TxtConceptoCIE.Text = ""
        TxtRefCrediProveedor.Text = ""
        TxtCorreoCuenta.Text = ""
        TxtBBVAAlias.Text = ""
        ChkPagoElectronicoGrupos.Checked = False
        UpAddBancos.Update()
    End Sub

    Protected Sub LbActualizarCuentaBanco_Click(sender As Object, e As EventArgs)

        Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
        If CvePersonal > 0 Then
            Using ObjCuentasBancos As New ClsGenerales

                'If ObjCuentasBancos.UpdateCuentasDepositosPersonal(CveCuentaDeposito, nombrebanco, TxtNumeroCuenta.Text, TxtCLABECB.Text, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, ChkEstatusPagoE.Checked, ChkEstatuscuenta.Checked, DdlBancoSat.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
                If ObjCuentasBancos.UpdateCuentasDepositos(CveCuentaDeposito, nombrebanco, TxtPlaza.Text, TxtNumeroSucursal.Text, TxtNumeroCuenta.Text.Trim, TxtCLABECB.Text.Trim, TxtConvenioCIE.Text, TxtSWIFT.Text, TxtReferenciaC.Text, TxtRefCrediProveedor.Text,
                                                               False, ChkEstatuscuenta.Checked, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, Correo:=TxtCorreoCuenta.Text, BBVAAlias:=TxtBBVAAlias.Text, EstatusPagoElectronico:=ChkEstatusPagoE.Checked,
                                                               EstatusPagoElectronicoGrupos:=ChkPagoElectronicoGrupos.Checked, CveSATBanco:=DdlBancoSat.SelectedValue.ToEntero(), ConceptoCIE:=TxtConceptoCIE.Text) Then
                    'UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer) As Boolean
                    Alert("Cuenta actualizada")
                End If
            End Using
        Else
            If IndexCuentaDepostito > -1 Then
                Dim Row As DataRow = TempDTCuentasBancos.Rows(IndexCuentaDepostito)
                Row("CveSATBanco") = DdlBancoSat.SelectedValue.ToEntero()
                Row("BancoNombre") = nombrebanco
                Row("Cuenta") = TxtNumeroCuenta.Text.Trim
                Row("Sucursal") = TxtNumeroSucursal.Text
                Row("CLABE") = TxtCLABECB.Text.Trim
                Row("SWIFT") = TxtSWIFT.Text
                Row("Plaza") = TxtPlaza.Text
                Row("CIE") = TxtConvenioCIE.Text
                Row("Referencia") = TxtReferenciaC.Text
                Row("RefCrediProveedor") = TxtRefCrediProveedor.Text
                Row("CveMoneda") = DdlMoneda.SelectedValue.ToEntero()
                Row("Moneda") = DdlMoneda.SelectedItem.Text
                Row("BBVAAlias") = TxtBBVAAlias.Text
                Row("CveSATBanco") = DdlBancoSat.SelectedValue.ToEntero
                Row("EstatusPagoElectronico") = ChkEstatusPagoE.Checked
                Row("EstatusPagoElectronicoGrupos") = ChkPagoElectronicoGrupos.Checked
                Row("Correo") = TxtCorreoCuenta.Text.Trim
                Row("Correo") = TxtCorreoCuenta.Text.Trim
                Row("ConceptoCIE") = TxtConceptoCIE.Text
                Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
            End If
        End If

        CargaCuentasBancarias()
        RegistraScript("$('#DivAddCuentasBancarias').modal('hide');")
    End Sub
    Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
        Dim EsBancomer As Boolean = False
        Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
        If nombrebanco.ToUpper.Contains("BBVA") Or nombrebanco.ToUpper.Contains("BANCOMER") Or (TxtCLABECB.Text.Length = 18 AndAlso TxtCLABECB.Text.Substring(0, 3) = "012") Then
            EsBancomer = True
        End If

        If EsBancomer AndAlso (TxtCLABECB.Text.Length = 18 AndAlso Not TxtCLABECB.Text.Substring(0, 3) = "012") Then
            Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE
        'If (TxtCLABECB.Text.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And TxtConvenioCIE.Text.Trim.Length <> 6 And TxtCLABECB.Text.Trim.Length <> 18) Then
        '    Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
        '    Exit Sub
        'End If
        If ChkEstatusPagoE.Checked Then

            'CLABE SIEMPRE OBLIGATORIA SI NO ES BANCOMER
            'If TxtCLABECB.Text.Trim.Length <> 18 AndAlso TxtCLABECB.Text.Trim.Length = 0 AndAlso Not EsBancomer Then
            '    Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
            '    Exit Sub
            'End If
            'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
            'If TxtCLABECB.Text.Trim.Length <> 0 AndAlso TxtCLABECB.Text.Trim.Length <> 18 Then
            '    Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
            '    Exit Sub
            'End If
        End If

        'SI CUENTA TIENE ALGO Y BANCO BANCOMER DEBE TENER UNA LOGITUD EXACTA DE 10
        If TxtNumeroCuenta.Text.Trim.Length <> 0 AndAlso TxtNumeroCuenta.Text.Trim.Length <> 10 AndAlso EsBancomer Then
            Alert("El número de cuenta debe tener una longitud de 10 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        If ChkPagoElectronicoGrupos.Checked Then

            If TxtConvenioCIE.Text.Trim.Length > 0 Then

                If TxtConvenioCIE.Text.Trim.Length < 5 Then
                    Alert("El campo CIE debe de tener una tamaño mininmo 5 caracteres.", TipoMensaje.MsgAdvertencia)
                    Exit Sub
                End If

                If Not DdlBancoSat.SelectedValue.ToEntero > 0 Then
                    Alert("Se debe de especificar el banco.")
                    Exit Sub
                End If
            End If
        End If
        ''CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
        'If EsBancomer AndAlso Not (TxtNumeroCuenta.Text.Trim.Length = 10 Or TxtConvenioCIE.Text.Trim.Length = 6) Then
        '    Alert("Para cuentas BBVA BANCOMER es obligatorio el Número de Cuenta o CIE.", TipoMensaje.MsgAdvertencia)
        '    Exit Sub
        'End If

        AgregarCuentaBanco(nombrebanco, TxtNumeroSucursal.Text, TxtCLABECB.Text.Trim, TxtSWIFT.Text, TxtPlaza.Text, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text, TxtReferenciaC.Text, TxtRefCrediProveedor.Text, DdlMoneda.SelectedValue.ToEntero(),
                           DdlMoneda.SelectedItem.Text, ChkEstatuscuenta.Checked, TxtCorreoCuenta.Text, TxtBBVAAlias.Text, DdlBancoSat.SelectedValue.ToEntero(), ChkEstatusPagoE.Checked, ChkPagoElectronicoGrupos.Checked, TxtConceptoCIE.Text)
        RegistraScript("$('#DivAddCuentasBancarias').modal('hide');")
    End Sub
    Private Sub CargaGridCuentasBancos(Orden As String)
        If CvePersonal > 0 Then
            If Not String.IsNullOrEmpty(Orden) Then
                Dim DV As New DataView(DTCuentasBancos, "", Orden, DataViewRowState.CurrentRows)
                GvBancosCuentas.DataSource = DV.ToTable()
                DV.Dispose()
            Else
                GvBancosCuentas.DataSource = DTCuentasBancos
            End If
        Else
            If Not String.IsNullOrEmpty(Orden) Then
                Dim DV As New DataView(TempDTCuentasBancos, "", Orden, DataViewRowState.CurrentRows)
                GvBancosCuentas.DataSource = DV.ToTable()
                DV.Dispose()
            Else
                GvBancosCuentas.DataSource = TempDTCuentasBancos
            End If
        End If

        GvBancosCuentas.DataBind()
        UpCuentasBancos.Update()
    End Sub
    Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer,
                                   Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, CveSATBanco As Integer, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, ConceptoCIE As String)

        If CvePersonal > 0 Then
            Using ObjCuentasBancos As New ClsGenerales()

                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal,
                                                        CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos,
                                                        Correo:=Correo, ConceptoCIE:=ConceptoCIE) Then
                    DTCuentasBancos.Clear()
                    DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))

                    Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
                End If
            End Using
            CargaGvBitacora()

        Else

            If IndexCuentaDepostito > -1 Then
                Dim Row As DataRow = TempDTCuentasBancos.Rows(IndexCuentaDepostito)
                Row("CveSATBanco") = CveSATBanco
                Row("BancoNombre") = NombreBanco
                Row("Sucursal") = NumeroSucursal
                Row("CLABE") = CLABE
                Row("SWIFT") = SWIFT
                Row("Plaza") = Plaza
                Row("Cuenta") = NumeroCuenta
                Row("CIE") = ConvenioCIE
                Row("Referencia") = Referencia
                Row("RefCrediProveedor") = RefCrediProveedor
                Row("CveMoneda") = CveMoneda
                Row("Moneda") = Moneda
                Row("BBVAAlias") = BBVAAlias
                Row("EstatusPagoElectronico") = EstatusPagoElectronico
                Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
                Row("Correo") = Correo
                Row("ConceptoCIE") = ConceptoCIE
                Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")

            Else
                Dim Row As DataRow = TempDTCuentasBancos.NewRow
                Row("CveSATBanco") = CveSATBanco
                Row("BancoNombre") = NombreBanco
                Row("Sucursal") = NumeroSucursal
                Row("CLABE") = CLABE
                Row("SWIFT") = SWIFT
                Row("Plaza") = Plaza
                Row("Cuenta") = NumeroCuenta
                Row("CIE") = ConvenioCIE
                Row("Referencia") = Referencia
                Row("RefCrediProveedor") = RefCrediProveedor
                Row("CveMoneda") = CveMoneda
                Row("Moneda") = Moneda
                Row("BBVAAlias") = BBVAAlias
                Row("EstatusPagoElectronico") = EstatusPagoElectronico
                Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
                Row("Correo") = Correo
                Row("ConceptoCIE") = ConceptoCIE
                TempDTCuentasBancos.Rows.Add(Row)
                Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
            End If
        End If

        LimpiaCuentasBancarias()
        CargaGridCuentasBancos("")


    End Sub
    Private Sub LimpiaCuentasBancarias()
        TxtCLABECB.Text = ""
        TxtNumeroCuenta.Text = ""
    End Sub
    Private Sub CargaCuentasBancarias()
        Dim ObjCuentasBancos As New ClsGenerales
        DTCuentasBancos = New DataTable
        'TempDTCuentasBancos = New DataTable

        If ObjCuentasBancos.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
            DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
        Else
            Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgError)
        End If

        If (CvePersonal < 0 AndAlso TempDTCuentasBancos Is Nothing) Or (CvePersonal < 0 AndAlso TempDTCuentasBancos IsNot Nothing AndAlso TempDTCuentasBancos.Rows.Count = 0) Then
            TempDTCuentasBancos = DTCuentasBancos.Clone
        End If

        ObjCuentasBancos.Dispose()
        CargaGridCuentasBancos("")
    End Sub

#Region "GRIDVIEW - CUENTAS BANCARIAS"
    Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then


            If e.Row.RowState = DataControlRowState.Edit Then
                e.Row.FCDropDownList("DdlMoneda").DataSource = GlobalDTMonedas
                e.Row.FCDropDownList("DdlMoneda").DataBind()
                e.Row.FCDropDownList("DdlMoneda").Items.Insert(0, New ListItem("Seleccione", "-1"))
                e.Row.FCDropDownList("DdlMoneda").SelectedValue = e.Row.DBCampo("CveMoneda")

                'SI TIENE PERMISO PUEDE EDITAR ESTATUS
                If UsuarioActual.TienePermisoProceso(155) Then
                    'Alert("usuario no tiene permiso", TipoMensaje.MsgInformacion)
                    e.Row.FCCheckBox("ChkEstatus").Visible = True
                Else
                    e.Row.FCCheckBox("ChkEstatus").Visible = False
                End If

                If CBool(e.Row.DBCampo("EstatusPagoElectronico")) Then
                    e.Row.FCDropDownList("DdlMoneda").Enabled = False
                End If

            End If

            If CvePersonal < 0 Then
                For index As Integer = 1 To TempDTCuentasBancos.Rows.Count
                    TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index
                Next
                TempDTCuentasBancos.AcceptChanges()
            End If

        End If
    End Sub


    Protected Sub LnkshowEditcuentasbancarias_Click(sender As Object, e As EventArgs)

        Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        BtnActualizarCuentaBanco.Visible = True
        BtnAgregarCuentaBanco.Visible = False
        'CveCuentaDeposito,CveSATBanco,Cuenta,CLABE,EstatusPagoElectronico,CveMoneda

        CveCuentaDeposito = gvrow.DataKey("CveCuentaDeposito").ToEntero()
        IndexCuentaDepostito = gvrow.RowIndex

        CuentasBancosLimpiarControles()

        DdlBancoSat.SelectedValueExist(gvrow.DataKey("CveSATBanco"))
        DdlMoneda.SelectedValueExist(gvrow.DataKey("CveMoneda"))
        TxtNumeroCuenta.Text = gvrow.DataKey("Cuenta")
        TxtCLABECB.Text = gvrow.DataKey("CLABE")
        ChkEstatusPagoE.Checked = gvrow.DataKey("EstatusPagoElectronico").ToUpper().Contiene("TRUE", "1")
        ChkEstatuscuenta.Checked = gvrow.DataKey("EstatusTexto").ToUpper().Contiene("TRUE", "1", "ACTIVO")
        'CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE
        TxtNombreBanco.Text = gvrow.DataKey("BancoNombre")
        TxtNumeroSucursal.Text = gvrow.DataKey("Sucursal")
        TxtSWIFT.Text = gvrow.DataKey("SWIFT")
        TxtPlaza.Text = gvrow.DataKey("Plaza")
        TxtConvenioCIE.Text = gvrow.DataKey("CIE")
        TxtReferenciaC.Text = gvrow.DataKey("Referencia")
        TxtConceptoCIE.Text = gvrow.DataKey("ConceptoCIE")
        TxtRefCrediProveedor.Text = gvrow.DataKey("RefCrediProveedor")
        TxtCorreoCuenta.Text = gvrow.DataKey("Correo")
        TxtBBVAAlias.Text = gvrow.DataKey("BBVAAlias")
        ChkPagoElectronicoGrupos.Checked = Boolean.Parse(gvrow.DataKey("EstatusPagoElectronicoGrupos").ToString)
        ChkEstatuscuenta.Checked = If(gvrow.DataKey("EstatusTexto").ToString = "Activo", True, False)

        UpAddBancos.Update()
        RegistraScript("$('#DivAddCuentasBancarias').modal();")
    End Sub
    Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
        GvBancosCuentas.EditIndex = e.NewEditIndex
        CargaGridCuentasBancos("")
    End Sub
    Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit
        GvBancosCuentas.EditIndex = -1
        CargaGridCuentasBancos("")
    End Sub

    Protected Sub GvBancosCuentas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvBancosCuentas.RowDeleting
        Dim ObjCuentasBancos As New ClsGenerales

        If CvePersonal > 0 Then
            If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                DTCuentasBancos.Clear()
                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
                Alert("Cuenta Bancaria borrada con exito.", TipoMensaje.MsgInformacion)

            End If
        Else
            Dim index As Integer = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString().ToEntero() - 1
            TempDTCuentasBancos.Rows.RemoveAt(index)
        End If

        CargaGridCuentasBancos("")
        ObjCuentasBancos.Dispose()
        CargaGvBitacora()
    End Sub
#End Region
#End Region


#Region "O R D E N A M I E N T O"
    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim Orden As String = ""
        Dim Campo As String = ""
        Dim gvi As Integer = 0
        Dim Literal As Literal = Nothing
        Const OrdenInicial As String = ""
        Dim Arg(2) As String

        Arg = CType(sender, LinkButton).CommandArgument().ToString().Split(";"c)
        Campo = Arg(0)
        gvi = Arg(1).ToEntero()
        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
        Campo = Campo.Substring(0, Campo.Length - 1)

        If ViewState(String.Format("O{0}", Campo, gvi)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo, gvi)).ToString() = String.Format("{0} DESC", Campo) Then
            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
        Else
            ViewState(String.Format("O{0}", Campo, gvi)) = String.Format("{0} DESC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
        End If
        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo, gvi)).ToString()
        ViewState("Orden") = Orden
        CargaGrid(Orden, gvi)
    End Sub

    Private Sub CargaGrid(Orden As String, gvi As Integer)
        If gvi = 0 Then
            ViewState("Orden") = Orden
            CargaGridCuentasBancos(Orden)
        ElseIf gvi = 1 Then
            ViewState("Orden1") = Orden
            CargaGvAsistencias()
        End If
    End Sub
#End Region


#Region "I M P R I M I R     N O M I N A"

    Private Function ValorNodoXML(n As System.Xml.XmlNode, Campo As String, Optional Retorno As String = "") As String
        Dim o As System.Xml.XmlNode = n.Attributes.Cast(Of System.Xml.XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
        If o Is Nothing Then
            Return Retorno
        Else
            Return o.Value
        End If
    End Function
    Protected Sub LbPDF_Click(sender As Object, e As EventArgs)

        Dim LB As LinkButton = CType(sender, LinkButton)
        ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo")
        'ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo")

    End Sub
    Protected Sub LbXML_Click(sender As Object, e As EventArgs)


        Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)

        If gvr.DataKey("SeTimbro") = "True" Then

            Dim NombreComercial As String = UsuarioActual.Empresa.Empresa
            Dim SerieFolio As String = gvr.DataKey("SerieFolio").ToString()
            Dim Destinatario As String = gvr.DataKey("Correo").ToString()
            Dim Personal As String = gvr.DataKey("Nombre").ToString()
            Dim fechai As String = gvr.DataKey("FechaInicio").ToString().ToDate.ToShortDateString
            Dim fechaf As String = gvr.DataKey("FechaFin").ToString().ToDate.ToShortDateString
            Dim cvePeriodo As Integer = gvr.DataKey("CvePeriodo").ToString().ToEntero()

            Dim Ruta = UsuarioActual.Empresa.Ruta
            Dim PathXML = String.Format("{0}XML\Nomina\{1}.xml", Ruta, SerieFolio)
            Dim Xmlname = SerieFolio

            Dim script As String = ""
            If Not String.IsNullOrEmpty(PathXML) AndAlso System.IO.File.Exists(PathXML) Then
                LtlXml.Text = System.IO.File.ReadAllText(PathXML)
                script = String.Format("Savexml(""{0} {1}.xml"",  $('.ltlxml').html());", Xmlname, LtlPersonal.Text)
            End If

            If script.Trim().Length > 0 Then
                RegistraScript(script)
            Else
                Alert($"No se encontró el archivo")
            End If

        End If

    End Sub

#End Region


#Region "  ORGANIGRAMA  "
    Private Sub CargaSuperioresOrganigrama()
        Dim ObjRH As New ClsRH

        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
            DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
        Else
            DdlSupervisorOrganigrama.DataSource = Nothing
            Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
        End If
        ObjRH.Dispose()

        If DdlSupervisorOrganigrama.DataSource IsNot Nothing Then
            DdlSupervisorOrganigrama.DataBind()
        End If





    End Sub
#End Region


#Region "I M P R I M I R "
    Private Sub GenerarPDF(Optional Formato As String = "PDF")

        Dim ObjPersonal As New ClsRH()
        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
            If ObjPersonal.DtResultados.Rows.Count > 0 Then

                Dim params As New List(Of ReportParameter)
                params.Add(New ReportParameter("ApellidoP", ObjPersonal.APaterno))
                params.Add(New ReportParameter("ApellidoM", ObjPersonal.AMaterno))
                params.Add(New ReportParameter("Nombres", ObjPersonal.Nombres))
                params.Add(New ReportParameter("Codigo", ObjPersonal.Codigo))
                params.Add(New ReportParameter("Escolaridad", If(DdlEscolaridad.SelectedValue = "-1", "", DdlEscolaridad.SelectedItem.Text)))
                params.Add(New ReportParameter("EstadoCivil", If(DdlEstadoCivil.SelectedValue = "-1", "", DdlEstadoCivil.SelectedItem.Text)))
                params.Add(New ReportParameter("Genero", If(DdlGenero.SelectedValue = "-1", "", DdlGenero.SelectedItem.Text)))
                params.Add(New ReportParameter("FechaNacimiento", ObjPersonal.FechaNacimiento.ToShortDateString))
                params.Add(New ReportParameter("RFC", ObjPersonal.RFC))
                params.Add(New ReportParameter("CURP", ObjPersonal.CURP))
                params.Add(New ReportParameter("Calle", ObjPersonal.Calle))
                params.Add(New ReportParameter("Numero", ObjPersonal.NumExt))
                params.Add(New ReportParameter("Interior", ObjPersonal.NumInt))
                params.Add(New ReportParameter("Colonia", ObjPersonal.Colonia))
                params.Add(New ReportParameter("CP", NowADS().ToDateTime.ToShortDateString))
                params.Add(New ReportParameter("Ciudad", ObjPersonal.CP))
                params.Add(New ReportParameter("Estado", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Telefono", ObjPersonal.Telefono))
                params.Add(New ReportParameter("TelefonoEmergencia", ObjPersonal.TelefonoEmergencia))
                params.Add(New ReportParameter("Beneficiario", ObjPersonal.Beneficiario))
                params.Add(New ReportParameter("Celular", ObjPersonal.Celular))
                params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
                params.Add(New ReportParameter("LugarNacimiento", NowADS().ToDateTime.ToShortDateString))
                params.Add(New ReportParameter("CredencialElector", ObjPersonal.CredencialElector))
                params.Add(New ReportParameter("NombrePadre", ObjPersonal.NombrePadre))
                params.Add(New ReportParameter("NombreMadre", ObjPersonal.NombreMadre))
                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
                params.Add(New ReportParameter("FechaIContrato", ObjPersonal.FechaInicioContrato.ToShortDateString))
                params.Add(New ReportParameter("FechaFContrato", ObjPersonal.FechaFinContrato.ToShortDateString))
                params.Add(New ReportParameter("TipoContrato", If(DdlTipoContrato.SelectedValue = "-1", "", DdlTipoContrato.SelectedItem.Text)))
                params.Add(New ReportParameter("Turno", If(DdlTurno.SelectedValue = "-1", "", DdlTurno.SelectedItem.Text)))
                params.Add(New ReportParameter("Jornada", If(DdlJornada.SelectedValue = "-1", "", DdlJornada.SelectedItem.Text)))
                params.Add(New ReportParameter("Ruta", If(DdlRuta.SelectedValue = "-1", "", DdlRuta.SelectedItem.Text)))
                params.Add(New ReportParameter("Departamento", If(DdlDepartamento.SelectedValue = "-1", "", DdlDepartamento.SelectedItem.Text)))
                params.Add(New ReportParameter("Puesto", If(DdlPuesto.SelectedValue = "-1", "", DdlPuesto.SelectedItem.Text)))
                params.Add(New ReportParameter("SupervisorRH", If(DdlSupervisor.SelectedValue = "-1", "", DdlSupervisor.SelectedItem.Text)))
                params.Add(New ReportParameter("SupervisorInmediato", If(DdlSupervisorOrganigrama.SelectedValue = "-1", "", DdlSupervisorOrganigrama.SelectedItem.Text)))
                params.Add(New ReportParameter("Cliente", DdlClienteAsignado.SelectedText))
                params.Add(New ReportParameter("Proyecto", DdlProyectoAsignado.SelectedItem.Text))
                params.Add(New ReportParameter("SubProyecto", DdlSubProyectoAsignado.SelectedItem.Text))
                params.Add(New ReportParameter("Estatus", If(DdlEstatusPersonal.SelectedValue = "-1", "", DdlEstatusPersonal.SelectedItem.Text)))
                params.Add(New ReportParameter("MotivoBaja", ""))
                params.Add(New ReportParameter("FechaInicio", ObjPersonal.FechaIng.ToShortDateString))
                params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)))
                params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text))
                params.Add(New ReportParameter("FechaIngreso", ObjPersonal.FechaIngreso.ToShortDateString))
                params.Add(New ReportParameter("TipoPeriodo", ObjPersonal.CveTipoPeriodo.ToString()))
                params.Add(New ReportParameter("RegimenContratacion", ObjPersonal.RegimenContratacion))
                params.Add(New ReportParameter("RiesgoPuesto", DdlRiesgoPuesto.SelectedItem.Text))
                params.Add(New ReportParameter("NoSeguroSocial", ObjPersonal.NumeroSS))
                params.Add(New ReportParameter("InscribioSeguro", If(ObjPersonal.SeInscribioSS, "Si", "No")))
                params.Add(New ReportParameter("SDD", ObjPersonal.SalarioDiario.ToString()))
                params.Add(New ReportParameter("SDI", ObjPersonal.SDI.ToString()))
                params.Add(New ReportParameter("SalarioIMSS", ObjPersonal.SalarioDiarioSS.ToString()))
                params.Add(New ReportParameter("Bono", ""))
                params.Add(New ReportParameter("DiasAguinaldo", ObjPersonal.NumDiasAguinaldo.ToString()))
                params.Add(New ReportParameter("PrimaVacacional", ObjPersonal.PorPrimaVacacional.ToString()))
                params.Add(New ReportParameter("MetodoPago", If(DdlMetodoPago.SelectedValue = "-1", "", DdlMetodoPago.SelectedItem.Text)))
                params.Add(New ReportParameter("Banco", If(DdlBanco.SelectedValue = "-1", "", DdlBanco.SelectedItem.Text)))
                params.Add(New ReportParameter("NoCuenta", ObjPersonal.BancoNumCuenta))
                params.Add(New ReportParameter("CLABE", ObjPersonal.CLABE))



                If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & ObjPersonal.URL & ".png") Then
                    params.Add(New ReportParameter("LogoUri", "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL & ".png"))
                Else
                    params.Add(New ReportParameter("LogoUri", ""))
                End If

                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                ImprimirPDF("Empresas/Grales/Formatos/Personal.rdlc", New DataTable, params, "ReportePersonal", Formato)
            Else
                Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

            End If
        End If
        ObjPersonal.Dispose()
    End Sub
    'Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
    '    GenerarPDF("PDF")
    'End Sub
    Protected Sub ImgImprimirExpediente_Click(sender As Object, e As EventArgs) Handles ImgImprimirExpediente.Click
        Dim ObjPersonal As New ClsRH()
        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
            If ObjPersonal.DtResultados.Rows.Count > 0 Then

                Dim params As New List(Of ReportParameter)
                params.Add(New ReportParameter("ApellidoP", ObjPersonal.APaterno))
                params.Add(New ReportParameter("ApellidoM", ObjPersonal.AMaterno))
                params.Add(New ReportParameter("Nombres", ObjPersonal.Nombres))
                params.Add(New ReportParameter("Codigo", ObjPersonal.Codigo))
                params.Add(New ReportParameter("Escolaridad", If(DdlEscolaridad.SelectedValue = "-1", "", DdlEscolaridad.SelectedItem.Text)))
                params.Add(New ReportParameter("EstadoCivil", If(DdlEstadoCivil.SelectedValue = "-1", "", DdlEstadoCivil.SelectedItem.Text)))
                params.Add(New ReportParameter("Genero", If(DdlGenero.SelectedValue = "-1", "", DdlGenero.SelectedItem.Text)))
                params.Add(New ReportParameter("FechaNacimiento", ObjPersonal.FechaNacimiento.ToShortDateString))
                params.Add(New ReportParameter("RFC", ObjPersonal.RFC))
                params.Add(New ReportParameter("CURP", ObjPersonal.CURP))
                params.Add(New ReportParameter("Calle", ObjPersonal.Calle))
                params.Add(New ReportParameter("Numero", ObjPersonal.NumExt))
                params.Add(New ReportParameter("Interior", ObjPersonal.NumInt))
                params.Add(New ReportParameter("Colonia", ObjPersonal.Colonia))
                params.Add(New ReportParameter("CP", NowADS().ToDateTime.ToShortDateString))
                params.Add(New ReportParameter("Ciudad", ObjPersonal.CP))
                params.Add(New ReportParameter("Estado", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Telefono", ObjPersonal.Telefono))
                params.Add(New ReportParameter("Celular", ObjPersonal.Celular))
                params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
                params.Add(New ReportParameter("LugarNacimiento", NowADS().ToDateTime.ToShortDateString))
                params.Add(New ReportParameter("NombrePadre", ObjPersonal.NombrePadre))
                params.Add(New ReportParameter("NombreMadre", ObjPersonal.NombreMadre))
                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
                params.Add(New ReportParameter("FechaIContrato", ObjPersonal.FechaInicioContrato.ToShortDateString))
                params.Add(New ReportParameter("FechaFContrato", ObjPersonal.FechaFinContrato.ToShortDateString))
                params.Add(New ReportParameter("TipoContrato", If(DdlTipoContrato.SelectedValue = "-1", "", DdlTipoContrato.SelectedItem.Text)))
                params.Add(New ReportParameter("Turno", If(DdlTurno.SelectedValue = "-1", "", DdlTurno.SelectedItem.Text)))
                params.Add(New ReportParameter("Jornada", If(DdlJornada.SelectedValue = "-1", "", DdlJornada.SelectedItem.Text)))
                params.Add(New ReportParameter("Ruta", If(DdlRuta.SelectedValue = "-1", "", DdlRuta.SelectedItem.Text)))
                params.Add(New ReportParameter("Departamento", If(DdlDepartamento.SelectedValue = "-1", "", DdlDepartamento.SelectedItem.Text)))
                params.Add(New ReportParameter("Puesto", If(DdlPuesto.SelectedValue = "-1", "", DdlPuesto.SelectedItem.Text)))
                params.Add(New ReportParameter("SupervisorRH", If(DdlSupervisor.SelectedValue = "-1", "", DdlSupervisor.SelectedItem.Text)))
                params.Add(New ReportParameter("SupervisorInmediato", If(DdlSupervisorOrganigrama.SelectedValue = "-1", "", DdlSupervisorOrganigrama.SelectedItem.Text)))
                params.Add(New ReportParameter("Cliente", DdlClienteAsignado.SelectedText))
                params.Add(New ReportParameter("Proyecto", DdlProyectoAsignado.SelectedItem.Text))
                params.Add(New ReportParameter("SubProyecto", DdlSubProyectoAsignado.SelectedItem.Text))
                params.Add(New ReportParameter("Estatus", If(DdlEstatusPersonal.SelectedValue = "-1", "", DdlEstatusPersonal.SelectedItem.Text)))
                params.Add(New ReportParameter("MotivoBaja", ""))
                params.Add(New ReportParameter("FechaInicio", ObjPersonal.FechaIng.ToShortDateString))
                params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)))
                params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text))
                params.Add(New ReportParameter("FechaIngreso", ObjPersonal.FechaIngreso.ToShortDateString))
                params.Add(New ReportParameter("TipoPeriodo", ObjPersonal.CveTipoPeriodo.ToString()))
                params.Add(New ReportParameter("RegimenContratacion", ObjPersonal.RegimenContratacion))
                params.Add(New ReportParameter("RiesgoPuesto", DdlRiesgoPuesto.SelectedItem.Text))
                params.Add(New ReportParameter("NoSeguroSocial", ObjPersonal.NumeroSS))
                params.Add(New ReportParameter("InscribioSeguro", If(ObjPersonal.SeInscribioSS, "Si", "No")))
                params.Add(New ReportParameter("SDD", ObjPersonal.SalarioDiario.ToString()))
                params.Add(New ReportParameter("SDI", ObjPersonal.SDI.ToString()))
                params.Add(New ReportParameter("SalarioIMSS", ObjPersonal.SalarioDiarioSS.ToString()))
                params.Add(New ReportParameter("Bono", ""))
                params.Add(New ReportParameter("DiasAguinaldo", ObjPersonal.NumDiasAguinaldo.ToString()))
                params.Add(New ReportParameter("PrimaVacacional", ObjPersonal.PorPrimaVacacional.ToString()))
                params.Add(New ReportParameter("MetodoPago", If(DdlMetodoPago.SelectedValue = "-1", "", DdlMetodoPago.SelectedItem.Text)))
                params.Add(New ReportParameter("Banco", If(DdlBanco.SelectedValue = "-1", "", DdlBanco.SelectedItem.Text)))
                params.Add(New ReportParameter("NoCuenta", ObjPersonal.BancoNumCuenta))
                params.Add(New ReportParameter("CLABE", ObjPersonal.CLABE))
                params.Add(New ReportParameter("Fecha", NowADS().ToShortDateString))
                Dim edad As Integer
                edad = NowADS().Year - ObjPersonal.FechaNacimiento.Year
                If NowADS().Month < ObjPersonal.FechaNacimiento.Month OrElse (NowADS().Month = ObjPersonal.FechaNacimiento.Month AndAlso NowADS().Day < ObjPersonal.FechaNacimiento.Day) Then
                    edad = edad - 1
                End If

                params.Add(New ReportParameter("Edad", edad.ToString()))



                If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & ObjPersonal.URL & ".png") Then
                    params.Add(New ReportParameter("LogoUri", "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL & ".png"))
                Else
                    params.Add(New ReportParameter("LogoUri", ""))
                End If

                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                ImprimirPDF("Empresas/Grales/Formatos/ExpedientePersonal.rdlc", New DataTable, params, "ExpedientePersonal")
            Else
                Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

            End If
        End If
        ObjPersonal.Dispose()
    End Sub

    'Eliminar hasta 15 de septiembre 2023
    'Private Sub LbGafete_Click(sender As Object, e As EventArgs) Handles LbGafete.Click

    '    Dim PathSource As String = UsuarioActual.Empresa.Ruta & "Formatos\Gafete.docx"
    '    If File.Exists(PathSource) Then

    '        Dim PathRoot As String = AppDomain.CurrentDomain.BaseDirectory
    '        Dim pathDesti As String

    '        PathSource = UsuarioActual.Empresa.Ruta & "Formatos\Gafete.docx"
    '        pathDesti = PathRoot & "Temp\" & CvePersonal & "Gafete.docx"

    '        If File.Exists(pathDesti) Then
    '            File.Delete(pathDesti)
    '        End If

    '        File.Copy(PathSource, pathDesti)

    '        Dim objDoc As New clsGemBoxDocument(pathDesti)
    '        Dim objRH As New ClsRH
    '        Dim FechaActual As String = NowADS().Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & NowADS().Year.ToString()


    '        objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa))
    '        objRH.Dispose()



    '        objDoc.Guardar(pathDesti)

    '        Dim fileinfo As New FileInfo(pathDesti)


    '        If fileinfo.Exists Then

    '            Response.ContentType = "application/docx"
    '            Response.AppendHeader("Content-Disposition", $"attachment; filename=Gafete_{CvePersonal}.docx")
    '            Response.TransmitFile(pathDesti)
    '            Response.End()

    '        End If

    '        'Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority)
    '        'baseUrl = baseUrl & "/temp/" & fileinfo.Name

    '        'RegistraDescargaJavaScript(baseUrl)


    '    Else

    '        Dim params As New List(Of ReportParameter)
    '        Dim ObjPersonal As New ClsRH()

    '        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then

    '            If ObjPersonal.DtResultados.Rows.Count > 0 Then

    '                params.Add(New ReportParameter("Nombre", String.Format("{0} {1} {2}", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim)))
    '                params.Add(New ReportParameter("Vigencia", TxtFechaFinContrato.Text))
    '                params.Add(New ReportParameter("Puesto", If(DdlPuesto.SelectedValue.ToEntero() > 0, DdlPuesto.SelectedItem.Text, "")))
    '                params.Add(New ReportParameter("CURP", TxtCURP.Text))
    '                params.Add(New ReportParameter("NoRegistro", ""))
    '                params.Add(New ReportParameter("RegIMSS", TxtNumeroSS.Text))
    '                params.Add(New ReportParameter("FechaIngreso", TxtFechaIngreso.Text))
    '                params.Add(New ReportParameter("DomPart", String.Format("{0} NoExt:{1} NoInt:{2} {3}", TxtCalle.Text, TxtNumExt.Text, TxtNumInt.Text, TxtColonia.Text)))
    '                params.Add(New ReportParameter("Emergencia", TxtTelefonoEmergencia.Text))
    '                params.Add(New ReportParameter("CUIP", ""))
    '                params.Add(New ReportParameter("TipoSangre", DdlTipoSangre.SelectedItem.Text))
    '                params.Add(New ReportParameter("RFC", TxtRFC.Text))
    '                params.Add(New ReportParameter("Denominacion", TxtRFC.Text))

    '                If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & ObjPersonal.CvePersonal & ".png") Then
    '                    params.Add(New ReportParameter("LogoUri", String.Format("{0}://{1}:{2}/Empresas/{3}/RH/Personal/{4}.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, ObjPersonal.CvePersonal)))
    '                Else
    '                    params.Add(New ReportParameter("LogoUri", ""))
    '                End If

    '                ImprimirPDF("Empresas/Grales/Formatos/RHGafete.rdlc", New DataTable, params, String.Format("Gafete_{0}", ObjPersonal.CvePersonal), "PDF")

    '            End If
    '        End If
    '        ObjPersonal.Dispose()

    '    End If



    'End Sub
    Private Sub GenerarPDFGastosXComp(Optional Formato As String = "PDF")
        If CvePersonal > 0 Then
            If RBLTipoGastos.SelectedValue = "1" Then

                If DTGastosSinComp.Rows.Count > 0 Then
                    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

                    Dim params As New List(Of ReportParameter)
                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString()))
                    params.Add(New ReportParameter("Saldo", LblSaldoGxC.Text.ToString()))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                    ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarGral.rdlc", DTGastosSinComp, params, "GastosSinComprobarGral", Formato)
                Else
                    Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
                End If

            ElseIf RBLTipoGastos.SelectedValue = "2" Then

                If DTGastosPorCheque.Rows.Count > 0 Then

                    For Each Row As DataRow In DTGastosPorCheque.Rows
                        Dim FolioPago As String = Row("FolioPago").ToString()
                        Row("FolioPago") = ""
                        If Row("CveCompra").ToString() = "" And Row("CveIE").ToString() <> "" Then
                            Row("FechaVencimiento") = Row("FechaDocumento")
                            Row("FolioPago") = FolioPago
                        End If

                        If Row("FolioPago").ToString() <> "" Then
                            Row("SerieFolio") = ""
                        End If
                    Next

                    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

                    Dim params As New List(Of ReportParameter)
                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString()))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                    ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarCheque.rdlc", DTGastosPorCheque, params, "GastosPorCheque", Formato)
                Else
                    Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
                End If
            End If
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
        End If

    End Sub


    Protected Sub BtnPDFHistorial_Click(sender As Object, e As EventArgs)
        GenerarPDFGastosXComp("PDF")
    End Sub
    Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
        GenerarPDFGastosXComp("Excel")
    End Sub

#End Region

#Region "D O C U M E N T A C I O N   C O N T R A T O S"

    Private Sub CargaDocumentacionFirmaDecontratos()

        If CvePersonal > 0 Then
            Dim objRH As New ClsEdocumentacion()

            If objRH.DocumentacionElectronicaGet(CvePersonal, -1, -1, UsuarioActual.Empresa.CveEmpresa, -1) Then
                DTDocumentacion = objRH.DtResultados
            End If

            If DTDocumentacion.FiltraParametros(" CveDocumentacionTipo =  7 ").Rows.Count > 0 Then
                GvDocumentosFirma.DataSource = DTDocumentacion.FiltraParametros(" CveDocumentacionTipo =  7 ")
            Else
                GvDocumentosFirma.DataSource = Nothing
            End If


            If DTDocumentacion.FiltraParametros(" Modulo =  7 ").Rows.Count > 0 Then
                GVMaterialidad.DataSource = DTDocumentacion.FiltraParametros(" Modulo =  7 ")
            Else
                GVMaterialidad.DataSource = Nothing
            End If

            GVMaterialidad.DataBind()
            GvDocumentosFirma.DataBind()

            UpMaterialidad.Update()
            UPGvDocumentosFirma.Update()
            UpGvDocumentosFirma2.Update()
        End If

    End Sub
    Public Sub UploadModal_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        Dim chkEstatus As CheckBox
        CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero()
        CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
        Documentacion = GvRow.DataKey("Documentacion")
        AdjuntoDocumentacion = GvRow.DataKey("Adjunto").ToString()

        chkEstatus = GvRow.FCCheckBox("chkEstatus")



        ObservacionDocumentacion = GvRow.FCTextBox("TxtObservaciones").Text.Trim.ToUpper
        FechaLimite = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate

        AdjuntoDocumentacion = GvRow.DataKey("Adjunto")

        LtlTitulofirmaContrato.Text = "Subir " & Documentacion

        UpTituloFirma.Update()

        RegistraScript("$('#ModalUploadFirmaContratoDocumento').modal({ backdrop: 'static',  keyboard: false});")
    End Sub
    Private Sub GuardarDocumentosFirmaContrato(Optional _CveDocumentacionExcluir As Integer = -1)

        Dim hasError As Boolean = True
        Dim objDocumentos As New ClsEdocumentacion

        For Each dRow As GridViewRow In GvDocumentosFirma.Rows


            Dim _CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToString().ToEntero()
            Dim _Adjunto As String = dRow.DataKey("Adjunto")
            'Dim _Documentacion As String = dRow.DataKey("Documentacion")
            Dim _CveDocumentacionElectronica As Integer = dRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero()
            Dim _txtObservaciones As TextBox = dRow.FCTextBox("TxtObservaciones")
            Dim _TxtFechaLimite As TextBox = dRow.FCTextBox("TxtFechaLimite")
            Dim _TxtFechaVigencia As TextBox = dRow.FCTextBox("TxtFechaVigencia")
            Dim chkEstatus As CheckBox = dRow.FCCheckBox("chkEstatus")
            Dim _estatus As Integer

            _estatus = If(dRow.DataKey("Estatus").ToString().ToUpper = "TRUE", 1, 0)

            Dim _FechaVigencia As Date
            Dim _FechaLimite As Date

            Dim DiasLimite As Integer = dRow.DataKey("DiasLimite").ToString().ToEntero()
            Dim AplicaDiasLimite As Boolean = If(dRow.DataKey("AplicaDiasLimite").ToString() = "1", True, False)
            Dim AplicaFechaVencimiento As Boolean = If(dRow.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False)

            If _TxtFechaVigencia.Text.Length = 10 Then
                _FechaVigencia = _TxtFechaVigencia.Text.ToDate
            Else
                _FechaVigencia = Nothing
            End If

            If Not AplicaDiasLimite Then
                _FechaLimite = MinFecha
            Else
                _FechaLimite = _TxtFechaLimite.Text.ToDate
            End If

            If Not AplicaFechaVencimiento Then
                _FechaVigencia = MinFecha
            End If


            If Not _CveDocumentacionExcluir = _CveDocumentacion Then
                Try
                    If _CveDocumentacionElectronica = -1 Then

                        If objDocumentos.DocumentacionElectronicaAdd(_CveDocumentacion, CvePersonal, -1, -1, _estatus, _txtObservaciones.Text.Trim, _Adjunto, UsuarioActual.CveUsuario, _FechaLimite, _FechaVigencia) > 0 Then
                        Else
                            hasError = True
                            Exit For
                        End If

                    Else
                        If objDocumentos.DocumentacionElectronicaUpdate(_CveDocumentacionElectronica, _CveDocumentacion, CvePersonal, -1, -1, _estatus, _txtObservaciones.Text.Trim, _Adjunto, UsuarioActual.CveUsuario, _FechaLimite, _FechaVigencia) Then
                        Else
                            hasError = True
                            Exit For
                        End If
                    End If


                    hasError = False
                Catch ex As Exception
                    hasError = True
                    Exit For
                End Try
            End If
        Next

        'refrescar grid datos investigacion
        CargaDocumentacionFirmaDecontratos()
    End Sub
    Protected Sub BtnModalFirmaContratoDocumentoUpload_Click(sender As Object, e As EventArgs) Handles BtnModalFirmaContratoDocumentoUpload.Click

        Dim FileExtension As String = "-1"
        Dim Filesgral As List(Of Archivo) = TxtFileFirmaContrato.getfiles().Archivos
        Dim Filename As String = ""


        For Each fileItem As Archivo In Filesgral
            Try

                FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
                Dim tempArray() As String
                tempArray = fileItem.filename.ToString().Split("-".ToCharArray())

                Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\" & Documentacion & "." & FileExtension
                Dim rutaAdjuntoAnterior As String = UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\" & AdjuntoDocumentacion

                If Not System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\") Then
                    System.IO.Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\")
                End If

                If File.Exists(rutaAdjuntoAnterior) And AdjuntoDocumentacion.Trim.Length > 0 Then
                    File.Delete(rutaAdjuntoAnterior)
                End If

                If System.IO.File.Exists(rutaDestino) Then
                    System.IO.File.Delete(rutaDestino)
                End If

                System.IO.File.Move(fileItem.FileUrl, rutaDestino)

                Dim objRH As New ClsEdocumentacion


                If CveDocumentacionElectronica = -1 Then
                    If objRH.DocumentacionElectronicaAdd(CveDocumentacion, CvePersonal, -1, -1, 1, ObservacionDocumentacion, Documentacion & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite) > 0 Then

                    End If
                Else
                    If objRH.DocumentacionElectronicaUpdate(CveDocumentacionElectronica, CveDocumentacion, CvePersonal, -1, -1, 1, ObservacionDocumentacion, Documentacion & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite) Then

                    End If
                End If

                objRH.Dispose()

                GuardarDocumentosFirmaContrato(CveDocumentacion)
                CargaDocumentacionFirmaDecontratos()


                TxtFileFirmaContrato.Text = ""
                UpModalFirmaContratoDocumento.Update()

            Catch ex As Exception
                OnError("Error al cargar archivo", ex)
            End Try

        Next
        RegistraScript("$('#ModalUploadFirmaContratoDocumento').modal('hide')", "hidemodal7")

    End Sub

    Public Sub Update_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim activo As Boolean = False

        Dim _CveDocumentacionElectronica As Integer = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero()
        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
        Dim _Adjunto As String = GvRow.DataKey("Adjunto").ToString()
        Dim _fechaLimite As Date = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate

        Dim obserbaciones As String = DirectCast(GvRow.FindControl("TxtObservaciones"), TextBox).Text
        'Dim DDLEstatus As DropDownList = DirectCast(GvRow.FindControl("DDLEstatus"), DropDownList)
        Dim chkCompleto As CheckBox = DirectCast(GvRow.FindControl("chkEstatus"), CheckBox)

        If chkCompleto.Checked Then
            Estatus = 1
        Else
            Estatus = 0
        End If

        Dim objRH As New ClsEdocumentacion

        If Not _CveDocumentacionElectronica = -1 Then
            If objRH.DocumentacionElectronicaUpdate(_CveDocumentacionElectronica, _CveDocumentacion, CvePersonal, -1, -1, 1, obserbaciones, _Adjunto, UsuarioActual.CveUsuario, _fechaLimite) Then
                Alert("Documento actualizado correctamente.", TipoMensaje.MsgInformacion)
            End If
        Else
            If objRH.DocumentacionElectronicaAdd(_CveDocumentacion, CvePersonal, -1, -1, 1, obserbaciones, _Adjunto, UsuarioActual.CveUsuario, _fechaLimite) > 0 Then
                Alert("Documento actualizado correctamente.", TipoMensaje.MsgInformacion)
            End If
        End If

        CargaDocumentacionFirmaDecontratos()
        objRH.Dispose()

    End Sub

    Protected Sub GvDocumentosFirma_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentosFirma.RowDataBound


        If e.Row.RowType = DataControlRowType.DataRow Then

            Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString()
            Dim ImgDownLoadFormato As LinkButton = e.Row.FCLinkButton("ImgDownLoadFormato")

            Dim ImgDownLoad As LinkButton = e.Row.FCLinkButton("ImgDownLoad")
            Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired")
            Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
            Dim requerido As Boolean = If(e.Row.DBCampo("Requerido").ToUpper = "TRUE", True, False)
            Dim chkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
            Dim documentacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString()
            Dim Documentacion As String = e.Row.DBCampo("Documentacion").ToString()
            Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString().ToEntero()
            Dim separado As Char() = ".".ToString().ToCharArray
            Dim array() As String = Adjunto.Split(separado)
            Dim extencion As String = ""
            Dim existeAdjunto As Boolean = False
            Dim TxtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia")
            ' FechaVigencia

            Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString().ToEntero()
            Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString() = "1", True, False)
            Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False)

            txtFechaLimite.Visible = If(AplicaDiasLimite, True, False)
            TxtFechaVigencia.Visible = If(AplicaFechaVencimiento, True, False)



            Dim scripMascara As String = " $('#" & TxtFechaVigencia.ClientID & "').mask('00/00/0000');"
            RegistraScript(scripMascara)
            If array.Length > 0 Then
                extencion = array(array.Length - 1)
            End If

            If e.Row.DBCampo("Estatus").ToString().ToEntero() = 1 Then
                chkEstatus.Checked = True
            Else
                chkEstatus.Checked = False
            End If

            If documentacionFormato = "" Then
                ImgDownLoadFormato.Visible = False
            Else
                Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & CveDocumentacion & "" & documentacionFormato
                ImgDownLoadFormato.Visible = True
            End If

            txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString().ToDate.ToString("dd/MM/yyyy")

            If Adjunto.Trim.Length > 0 Then

                Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Personal/" & CvePersonal & "/" & Adjunto
                Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "Personal/" & CvePersonal & "/" & Adjunto

                If File.Exists(linkDescargaArchivo) Then

                    ImgDownLoad.Visible = True
                    ScriptManager.GetCurrent(Me).RegisterPostBackControl(ImgDownLoad)

                    'If extencion.Length > 0 Then
                    '    ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CvePersonal & Documentacion & "." & extencion)
                    'Else
                    '    ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CvePersonal & Documentacion)
                    'End If

                Else
                    ImgDownLoad.Visible = False
                End If

            Else
                ImgDownLoad.Visible = False
            End If

            If requerido Then
                ImgRequired.Text = " <a class='btn btn-circle btn-sm yelow' href='#' data-toggle='tooltip' title=' Requerido!' ><i class='fa fa-asterisk '></i></a>"
            Else
                ' ImgRequired.Text = " <a class='btn btn-circle btn-sm grey-salt' href='#' data-toggle='tooltip' title='No obligatorio' ><i class='fa fa-asterisk '></i></a>"
            End If

        End If

    End Sub

    Protected Sub ImgDownLoad_Click(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        Dim Adjunto As String = GvRow.DataKey("Adjunto").ToString()
        Dim ArchivoPath As String = UsuarioActual.Empresa.Ruta & "Personal/" & CvePersonal & "/" & Adjunto

        DescargarArchivo(ArchivoPath)

    End Sub

    Protected Sub DescargarArchivo(rutaArchivo As String)

        If System.IO.File.Exists(rutaArchivo) Then

            Dim nombreArchivo As String = System.IO.Path.GetFileName(rutaArchivo)
            Response.Clear()
            Response.ContentType = "application/octet-stream"
            Response.AddHeader("Content-Disposition", "attachment; filename=" & nombreArchivo)
            Response.AddHeader("Content-Length", New System.IO.FileInfo(rutaArchivo).Length.ToString())
            Response.WriteFile(rutaArchivo)
            Response.End()

        Else

        End If
    End Sub

    Public Sub DownLoadFormato_ClickDocumentacion(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
        Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato")


        Dim ObjEdoc As New ClsEdocumentacion

        If ObjEdoc.GetDocumentacionParametros(-1, CveDocumentacion, UsuarioActual.CveEmpresa) Then
            If ObjEdoc.DtResultados.Rows.Count > 0 Then

                GvParametros.DataSource = ObjEdoc.DtResultados
                ObjEdoc.Dispose()

                GvParametros.DataBind()
                UpGvParametros.Update()

                DocumentoParametros = DocumentacionFormato
                RegistraScript("$('#DVDescargaDocumentoParametrosModal').modal('show')")

            Else
                ObjEdoc.Dispose()
                DescarFormato(DocumentacionFormato)
            End If
        Else
            ObjEdoc.Dispose()
        End If






    End Sub
    Public Sub DescarFormato(documento As String)

        Dim PathRoot As String = AppDomain.CurrentDomain.BaseDirectory
        Dim PathSource As String
        Dim pathDesti As String

        PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & documento
        pathDesti = PathRoot & "Temp\" & CvePersonal & documento

        If File.Exists(pathDesti) Then
            File.Delete(pathDesti)
        End If

        File.Copy(PathSource, pathDesti)

        Dim objDoc As New clsGemBoxDocument(pathDesti)
        Dim objRH As New ClsRH
        Dim FechaActual As String = NowADS().Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & NowADS().Year.ToString()


        objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa))
        objRH.Dispose()

        objDoc.Guardar(pathDesti)

        If pathDesti.ToUpper.Contains("GAFETTE") Or pathDesti.ToUpper.Contains("GAFETE") Then

            GemBox.Document.ComponentInfo.SetLicense(SerialGemBoxDocument)
            Dim document As GemBox.Document.DocumentModel = GemBox.Document.DocumentModel.Load(pathDesti)

            Dim imgPersonalURL As String = ""
            If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".jpg") Then
                imgPersonalURL = UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".jpg"
            ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".png") Then
                imgPersonalURL = UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".png"
            ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".bmp") Then
                imgPersonalURL = UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".bmp"
            ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".jpeg") Then
                imgPersonalURL = UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".jpeg"
            End If

            'imgPersonalURL = UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".png"

            If imgPersonalURL.Trim.Length = 0 Then
                imgPersonalURL = ModExtensiones.DirectorioBaseEmpresas & "\wwwSIG\Imagenes\SinImagenB.jpg"
            End If

            'Dim document As New GemBox.Document.DocumentModel()
            'Dim section As New GemBox.Document.Section(document)
            'Dim paragraph As New GemBox.Document.Paragraph(document)
            'section.Blocks.Add(paragraph)

            'Dim picture1 As New GemBox.Document.Picture(document, imgPersonalURL, 61, 53, GemBox.Document.LengthUnit.Pixel)

            'paragraph.Inlines.Add(picture1)

            'Dim Zahnrad As String = UsuarioActual.Empresa.Ruta & "RH\Personal\Zahnrad.gif"
            'Dim Dices As String = UsuarioActual.Empresa.Ruta & "RH\Personal\Dices.png"
            'Dim Graphics1 As String = UsuarioActual.Empresa.Ruta & "RH\Personal\Graphics1.svg"

            'Dim section As New GemBox.Document.Section(document)
            'document.Sections.Add(section)

            'Dim paragraph As New GemBox.Document.Paragraph(document)
            'section.Blocks.Add(paragraph)


            'Dim picture1 As New GemBox.Document.Picture(document, imgPersonalURL, 61, 53, GemBox.Document.LengthUnit.Pixel)
            'paragraph.Inlines.Add(picture1)

            ' Get the first section and the first paragraph (or create them if necessary)

            '**************************************************************

            Dim firstSection As GemBox.Document.Section = document.Sections.FirstOrDefault()
            If firstSection Is Nothing Then
                firstSection = New GemBox.Document.Section(document)
                document.Sections.Add(firstSection)
            End If

            Dim firstParagraph As GemBox.Document.Paragraph = firstSection.Blocks.OfType(Of GemBox.Document.Paragraph)().FirstOrDefault()
            If firstParagraph Is Nothing Then
                firstParagraph = New GemBox.Document.Paragraph(document)
                firstSection.Blocks.Add(firstParagraph)
            End If

            Dim imageParagraph As New GemBox.Document.Paragraph(document)
            Dim picture1 As New GemBox.Document.Picture(document, imgPersonalURL, 83, 100, GemBox.Document.LengthUnit.Pixel)

            Dim layout3 As New GemBox.Document.FloatingLayout(
            New GemBox.Document.HorizontalPosition(1.79, GemBox.Document.LengthUnit.Inch, GemBox.Document.HorizontalPositionAnchor.LeftMargin),
            New GemBox.Document.VerticalPosition(2.55, GemBox.Document.LengthUnit.Inch, GemBox.Document.VerticalPositionAnchor.TopMargin),
            picture1.Layout.Size)
            'layout3.WrappingStyle = GemBox.Document.TextWrappingStyle.Through

            picture1.Layout = layout3

            imageParagraph.Inlines.Add(picture1)
            firstSection.Blocks.Insert(0, imageParagraph)

            document.Sections(0).Blocks.RemoveAt(9)

            document.Save(pathDesti)

        End If


        Dim fileinfo As New FileInfo(pathDesti)

        Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority)
        baseUrl = baseUrl & "/temp/" & fileinfo.Name

        RegistraDescargaJavaScript(baseUrl)

    End Sub



    Private Function GetDatosTagsDocumentos() As List(Of TagsDocumentos)
        Dim ListaTagsDocumentost As New List(Of TagsDocumentos)

        If CvePersonal <> -1 Then
            Dim objRH As New ClsRH



            If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
                ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{RFC}", objRH.DtResultados(0)("RFC").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", NombreCompleto))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal.ToString("###,###,###.00")))
                ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString()))

                'If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then

                '    ListaTagsDocumentost.Add(New TagsDocumentos("{CveSucursal}", DDLSucursal4.Text))
                'End If
                ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaIngreso}", objRH.DtResultados(0)("FechaIngreso").ToString().ToDate.ToShortDateString))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString().ToDate.ToShortDateString))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString()))
                ListaTagsDocumentost.Add(New TagsDocumentos("{CUIP}", ""))
                ListaTagsDocumentost.Add(New TagsDocumentos("{Denominacion}", ""))
                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate.ToString("dd/MM/yyyy")))


                Dim fechaActual As String = " " & NowADS().Day & " del mes " & NowADS().Month & " del año " & NowADS().Year
                Dim FechaActualDF As String = NowADS().ToString("dd/MM/yyyy")
                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
            End If


            objRH.Dispose()
        End If

        Return ListaTagsDocumentost
    End Function







    'Private Function GetDatosTagsDocumentos() As List(Of TagsDocumentos)
    '    Dim ListaTagsDocumentost = New List(Of TagsDocumentos)

    '    If CvePersonal <> -1 Then
    '        Dim objRH As New ClsRH



    '        If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then

    '            If Not IsDBNull(objRH.DtResultados(0)("Nombres")) Then
    '                ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString()))
    '            End If

    '            If Not objRH.DtResultados(0)("APaterno") Is Nothing Then

    '                ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString()))
    '            End If

    '            If Not objRH.DtResultados(0)("AMaterno") Is Nothing Then

    '                ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString()))
    '            End If

    '            If Not objRH.DtResultados(0)("NombreCompleto") Is Nothing Then

    '                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", objRH.DtResultados(0)("NombreCompleto").ToString()))
    '            End If

    '            If Not IsDBNull(objRH.DtResultados(0)("Estatura")) Then

    '                ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString()))
    '            End If

    '            If Not IsDBNull(objRH.DtResultados(0)("Peso")) Then

    '                ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString()))
    '            End If

    '            If Not IsDBNull(objRH.DtResultados(0)("LugarNacimiento")) Then

    '                ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString()))
    '            End If

    '            If Not IsDBNull(objRH.DtResultados(0)("Edad")) Then

    '                ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString()))
    '            End If

    '            If Not IsDBNull(objRH.DtResultados(0)("NombreTelEmergencia")) Then

    '                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString()))
    '            End If

    '            If Not IsDBNull(objRH.DtResultados(0)("TipoSangre")) Then

    '                ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString()))
    '            End If

    '            If Not IsDBNull(objRH.DtResultados(0)("Vivienda")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("ViviendaDueno")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("CreditoInfonavit")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("RentaMensual")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal.ToString("###,###,###.00")))

    '            If Not IsDBNull(objRH.DtResultados(0)("TransportePublico")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormente")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("ParientesEmpresa")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelito")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelitoObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("Direccion")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("Calle")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("Colonia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("CP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("Telefono")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("Celular")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("Correo")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then

    '                ' ListaTagsDocumentost.Add(New TagsDocumentos("{CveSucursal}", DDLSucursal4.Text))
    '            End If

    '            If Not IsDBNull(objRH.DtResultados(0)("NumeroSS")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("Licencia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("CartillaMilitar")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("CURP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("AutorizaAntidoping")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("Observaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("CredencialElector")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CredencialElector}", objRH.DtResultados(0)("CredencialElector").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("Sucursal")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Sucursal}", objRH.DtResultados(0)("Sucursal").ToString()))

    '            If Not IsDBNull(objRH.DtResultados(0)("Puesto")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString()))

    '            'If Not IsDBNull(objRH.DtResultados(0)("InformacionFidedigno")) Then chkFidedigna4.Checked = objRH.DtResultados(0)("InformacionFidedigno")
    '            ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("InformacionFidedigno").ToString()))
    '        End If

    '        If Not IsDBNull(objRH.DtResultados(0)("FechaNacimiento")) Then
    '            ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate.ToString("dd/MM/yyyy")))
    '        End If


    '        Dim fechaActual As String = " " & NowADS().Day & " del mes " & NowADS().Month & " del año " & NowADS().Year
    '        Dim FechaActualDF As String = NowADS().ToString("dd/MM/yyyy")

    '        ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
    '        ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))


    '        objRH.Dispose()
    '    End If

    '    Return ListaTagsDocumentost
    'End Function
    Private Sub RegistraDescargaJavaScript(baseUrl As String)

        RegistraScript("Download('" & baseUrl & "')")

    End Sub

#End Region

    Protected Sub LBCancelar_Click(sender As Object, e As EventArgs)

        'Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString()
        'Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)
        'Dim CveNomina As Integer = gvr.DataKey("CveNomina").ToString().ToEntero()
        'Dim Total As Decimal = gvr.DataKey("Total").ToString().ToDecimal
        'Dim RFCReceptor As String = gvr.DataKey("RFC").ToString()

        'Dim Obj As New Timbrado

        'If Obj.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
        '    Dim ObjNomina As New ClsNominas()
        '    ObjNomina.UpdateEstatusNomNominas(2, -1, "", "", NowADS(), CveNomina)
        '    ObjNomina.Dispose()
        '    Alert("La nómina se canceló correctamente.", TipoMensaje.MsgInformacion)
        'End If

        'Obj = Nothing


    End Sub

#Region "VACACIONES"

    Private Sub CargaVacaciones()

        Dim objRH As New ClsRH

        If objRH.VacacionesGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
            GvVacaciones.DataSource = objRH.DtResultados

            If objRH.DtResultados.Rows.Count > 0 Then
                VacFolioActual = objRH.DtResultados.Compute("Max(Folio)", String.Empty).ToString().ToEntero()
            Else
                VacFolioActual = 0
            End If

        Else
            GvVacaciones.DataSource = Nothing
        End If

        objRH.Dispose()
        GvVacaciones.DataBind()
        UpGvVacaciones.Update()

    End Sub

    Protected Sub GvVacaciones_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvVacaciones.RowDataBound


        If e.Row.RowType = DataControlRowType.DataRow Then

            Dim _Estatus As Boolean = Boolean.Parse(e.Row.DBCampo("Estatus").ToString())
            Dim _Documento As String = e.Row.DataKey("Documento")
            Dim _CveAutoriza As Integer = e.Row.DataKey("CveAutoriza").ToEntero()
            Dim RutaDocuemntoAutorizacion As String = String.Format("{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, CvePersonal, _Documento)
            Dim lnkDescargaFormato As LinkButton = e.Row.FCLinkButton("ImgDescargaFormato")
            Dim lnkDescargaAutorizacion As LinkButton = e.Row.FCLinkButton("ImgDescargaAutorizacion")
            Dim lnkEditar As LinkButton = e.Row.FCLinkButton("ImgEditar")
            If _CveAutoriza > 0 Or Not _Estatus Then
                lnkEditar.Visible = False
            End If
            lnkDescargaFormato.Visible = True
            'ScriptManager.GetCurrent(Me).RegisterAsyncPostBackControl(lnkDescargaFormato)
            If File.Exists(RutaDocuemntoAutorizacion) And _Estatus Then
                lnkDescargaAutorizacion.Visible = True
                'ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaAutorizacion)
            Else
                lnkDescargaAutorizacion.Visible = False
            End If

            'If _Estatus Then
            '    lnkDescargaFormato.Visible = True
            '    ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaFormato)
            'Else
            '    lnkDescargaFormato.Visible = False
            'End If

        End If


    End Sub

    'cada vez que se hace un postback que relacione al gridview de vacaio es se tienen que generar los eventos  de postback para la descarga de archivos
    Private Sub AgregarEventosAsincronosGvVacaciones()



        For Each GvRow As GridViewRow In GvPermisos.Rows
            Dim lnkDescargaFormato As LinkButton = GvRow.FCLinkButton("ImgDescargaFormato")
            If lnkDescargaFormato.Visible Then

                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaFormato)
            End If
        Next
        For Each GvRow As GridViewRow In GvVacaciones.Rows
            'Dim _Estatus As Boolean = Boolean.Parse(GvRow.DataKey("Estatus").ToString())
            'Dim _Documento As String = GvRow.DataKey("Documento")
            'Dim _CveAutoriza As Integer = GvRow.DataKey("CveAutoriza").ToEntero()
            'Dim RutaDocuemntoAutorizacion As String = String.Format("{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, CvePersonal, _Documento)
            Dim lnkDescargaFormato As LinkButton = GvRow.FCLinkButton("ImgDescargaFormato")
            Dim lnkDescargaAutorizacion As LinkButton = GvRow.FCLinkButton("ImgDescargaAutorizacion")
            'Dim lnkEditar As LinkButton = GvRow.FCLinkButton("ImgEditar")
            'If _CveAutoriza > 0 Or Not _Estatus Then
            '    lnkEditar.Visible = False
            'End If
            'lnkDescargaFormato.Visible = True
            If lnkDescargaFormato.Visible Then

                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaFormato)
            End If
            If lnkDescargaAutorizacion.Visible Then
                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaAutorizacion)
            End If
            'If File.Exists(RutaDocuemntoAutorizacion) And _Estatus Then
            '    lnkDescargaAutorizacion.Visible = True
            'Else
            '    lnkDescargaAutorizacion.Visible = False
            'End If
        Next
    End Sub

    Dim dtosvac As DataTable
    Private Sub CargaVacacionesResumenPeriodoActual()
        Using objnom As New ClsNominas

            If objnom.GetPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
                RPTVacacionesResumen.DataSource = objnom.DtResultados
                DdlVacPeriodo.DataSource = objnom.DtResultados.FiltraParametros("DiasDisponibles > 0", "Ejercicio")
                DdlVacPeriodo.DataBind()
                DTVacResumen = objnom.DtResultados
                Dim drow As DataRow = objnom.DtResultados.FiltroPrimero("Selected =1")
                If Not IsNothing(drow) Then
                    DdlVacPeriodo.SelectedValueExist(drow("Ejercicio"))
                    DdlVacPeriodo_SelectedIndexChanged(Nothing, Nothing)
                End If
            End If
            If objnom.GETPersonalVacaciones(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
                dtosvac = objnom.DtResultados
                GvVaczxy.DataSource = dtosvac
                GvVaczxy.DataBind()
            End If
        End Using

        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 = NowADS()
                    VacFinPeriodo = NowADS()
                    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()
        Dim fechapago As String = TxtFechaPago.Text.ToDate().ToString("yyyy/MM/dd")
        Dim diasinhabil As Integer = Txtdiasinabiles.Text.ToEntero()
        'Dim motivoVacaciones As String = TxtMotivoVacaciones.Text
        If fInicio <= fFin Then

            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(), Ejercicio:=DdlVacPeriodo.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
                    Alert(ShowError, TipoMensaje.MsgAdvertencia)
                    continuar = False
                End If
            End If
            objRH.Dispose()
            If continuar Then
                CargaVacaciones()
                CargaVacacionesResumenPeriodoActual()
                VacacionesMandaCorreoSupervisor("Solicitud Vacaciones " & NombreCompleto, VacSupervisorCorreo, VacSupervisorNombre, NombreCompleto, fInicio, fFin)
                RegistraScript("$('#ModalAddVacaciones').modal('hide');")
            End If
        Else

            Alert("La fecha  Inicial debe ser inferior a la fecha final.", TipoMensaje.MsgAdvertencia)
        End If
        'If UsuarioActual.CveEmpresa <> 72 Then
        '    CargaVacaciones()
        '    CargaVacacionesResumenPeriodoActual()


        '    Dim objRH As New ClsRH
        '    If VacDiasDisponibles > 0 Then

        '        Dim fInicio As Date = TxtFechaInicioVac.Text.ToDate
        '        Dim fFin As Date = TxtFechaFinVac.Text.ToDate
        '        Dim ErrorSolicitud As Boolean = True
        '        Dim DiasSolicitados As Integer = (fFin - fInicio).TotalDays.ToString().ToEntero()

        '        If fInicio < fFin Or fInicio = fFin Then

        '            VacFolioActual = VacFolioActual + 1

        '            If fInicio = fFin Then



        '                If fInicio < VacFinPeriodo Then
        '                    If objRH.VacacionesAddUpdate(-1, CvePersonal, fInicio, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual) Then
        '                        ErrorSolicitud = False
        '                        CargaVacaciones()
        '                        CargaVacacionesResumenPeriodoActual()
        '                        VacacionesMandaCorreoSupervisor("Solicitud Vacaciones " & NombreCompleto, VacSupervisorCorreo, VacSupervisorNombre, NombreCompleto, fInicio, fFin)
        '                        'DescarSolicitudVacaciones(VacFolioActual)
        '                    End If
        '                End If

        '            Else
        '                If ((DiasSolicitados + 1) > VacDiasDisponibles) Then
        '                    Alert("Los dias solicitados son mayores a los dias disponibles.", TipoMensaje.MsgAdvertencia)
        '                    objRH.Dispose()
        '                    Exit Sub
        '                End If

        '                Dim fVacacion As Date = fInicio

        '                For x As Integer = 0 To DiasSolicitados

        '                    If fVacacion < VacFinPeriodo Then
        '                        If objRH.VacacionesAddUpdate(-1, CvePersonal, fVacacion, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual) Then
        '                            ErrorSolicitud = False
        '                        Else
        '                            ErrorSolicitud = True
        '                            Exit For
        '                        End If
        '                    Else
        '                        ErrorSolicitud = True
        '                        Exit For
        '                    End If

        '                    fVacacion = fVacacion.AddDays(1)
        '                Next

        '                CargaVacaciones()
        '                CargaVacacionesResumenPeriodoActual()
        '                VacacionesMandaCorreoSupervisor("Solicitud Vacaciones " & NombreCompleto, VacSupervisorCorreo, VacSupervisorNombre, NombreCompleto, fInicio, fFin)

        '                If Not ErrorSolicitud Then
        '                    'DescarSolicitudVacaciones(VacFolioActual)
        '                End If

        '            End If

        '        Else
        '            Alert("La fecha  Inicial debe ser inferior a la fecha final")
        '        End If
        '    Else
        '        Alert("No se tienen dias disponibles.")
        '    End If

        '    objRH.Dispose()
        'ElseIf UsuarioActual.CveEmpresa = 72 Then


        '    Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
        '    Dim FormatoNombre As String = "PermisoSolicitud.docx"
        '    Dim RutaFormato As String = $"{PathRoot}\Empresas\{UsuarioActual.CveEmpresa}\Formatos\{FormatoNombre} "
        '    Dim RutaDocGral As String = $"{PathRoot}\Empresas\Grales\Formatos\{FormatoNombre} "


        '    Dim pathDesti As String = ""

        '    If Not File.Exists(RutaFormato) Then
        '        RutaFormato = $"{PathRoot}\Empresas\Grales\Formatos\{FormatoNombre} "
        '    End If



        '    pathDesti = PathRoot & "Temp\" & CvePersonal & "_" & FormatoNombre



        '    If File.Exists(pathDesti) Then
        '        File.Delete(pathDesti)
        '    End If

        '    File.Copy(RutaFormato, pathDesti)



        '    Dim objDoc As New clsGemBoxDocument(pathDesti)

        '    Dim FechaActual As String = NowADS().Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & NowADS().Year.ToString()



        '    Dim ListaTagsDocumentost = New List(Of TagsDocumentos)

        '    ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", $"{TxtNombres.Text} {TxtAPaterno.Text} {TxtAMaterno.Text}"))
        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Codigo}", TxtCodigo.Text))
        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Departamento}", DdlDepartamento.SelectedItem.Text))

        '    ListaTagsDocumentost.Add(New TagsDocumentos("{JefeInmediato}", DdlSupervisorOrganigrama.SelectedItem.Text))



        '    For x As Integer = 1 To 8

        '        If DdlPermisoTipo.SelectedValue.ToEntero() = x Then
        '            ListaTagsDocumentost.Add(New TagsDocumentos("{op" & x & "}", "X"))
        '        Else
        '            ListaTagsDocumentost.Add(New TagsDocumentos("{op" & x & "}", ""))
        '        End If
        '    Next


        '    If RblPermisoDocNecesario.SelectedValue = "1" Then
        '        ListaTagsDocumentost.Add(New TagsDocumentos("{op9}", "X"))
        '        ListaTagsDocumentost.Add(New TagsDocumentos("{op10}", ""))
        '    Else
        '        ListaTagsDocumentost.Add(New TagsDocumentos("{op9}", ""))
        '        ListaTagsDocumentost.Add(New TagsDocumentos("{op10}", "X"))
        '    End If

        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Dias}", TxtPermisosDias.Text))
        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Horas}", TxtPermisosHoras.Text))

        '    ListaTagsDocumentost.Add(New TagsDocumentos("{FechaI}", TxtFechaInicioVac.Text))
        '    ListaTagsDocumentost.Add(New TagsDocumentos("{FechaF}", TxtFechaFinVac.Text))
        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Fecha}", NowADS().ToString("dd/MM/yyyy")))

        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Reemplazo}", DdlPermisosReemplazo.SelectedItem.Text))

        '    ListaTagsDocumentost.Add(New TagsDocumentos("{op11}", " "))
        '    ListaTagsDocumentost.Add(New TagsDocumentos("{op12}", " "))

        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Motivo}", TxtPermisoMotivo.Text))

        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Comentarios}", TxtPermisoComentarios.Text))

        '    objDoc.SustituirTags(ListaTagsDocumentost)
        '    objDoc.GuardarStreamPDF()


        '    Dim DocByte As Byte() = objDoc.GetBytesDocumento()


        '    Response.ClearHeaders()
        '    Response.Clear()
        '    Response.AddHeader("Content-Type", "application/pdf")
        '    Response.AddHeader("Content-Length", DocByte.Length.ToString())
        '    Response.AddHeader("Content-Disposition", "attachment; filename=sample.pdf")
        '    Response.BinaryWrite(DocByte)
        '    Response.Flush()
        '    Response.End()


        'End If


    End Sub

    Private Sub VacacionesMandaCorreoSupervisor(Asunto As String, CorreoSupervisor As String, NombreSupervisor As String, NombreSolicitante As String, _FechaInicio As Date, _FechaFin As Date)

        If CorreoSupervisor.Trim.Length > 0 Then

            Dim a As String = String.Format("{0} -- {1} --- {2}", Asunto, CorreoSupervisor, "")
            Dim Cuerpo As String
            a.GuardaLog()

            If _FechaInicio = _FechaFin Then
                Cuerpo = "El empleado " & NombreCompleto & " a hecho una solicitud de vacaiones programada para el día " & _FechaInicio.ToString("dd/MM/yyyy") & " en las proximas horas se le presentara la solicitud para que se a aprovada o declinada por usted."
            Else
                Cuerpo = "El empleado " & NombreCompleto & " a hecho una solicitud de vacaiones programada  de  " & _FechaInicio.ToString("dd/MM/yyyy") & " a " & _FechaFin.ToString("dd/MM/yyyy") & " en las proximas horas se le presentara la solicitud para que se a aprovada o declinada por usted."
            End If

            Dim Mail As New ClsSisMail()
            Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)

            ' CorreoSupervisor = "rakcsle.rakcsle@gmail.com"

            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoSupervisor, Asunto, Cuerpo, "", LSRutasMail)
            Mail = Nothing
            Alert("Se  ha enviado un correo al supervisor informandole  de la solicitud.")
        Else
            Alert("La solicitud se a realizado correctamente.")
        End If

    End Sub

    Protected Sub LnkEliminarSolicitud_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        CvePersonalVacaciones = GvRow.DataKey("CvePersonalVacaciones").ToEntero()

        Dim objRH As New ClsRH()
        If objRH.RemoverSolicitudVacaciones(CvePersonalVacaciones) Then
            CargaVacaciones()
            CargaVacacionesResumenPeriodoActual()
            Alert("Las vacaciones se ha eliminado")
        End If
        objRH.Dispose()
    End Sub
    Public Sub Edit_ClickVacacionDia(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        CvePersonalVacaciones = GvRow.DataKey("CvePersonalVacaciones").ToEntero()
        'ChkEstatusDiaVacacion.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
        VacFolio = GvRow.DataKey("Folio").ToString().ToEntero()

        TxtFechaDiaVacacion.Text = GvRow.DataKey("FechaInicio").ToString().ToDate.ToString("dd/MM/yyyy")
        TxtFechaDiaVacacionFin.Text = GvRow.DataKey("FechaFin").ToString().ToDate.ToString("dd/MM/yyyy")

        UpModalEditarDiaVacacion.Update()
        RegistraScript("$('#divEditarDiaVacacion').modal({ backdrop: 'static',  keyboard: false});")

    End Sub


    Protected Sub BtnEditarDiaVacacionModal_Click(sender As Object, e As EventArgs) Handles BtnEditarDiaVacacionModal.Click

        Dim FileExtension As String = "-1"
        Dim Filesgral As List(Of Archivo) = TxtFileFormatoVacaciones.getfiles().Archivos
        Dim Filename As String = ""
        Dim Documento As String = ""

        For Each fileItem As Archivo In Filesgral
            Try
                FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
                Documento = $"Vacaciones_{CvePersonalVacaciones}.{FileExtension}"
                Dim tempArray() As String
                tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
                Dim rutaDestino As String = $"{UsuarioActual.Empresa.Ruta}Personal\{CvePersonal}\Vacaciones\{Documento}"
                If Not System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\Vacaciones\") Then
                    System.IO.Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\Vacaciones\")
                End If
                If System.IO.File.Exists(rutaDestino) Then
                    System.IO.File.Delete(rutaDestino)
                End If
                System.IO.File.Move(fileItem.FileUrl, rutaDestino)
                TxtFileFormatoVacaciones.Text = ""
            Catch ex As Exception
                OnError("Error al cargar Formato vacaciones", ex)
            End Try

        Next
        If Documento.Length > 0 Then
            Dim objRH As New ClsRH()
            If objRH.SolicitudVacacionesAddUpdate(CvePersonalVacaciones, CvePersonal, UsuarioActual.CveUsuario, Documento) Then
                Alert("La fecha se actualizo correctamente")
            End If
            UpModalEditarDiaVacacion.Update()
            objRH.Dispose()
            CargaVacaciones()
            CargaVacacionesResumenPeriodoActual()
            RegistraScript("$('#divEditarDiaVacacion').modal('hide');")
        Else
            Alert("debe ingresar un documento para poder autorizar la solicitud", TipoMensaje.MsgAdvertencia)
        End If
    End Sub

    Public Sub DownLoad_ClickSolicitudVacaciones(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        'Dim Folio As Integer = GvRow.DataKey("Folio").ToEntero()

        'DescarSolicitudVacaciones(Folio)
        Dim RutaFormato As String = String.Format("{0}Formatos\SolicitudVacaciones.docx", UsuarioActual.Empresa.Ruta)

        Dim NombreEmpleado As String = String.Format("{0} {1} {2}", TxtAPaterno.Text, TxtAMaterno.Text, TxtNombres.Text)
        Dim Codigo As String = TxtCodigo.Text
        Dim Departamento As String = DdlDepartamento.SelectedItem.Text
        Dim JefeInmediato As String = DdlSupervisorOrganigrama.SelectedItem.Text
        Dim fechaIngreso As Date = TxtFechaIngreso.Text.ToDate()
        Dim Periodoingreso As Integer = fechaIngreso.ToString("MMdd").ToEntero()
        Dim PeriodoInicio As Integer = GvRow.DataKey("FechaInicio").ToDate().ToString("MMdd").ToEntero()
        Dim FechaInicio As String = GvRow.DataKey("FechaInicio").ToDateTime().ToString("dd/MM/yyyy")
        Dim FechaFin As String = GvRow.DataKey("FechaFin").ToDateTime().ToString("dd/MM/yyyy")
        Dim diasPermiso As String = GvRow.DataKey("Dias")
        Dim MotivoPermiso As String = GvRow.DataKey("Motivo")
        Dim Puesto As String = DdlPuesto.SelectedItem.Value
        Dim Fecha As String = NowADS().ToString("dd/MM/yyyy")
        Dim Solicitante As String = UsuarioActual.Nombre
        Dim anio As Integer = GvRow.DataKey("FechaInicio").ToDate().Year
        Dim FechaPeriodo As String = GvRow.DataKey("Periodo")




        If Periodoingreso > PeriodoInicio Then
            anio = anio - 1
        End If



        If File.Exists(RutaFormato) Then

            Dim objGemDocument As New clsGemBoxDocument(RutaFormato)
            Dim ListaTags As New List(Of TagsDocumentos)

            ListaTags = GetDatosTagsDocumentos()

            ListaTags.Add(New TagsDocumentos("{Solicitante}", Solicitante))
            ListaTags.Add(New TagsDocumentos("{Fecha}", Fecha))
            ListaTags.Add(New TagsDocumentos("{NombreEmpleado}", NombreEmpleado))
            ListaTags.Add(New TagsDocumentos("{Codigo}", Codigo))
            ListaTags.Add(New TagsDocumentos("{Departamento}", Departamento))
            ListaTags.Add(New TagsDocumentos("{JefeInmediato}", JefeInmediato))
            ListaTags.Add(New TagsDocumentos("{FechaInicio}", FechaInicio))
            ListaTags.Add(New TagsDocumentos("{FechaFin}", FechaFin))
            ListaTags.Add(New TagsDocumentos("{diasPermiso}", diasPermiso))
            ListaTags.Add(New TagsDocumentos("{MotivoPermiso}", MotivoPermiso))
            ListaTags.Add(New TagsDocumentos("{Puesto}", Puesto))
            ListaTags.Add(New TagsDocumentos("{anio}", anio.ToString()))
            ListaTags.Add(New TagsDocumentos("{FechaPeriodo}", FechaPeriodo))

            objGemDocument.SustituirTags(ListaTags)

            'objGemDocument.GuardarStream()
            objGemDocument.GuardarStreamPDF()

            Dim bytesInStream As Byte() = objGemDocument.GetBytesDocumento()
            'Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray

            objGemDocument.Dispose()

            Response.Clear()
            Response.ContentType = "application/force-download"
            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & NowADS().ToString("yyyyMMddhhmmss") & ".pdf")
            Response.BinaryWrite(bytesInStream)
            Response.End()
        Else
            Alert("No se encontro el Formato, favor de revisarlo con soporte tecnico.", TipoMensaje.MsgAdvertencia)
        End If
    End Sub

    Public Sub DownLoad_ClickSolicitudPermiso(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        'Dim Folio As Integer = GvRow.DataKey("Folio").ToEntero()
        'DescarSolicitudVacaciones(Folio)
        Dim RutaFormato As String = String.Format("{0}Formatos\PermisoSolicitud.docx", UsuarioActual.Empresa.Ruta)

        Dim NombreEmpleado As String = String.Format("{0} {1} {2}", TxtAPaterno.Text, TxtAMaterno.Text, TxtNombres.Text)
        Dim Codigo As String = TxtCodigo.Text
        Dim Departamento As String = DdlDepartamento.SelectedItem.Text
        Dim JefeInmediato As String = DdlSupervisorOrganigrama.SelectedItem.Text
        Dim FechaInicio As String = GvRow.DataKey("FechaInicio").ToDateTime().ToString("dd/MM/yyyy")
        Dim FechaFin As String = GvRow.DataKey("FechaFin").ToDateTime().ToString("dd/MM/yyyy")
        Dim diasPermiso As String = $"{(GvRow.DataKey("FechaFin").ToDate() - GvRow.DataKey("FechaInicio").ToDate()).Days}"
        Dim HorasPermiso As String = "" 'String.Format("{0}", ((GvRow.DataKey("FechaInicio").ToDateTime() - GvRow.DataKey("FechaFin").ToDateTime()).Hours))
        Dim MotivoPermiso As String = String.Format("{0},{1}", GvRow.DataKey("Descripcion"), GvRow.DataKey("Motivo"))
        If File.Exists(RutaFormato) Then

            Dim objGemDocument As New clsGemBoxDocument(RutaFormato)
            Dim ListaTags As New List(Of TagsDocumentos)

            ListaTags = GetDatosTagsDocumentos()

            ListaTags.Add(New TagsDocumentos("{NombreEmpleado}", NombreEmpleado))
            ListaTags.Add(New TagsDocumentos("{Codigo}", Codigo))
            ListaTags.Add(New TagsDocumentos("{Departamento}", Departamento))
            ListaTags.Add(New TagsDocumentos("{JefeInmediato}", JefeInmediato))
            ListaTags.Add(New TagsDocumentos("{FechaInicio}", FechaInicio))
            ListaTags.Add(New TagsDocumentos("{FechaFin}", FechaFin))
            ListaTags.Add(New TagsDocumentos("{diasPermiso}", diasPermiso))
            ListaTags.Add(New TagsDocumentos("{HorasPermiso}", HorasPermiso))
            ListaTags.Add(New TagsDocumentos("{MotivoPermiso}", MotivoPermiso))

            objGemDocument.SustituirTags(ListaTags)

            'objGemDocument.GuardarStream()
            objGemDocument.GuardarStreamPDF()
            Dim bytesInStream As Byte() = objGemDocument.GetBytesDocumento()
            'Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray
            objGemDocument.Dispose()

            Response.Clear()
            Response.ContentType = "application/force-download"
            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & NowADS().ToString("yyyyMMddhhmmss") & ".pdf")
            Response.BinaryWrite(bytesInStream)
            Response.End()
        Else
            Alert("No se encontro el formato de Permisos", TipoMensaje.ToastAdventencia)
        End If
    End Sub

    Public Sub DownLoad_ClickSolicitudAutorizacion(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim _Documento As String = GvRow.DataKey("Documento")
        Dim RutaDocuemntoAutorizacion As String = String.Format("{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, CvePersonal, _Documento)

        If File.Exists(RutaDocuemntoAutorizacion) Then
            Dim bytesInStream As Byte() = File.ReadAllBytes(RutaDocuemntoAutorizacion)
            Response.Clear()
            Response.ContentType = "application/force-download"
            Response.AddHeader("content-disposition", "attachment; filename=" & _Documento)
            Response.BinaryWrite(bytesInStream)
            Response.End()
        Else
            Alert("No se encontro el documento que intenta descargar.")
        End If

    End Sub

    Private Sub DescarSolicitudVacaciones(_Folio As Integer)

        Dim objEdoc As New ClsEdocumentacion
        Dim objRH As New ClsRH
        Dim DTVacaciones As DataTable
        Dim _CveDocumentacion As Integer = -1
        Dim _DocumentacionFormato As String = ""
        Dim _PathDocumento As String
        Dim DtVacacionesFolio As New DataTable
        Dim FechasVacaciones As String = ""

        If objEdoc.DocumentacionGet(-1, 10, -1, UsuarioActual.Empresa.CveEmpresa) Then '10  Tipo de oducmentacion hoja de vacacaciones

            DTVacaciones = objEdoc.DtResultados

            If objRH.VacacionesGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
                DtVacacionesFolio = objRH.DtResultados.FiltraParametros("Folio=" & _Folio)
            End If

            objRH.Dispose()
            objEdoc.Dispose()

            _CveDocumentacion = DTVacaciones(0)("CveDocumentacion").ToString().ToEntero()
            _DocumentacionFormato = DTVacaciones(0)("DocumentacionFormato").ToString()
            _PathDocumento = UsuarioActual.Empresa.Ruta & "Formatos\" & _CveDocumentacion & "_" & _DocumentacionFormato

            If File.Exists(_PathDocumento) Then

                Dim objGemDocument As New clsGemBoxDocument(_PathDocumento)
                Dim ListaTags As New List(Of TagsDocumentos)

                ListaTags = GetDatosTagsDocumentos()
                ListaTags.AddRange(GetDatosTagsVacaciones(_Folio).ToArray)

                For Each dRow As DataRow In DtVacacionesFolio.Rows
                    FechasVacaciones = FechasVacaciones & dRow("Fecha").ToString().ToDate.ToString("dd/MM/yyyy") & vbLf
                Next

                ListaTags.Add(New TagsDocumentos("{FechasVacaciones}", FechasVacaciones))
                ListaTags.Add(New TagsDocumentos("{Folio}", _Folio.ToString()))

                objGemDocument.SustituirTags(ListaTags)

                objGemDocument.GuardarStream()

                Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray
                objGemDocument.Dispose()

                Response.Clear()
                Response.ContentType = "application/force-download"
                Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & _Folio & "_" & NowADS().ToString("yyyyMMddhhmmss") & ".docx")
                Response.BinaryWrite(bytesInStream)
                Response.End()

            End If

        Else
            objRH.Dispose()
        End If

    End Sub

    Private Function GetDatosTagsVacaciones(_VacFolio As Integer) As List(Of TagsDocumentos)

        Dim ListaTags As New List(Of TagsDocumentos)
        Dim objRH As New ClsRH

        If objRH.VacacionesFolioGet(CvePersonal, _VacFolio) Then

            If objRH.DtResultados.Rows.Count > 0 Then
                ListaTags.Add(New TagsDocumentos("{Anios}", VacAnios.ToString()))
                ListaTags.Add(New TagsDocumentos("{DiasUsados}", VacDiasUsados.ToString()))
                ListaTags.Add(New TagsDocumentos("{DiasDisponibles}", VacDiasDisponibles.ToString()))
                If Not IsDBNull(objRH.DtResultados(0)("InicioVac")) Then
                    ListaTags.Add(New TagsDocumentos("{InicioVac}", objRH.DtResultados(0)("InicioVac").ToString().ToDate.ToString("dd/MM/yyyy")))
                End If

                If Not IsDBNull(objRH.DtResultados(0)("FinVac")) Then
                    ListaTags.Add(New TagsDocumentos("{FinVac}", objRH.DtResultados(0)("FinVac").ToString().ToDate.ToString("dd/MM/yyyy")))
                End If

                If Not IsDBNull(objRH.DtResultados(0)("RegresoVac")) Then
                    ListaTags.Add(New TagsDocumentos("{RegresoVac}", objRH.DtResultados(0)("RegresoVac").ToString().ToDate.ToString("dd/MM/yyyy")))
                End If

                If Not IsDBNull(objRH.DtResultados(0)("DiasSolicitados")) Then
                    ListaTags.Add(New TagsDocumentos("{DiasTomados}", objRH.DtResultados(0)("DiasSolicitados").ToString()))
                End If

            End If
        End If

        objRH.Dispose()
        Return ListaTags
    End Function

    Protected Sub DdlFormapagovacaciones_SelectedIndexChanged(sender As Object, e As EventArgs)
        PnlVacfechas.Visible = False
        PnlVacfechas2.Visible = False
        PnlVacDias.Visible = False
        'PnlVacFechapago.Visible = False
        ' PnlVacDiasPago.Visible = False
        PnlVacChecks.Visible = False
        TxtVacDiasPago.Text = "0"
        PnlVacDiasFeriados.Visible = False

        Select Case DdlFormapagovacaciones.SelectedValue.ToEntero()
            Case 1
                PnlVacfechas.Visible = True
                PnlVacfechas2.Visible = True
                PnlVacDias.Visible = True
                PnlVacChecks.Visible = True
                PnlVacDiasFeriados.Visible = True
            Case 2
                PnlVacfechas.Visible = True
                PnlVacfechas2.Visible = True
                PnlVacChecks.Visible = True
                PnlVacDiasFeriados.Visible = True
            Case 3
                PnlVacfechas.Visible = True
                PnlVacfechas2.Visible = True
                PnlVacDias.Visible = True
                PnlVacDiasFeriados.Visible = True
            Case 4
                PnlVacDias.Visible = True
                PnlVacChecks.Visible = True

            Case 5
                PnlVacfechas.Visible = True
                PnlVacfechas2.Visible = True
                PnlVacDias.Visible = True
                PnlVacDiasFeriados.Visible = True
            Case 6
                PnlVacDias.Visible = True
        End Select
    End Sub
#End Region

#Region "CURSOS"

    Private Sub CargaCursos()

        Dim objRH As New ClsRH

        If objRH.PersonalCursosGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
            GvCursos.DataSource = objRH.DtResultados
        Else
            GvCursos.DataSource = Nothing
        End If
        objRH.Dispose()
        GvCursos.DataBind()

    End Sub

    Private Sub GvCursosCreaEventoDescarga()

        For Each dRow As GridViewRow In GvCursos.Rows

            Dim CurAsistencia As Boolean = Boolean.Parse(dRow.DataKey("Asistencia"))
            Dim lnkCursoConstancia As LinkButton = dRow.FCLinkButton("lnkCursoConstancia")
            Dim ConstanciaDC3 As Boolean = Boolean.Parse(dRow.DataKey("ConstanciaDC3"))


            If ConstanciaDC3 Then
                If CurAsistencia And TxtRFC.Text.Trim.Length > 11 And TxtRFC.Text.Length < 14 Then

                    lnkCursoConstancia.Visible = True
                    ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkCursoConstancia)

                Else
                    lnkCursoConstancia.Visible = False
                End If
            Else
                lnkCursoConstancia.Visible = True
                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkCursoConstancia)
            End If


        Next
    End Sub


    Protected Sub GvCursos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCursos.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then

            Dim CurAsistencia As Boolean = Boolean.Parse(e.Row.DBCampo("Asistencia"))
            Dim lnkCursoConstancia As LinkButton = e.Row.FCLinkButton("lnkCursoConstancia")
            Dim ConstanciaDC3 As Boolean = Boolean.Parse(e.Row.DataKey("ConstanciaDC3"))

            If ConstanciaDC3 Then
                If CurAsistencia And TxtRFC.Text.Trim.Length > 11 And TxtRFC.Text.Length < 14 Then

                    lnkCursoConstancia.Visible = True
                    ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkCursoConstancia)

                Else
                    lnkCursoConstancia.Visible = False
                End If
            Else
                lnkCursoConstancia.Visible = True
                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkCursoConstancia)
            End If

        End If
    End Sub


    Public Sub ImprimirConstancia_Click(sender As Object, e As EventArgs)

        Dim objConstancias As New ClsConstancias
        Dim DocumenBitArray As Byte() = Nothing
        Dim RutaDocumento As String = DirectorioBaseEmpresas

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim _CveCurso As Integer = GvRow.DataKey("CveCurso").ToEntero()



        DocumenBitArray = objConstancias.PersonalConstanciaGenera(CvePersonal, _CveCurso, UsuarioActual.CveEmpresa, RutaDocumento, UsuarioActual.Empresa)

        GvCursosCreaEventoDescarga()
        If Not DocumenBitArray Is Nothing Then

            Response.Clear()
            Response.ContentType = "application/force-download"
            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Constancia_Curso_" & _CveCurso & "_" & NowADS().ToString("yyyyMMddhhmmss") & ".docx")
            Response.BinaryWrite(DocumenBitArray)
            Response.End()

        End If





    End Sub


#End Region

#Region "UNIFORMES"
    Private Sub CargaComboUniformes()

        Dim objRH As New ClsRH

        If objRH.UniformeGet(-1, 1, UsuarioActual.CveEmpresa) Then

            DdlUniforme.DataSource = objRH.DtResultados
        Else
            DdlUniforme.DataSource = Nothing
        End If

        DdlUniforme.DataBind()
        DdlUniforme.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
        objRH.Dispose()
        'UpGvUniformes.Update()

    End Sub

    Private Sub CargaUniformesPersonal()

        If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154, 140, 7, 11, 12, 122, 145) Then

            GvUniforme.Visible = True
            GvUniformesResguardo.Visible = False
            If DdlUniforme.SelectedIndex > 0 Then
                Dim objRH As New ClsRH

                If objRH.UniformeDetallePersonalGet(CvePersonal, DdlUniforme.SelectedValue.ToEntero(), 1, UsuarioActual.CveEmpresa) Then
                    GvUniforme.DataSource = objRH.DtResultados

                    If objRH.DtResultados.Rows.Count > 0 Then
                        LnkSurtir.Visible = True
                    Else
                        LnkSurtir.Visible = False
                    End If

                    UpBtnUniformes.Update()
                Else
                    GvUniforme.DataSource = Nothing
                    LnkSurtir.Visible = False
                    UpBtnUniformes.Update()
                End If
                objRH.Dispose()
            Else
                GvUniforme.DataSource = Nothing
                LnkSurtir.Visible = False
                UpBtnUniformes.Update()
            End If

        Else
            GvUniforme.Visible = False
            GvUniformesResguardo.Visible = True

            Dim ObjInv As New ClsInventarios

            If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1, Todo:=False) Then
                GvUniformesResguardo.DataSource = ObjInv.DtResultados
                UniformesInfo = ObjInv.DtResultados
            Else
                GvUniformesResguardo.DataSource = Nothing
                'LnkSurtir.Visible = False
                UpBtnUniformes.Update()
            End If



            ObjInv.Dispose()
            GvUniformesResguardo.DataBind()
            UpGvUniformes.Update()

        End If

        GvUniforme.DataBind()
        GvUniformesResguardo.DataBind()

        UpGvUniformes.Update()
        UpUniformesResguardo.Update()

    End Sub

    Protected Sub LbLiberarUniforme(sender As Object, e As System.EventArgs)
        Dim lb As LinkButton = CType(sender, LinkButton)

        Dim row As GridViewRow = CType(lb.NamingContainer, GridViewRow)

        CveAlmacenUniforme = row.DataKey("CveAlmacen").ToString().ToEntero()
        DescripcionUniforme = row.DataKey("CodigoPS")
        PU = row.DataKey("PU").ToString().ToDecimal
        CveSeccionAlmacenUniforme = row.DataKey("CveSeccionAlmacen").ToString().ToEntero()
        CveUM = row.DataKey("CveUM").ToString().ToEntero()
        CvePS = row.DataKey("CvePS").ToString().ToEntero()
        CveMovimientoUniforme = row.DataKey("CveMovimiento").ToString().ToEntero()
        CveMovimientoDetalleUniforme = row.DataKey("CveMovimientoDetalle").ToString().ToEntero()
        Dim Cantidad As Integer = row.DataKey("Cantidad").ToString().ToEntero()
        TxtCantidadResguardo.Text = Cantidad.ToString
        RvTxtCantidadResguardo.MaximumValue = Cantidad.ToString
        If row.DataKey("AplicaSeccion").ToString = "True" Then
            divSeccionAlmacen.Visible = True
            DdlSeccionAlmacen.Items.Clear()
            CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), CvePS, UsuarioActual.CveEmpresa)
            DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), CvePS)
            DdlSeccionAlmacen.DataBind()
        End If
        TxtLiberarSerie.Text = ""

        If row.DataKey("AplicaSerie").ToString = "True" Then
            divSerie.Visible = True
            TxtLiberarSerie.Text = row.DataKey("Serie")
            TxtLiberarSerie.Enabled = False
            TxtCantidadResguardo.Enabled = False
            TxtCantidadResguardo.Text = "1"
        End If


        UPPLiberarUniforme.Update()

        RegistraScript(String.Format("$('#{0}').modal();", "ModalUniforme"))
    End Sub

    Private Sub DdlUniforme_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUniforme.SelectedIndexChanged

        CargaUniformesPersonal()

    End Sub

    Sub LiberarUniforme(sender As Object, e As EventArgs)

        Dim ObjInventario As New ClsInventarios
        ObjInventario.IniciaTransacSQL()

        Dim Cantidad As Decimal = TxtCantidadResguardo.Text.ToDecimal
        Dim Serie As String = TxtLiberarSerie.Text.Trim
        Dim Errores As String = ""

        Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
        If CveResultadoSalida > 0 Then
            Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=-3, Serie:=Serie, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)

            Dim ResultadoDetalleEntrada As Boolean = False
            If ResultadoDetalleSalida Then
                Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero()
                Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), 2, 1, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
                If CveResultadoEntrada > 0 Then
                    ResultadoDetalleEntrada = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie)
                    If Not ResultadoDetalleEntrada Then
                        Errores = "No se puede registrar la entrada detallada"
                    End If
                Else
                    Errores = "No se puede registrar la entrada"
                End If
            Else
                Errores = "No se puede registrar el detalle de salida"
            End If
        Else
            Errores = "No se puede registrar la salida"
        End If


        If Errores = "" Then
            ObjInventario.Commit()
            Alert("El resguardo se liberó correctamente")
            RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme"))
            CargaUniformesPersonal()
        Else
            Alert("No se pudo registrar la liberación.", TipoMensaje.MsgError)
            ObjInventario.RollBack()
        End If
        ObjInventario.Dispose()
    End Sub



#End Region

#Region "CARGAR IMAGEN"
    Private Sub LnkSubirFacturas_Click(sender As Object, e As EventArgs) Handles LnkSubirFacturas.Click
        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchivo"))
    End Sub

    Private Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click
        Dim FileExtension As String = "-1"
        Dim filesgral As List(Of Archivo) = TxtCargaImg.getfiles().Archivos
        Dim filemove As String = ""


        For Each fileItem As Archivo In filesgral
            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
            filemove = fileItem.filename

            Dim dir As String = String.Format("{0}RH\Personal\", UsuarioActual.Empresa.Ruta)
            System.IO.Directory.CreateDirectory(dir)
            If CvePersonal > 0 Then

                Dim yaExistente As String = String.Format("{0}RH\Personal\{1}.jpg", UsuarioActual.Empresa.Ruta, CvePersonal)
                Dim yaExistentePNG As String = String.Format("{0}RH\Personal\{1}.png", UsuarioActual.Empresa.Ruta, CvePersonal)
                Dim yaExistenteBMP As String = String.Format("{0}RH\Personal\{1}.bmp", UsuarioActual.Empresa.Ruta, CvePersonal)

                If File.Exists(yaExistente) Then
                    File.Delete(yaExistente)
                ElseIf File.Exists(yaExistentePNG) Then
                    File.Delete(yaExistentePNG)
                ElseIf File.Exists(yaExistenteBMP) Then
                    File.Delete(yaExistenteBMP)
                End If

            End If
            If filemove <> "" Then
                If CvePersonal > 0 Then
                    filemove.FilesMove(CvePersonal.ToString(), String.Format("{0}RH\Personal\", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
                Else
                    ViewState("FilesMoveimgNew") = filemove
                End If
            End If
            ViewState("Archivo") = String.Format("{0}.{1}", CvePersonal.ToString(), FileExtension)
        Next
        If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & "." & FileExtension) Then
            Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.{2}", UsuarioActual.CveEmpresa, CvePersonal, FileExtension)
            Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}&version={4}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica), NowADS())
            ImgPersonal.ImageUrl = logouri
        End If
        UpImage.Update()
        TxtCargaImg.Text = "[]"
        UpAddArchivo.Update()
        RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchivo"))
    End Sub

#Region "PERMISOS"

    Public Sub CargaPermisos()

        Dim ObjRH As New ClsRH
        Dim CvePersonal As Integer = If(IsNumeric(Request("CvePersonal")), Request("CvePersonal").ToString().ToEntero(), -1)
        If ObjRH.ChecadorPermisosGet(-1, "-1", CvePersonal, NowADS().AddMonths(-3), NowADS().AddMonths(2), -1, -1, UsuarioActual.CveEmpresa) Then
            GvPermisos.DataSource = ObjRH.DtResultados
        Else
            GvPermisos.DataSource = Nothing
        End If

        ObjRH.Dispose()
        GvPermisos.DataBind()
        UpGvPermisos.Update()

    End Sub
    Private Sub BtnPermiso_Click(sender As Object, e As EventArgs) Handles BtnPermiso.Click

        Dim ObjRH As New ClsRH

        Dim HoraEntrada As TimeSpan
        Dim HoraSalida As TimeSpan
        Dim GoceSueldo As Integer = If(ChkGoceSueldo.Checked, 1, 0)
        Dim EstatusPermiso As Integer = If(ChkEstatusPermiso.Checked, 1, 0)

        If TxtHoraEntrada.Text.Trim.Length > 0 Then
            Try
                HoraEntrada = TimeSpan.Parse(TxtHoraEntrada.Text)
            Catch ex As Exception
                HoraEntrada = Nothing
            End Try
        Else
            HoraEntrada = Nothing

        End If

        If TxtHoraSalida.Text.Trim.Length > 0 Then
            Try
                HoraSalida = TimeSpan.Parse(TxtHoraSalida.Text)
            Catch ex As Exception

            End Try
        Else
            HoraSalida = Nothing
        End If


        If ObjRH.ChecadorPermisosAddUpdate(CvePermiso, TxtPermisoDescripcion.Text.Trim, CvePersonal, TxtFechaInicioPer.Text.ToDate, TxtFechaFinPer.Text.Trim.ToDate, HoraEntrada, HoraSalida,
                                           GoceSueldo, EstatusPermiso, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
            If CvePermiso = -1 Then
                Alert("Permiso agregado correctamente")
            Else
                Alert("Permiso agregado Actualizado correctamente")
            End If

            RegistraScript("$('#DvPermisos').modal('hide');")

        End If

        ObjRH.Dispose()
        CargaPermisos()

    End Sub

    Private Sub LnkAgregarPermiso_Click(sender As Object, e As EventArgs) Handles LnkAgregarPermiso.Click
        BtnPermiso.Text = "Agregar"
        ChkEstatusPermiso.Checked = True
        CvePermiso = -1
        RegistraScript("$('#DvPermisos').modal({ backdrop: 'static',  keyboard: false});")
    End Sub


    Public Sub Edit_ClickPermiso(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        CvePermiso = GvRow.DataKey("CvePermiso").ToString().ToEntero()
        TxtPermisoDescripcion.Text = GvRow.DataKey("Descripcion").ToString()
        TxtFechaInicioPer.Text = GvRow.DataKey("FechaInicio").ToString()
        TxtFechaFinPer.Text = GvRow.DataKey("FechaFin").ToString()

        If GvRow.DataKey("HoraEntrada").ToString().Length > 0 Then
            Try
                TxtHoraEntrada.Text = TimeSpan.Parse(GvRow.DataKey("HoraEntrada").ToString()).ToString("hh:mm:ss")
            Catch ex As Exception
                TxtHoraEntrada.Text = ""
            End Try
        Else
            TxtHoraEntrada.Text = ""
        End If


        If GvRow.DataKey("HoraSalida").ToString().Length > 0 Then
            Try
                TxtHoraSalida.Text = TimeSpan.Parse(GvRow.DataKey("HoraSalida").ToString()).ToString("hh:mm:ss")
            Catch ex As Exception
                TxtHoraSalida.Text = ""
            End Try
        Else
            TxtHoraSalida.Text = ""
        End If

        BtnPermiso.Text = "Actualizar"

        ChkGoceSueldo.Checked = Boolean.Parse(GvRow.DataKey("GoceSueldo").ToString())
        ChkEstatusPermiso.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString())
        UpModalPermisos.Update()
        RegistraScript("$('#DvPermisos').modal({ backdrop: 'static',  keyboard: false});")



    End Sub


    Public Sub Remove_ClickPermiso(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        Dim ObjRH As New ClsRH
        Dim CvePermisoInterno As Integer = GvRow.DataKey("CvePermiso").ToEntero()
        If ObjRH.ChecadorPermisosRemove(CvePermisoInterno, UsuarioActual.CveEmpresa) Then

        End If

        ObjRH.Dispose()

        CargaPermisos()
    End Sub



#End Region



#End Region


    'Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
    '    Preguntar si existe en temporales
    '    If Session("FileUpload").ToString() <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString()) Then
    '        Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString())
    '        If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
    '        If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
    '            File.Delete(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
    '            File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString(), ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
    '        Else
    '            File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString(), ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
    '        End If

    '    Else
    '        Imagen Default
    '        If ImgPersonal.ImageUrl = "../Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" Then
    '            ImgPersonal.ImageUrl = "/Imagenes/SinImagen.jpg"
    '        End If
    '    End If


    '    Si existe mover de temporales a .../Empresas/RH/Personal, SINO Session("FileUpload") = ""
    '    Si existe en: .../Empresas/RH/Personal Guardar, SINO Session("FileUpload") = ""




    '    If Session("FileUpload").ToString() <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\" & Session("FileUpload").ToString()) Then
    '        Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal" & Session("FileUpload").ToString())
    '        If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
    '        Session("FileUpload") = ""

    '        If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
    '            ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & CvePersonal & Extension

    '        End If
    '    End If
    'End Sub

#Region "Consumos"

    Private Sub Consumos()

        Dim ObjCompras As New ClsCompras

        If ObjCompras.GetRepComprasPersonalDetalle("-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1, CvePersonal, -1, -1, -1, "-1", UsuarioActual.CveUsuario) Then
            DTConsumos = ObjCompras.DtResultados
            GvConsumos.DataSource = DTConsumos
        Else
            GvConsumos.DataSource = Nothing
        End If
        ObjCompras.Dispose()

        GvConsumos.DataBind()

        UpConsumos.Update()
    End Sub

    Protected Sub GvConsumos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvConsumos.RowDataBound

        If e.Row.RowType = DataControlRowType.Header Then
            'Cambiar Header
        End If

        If e.Row.RowType = DataControlRowType.DataRow Then

            Dim FechaI, FechaF As String
            FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
            FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")

            Dim Liga As String = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveCompra")}"

            If e.Row.DBCampo("Orden") = "1" Then
                e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString())
            Else
                e.Row.BackColor = Drawing.Color.LightGray
            End If

        End If
    End Sub
    Protected Sub GenerarPDFConsumo(Optional Formato As String = "PDF")
        Dim CodigoP As String = ""
        Dim NombreCompletoP As String = ""
        Dim Ruta As String = UsuarioActual.Empresa.Ruta
        Dim RutaPDF As String = String.Format("{0}/Formatos/RepConsumoPersonal.rdlc", Ruta)
        If Not File.Exists(RutaPDF) Then
            RutaPDF = "Empresas/Grales/Formatos/RepConsumoPersonal.rdlc"
        End If

        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        Dim params As New List(Of ReportParameter)()
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))

        Dim ObjPersonal As New ClsRH()
        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
            If ObjPersonal.DtResultados.Rows.Count > 0 Then
                CodigoP = ObjPersonal.Codigo
                NombreCompletoP = ObjPersonal.NombreCompleto
                params.Add(New ReportParameter("NombrePersonal", ObjPersonal.NombreCompleto))
                params.Add(New ReportParameter("CodigoPersonal", ObjPersonal.Codigo))
            End If
        End If
        ObjPersonal.Dispose()

        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString()))
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF(RutaPDF, DTConsumos, params, $"RepConsumoPersonal - {CodigoP} {NombreCompletoP}", Formato)
    End Sub
    Protected Sub LnkImprimirPDFConsumo_Click(sender As Object, e As EventArgs)
        GenerarPDFConsumo()
    End Sub

#End Region

#Region ""
    Protected Sub LbMail_Click(sender As Object, e As EventArgs)

        Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)

        If gvr.DataKey("SeTimbro") = "True" Then

            Dim NombreComercial As String = UsuarioActual.Empresa.Empresa
            Dim SerieFolio As String = gvr.DataKey("SerieFolio").ToString()
            Dim Destinatario As String = gvr.DataKey("Correo").ToString()
            Dim Personal As String = gvr.DataKey("Nombre").ToString()
            Dim fechai As String = gvr.DataKey("FechaInicio").ToString().ToDate.ToShortDateString
            Dim fechaf As String = gvr.DataKey("FechaFin").ToString().ToDate.ToShortDateString
            Dim cvePeriodo As Integer = gvr.DataKey("CvePeriodo").ToString().ToEntero()

            If UsuarioActual.CveRol = 1 Then
                Alert("Parametros:" + NombreComercial + " " + SerieFolio + " " + Destinatario + " " + Personal + " " + fechai + " " + fechaf)
            End If
            MandaCorreo(NombreComercial, SerieFolio, Destinatario, Personal, fechai, fechaf, cvePeriodo)
        End If
    End Sub

    Private Sub MandaCorreo(NombreComercial As String, SerieFolio As String, Destinatario As String, Optional Personal As String = "", Optional FechaI As String = "", Optional FechaF As String = "", Optional CvePeriodo As Integer = -1)

        Dim RutaXml As String = String.Format("{0}XML\Nomina\{1}.xml", UsuarioActual.Empresa.Ruta, SerieFolio)
        Dim RutaPdf As String = String.Format("{0}PDF\Nomina\{1}.pdf", UsuarioActual.Empresa.Ruta, SerieFolio)

        If Destinatario.Length > 0 Then

            Dim Correo As New ClsSisMail()
            Dim Asunto As String = "Comprobante de Nómina"
            Dim Cuerpo As New StringBuilder

            Cuerpo.AppendFormat("Estimado <b>{0}</b> <br>Por este medio le hacemos llegar los comprobantes fiscales de su nomina, correspondiente al periodo del {1} al {2}<br><br>", Personal, FechaI, FechaF)
            Cuerpo.AppendFormat("<br>{0}", NombreComercial)

            Dim Xml As New ClsSisMail.ArchivoMail
            Dim Pdf As New ClsSisMail.ArchivoMail
            Dim ListaAdjuntos As New List(Of ClsSisMail.ArchivoMail)

            If File.Exists(RutaXml) Then
                'Xml.ArchivoBinario() = File.ReadAllBytes(RutaXml)
                Xml.Ruta = RutaXml

                Xml.NombreArchivo = New FileInfo(SerieFolio + ".Xml").Name

                ListaAdjuntos.Add(Xml)
            End If

            If Not File.Exists(RutaPdf) Then
                GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)
            End If

            If File.Exists(RutaPdf) Then
                'Pdf.ArchivoBinario() = File.ReadAllBytes(RutaPdf)
                Pdf.Ruta = RutaPdf

                Pdf.NombreArchivo = New FileInfo(SerieFolio + ".Pdf").Name

                ListaAdjuntos.Add(Pdf)
            End If


            If ListaAdjuntos.Count > 0 Then
                If Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString(), Archivos:=ListaAdjuntos) Then
                    Alert("Correo enviado existosamente a " & Destinatario)
                Else
                    Alert("Se presento un error al enviar el correo a " & Destinatario)
                End If
            Else
                If Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString()) Then
                    Alert("Correo enviado existosamente a " & Destinatario)
                Else
                    Alert("Se presento un error al adjuntar comprobantes")
                End If
            End If
        Else

        End If

    End Sub
#End Region

#Region "VIATICOS"
    Protected Sub CargaViaticosPersonal()
        Dim ObjBancos As ClsBancos = New ClsBancos

        If ObjBancos.GetSolicitudesViaticos(-1, UsuarioActual.CveEmpresa, -1, CvePersonal) Then
            GVViaticos.DataSource = ObjBancos.DtResultados
            GVViaticos.DataBind()
        End If

        ObjBancos.Dispose()
    End Sub

    Protected Sub LnkViaticoDetalle_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim CveSolicitudViatico As Integer = GvRow.DataKey("CveSolicitudViatico").ToEntero()
        CargaViaticosDetalle(CveSolicitudViatico)
        RegistraScript("$('#DivViaticoDetalle').modal({ backdrop: 'static',  keyboard: false});")
    End Sub

    Protected Sub CargaViaticosDetalle(CveSolicitudViativo As Integer)
        Dim ObjBancos As ClsBancos = New ClsBancos
        If ObjBancos.GetSolicitudesViaticosDetalle(CveSolicitudViativo, -1) Then
            DTViaticosDetalle = ObjBancos.DtResultados
            GVViaticoDetalle.DataSource = DTViaticosDetalle
            GVViaticoDetalle.DataBind()
        End If
        ObjBancos.Dispose()
        UpViaticoDetalle.Update()
    End Sub

    Protected Sub GVViaticoDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If (e.Row.RowType = DataControlRowType.Footer) Then
            e.Row.FCLiteral("LtTotalImporte").Text = DTViaticosDetalle.SUM("Importe").FormatoNumero()
        End If
    End Sub
#End Region

#Region "BITACORA"

    Private Sub CargaGvBitacora()

        If CvePersonal > 0 Then
            Dim ObjGral As New ClsGenerales()
            If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
                GvBitacora.DataSource = ObjGral.DtResultados
            End If
            ObjGral.Dispose()
            GvBitacora.DataBind()
            UpHistorialModificacion.Update()
        End If

    End Sub

#End Region

#Region "PAGO DE FACTURAS"

    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
        CargaPagoFactura()
        UpnHistorial.Update()
    End Sub

    Private Sub CargaPagoFactura()
        Dim ObjRH As New ClsRH
        If ObjRH.GetPersonalPagoFactura(CvePersonal, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate, UsuarioActual.CveEmpresa) Then
            GVPagoFactura.DataSource = ObjRH.DtResultados
        End If
        ObjRH.Dispose()
        GVPagoFactura.DataBind()
    End Sub

#End Region

    Protected Sub BtnSaldoInicial_Click(sender As Object, e As EventArgs)
        Dim SaldoInicial As Double = TxtSaldoInicial.Text.ToDouble()
        Dim Fecha As DateTime = TxtFechaSaldo.Text.ToDateTime()

        Dim ObjMov As New ClsContabilidad()
        If AgregarSaldoInicial(SaldoInicial, Fecha, 1, ObjMov) > 0 Then
            Alert("Se agregó el saldo inicial al personal.")
        Else
            Alert("Ocurrió un error al agregar el saldo inicial.", TipoMensaje.MsgError)
        End If
        ObjMov.Dispose()
        RegistraScript("$('#ModalSaldoInicial').modal('hide');")
    End Sub
    Private Function AgregarSaldoInicial(SaldoInicial As Double, Fecha As DateTime, CveMoneda As Integer, ObjMov As ClsContabilidad) As Integer
        Return ObjMov.AddPrePolizas("RH/Personal", 13, SaldoInicial, SaldoInicial, CveMoneda, Fecha, "Saldo Inicial", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
    End Function

#Region "L I C E N C I A S"
    Public Sub CargaLicencias()
        If CvePersonal > 0 Then
            Dim ObjAF As New ClsAF()
            If ObjAF.GetLicencias(-1, -1, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
                GvLicencias.DataSource = ObjAF.DtResultados
                GvLicencias.DataBind()
            End If
            ObjAF.Dispose()
            UpLicencias.Update()
        Else
            DTLicencias = New DataTable()
            Dim PK As New DataColumn("CveLicencia", GetType(Integer))
            PK.AutoIncrement = True
            PK.AutoIncrementSeed = 1
            PK.AutoIncrementStep = 1

            DTLicencias.Columns.Add(PK)
            DTLicencias.Columns.Add("Licencia", GetType(String))
            DTLicencias.Columns.Add("FechaExpedicion", GetType(DateTime))
            DTLicencias.Columns.Add("FechaVencimiento", GetType(DateTime))
            DTLicencias.Columns.Add("Estatus", GetType(Boolean))
            DTLicencias.Columns.Add("EstatusSTR", GetType(String))

            GvLicencias.DataSource = DTLicencias
            GvLicencias.DataBind()
        End If
    End Sub

    Public Sub EditLicencia_Click(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        HdnModalidadLicencia.Value = "U"
        HdnIDLicencia.Value = GvRow.DataKey("CveLicencia")
        BtnAgregarLicencia.Text = "Actualizar"
        LabelLicencia.InnerText = "Actualizar Licencia"
        TxtLicencia.Text = GvRow.DataKey("Licencia")
        TxtFechaExpLicencia.Text = GvRow.DataKey("FechaExpedicion")
        TxtFechaVencLicencia.Text = GvRow.DataKey("FechaVencimiento")

        ChkModalLicenciaEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString())

        UpAddLicencias.Update()
        UpLicencias.Update()

        RegistraScript("$('#DivAddLicencias').modal('show');")
    End Sub

    Public Sub DeleteLicencia_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        HdnIDLicencia.Value = GvRow.DataKey("CveLicencia")

        If CvePersonal > 0 Then
            Dim ObjAF As New ClsAF()
            If ObjAF.RemoveLicencia(HdnIDLicencia.Value.ToEntero()) Then
                CargaLicencias()
                Alert("La licencia se eliminó correctamente.", TipoMensaje.MsgInformacion)
            End If
            ObjAF.Dispose()
        Else
            If DTLicencias IsNot Nothing Then
                Dim Row As DataRow = DTLicencias.Select($"CveLicencia = {HdnIDLicencia.Value.ToEntero()}")(0)
                DTLicencias.Rows.Remove(Row)
                GvLicencias.DataSource = DTLicencias
                GvLicencias.DataBind()
                Alert("La licencia se eliminó correctamente.", TipoMensaje.MsgInformacion)
            End If
        End If

        UpLicencias.Update()

    End Sub

    Private Sub LnkAddLicencias_Click(sender As Object, e As EventArgs) Handles LnkAddLicencias.Click
        HdnModalidadLicencia.Value = "A"
        BtnAgregarLicencia.Text = "Agregar"
        LabelLicencia.InnerText = "Agregar Licencia"

        TxtLicencia.Text = ""
        TxtFechaExpLicencia.Text = ""
        TxtFechaVencLicencia.Text = ""
        ChkModalLicenciaEstatus.Checked = False


        UpLicencias.Update()
        UpAddLicencias.Update()
        RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddLicencias"))
    End Sub

    Private Sub BtnAgregarLicencia_Click(sender As Object, e As EventArgs) Handles BtnAgregarLicencia.Click
        If CvePersonal > 0 Then
            Dim ObjAF As New ClsAF
            If HdnModalidadLicencia.Value = "A" Then
                If ObjAF.AddLicencia(-1, TxtLicencia.Text.Trim, TxtFechaExpLicencia.Text.ToDateTime, TxtFechaVencLicencia.Text.ToDateTime, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, Estatus:=ChkModalLicenciaEstatus.Checked) Then
                    Alert("La licencia se agregó correctamente.", TipoMensaje.MsgInformacion)
                End If
            ElseIf HdnModalidadLicencia.Value = "U" Then
                If ObjAF.UpdateLicencia(HdnIDLicencia.Value.ToEntero(), TxtLicencia.Text.Trim, TxtFechaExpLicencia.Text.ToDateTime, TxtFechaVencLicencia.Text.ToDateTime, Estatus:=ChkModalLicenciaEstatus.Checked) Then
                    Alert("La licencia se actualizó correctamente.", TipoMensaje.MsgInformacion)
                End If
            End If
            ObjAF.Dispose()
            CargaLicencias()
        Else
            If DTLicencias IsNot Nothing Then
                If HdnModalidadLicencia.Value = "A" Then
                    Dim Row As DataRow = DTLicencias.NewRow()

                    Row("Licencia") = TxtLicencia.Text.Trim()
                    Row("FechaExpedicion") = TxtFechaExpLicencia.Text.ToDateTime()
                    Row("FechaVencimiento") = TxtFechaVencLicencia.Text.ToDateTime()
                    Row("Estatus") = ChkModalLicenciaEstatus.Checked

                    Row("EstatusSTR") = If(ChkModalLicenciaEstatus.Checked, "Si", "No")

                    DTLicencias.Rows.Add(Row)

                    GvLicencias.DataSource = DTLicencias
                    GvLicencias.DataBind()
                    UpLicencias.Update()
                    Alert("La licencia se agregó correctamente.", TipoMensaje.MsgInformacion)
                ElseIf HdnModalidadLicencia.Value = "U" Then
                    Try
                        Dim Row As DataRow = DTLicencias.Select($"CveLicencia = {HdnIDLicencia.Value.ToEntero()}")(0)

                        Row("Licencia") = TxtLicencia.Text.Trim()
                        Row("FechaExpedicion") = TxtFechaExpLicencia.Text.ToDateTime()
                        Row("FechaVencimiento") = TxtFechaVencLicencia.Text.ToDateTime()
                        Row("Estatus") = ChkModalLicenciaEstatus.Checked
                        Row("EstatusSTR") = If(ChkModalLicenciaEstatus.Checked, "Si", "No")

                        GvLicencias.DataSource = DTLicencias
                        GvLicencias.DataBind()
                        UpLicencias.Update()
                        Alert("La licencia se actualizó correctamente.", TipoMensaje.MsgInformacion)
                    Catch ex As Exception
                        Alert("Ocurrió el error al actualizar la licencia.", TipoMensaje.MsgError)
                    End Try

                End If

            End If
        End If
        RegistraScript("$('#DivAddLicencias').modal('hide');")

    End Sub
#End Region
    Protected Sub BtnPDFResguardo_Click(sender As Object, e As EventArgs)
        GenerarPDFResguardosAF()
    End Sub
    Protected Sub BtnExcelResguardo_Click(sender As Object, e As EventArgs)
        GenerarPDFResguardosAF("Excel")
    End Sub
    Protected Sub GenerarPDFResguardosAF(Optional Formato As String = "PDF")

        Dim ObjAF As New ClsAF

        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\RepResguardosAF.rdlc", UsuarioActual.Empresa.Ruta))
        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

        Dim dtVC As DataTable = Nothing
        Dim params As New List(Of ReportParameter)
        Dim dr As DataRow = Nothing

        If ObjAF.GetActivosFijosResguardos(-1, -1, CvePersonal, -1, UsuarioImprimio:=UsuarioActual.CveUsuario) Then
            dtVC = ObjAF.DtResultados
        End If

        ObjAF.Dispose()

        If dtVC.Rows.Count > 0 Then
            dr = dtVC.Rows(0)

            'If UsuarioActual.CveEmpresa.Contiene(72, 119) Then
            'End If

            Dim SBDomicilioSucursal As New StringBuilder()
            Dim DRSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero(), Estatus:=1).FiltroPrimero("")

            If DRSucursal IsNot Nothing Then
                Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
                Dim DomicilioSucursal As String = ""

                SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle"))
                If DRSucursal("NoExt").ToString().ToEntero() > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString().ToEntero())
                If DRSucursal("NoInt").ToString().ToEntero() > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString().ToEntero())
                If DRSucursal("Colonia").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString())
                If DRSucursal("CP").ToString().ToEntero() > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString())
                If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
                If DRSucursal("Pais").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString())
            End If

            params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString()))
            params.Add(New ReportParameter("RFC", dr("RFC").ToString()))
            params.Add(New ReportParameter("Puesto", dr("Puesto").ToString()))
            params.Add(New ReportParameter("Departamento", dr("Departamento").ToString()))
            params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString()))
            params.Add(New ReportParameter("Telefono", dr("Celular").ToString()))
            params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString()))
            params.Add(New ReportParameter("PuestoUsuarioActual", dr("PuestoUsuarioImprimio").ToString()))

            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))

            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))


            If Archivo.Exists Then
                ImprimirPDF(String.Format("{0}Formatos\RepResguardosAF.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params, "PersonalResguardosAF", Formato)
            Else
                ImprimirPDF("Empresas/Grales/Formatos/RepResguardosAF.rdlc", dtVC, params, "PersonalResguardosAF", Formato)
            End If

        Else
            Alert("No se encontraron registros .", TipoMensaje.MsgAdvertencia)
        End If

    End Sub


#Region "FAMILIARES"


    Private Sub CargaFamiliares()

        If CvePersonal <> -1 Then
            Dim objRH As New ClsRH

            If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then

                If objRH.DtResultados.Rows.Count > 0 Then
                    DTFamiliares = objRH.DtResultados
                    DTFamiliares.Columns.Add("Accion", Type.GetType("System.String"))
                    DTFamiliares.AcceptChanges()
                    GvFamiliares.DataSource = DTFamiliares
                Else
                    DTFamiliares.Rows.Clear()
                    GvFamiliares.DataSource = DTFamiliares
                End If

            Else
                GvFamiliares.DataSource = Nothing
            End If

            objRH.Dispose()
            GvFamiliares.DataBind()
            UPTabFamiliares.Update()

        End If
    End Sub

    Private Sub CrearEstructuraFamiliares()

        Dim Familiares As New DataTable

        Familiares.Columns.Add("CveFamiliar", Type.GetType("System.Int32"))
        Familiares.Columns.Add("CvePersonal", Type.GetType("System.Int32"))
        Familiares.Columns.Add("CveParentesco", Type.GetType("System.Int32"))
        Familiares.Columns.Add("Parentesco", Type.GetType("System.String"))
        Familiares.Columns.Add("Nombre", Type.GetType("System.String"))
        Familiares.Columns.Add("Domicilio", Type.GetType("System.String"))
        Familiares.Columns.Add("Edad", Type.GetType("System.Int32"))
        Familiares.Columns.Add("Ocupacion", Type.GetType("System.String"))
        Familiares.Columns.Add("Fecha", Type.GetType("System.DateTime"))
        Familiares.Columns.Add("Usuario", Type.GetType("System.String"))
        Familiares.Columns.Add("Telefono", Type.GetType("System.String"))
        Familiares.Columns.Add("Accion", Type.GetType("System.String"))
        Familiares.Columns.Add("Observaciones", Type.GetType("System.String"))
        Familiares.Columns.Add("Beneficiario", Type.GetType("System.Boolean"))

        DTFamiliares = Familiares

    End Sub


    Protected Sub BtnAgregarFamiliar_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliar.Click
        ResetFormFamiliares()
        RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static',  keyboard: false});")
    End Sub


    Private Sub ResetFormFamiliares()

        ActualizarFamiliar = False
        CveFamiliar = -1

        LtlTituloModalFamiliar.Text = "Agregar Familiar"
        BtnAgregarFamiliarModal.Text = "Agregar Familiar"
        TxtNombreFamiliar4.Text = ""
        TxtDomicilioFamiliar4.Text = ""
        TxtEdadFamiliar4.Text = ""
        TxtOcupacionFamiliar4.Text = ""
        TxtTelefonoFamiliar.Text = ""
        TxtObservacionesFamiliar.Text = ""
        DDLParentescoFamiliar4.SelectedIndex = 0
        ChkBeneficiario.Checked = False

        UpModalFamiliar.Update()

    End Sub

    Protected Sub BtnAgregarFamiliarModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliarModal.Click

        If ActualizarFamiliar Then

            'DtRowFamiliar("CveFamiliar") = -1
            DTFamiliares(IndexActual)("CvePersonal") = -1
            DTFamiliares(IndexActual)("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text
            DTFamiliares(IndexActual)("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero()
            DTFamiliares(IndexActual)("Nombre") = TxtNombreFamiliar4.Text.Trim
            DTFamiliares(IndexActual)("Domicilio") = TxtDomicilioFamiliar4.Text.Trim
            DTFamiliares(IndexActual)("Edad") = TxtEdadFamiliar4.Text.ToEntero()
            DTFamiliares(IndexActual)("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim
            DTFamiliares(IndexActual)("Telefono") = TxtTelefonoFamiliar.Text.Trim
            DTFamiliares(IndexActual)("Observaciones") = TxtObservacionesFamiliar.Text.Trim
            DTFamiliares(IndexActual)("Beneficiario") = ChkBeneficiario.Checked

            If DTFamiliares(IndexActual)("CveFamiliar").ToString() = "-1" Then
                DTFamiliares(IndexActual)("Accion") = "2"
            Else
                DTFamiliares(IndexActual)("Accion") = "1"
            End If

            DTFamiliares.AcceptChanges()

        Else

            Dim DtRowFamiliar As DataRow
            DtRowFamiliar = DTFamiliares.NewRow

            DtRowFamiliar("CveFamiliar") = -1
            DtRowFamiliar("CvePersonal") = -1
            DtRowFamiliar("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text
            DtRowFamiliar("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero()
            DtRowFamiliar("Nombre") = TxtNombreFamiliar4.Text.Trim
            DtRowFamiliar("Domicilio") = TxtDomicilioFamiliar4.Text.Trim
            DtRowFamiliar("Edad") = TxtEdadFamiliar4.Text.ToEntero()
            DtRowFamiliar("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim
            DtRowFamiliar("Telefono") = TxtTelefonoFamiliar.Text.Trim
            DtRowFamiliar("Observaciones") = TxtObservacionesFamiliar.Text.Trim
            DtRowFamiliar("Beneficiario") = ChkBeneficiario.Checked

            DtRowFamiliar("Accion") = "2"

            DTFamiliares.Rows.Add(DtRowFamiliar)
            DTFamiliares.AcceptChanges()

        End If

        IndexActual = -1


        RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarFamiliar"))
        'CargaFamiliares()

        GvFamiliares.DataSource = DTFamiliares
        GvFamiliares.DataBind()
        UPTabFamiliares.Update()

        CveFamiliar = -1
        ActualizarFamiliar = False

    End Sub

    Public Sub Edit_ClickFamiliar(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim activo As Boolean = True

        CveFamiliar = GvRow.DataKey("CveFamiliar").ToString().ToEntero()
        ActualizarFamiliar = True
        IndexActual = GvRow.RowIndex

        LtlTituloModalFamiliar.Text = "Editar Familiar"
        BtnAgregarFamiliarModal.Text = "Actualizar"

        TxtNombreFamiliar4.Text = GvRow.DataKey("Nombre")
        DDLParentescoFamiliar4.SelectedValueExist(GvRow.DataKey("CveParentesco"))
        TxtDomicilioFamiliar4.Text = GvRow.DataKey("Domicilio")
        TxtEdadFamiliar4.Text = GvRow.DataKey("Edad")
        TxtOcupacionFamiliar4.Text = GvRow.DataKey("Ocupacion")
        TxtTelefonoFamiliar.Text = GvRow.DataKey("Telefono")
        TxtObservacionesFamiliar.Text = GvRow.DataKey("Observaciones")
        ChkBeneficiario.Checked = Boolean.Parse(GvRow.DataKey("Beneficiario").ToString())

        UpModalFamiliar.Update()
        RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static',  keyboard: false});")

    End Sub


    Public Sub Remove_ClickFamiliar(sender As Object, e As EventArgs)



        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        IndexActual = GvRow.RowIndex
        Dim activo As Boolean = False
        Dim CveFamiliar As Integer = GvRow.DataKey("CveFamiliar").ToString().ToEntero()

        If CveFamiliar > 0 Then

            DTFamiliares.Rows(IndexActual)("Accion") = "3"
            Dim objRH As New ClsRH
            ProcesaDTFamiliares(objRH)
            objRH.Dispose()

            CargaFamiliares()



        Else
            DTFamiliares.Rows(IndexActual).Delete()
            DTFamiliares.AcceptChanges()
            GvFamiliares.DataSource = DTFamiliares
            GvFamiliares.DataBind()
            UPTabFamiliares.Update()
        End If
        IndexActual = -1

    End Sub

    Private Sub ProcesaDTFamiliares(ByRef objRH As ClsRH)

        'Dim objRH As New ClsRH

        ValPadre = False
        ValMadre = False

        For Each dRow As DataRow In DTFamiliares.Rows



            If dRow("Accion").ToString() = "1" Then 'Actualiza

                Dim Beneficiario As Integer = -1

                If Boolean.Parse(dRow("Beneficiario").ToString()) Then
                    Beneficiario = 1
                Else
                    Beneficiario = 0
                End If


                objRH.PersonalFamiliaresUpdate(dRow("CveFamiliar").ToString().ToEntero(), CvePersonal, dRow("CveParentesco").ToString().ToEntero(), dRow("Nombre").ToString(), dRow("Domicilio").ToString(), dRow("Edad").ToString().ToEntero(), dRow("Ocupacion").ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString(), If(dRow("Observaciones").ToString().Trim = "", "-1", dRow("Observaciones").ToString().Trim), Beneficiario)

            End If
            If dRow("Accion").ToString() = "2" Then 'Inserta


                Dim Beneficiario As Boolean = Boolean.Parse(dRow("Beneficiario").ToString())



                objRH.PersonalFamiliaresAdd(CvePersonal, dRow("CveParentesco").ToString().ToEntero(), dRow("Nombre").ToString(), dRow("Domicilio").ToString(), dRow("Edad").ToString().ToEntero(), dRow("Ocupacion").ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString(), If(dRow("Observaciones").ToString().Trim = "", "-1", dRow("Observaciones").ToString().Trim), Beneficiario)

            End If

            If dRow("CveParentesco").ToString().ToEntero() = 1 Then
                ValPadre = True
            End If

            If dRow("CveParentesco").ToString().ToEntero() = 2 Then
                ValMadre = True
            End If

            If dRow("Accion").ToString() = "3" Then 'Borra
                objRH.PersonalFamiliaresRemove(dRow("CveFamiliar").ToString().ToEntero(), -1)
            End If

        Next

        'objRH.Dispose()

    End Sub

#End Region


    Protected Sub DdlTipoAsistencias_SelectedIndexChangedP(sender As Object, e As EventArgs)
        Dim ddl As DropDownList = DirectCast(sender, DropDownList)
        If ddl.SelectedItem.Text = "Retardo" Then
            TxtPorPago.Text = "87.5"
        End If
    End Sub
    Protected Sub DdlTipoAsistencias_SelectedIndexChanged(sender As Object, e As EventArgs)
        Dim ddl As DropDownList = DirectCast(sender, DropDownList)
        Dim gvrow As GridViewRow = DirectCast(ddl.NamingContainer, GridViewRow)
        If ddl.SelectedItem.Text = "Retardo" Then
            gvrow.FCTextBox("TxtPorPago").Text = "87.5"
        End If
    End Sub

    Public Sub LimpiarFonacot()
        TxtFonValor.Text = ""
        TxtFonImporteCredito.Text = ""
        TxtFonPagosHechos.Text = ""
        DdlFonTipoAplicacion.SelectedValueExist("-1")
        TxtFonDescripcion.Text = ""
        TxtFonNumCredito.Text = ""
        TxtFonFechaInicio.Text = ""
        ChkFonacot.Checked = False
    End Sub
    Protected Sub CargaFonacot()

        Using onom As ClsNominas = New ClsNominas()
            onom.NomFonacotGet(UsuarioActual.CveEmpresa, -1, CvePersonal)
            GVNomFonacot.DataSource = onom.DtResultados
            GVNomFonacot.DataBind()
        End Using
        UpFonacotGrid.Update()
    End Sub

    Protected Sub LnAddFonacot_Click(sender As Object, e As EventArgs)
        LimpiarFonacot()
        CveFonacot = -1
        RegistraScript("$('#ModalFonacot').modal();")
    End Sub
    Protected Sub LnkEditarNomFonacot_Click(sender As Object, e As EventArgs)
        Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        CveFonacot = gvrow.DataKey("CveFonacot").ToEntero()
        Dim cvePersonal As Int32 = gvrow.DataKey("CvePersonal").ToEntero()
        Dim numeroCredito As String = gvrow.DataKey("NumeroCredito")
        Dim descripcion As String = gvrow.DataKey("Descripcion")
        Dim periodo As Int32 = gvrow.DataKey("Periodo").ToEntero()
        Dim cveTipoCalculo As Int32 = gvrow.DataKey("CveTipoCalculo").ToEntero()
        Dim importeCredito As Decimal = gvrow.DataKey("ImporteCredito").ToDecimal()
        Dim importeFijo As Decimal = gvrow.DataKey("ImporteFijo").ToDecimal()
        Dim pagosHechos As Decimal = gvrow.DataKey("PagosHechos").ToDecimal()
        Dim montoAcumulado As Decimal = gvrow.DataKey("MontoAcumulado").ToDecimal()
        Dim saldo As Decimal = gvrow.DataKey("Saldo").ToDecimal()
        Dim cveEstatus As Int32 = gvrow.DataKey("CveEstatus").ToEntero()
        Dim observaciones As String = gvrow.DataKey("Observaciones")
        If (periodo < 10000000) Then
            periodo = 20000101

        End If
        LimpiarFonacot()

        TxtFonValor.Text = importeFijo.ToString()
        TxtFonImporteCredito.Text = importeCredito.ToString()
        TxtFonPagosHechos.Text = pagosHechos.ToString()
        DdlFonTipoAplicacion.SelectedValueExist(cveTipoCalculo.ToString())
        TxtFonDescripcion.Text = descripcion
        TxtFonNumCredito.Text = numeroCredito
        TxtFonFechaInicio.Text = String.Format("{2}/{1}/{0}", periodo.ToString().Substring(0, 4), periodo.ToString().Substring(4, 2), periodo.ToString().Substring(6, 2))
        ChkFonacot.Checked = (cveEstatus = 1)
        UpModalFonacot.Update()
        RegistraScript("$('#ModalFonacot').modal();")
    End Sub

    Protected Sub LnkEliminarNomFonacot_Click(sender As Object, e As EventArgs)
        Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        Dim cveFonacot As Integer = gvrow.DataKey("CveFonacot").ToEntero()
        Dim Continuar As Boolean = False
        Using onom As ClsNominas = New ClsNominas()
            Continuar = onom.NomFonacotRemove(UsuarioActual.CveEmpresa, cveFonacot)
        End Using
        If (Continuar) Then
            CargaFonacot()
            Alert("El registro fonacot se ha eliminado")
        End If
    End Sub
    Protected Sub LnkGuardarFonacot_Click(sender As Object, e As EventArgs)
        Dim importe As Decimal = TxtFonValor.Text.ToDecimal()
        Dim importeTotal As Decimal = TxtFonImporteCredito.Text.ToDecimal()
        Dim importePagado As Decimal = TxtFonPagosHechos.Text.ToDecimal()
        Dim TipoAplicacion As Integer = DdlFonTipoAplicacion.SelectedValue.ToEntero()
        Dim NoPagos As Integer = 0
        Dim SaldoIni As Double = 0
        Dim descripcion02 As String = TxtFonDescripcion.Text
        Dim NumCredito As String = TxtFonNumCredito.Text
        Dim fecha As String = TxtFonFechaInicio.Text.Replace("_", "")
        Dim estatus As Integer = If(ChkFonacot.Checked, 1, 0)
        Dim periodo As Integer = 20000101
        If fecha.Length > 8 Then
            fecha = fecha.ToDateTime().ToString("yyyy/MM/dd")
            periodo = fecha.ToDateTime().ToString("yyyyMMdd").ToEntero()
        Else
            fecha = ""
        End If

        Dim continuar As Boolean = False
        Using onom As ClsNominas = New ClsNominas()
            If (CveFonacot = -1) Then
                continuar = onom.NomFonacotAdd(UsuarioActual.CveEmpresa, CvePersonal, NumCredito, descripcion02, periodo, TipoAplicacion, importeTotal, importe, importePagado, 0, 0, estatus, "", UsuarioActual.CveUsuario)
            Else
                continuar = onom.NomFonacotUp(UsuarioActual.CveEmpresa, CveFonacot, CvePersonal, NumCredito, descripcion02, periodo, TipoAplicacion, importeTotal, importe, importePagado, 0, 0, estatus, "", UsuarioActual.CveUsuario)

            End If
        End Using
        ' Old Borrar Caudillo 01/Marzo/2022
        'Using ObjPersonal As ClsRH = New ClsRH()
        '    If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 4, NumCredito, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then continuar = False
        'End Using

        If continuar Then
            Alert("Se actualizo el calculo de fonacot")
            CargaFonacot()
            RegistraScript("$('#ModalFonacot').modal('hide');")
        End If
    End Sub
    Protected Sub LnkCalcularFactor_Click(sender As Object, e As EventArgs)
        getdatosFI()
        RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
    End Sub
    Private Sub getdatosFI()

        If TxtFIAguinaldo.Text = "0" Or TxtFIAguinaldo.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
            TxtFIAguinaldo.Text = "15"
        End If
        If TxtFIPrimaVacacional.Text = "0" Or TxtFIPrimaVacacional.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
            TxtFIPrimaVacacional.Text = "25"
        End If

        TxtFISalariodiario.Text = TxtSalarioDiario.Text
        TxtFactordeIntegracion.Text = ""
        TxtFISalarioDiarioIntegrado.Text = ""
        If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
            TxtFIDiasVacaciones.Text = "12"
        Else
            Using objRH As New ClsRH
                If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
                    If objRH.DtResultados.Rows.Count > 0 Then

                        If objRH.DtResultados.Rows.Count > 0 Then
                            Dim diasvaca As Integer = objRH.DtResultados(0)("Dias").ToString().ToEntero()
                            TxtFIDiasVacaciones.Text = If(diasvaca > 11, diasvaca, 12).ToString()
                        Else
                            TxtFIDiasVacaciones.Text = "12"
                        End If
                    Else

                    End If
                End If
            End Using
        End If
        UpFactordeintegracion.Update()
    End Sub
    Private Sub calcularSDI()
        Dim SD As Decimal = TxtFISalariodiario.Text.ToDecimal()
        Dim primav As Decimal = TxtFIPrimaVacacional.Text.ToDecimal()
        Dim DiasVacaciones As Decimal = TxtFIDiasVacaciones.Text.ToDecimal()
        Dim diasaguinaldo As Decimal = TxtFIAguinaldo.Text.ToDecimal()
        Dim FI As Decimal = (365D + diasaguinaldo + (DiasVacaciones * (primav / 100D))) / 365D
        Dim SDI As Decimal = Math.Round((SD * FI), 2)
        TxtFactordeIntegracion.Text = FI.ToString()
        TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI)
        UpFactordeintegracion.Update()
    End Sub
    Protected Sub LnkCalcularFactordeintegracion_Click(sender As Object, e As EventArgs)
        calcularSDI()
        Alert(String.Format(" salario diario integrado {0}", TxtFISalarioDiarioIntegrado.Text))
    End Sub
    Protected Sub LnkCalcularFactordeintegracionyguardar_Click(sender As Object, e As EventArgs)
        calcularSDI()

        Using ObjPersonal As ClsRH = New ClsRH()
            ObjPersonal.IniciaTransacSQL()

            If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then
                ObjPersonal.Commit()
                TxtSalarioDiario.Text = TxtFISalariodiario.Text
                TxtSalarioDiarioM.Text = TxtFISalariodiario.Text
                TxtSalarioCotizado.Text = TxtFISalarioDiarioIntegrado.Text
                TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text
                TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
                TxtSDI.Text = TxtFISalarioDiarioIntegrado.Text
                UpDatos.Update()
                Alert("Se ha actualizado el salario diario integrado")
                RegistraScript("$('#DmodalFactordeIntegraccion').modal('hide')")
            Else
                ObjPersonal.RollBack()
            End If
        End Using
    End Sub
    Protected Sub ChkEstemporal_CheckedChanged(sender As Object, e As EventArgs)

        Using ObjPersonal As ClsRH = New ClsRH()
            If ObjPersonal.Updateestemporal(CvePersonal, UsuarioActual.CveEmpresa, ChkEstemporal.Checked) Then
                Alert("Se ha actualizado el empleado", TipoMensaje.ToastInformacion)
            End If
        End Using
    End Sub
    Protected Sub LnkModificarSalarioGuardar_Click(sender As Object, e As EventArgs)
        If CvePersonal > 0 Then
            getdatosFI()
            TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
            calcularSDI()
            TxtSalarioDiarioImSS.Text = (TxtFISalarioDiarioIntegrado.Text.ToDecimal() + salarioVariable).ToString()
            TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
            Using ObjPersonal As ClsRH = New ClsRH()
                ObjPersonal.IniciaTransacSQL()
                If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                              TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(),
                                              TxtSalarioDiarioM.Text.ToDecimal(), False, False, "A") Then
                    ObjPersonal.Commit()
                    TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
                    TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
                    TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
                    TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
                    TxtFISalarioDiarioIntegrado.Text = TxtSalarioDiarioIntegrado.Text
                    UpModSalario.Update()
                    UpDatos.Update()
                    Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
                Else
                    ObjPersonal.RollBack()
                End If
            End Using
        End If
        RegistraScript("$('#Dmodamodificarsalario').modal('hide')")
    End Sub
    Protected Sub LnkModsalario_Click(sender As Object, e As EventArgs)
        If CvePersonal > 0 Then
            TxtFechamodSalario.Text = NowADS().ToString("dd/MM/yyyy")
            TxtSalarioDiarioM.Text = TxtSalarioDiario.Text
            TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
            TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
        End If
        RegistraScript("$('#Dmodamodificarsalario').modal()")
        UpModSalario.Update()
    End Sub

    Protected Sub LnkModificarSalarioIMSSGuardar_Click(sender As Object, e As EventArgs)

        Using ObjPersonal As ClsRH = New ClsRH()
            ObjPersonal.IniciaTransacSQL()
            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodIMSSSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                          TxtSalarioDiario.Text.ToDecimal(), TxtMImssSDI.Text.ToDecimal(), TxtMImssSalarioDiarioImSS.Text.ToDecimal(), -1, False, True, "B") Then


                ObjPersonal.Commit()

                RegistraScript("$('#DmodamodificarsalarioIMSS').modal('hide')")
                TxtSalarioCotizado.Text = TxtMImssSalarioDiarioImSS.Text
                TxtSDI.Text = TxtMImssSDI.Text
                Dim sdi As Decimal = TxtSDI.Text.ToDecimal()
                Dim sbc As Decimal = TxtMImssSalarioDiarioImSS.Text.ToDecimal()
                salarioVariable = If(sbc > sdi, sbc - sdi, 0)
                UpModSalario.Update()
                UpDatos.Update()
                Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
            Else
                ObjPersonal.RollBack()
            End If
        End Using

    End Sub
    Protected Sub LnkModsalarioIMSS_Click(sender As Object, e As EventArgs)
        TxtFechamodIMSSSalario.Text = NowADS().ToString("dd/MM/yyyy")
        TxtMImssSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
        TxtMImssSDI.Text = TxtSDI.Text
        RegistraScript("$('#DmodamodificarsalarioIMSS').modal()")
        UpModSalarioIMSS.Update()
    End Sub

    Protected Sub UpdatePersonalAlta_Click(sender As Object, e As EventArgs)

    End Sub
    Protected Sub DeletePersonalAlta_Click(sender As Object, e As EventArgs)

    End Sub
    Protected Sub LnkDescargaFormatoParametros_Click(sender As Object, e As EventArgs)

        Dim ListaTagsDocumentost As New List(Of TagsDocumentos)
        Dim ObjRH As New ClsRH
        ListaTagsDocumentost = ObjRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa)
        ObjRH.Dispose()

        For Each GvRow As GridViewRow In GvParametros.Rows

            If GvRow.FCTextBox("TxtParametro").Text.Trim.Length > 0 Then
                ListaTagsDocumentost.Add(New TagsDocumentos(GvRow.DataKey("Parametro"), GvRow.FCTextBox("TxtParametro").Text))
            End If
        Next
        Dim PathRoot As String = AppDomain.CurrentDomain.BaseDirectory
        Dim PathSource As String
        Dim pathDesti As String

        PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & DocumentoParametros
        pathDesti = PathRoot & "Temp\" & CvePersonal & DocumentoParametros

        If File.Exists(pathDesti) Then
            File.Delete(pathDesti)
        End If

        File.Copy(PathSource, pathDesti)

        Dim objDoc As New clsGemBoxDocument(pathDesti)
        objDoc.SustituirTags(ListaTagsDocumentost)
        objDoc.Guardar(pathDesti)

        Dim fileinfo As New FileInfo(pathDesti)

        Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority)
        baseUrl = baseUrl & "/temp/" & fileinfo.Name

        RegistraScript("$('#DVDescargaDocumentoParametrosModal').modal('hide')", "500")
        RegistraDescargaJavaScript(baseUrl)


    End Sub

    Private Sub CargarPagosNoBancarios()
        Dim ObjBancos As New ClsBancos
        If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
            GvPagosNoBancarios.DataSource = ObjBancos.DtResultados
            GvPagosNoBancarios.DataBind()
        End If
        ObjBancos.Dispose()
    End Sub



    Property CvePersonalAltas As Integer
        Get
            If ViewState("CvePersonalAltas") Is Nothing Then
                Return 0
            Else
                Return DirectCast(ViewState("CvePersonalAltas"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CvePersonalAltas") = value
        End Set
    End Property

    Protected Sub LnkUpAltass_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
        CvePersonalAltas = GvRow.DataKey("CvePersonalAltas").ToEntero()
        TxtFechaInicioUA.Text = String.Format("{0:dd/MM/yyyy}", GvRow.DataKey("FechaInicio").ToDateTime())
        Dim fechafin As DateTime = GvRow.DataKey("FechaFin").ToDateTime()
        If fechafin.Year < 1900 Then
            TxtFechaFinUA.Text = ""
        Else
            TxtFechaFinUA.Text = String.Format("{0:dd/MM/yyyy}", fechafin)
        End If
        UpAltasUpdate.Update()
        RegistraScript("$('#ModalUpAltas').modal();")
    End Sub

    Protected Sub LnkDAltas_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
        CvePersonalAltas = GvRow.DataKey("CvePersonalAltas").ToEntero()
        Using objrh As New ClsRH()
            If (objrh.PersonalAltasRemove(CvePersonalAltas, CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Then
                If objrh.GetPersonalAltas(CvePersonal) Then
                    GvPersonalAltas.DataSource = objrh.DtResultados
                    GvPersonalAltas.DataBind()
                    UpDatos.Update()
                End If
                Alert("Alta eliminada")
            End If
        End Using
    End Sub

    Protected Sub LnkUpAltas_Click(sender As Object, e As EventArgs)

        Dim strfin As String = ""
        Dim fechafin As DateTime = TxtFechaFinUA.Text.ToDateTime()
        If fechafin.Year < 1900 Then
            strfin = ",[FechaFin]=null"
        Else
            strfin = String.Format(",[FechaFin]='{0:yyyy-MM-dd}'", fechafin)

        End If
        Dim finicio As String = TxtFechaInicioUA.Text.ToDateTime().ToString("yyyy-MM-dd")
        Dim ffin As String = TxtFechaFinUA.Text.ToDateTime().ToString("yyyy-MM-dd")
        Using objrh As New ClsRH()
            If Not (objrh.ValidaFechaIngresoVSNominas(CvePersonal, CvePersonalAltas, 0, finicio, ffin)) Then
                Alert("La fecha de ingreso o de fin no puede ser modificada, ya que existen registros de nómina autorizados que se encuentran dentro del periodo definido.", TipoMensaje.MsgAdvertencia)

            End If
            If (objrh.PersonalAltasUpFechas(CvePersonalAltas, finicio, ffin, CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Then
                If objrh.GetPersonalAltas(CvePersonal) Then
                    GvPersonalAltas.DataSource = objrh.DtResultados
                    GvPersonalAltas.DataBind()
                    UpDatos.Update()
                End If
                Alert("Alta actualizada")
            End If
        End Using
    End Sub

    Protected Sub GvPersonalAltas_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.FCLinkButton("LnkUpAltass").Visible = UsuarioActual.TienePermisoProceso(327)
            e.Row.FCLinkButton("LnkDAltas").Visible = e.Row.FCLinkButton("LnkUpAltass").Visible
        End If

    End Sub

    Protected Sub DdlSubProyectoAsignado_SelectedIndexChanged1(sender As Object, e As EventArgs)

        Using objrh As New ClsRH()


            If DdlSubProyectoAsignado.SelectedValue.ToEntero().Contiene(11954, 11884, 11883) Then
                Dim objgenerales As New ClsGenerales()
                objgenerales.GetMediosTransporte(-1, True, UsuarioActual.CveEmpresa, 1, -1, -1, -1)
                DdlMedioTransporte.Items.Clear()

                Dim drow As DataRow = objgenerales.DtResultados.NewRow
                drow("CveOrigen") = -1
                drow("Nombre") = "Seleccione"
                objgenerales.DtResultados.Rows.InsertAt(drow, 0)

                DdlMedioTransporte.DataSource = objgenerales.DtResultados
                DdlMedioTransporte.DataBind()
            Else
                Dim objgenerales As New ClsGenerales()
                objgenerales.GetMediosTransporte(-1, True, UsuarioActual.CveEmpresa, -1, DdlSubProyectoAsignado.SelectedValue.ToEntero(), -1, -1)

                DdlMedioTransporte.Items.Clear()
                Dim drow As DataRow = objgenerales.DtResultados.NewRow
                drow("CveOrigen") = -1
                drow("Nombre") = "Seleccione"
                objgenerales.DtResultados.Rows.InsertAt(drow, 0)
                DdlMedioTransporte.DataSource = objgenerales.DtResultados
                DdlMedioTransporte.DataBind()
            End If


        End Using
    End Sub
#Region "movtosPermanentes"
    Protected Sub CargaTipoConcepto()
        CargaConcepto()
    End Sub

    Protected Sub CargaConcepto()
        Dim dt As DataTable = dtNomConceptos.FiltraParametros(" FormulaTotal = 'FNC.[MovimientosPermanentes]'")
        DdlConcepto.Items.Clear()

        If DdlTipo.SelectedValue.Contiene("P", "D", "O") Then
            DdlConcepto.DataSource = dt.FiltraParametros(String.Format("Tipo ='{0}'", DdlTipo.SelectedValue))
        End If

        Dim drow As DataRow = dt.NewRow()
        drow("CveConcepto") = "-1"
        drow("Concepto") = "Seleccione"
        dt.Rows.InsertAt(drow, 0)
        DdlConcepto.DataSource = dt
        DdlConcepto.SelectedValueExist("-1")
        DdlConcepto.DataBind()
    End Sub

    Private Sub CargaMovtoPermanente()
        Using ObjMovt As ClsNominas = New ClsNominas()
            ObjMovt.GetMovtoPermanente(UsuarioActual.CveEmpresa, CvePersonal)
            GVMovtoPermanente.DataSource = ObjMovt.DtResultados
        End Using

        GVMovtoPermanente.DataBind()
        UpMovtosPermanentes.Update()
    End Sub

    Protected Sub DdlTipo_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
        CargaConcepto()
    End Sub

    Protected Sub LnkAddMovtoPermanente_Click(ByVal sender As Object, ByVal e As EventArgs)
        CargaConcepto()
        DdlTipoDescto_SelectedIndexChanged(Nothing, Nothing)
        pnlAddupMovto.Visible = True
        LnkAddMovto.Visible = True
        LnkUpMovto.Visible = False
        LtlMovtoPermanenteaddup.Text = "Agregar Movimiento"
        TxtDescripcion.Text = ""
        TxtValor.Text = ""
        TxtVecesAplicar.Text = ""
        TxtMontoLimite.Text = ""
        TxtFechaAplicacion.Text = ""
        ChkEstatus.Visible = True
        ChkEstatus.Checked = True
        UpMovtosPermanentesModal.Update()
        RegistraScript("$('#ModalMovtoPermanente').modal()")
    End Sub

    Protected Sub LnkAddMovto_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim cveConcepto As Integer = DdlConcepto.SelectedValue.ToEntero()
        Dim descripcion As String = TxtDescripcion.Text
        Dim tipoDescuento As Integer = DdlTipoDescto.SelectedValue.ToEntero()
        Dim valor As Double = TxtValor.Text.ToDouble()
        Dim vecesAplicar As Integer = TxtVecesAplicar.Text.ToEntero()
        Dim montoLimite As Decimal = TxtMontoLimite.Text.ToDecimal()
        Dim fechaInicioAplicacion As Date = TxtFechaAplicacion.Text.ToDate()
        Dim estatus As Boolean = ChkEstatus.Checked
        Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1))
        Dim Continuar As Boolean

        Using ObjMovt As ClsNominas = New ClsNominas()
            Continuar = ObjMovt.AddMovtoPermanente(cveConcepto, CvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta) > 0
        End Using

        If Continuar Then
            RegistraScript("$('#DModalMovtoPermanente').modal('hide');")
            CargaMovtoPermanente()
            UpMovtosPermanentes.Update()
            Alert("Se ha agregado el movimiento permanente")
        End If

        RegistraScript("$('#ModalMovtoPermanente').modal('hide')")
    End Sub

    Protected Sub LnkUpMovto_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim cveConcepto As Integer = DdlConcepto.SelectedValue.ToEntero()
        Dim descripcion As String = TxtDescripcion.Text
        Dim tipoDescuento As Integer = DdlTipoDescto.SelectedValue.ToEntero()
        Dim valor As Double = TxtValor.Text.ToDouble()
        Dim vecesAplicar As Integer = TxtVecesAplicar.Text.ToEntero()
        Dim montoLimite As Decimal = TxtMontoLimite.Text.ToDecimal()
        Dim fechaInicioAplicacion As Date = TxtFechaAplicacion.Text.ToDate()
        Dim estatus As Boolean = ChkEstatus.Checked
        Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1))
        Dim Continuar As Boolean

        Using ObjMovt As ClsNominas = New ClsNominas()
            Continuar = ObjMovt.UpMovtoPermanente(CcveMovtoPermanente, cveConcepto, CvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta)
        End Using

        If Continuar Then
            RegistraScript("$('#ModalMovtoPermanente').modal('hide');")
            CargaMovtoPermanente()
            UpMovtosPermanentes.Update()
            Alert("Se ha actualizado el movimiento permanente")
        End If
    End Sub

    Protected Sub DdlTipoDescto_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
        pnlMonto.Visible = DdlTipoDescto.SelectedValue.ToEntero() > 2
        pnlVecesAplicar.Visible = DdlTipoDescto.SelectedValue.ToEntero() < 3
    End Sub

    Protected Sub LnkremoveMovtoPermanente_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim gvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
        CcveMovtoPermanente = gvRow.DataKey("CveMovtoPermanente").ToEntero()
        Dim Continuar As Boolean = False

        Using ObjMovt As ClsNominas = New ClsNominas()
            Continuar = ObjMovt.RemoveMovtoPermanente(CcveMovtoPermanente)
        End Using

        If Continuar Then
            RegistraScript("$('#ModalMovtoPermanente').modal('hide');")
            CargaMovtoPermanente()
            UpMovtosPermanentes.Update()
            Alert("Se ha eliminadó el movimiento permanente")
        End If
    End Sub

    Protected Sub LnkEditarMovtoPermanente_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim gvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
        CcveMovtoPermanente = gvRow.DataKey("CveMovtoPermanente").ToEntero()
        Dim cveConcepto As Integer = gvRow.DataKey("CveConcepto").ToEntero()
        Dim cvePersonal As Integer = gvRow.DataKey("CvePersonal").ToEntero()
        Dim CveCuenta As Integer = gvRow.DataKey("CveCuenta").ToEntero()
        Dim descripcion As String = gvRow.DataKey("Descripcion")
        Dim tipoDescuento As Integer = gvRow.DataKey("TipoDescuento").ToEntero()
        Dim valor As Double = gvRow.DataKey("Valor").ToDouble()
        Dim vecesAplicar As Integer = gvRow.DataKey("VecesAplicar").ToEntero()
        Dim montoLimite As Decimal = gvRow.DataKey("MontoLimite").ToDecimal()
        Dim fechaInicioAplicacion As DateTime = gvRow.DataKey("FechaInicioAplicacion").ToDate()
        Dim estatus As Boolean = gvRow.DataKey("Estatus") = "1" OrElse gvRow.DataKey("Estatus").ToUpper() = "TRUE"
        Dim fechaRegistro As DateTime = gvRow.DataKey("FechaRegistro").ToDateTime()
        Dim tipo As String = "P"
        Dim drow As DataRow = dtNomConceptos.FiltroPrimero(String.Format("CveConcepto ='{0}'", cveConcepto))

        If drow IsNot Nothing Then
            tipo = drow("Tipo").ToString()
            DdlTipo.SelectedValueExist(tipo)
            DdlTipo_SelectedIndexChanged(Nothing, Nothing)
        End If

        CargaConcepto()
        DdlConcepto.SelectedValueExist(cveConcepto)
        TxtDescripcion.Text = descripcion.ToString()
        DdlTipoDescto.SelectedValueExist(tipoDescuento.ToString())
        DdlTipoDescto_SelectedIndexChanged(Nothing, Nothing)
        TxtValor.Text = valor.ToString()
        TxtVecesAplicar.Text = vecesAplicar.ToString()
        TxtMontoLimite.Text = montoLimite.ToString()
        TxtFechaAplicacion.Text = $"{fechaInicioAplicacion}"
        DdlCtaContable.SelectedValueExist("-1")

        ChkEstatus.Checked = estatus
        RegistraScript("$('#ModalMovtoPermanente').modal()")
        pnlAddupMovto.Visible = True
        LnkAddMovto.Visible = False
        LnkUpMovto.Visible = True
        UpMovtosPermanentesModal.Update()
    End Sub
#End Region
#Region "incapacidad"
    Private Property CcvePersonalIncapacidad As Integer
        Get
            Return If((ViewState("CcvePersonalIncapacidad") Is Nothing), 0, Convert.ToInt32(ViewState("CcvePersonalIncapacidad")))
        End Get
        Set(ByVal value As Integer)
            ViewState("CcvePersonalIncapacidad") = value
        End Set
    End Property

    Public Property DTVacResumen As DataTable
        Get
            If ViewState("DTVacResumen") Is Nothing Then
                ViewState("DTVacResumen") = New DataTable
            End If

            Return DirectCast(ViewState("DTVacResumen"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTVacResumen") = value
        End Set
    End Property

    Public Property DiasDisponibles As Integer
        Get
            If ViewState("DiasDisponibles") Is Nothing Then
                ViewState("DiasDisponibles") = 0
            End If

            Return ViewState("DiasDisponibles").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("DiasDisponibles") = value
        End Set
    End Property


    Protected Sub CargaPersonalIncapacidad()
        LimpiaPersonalIncapacidad()
        LnkAgregarIncapacidad.Visible = False
        LnkActualizarIncapacidad.Visible = False
        CcvePersonalIncapacidad = 0

        Using ObjPers As ClsNominas = New ClsNominas()
            ObjPers.PersonalIncapacidadGet(-1, CvePersonal, UsuarioActual.CveEmpresa)
            GVNom_PersonalIncapacidad.DataSource = ObjPers.DtResultados
        End Using

        GVNom_PersonalIncapacidad.DataBind()
        UpsrIncapacidadpersonal.Update()
    End Sub

    Protected Sub LimpiaPersonalIncapacidad()
        TxtSRINCfolio.Text = ""
        TxtSRINCfechaInicio.Text = ""
        TxtSRINCdiasAutorizados.Text = ""
        TxtDiasPagoEmpresa.Text = If(UsuarioActual.CveEmpresa = 141, "3", "")
        DdlSRINCcveTipodeIncidencia.SelectedValue = "-1"
        DdlSRINCcveRamoSeguro.SelectedValue = "-1"
        DdlSRINCcveTipoRiesgo.SelectedValue = "-1"
        TxtSRINCporcentajedeIncapacidad.Text = "100"
        DdlSRINCcveSecuelaConsecuencia.SelectedValue = "-1"
        DdlSRINCcveControlIncapacidad.SelectedValue = "-1"
        TxtSRINCdescripcion.Text = ""
        UpsrIncapacidadpersonal.Update()
    End Sub

    Protected Sub LnkPersonalIncapacidad_Click(ByVal sender As Object, ByVal e As EventArgs)
        LimpiaPersonalIncapacidad()
        Dim gvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
        CcvePersonalIncapacidad = gvRow.DataKey("CvePersonalIncapacidad").ToEntero()
        Dim cvePersonal As Integer = gvRow.DataKey("CvePersonal").ToEntero()
        Dim folio As String = gvRow.DataKey("Folio")
        Dim fechaInicio As DateTime = gvRow.DataKey("FechaInicio").ToDateTime()
        Dim diasAutorizados As Integer = gvRow.DataKey("DiasAutorizados").ToEntero()
        Dim diasPagoEmpresa As Integer = gvRow.DataKey("DiasPagoEmpresa").ToEntero()
        Dim cveTipodeIncidencia As Integer = gvRow.DataKey("CveTipodeIncidencia").ToEntero()
        Dim cveRamoSeguro As Integer = gvRow.DataKey("CveRamoSeguro").ToEntero()
        Dim cveTipoRiesgo As Integer = gvRow.DataKey("CveTipoRiesgo").ToEntero()
        Dim porcentajedeIncapacidad As Integer = gvRow.DataKey("PorcentajedeIncapacidad").ToEntero()
        Dim cveSecuelaConsecuencia As Integer = gvRow.DataKey("CveSecuelaConsecuencia").ToEntero()
        Dim cveControlIncapacidad As Integer = gvRow.DataKey("CveControlIncapacidad").ToEntero()
        Dim descripcion As String = gvRow.DataKey("Descripcion")
        TxtSRINCfolio.Text = folio.ToString()
        TxtSRINCfechaInicio.Text = $"{fechaInicio}"
        TxtSRINCdiasAutorizados.Text = diasAutorizados.ToString()
        TxtDiasPagoEmpresa.Text = diasPagoEmpresa.ToString()
        DdlSRINCcveTipodeIncidencia.SelectedValueExist(cveTipodeIncidencia.ToString())
        DdlSRINCcveRamoSeguro.SelectedValueExist(cveRamoSeguro.ToString())
        DdlSRINCcveTipoRiesgo.SelectedValueExist(cveTipoRiesgo.ToString())
        TxtSRINCporcentajedeIncapacidad.Text = porcentajedeIncapacidad.ToString()
        DdlSRINCcveSecuelaConsecuencia.SelectedValueExist(cveSecuelaConsecuencia.ToString())
        DdlSRINCcveControlIncapacidad.SelectedValueExist(cveControlIncapacidad.ToString())
        TxtSRINCdescripcion.Text = descripcion.ToString()
        LnkAgregarIncapacidad.Visible = False
        LnkActualizarIncapacidad.Visible = True
        RegistraScript("$('#ModalSRIncapacidad').modal()")
    End Sub

    Protected Sub LnkshowaaddIncapacidad_Click(ByVal sender As Object, ByVal e As EventArgs)
        LimpiaPersonalIncapacidad()
        LnkAgregarIncapacidad.Visible = True
        LnkActualizarIncapacidad.Visible = False
        CcvePersonalIncapacidad = 0
        RegistraScript("$('#ModalSRIncapacidad').modal()")
    End Sub

    Protected Sub LnkAgregarIncapacidad_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim folio As String = TxtSRINCfolio.Text
        Dim fechaInicio As DateTime = TxtSRINCfechaInicio.Text.ToDateTime()
        Dim diasAutorizados As Integer = TxtSRINCdiasAutorizados.Text.ToEntero()
        Dim DiasPagoEmpresa As Integer = TxtDiasPagoEmpresa.Text.ToEntero()
        Dim cveTipodeIncidencia As Integer = DdlSRINCcveTipodeIncidencia.Text.ToEntero()
        Dim cveRamoSeguro As Integer = DdlSRINCcveRamoSeguro.Text.ToEntero()
        Dim cveTipoRiesgo As Integer = DdlSRINCcveTipoRiesgo.Text.ToEntero()
        Dim porcentajedeIncapacidad As Integer = TxtSRINCporcentajedeIncapacidad.Text.ToEntero()
        Dim cveSecuelaConsecuencia As Integer = DdlSRINCcveSecuelaConsecuencia.Text.ToEntero()
        Dim cveControlIncapacidad As Integer = DdlSRINCcveControlIncapacidad.Text.ToEntero()
        Dim descripcion As String = TxtSRINCdescripcion.Text
        Dim Continuar As Boolean

        Using ObjPers As ClsNominas = New ClsNominas()
            Continuar = ObjPers.PersonalIncapacidadAdd(UsuarioActual.CveUsuario, CvePersonal, folio, fechaInicio, diasAutorizados, cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion, DiasPagoEmpresa)
        End Using

        If Continuar Then
            CargaPersonalIncapacidad()
            UpsrIncapacidadpersonal.Update()
            Alert("La incapacidad se ha agregado.", TipoMensaje.ToastInformacion)
            RegistraScript("$('#ModalSRIncapacidad').modal('hide')")
        End If
    End Sub

    Protected Sub LnkActualizarIncapacidad_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim folio As String = TxtSRINCfolio.Text
        Dim fechaInicio As DateTime = TxtSRINCfechaInicio.Text.ToDateTime()
        Dim diasAutorizados As Integer = TxtSRINCdiasAutorizados.Text.ToEntero()
        Dim DiasPagoEmpresa As Integer = TxtDiasPagoEmpresa.Text.ToEntero()
        Dim cveTipodeIncidencia As Integer = DdlSRINCcveTipodeIncidencia.Text.ToEntero()
        Dim cveRamoSeguro As Integer = DdlSRINCcveRamoSeguro.Text.ToEntero()
        Dim cveTipoRiesgo As Integer = DdlSRINCcveTipoRiesgo.Text.ToEntero()
        Dim porcentajedeIncapacidad As Integer = TxtSRINCporcentajedeIncapacidad.Text.ToEntero()
        Dim cveSecuelaConsecuencia As Integer = DdlSRINCcveSecuelaConsecuencia.Text.ToEntero()
        Dim cveControlIncapacidad As Integer = DdlSRINCcveControlIncapacidad.Text.ToEntero()
        Dim descripcion As String = TxtSRINCdescripcion.Text
        Dim Continuar As Boolean

        Using ObjPers As ClsNominas = New ClsNominas()
            Continuar = ObjPers.PersonalIncapacidadUp(UsuarioActual.CveUsuario, CcvePersonalIncapacidad, folio, fechaInicio, diasAutorizados, cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion, DiasPagoEmpresa)
        End Using

        If Continuar Then
            CargaPersonalIncapacidad()
            UpsrIncapacidadpersonal.Update()
            Alert("La incapacidad se ha actualizado.", TipoMensaje.ToastInformacion)
            RegistraScript("$('#ModalSRIncapacidad').modal('hide')")
        End If
    End Sub
#End Region


    Protected Sub LnkActivar_Click(sender As Object, e As EventArgs)
        LblEstatus.Text = "Activar personal"
        LblFechaEstatus.Text = "Fecha ingreso ó reingreso"
        TxtFechaEstatus.Text = ""
        DivMotivoBaja.Visible = False
        RegistraScript("$('#ModalUpEstatus').modal();")
        upPersonEstatus.Update()
    End Sub

    Protected Sub LnkDesactivar_Click(sender As Object, e As EventArgs)
        LblEstatus.Text = "Desactivar personal"
        LblFechaEstatus.Text = "Fecha baja"
        TxtFechaEstatus.Text = ""
        DivMotivoBaja.Visible = True
        RegistraScript("$('#ModalUpEstatus').modal();")
        upPersonEstatus.Update()
    End Sub

    Protected Sub LnkUpEstatus_Click(sender As Object, e As EventArgs)
        Dim fini As DateTime
        Dim ffin As DateTime
        Dim fecha As DateTime = TxtFechaEstatus.Text.ToDateTime()

        If GvPersonalAltas.Rows.Count > 0 Then
            Dim gvrow As GridViewRow = GvPersonalAltas.Rows(0)
            fini = gvrow.DataKey("FechaInicio").ToDateTime()
            ffin = gvrow.DataKey("FechaFin").ToDateTime()

        End If
        Dim estatus As Integer = -1
        Dim continuar As Boolean = False


        If (LnkActivar.Visible) Then
            estatus = 1
            If ffin >= fecha Then
                continuar = False
                Alert(String.Format("la '{0}' debe ser mayor a {1:dd/MM/yyyy}", LblFechaEstatus.Text, ffin), TipoMensaje.MsgAdvertencia)
            Else
                continuar = True

            End If
        Else

            estatus = 2
            If fini >= fecha Then
                continuar = False
                Alert(String.Format("la '{0}' debe ser mayor a {1:dd/MM/yyyy}", LblFechaEstatus.Text, fini), TipoMensaje.MsgAdvertencia)
            Else
                continuar = True

            End If
        End If
        'If continuar Then
        '    Using onom As ClsNominas = New ClsNominas()
        '        onom.ValidaFechaFinPersonal(CvePersonal, UsuarioActual.CveEmpresa, fecha.ToString("yyyy/MM/dd"))
        '        If onom.DtResultados.Rows.Count > 0 Then
        '            continuar = False
        '            Dim strbuild As StringBuilder = New StringBuilder()
        '            strbuild.Append("No es posible desactivar con esta fecha ya que existen  asistencias posteriores a la fecha fin con nominas autorizadas, es necesario desautorizar la siguientes nominas  para reintentar el proceso.")
        '            For Each drow As DataRow In onom.DtResultados.Rows
        '                strbuild.AppendFormat("<br/> {0}", drow("PeriodoTexto"))
        '            Next
        '            Alert(strbuild.ToString(), TipoMensaje.MsgAdvertencia)
        '        End If
        '    End Using
        'End If
        If continuar Then
            Using objrh As New ClsRH
                continuar = objrh.estatusPersonalUp(fecha, CvePersonal, estatus, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlMotivoBaja.SelectedValue.ToEntero(), Txobservacionesbaja.Text)
            End Using
        End If

        If continuar Then

            EnviarCorreoBajaReingresoNominista(If(estatus = 1, TipoMovimientoRH.Reingreso, TipoMovimientoRH.Baja))

        End If

        If continuar Then

            RegistraScript("$('#ModalUpEstatus').modal('hide');")
            Alert("Se guardo correctamente", TipoMensaje.MsgInformacion)
            CargaDatos()
        End If
    End Sub

    Protected Sub LnkContratoAgropecuaria_Click(sender As Object, e As EventArgs)
        Dim RutaArchivo As String = "F:\Proyectos\wwwSIG\General\CONTRATO.doc"

        Dim dSDTotal As Decimal = 0
        Dim SDTotalText As String = ""
        Dim SDTotal As String = ""
        Dim SueldoDiario As String = ""
        Dim septimodia As String = ""
        Dim Aguinaldo As String = ""
        Dim Vacaciones As String = ""
        Dim Prima As String = ""
        Dim vacacionesyprima As String = ""
        Dim Utilidades As String = ""
        Dim strquery As String = String.Format("EXEC PA_Agro_ValidacionNomGet @CveValidacionNomina=-1,@CveEmpresa ={0} ", UsuarioActual.CveEmpresa)
        Using objbase As New ClsNominas()
            If (objbase.AgroValidacionNomGet(-1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Then
                Dim dbrow As DataRow
                dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =4")
                If Not IsNothing(dbrow) Then
                    SueldoDiario = String.Format("{0:N2}", dbrow("Importe"))
                    dSDTotal = dbrow("Importe").ToString().ToDecimal()
                End If
                dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =5")
                If Not IsNothing(dbrow) Then
                    septimodia = String.Format("{0:N2}", dbrow("Importe"))
                    dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
                End If
                dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =6")
                If Not IsNothing(dbrow) Then
                    Aguinaldo = String.Format("{0:N2}", dbrow("Importe"))
                    dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
                End If
                dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =8")
                If Not IsNothing(dbrow) Then
                    vacacionesyprima = String.Format("{0:N2}", dbrow("Importe"))
                    Dim temptotal As Decimal = dbrow("Importe").ToString().ToDecimal()

                    Vacaciones = String.Format("{0:N2}", temptotal / 1.5)
                    Prima = String.Format("{0:N2}", (temptotal / 1.5) * 0.5)

                    dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
                End If
                dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =7")
                If Not IsNothing(dbrow) Then
                    Utilidades = String.Format("{0:N2}", dbrow("Importe"))
                    dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
                End If
                SDTotalText = Texto2Letras(dSDTotal)
                SDTotal = String.Format("{0:N2}", dSDTotal)

            End If
        End Using

        Dim Tags As New List(Of TagsDocumentos)
        Dim ObjRH As New ClsRH()

        If ObjRH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then

            If ObjRH.CveSubProyecto.Contiene(11884, 11883) Then
                RutaArchivo = "F:\Proyectos\wwwSIG\General\CONTRATOINVERNADERO.doc"

            End If
            Tags.Add(New TagsDocumentos("{NombreCompleto}", ObjRH.NombreCompleto))
            Tags.Add(New TagsDocumentos("{años}", (NowADS().Year - ObjRH.FechaNacimiento.Year).ToString()))
            Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text.ToUpper()))
            Tags.Add(New TagsDocumentos("{EstadoCivil}", DdlEstadoCivil.SelectedItem.Text))

            Tags.Add(New TagsDocumentos("{CiudadOrigen}", String.Format("{0},{1}", TxtCiudadOrigen.Text, DdlEstados.SelectedItem.Text).ToUpper()))
            Tags.Add(New TagsDocumentos("{RFC}", ObjRH.RFC))

            Tags.Add(New TagsDocumentos("{Ciudad}", String.Format("{0},{1}", TxtCiudad.Text, DdlEstadosDomicilio.SelectedItem.Text).ToUpper()))
            Tags.Add(New TagsDocumentos("{CALLE}", TxtCalle.Text))
            Tags.Add(New TagsDocumentos("{NO}", TxtNumExt.Text))
            Tags.Add(New TagsDocumentos("{COLONIA}", TxtColonia.Text))
            Tags.Add(New TagsDocumentos("{CP}", TxtCP.Text))


            Tags.Add(New TagsDocumentos("{SDTotalText}", SDTotalText))
            Tags.Add(New TagsDocumentos("{SDTotal}", SDTotal))
            Tags.Add(New TagsDocumentos("{SueldoDiario}", SueldoDiario))
            Tags.Add(New TagsDocumentos("{septimodia}", septimodia))
            Tags.Add(New TagsDocumentos("{Aguinaldo}", Aguinaldo))

            Tags.Add(New TagsDocumentos("{Vacaciones}", Vacaciones))
            Tags.Add(New TagsDocumentos("{Prima}", Prima))
            Tags.Add(New TagsDocumentos("{vacacionesyprima}", vacacionesyprima))
            Tags.Add(New TagsDocumentos("{Utilidades}", Utilidades))


            Tags.Add(New TagsDocumentos("{NumeroDia}", String.Format("{0:dd}", ObjRH.FechaIngreso)))
            Tags.Add(New TagsDocumentos("{MesLetra}", String.Format("{0:MMMM}", ObjRH.FechaIngreso)))
            Tags.Add(New TagsDocumentos("{Ejercicio}", String.Format("{0:yyyy}", ObjRH.FechaIngreso)))

        End If
        ObjRH.Dispose()

        Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
        objGemBoxDocument.SustituirTags(Tags)
        objGemBoxDocument.GuardarStreamPDF()

        Dim objbyte As Byte() = objGemBoxDocument.GetBytesDocumento


        Try
            Response.Buffer = True
            Response.Clear()
            Response.ContentType = "application/pdf"
            Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", "attachment", "Contrato.pdf", "pdf"))
            Response.BinaryWrite(objbyte) ' create the file
            Response.Flush() ' send it to the client to download
            objbyte = Nothing
            HttpContext.Current.Response.SuppressContent = True
            HttpContext.Current.ApplicationInstance.CompleteRequest()
            'HttpContext.Current.Response.End()
        Catch ex As Exception

            If UsuarioActual.CveRol = 1 Then
                Alert($"Error: {ex.Message}  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))}", TipoMensaje.MsgAdvertencia)
            Else
                Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod:'IMPDFclspag'", TipoMensaje.MsgAdvertencia)
            End If
        End Try

    End Sub


#Region "ENVIAR CORREO NOMINISTA"

    Enum TipoMovimientoRH
        Alta
        Baja
        Reingreso
    End Enum

    Private Sub EnviarCorreoBajaReingresoNominista(eTipoMovimientoRH As TipoMovimientoRH)


        Dim CorreoNominista As String = GlobalDTUsuarios(DDLUsuarioNomina.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
        Dim correo As New ClsSisMail
        Dim Cuerpo As New StringBuilder

        Dim CorreoUsuario As String = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
        Dim CCP As String = If(CorreoUsuario.Trim.Length > 0, CorreoUsuario, "")

        'Para Pruebas
        'CorreoNominista = "oscar.irigoyen@adssistemas.mx"

        If CorreoNominista = "" Then
            Alert("No se envio el correo  de notificación a nominas, el nominista no tiene correo  electronico", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        Dim Puesto As String = ""
        Dim Padre As String = ""
        Dim Madre As String = ""
        Dim FechaIngreso As String = ""

        Dim objRH As New ClsRH

        If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then

            Dim DtFamiliares As DataTable = objRH.DtResultados.FiltraParametros(" CveParentesco = 1 ")

            If DtFamiliares.Rows.Count > 0 Then
                Padre = DtFamiliares.Rows(0)("Nombre").ToString
            End If

            DtFamiliares = objRH.DtResultados.FiltraParametros(" CveParentesco = 2 ")

            If DtFamiliares.Rows.Count > 0 Then
                Madre = DtFamiliares.Rows(0)("Nombre").ToString
            End If

        End If

        If Padre.Trim.Length = 0 Then
            Padre = TxtNombrePadre.Text.Trim
        End If

        If Madre.Trim.Length = 0 Then
            Madre = TxtNombreMadre.Text.Trim
        End If

        Dim TimpoMovimiento As String = ""

        Select Case eTipoMovimientoRH
            Case TipoMovimientoRH.Alta
                TimpoMovimiento = "Alta"
                Exit Select
            Case TipoMovimientoRH.Baja
                TimpoMovimiento = "Baja"
                Exit Select
            Case TipoMovimientoRH.Reingreso
                TimpoMovimiento = "Reingreso"
                Exit Select
        End Select

        objRH.Dispose()
        Cuerpo.AppendLine("<table border='0' style='width:100%'>")
        Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, DdlEmpresaAsignada.SelectedItem.Text, UsuarioActual.Empresa.Empresa) }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ NowADS().ToShortDateString }   { NowADS().ToShortTimeString  } <br/></td> </tr>")

        Cuerpo.AppendLine($"<tr><td style='  font-size:large; text-align: left;' colspan='3'>Notificación por { TimpoMovimiento } de Nómina</td></tr>")
        Cuerpo.AppendLine("</table>")

        Cuerpo.AppendLine("<br/>")
        Cuerpo.AppendLine("<br/>")

        Cuerpo.AppendLine("<table border='0'>")
        Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left;  font-weight:bold;'>{IIf(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "")  }</td></tr>")

        If DvRuta.Visible Then
            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left;  font-weight:bold;'>{ DdlRuta.SelectedItem.Text }</td></tr>")
        End If

        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de { TimpoMovimiento }:</td><td style=' text-align: left; font-weight:bold;'>{  If(eTipoMovimientoRH = TipoMovimientoRH.Alta, TxtFechaIngreso.Text.ToDate.ToString("dd/MM/yyyy"), TxtFechaEstatus.Text)   }</td></tr>")

        If eTipoMovimientoRH = TipoMovimientoRH.Baja Then
            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Motivo de Baja:</td><td style=' text-align: left;  font-weight:bold;'>{ DdlMotivoBaja.SelectedItem.Text }</td></tr>")
            If Txobservacionesbaja.Text.Trim.Length > 0 Then
                Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Observaciones :</td><td style=' text-align: left;  font-weight:bold;'>{ Txobservacionesbaja.Text.Trim }</td></tr>")
            End If
        End If


        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre:</td><td style=' text-align: left; font-weight:bold;'>{ NombreCompleto }</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha y Lugar de Nacimiento:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaNacimiento.Text}  {TxtLugarNacimiento.Text}</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero IMSS:</td><td style=' text-align: left; font-weight:bold;'>{ TxtNumeroSS.Text }</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero Infonavit:</td><td style=' text-align: left; font-weight:bold;'>{ If(TxtInfoNumCredito.Text.Trim = "", "NO CUENTA CON CREDITO", TxtInfoNumCredito.Text) }</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Sexo:</td><td style=' text-align: left; font-weight:bold;'>{ IIf(DdlGenero.SelectedValue = "1", "Masculino", "Femenino")  }</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>R.F.C.:</td><td style=' text-align: left; font-weight:bold;'>{ TxtRFC.Text }</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>CURP:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCURP.Text }</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre del Padre:</td><td style=' text-align: left; font-weight:bold;'>{ Padre }</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text }  No Ext.{ TxtNumExt.Text} No int.{TxtNumInt.Text}</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ IIf(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "")   }</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text}, {TxtCelularPersonal.Text}, {TxtTelefono.Text}</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Tel en Caso de Emergencia:</td><td style=' text-align: left; font-weight:bold;'>{ TxtTelefonoEmergencia.Text }</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text  }</td></tr>")

        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Supervisor:</td><td style=' text-align: left; font-weight:bold;'>{ DdlSupervisorOrganigrama.SelectedItem.Text  }</td></tr>")
        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta:</td><td style=' text-align: left; font-weight:bold;'>{ DdlRuta.SelectedItem.Text  }</td></tr>")



        Dim SBDatosBancarios As New StringBuilder

        For Each GvRow As GridViewRow In GvBancosCuentas.Rows

            SBDatosBancarios.Append($"Banco: {GvRow.FCLabel("LtNombreBanco").Text}, ")
            SBDatosBancarios.Append(If(GvRow.FCLabel("LtNumeroCuenta").Text.Trim.Length > 0, $"Cuenta: {GvRow.FCLabel("LtNumeroCuenta").Text}, ", ""))
            SBDatosBancarios.Append(If(GvRow.FCLabel("LtCLABE").Text.Trim.Length > 0, $"CLABE: {GvRow.FCLabel("LtCLABE").Text}, ", ""))
            SBDatosBancarios.Append(If(GvRow.FCLabel("LtMoneda").Text.Trim.Length > 0, $"Moneda: {GvRow.FCLabel("LtMoneda").Text}, ", ""))
            SBDatosBancarios.Append(If(GvRow.FCLabel("LlbEstatusTexto").Text.Trim.Length > 0, $"Estatus: {GvRow.FCLabel("LlbEstatusTexto").Text} ", ""))
            SBDatosBancarios.AppendLine($"<br>")
        Next
        If SBDatosBancarios.ToString.Trim.Length > 0 Then
            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Datos Bancarios:</td><td style=' text-align: left; font-weight:bold;'>{ SBDatosBancarios.ToString  }</td></tr>")
        End If

        Cuerpo.AppendLine("</table>")

        correo.SendMail(EmpresaNotificaciones, CorreoNominista, $"Notificacion por  { TimpoMovimiento } de Nomina: " & NombreCompleto, Cuerpo.ToString, CCP:=CCP)

    End Sub


#End Region
    Protected Sub LnkSolicitarVacaciones_Click(sender As Object, e As EventArgs)
        DdlVacPeriodo_SelectedIndexChanged(Nothing, Nothing)

        TxtVacDiasPago.Text = DiasDisponibles.ToString

        Dim diaDescanso As Integer = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DiaDescanso", $" CveTurno = {DdlTurno.SelectedValue.ToEntero}").ToEntero
        diaDescanso = If(diaDescanso <= 0, 1, diaDescanso)

        LblModalAddVacacionesTitulo.Text = $"Agregar Vacaciones - días disponibles <b>{DiasDisponibles}</b>"

        UpModalAddVacacionesTitulo.Update()

        CalculaDiasVacaciones(TxtFechaInicioVac.Text.ToDate, TxtVacDiasPago.Text.ToEntero)

        If Not diaDescanso > 0 Then
            Alert("El turno no tiene día de descanso, provisionalmente se tomara el domingo.", TipoMensaje.MsgAdvertencia)
        End If

        RegistraScript("$('#ModalAddVacaciones').modal('show');")
    End Sub


    Private Sub CalculaDiasVacaciones(fechaInicioParametro As Date, diasVacaciones As Integer, Optional fechaFinParametro As Date = Nothing)

        'Dim diaDescanso As Integer = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DiaDescanso", $" CveTurno = {DdlTurno.SelectedValue.ToEntero}").ToEntero
        'diaDescanso = If(diaDescanso <= 0, 1, diaDescanso)

        'If fechaFinParametro <> Nothing Then
        '    If fechaInicioParametro > fechaFinParametro Then
        '        Alert("La fecha fin no  puede ser mayor a la fecha inicial", TipoMensaje.MsgAdvertencia)
        '        fechaFinParametro = Nothing
        '        TxtVacDiasPago.Text = DiasDisponibles.ToString
        '    End If
        'End If

        'If fechaFinParametro <> Nothing Then

        '    Dim DiferenciaEntreFechas As Integer = (fechaFinParametro - fechaInicioParametro).Days + 1
        '    Dim DiasNolavorales As Integer = 0
        '    Dim FechaTemp As Date = fechaInicioParametro

        '    For x As Integer = 1 To DiferenciaEntreFechas
        '        Dim day_of_week As Integer = CType(FechaTemp.DayOfWeek, Integer) + 1

        '        If day_of_week = diaDescanso Then
        '            DiasNolavorales = DiasNolavorales + 1
        '        End If

        '        FechaTemp = FechaTemp.AddDays(1)

        '        If 1 = DiferenciaEntreFechas Then
        '            If day_of_week = diaDescanso Then
        '                DiasNolavorales = DiasNolavorales + 1
        '            End If
        '        End If
        '    Next x


        '    If (DiferenciaEntreFechas - DiasNolavorales) >= DiasDisponibles Then
        '        diasVacaciones = DiasDisponibles
        '    Else
        '        diasVacaciones = DiferenciaEntreFechas - DiasNolavorales
        '    End If

        '    TxtVacDiasPago.Text = diasVacaciones.ToString

        'End If

        'If TxtVacDiasPago.Text.ToEntero > DiasDisponibles Then
        '    TxtVacDiasPago.Text = DiasDisponibles.ToString
        '    diasVacaciones = DiasDisponibles
        'End If


        'Dim DiasAgregados As Integer = 0
        'Dim FechaFin As Date = fechaInicioParametro
        'Dim Contador As Integer = 0
        'For x As Integer = 2 To diasVacaciones
        '    Dim day_of_week As Integer = CType(FechaFin.DayOfWeek, Integer) + 1
        '    If day_of_week = diaDescanso Then
        '        FechaFin = FechaFin.AddDays(2)
        '        DiasAgregados = DiasAgregados + 1
        '    Else
        '        FechaFin = FechaFin.AddDays(1)
        '        day_of_week = CType(FechaFin.DayOfWeek, Integer) + 1
        '        If (diasVacaciones = Contador + 2) AndAlso day_of_week = diaDescanso Then
        '            FechaFin = FechaFin.AddDays(1)
        '            DiasAgregados = DiasAgregados + 1
        '        End If

        '    End If
        '    Contador = Contador + 1
        'Next



        'Dim UltimoDiamasUno As Integer = CType(FechaFin.AddDays(1).DayOfWeek, Integer) + 1

        'If UltimoDiamasUno = diaDescanso Then
        '    FechaFin = FechaFin.AddDays(1)
        '    DiasAgregados = DiasAgregados + 1
        'End If 
        'TxtFechaFinVac.Text = FechaFin.ToString
        'Txtdiasinabiles.Text = DiasAgregados.ToString
        Using onom As New ClsNominas
            If onom.CalculaDiasFeriados(fechaInicioParametro.ToDateTime().ToString("yyyy-MM-dd"), "", diasVacaciones, 0, UsuarioActual.CveEmpresa, UsuarioActual.CvePersonal) Then
                If Not IsNothing(onom.DtResultados) AndAlso onom.DtResultados.Rows.Count > 0 Then
                    Dim drow As DataRow = onom.DtResultados.Rows(0)
                    TxtFechaFinVac.Text = String.Format("{0:dd/MM/yyyy}", drow("FechaInicio"))
                    Txtdiasinabiles.Text = String.Format("{0}", drow("DiaFeriadoB"))
                End If
            End If
        End Using
        UpSolicitarVacaciones.Update()

    End Sub

    Protected Sub LnkCalculaFechasVacaciones_Click(sender As Object, e As EventArgs)

        CalculaDiasVacaciones(TxtFechaInicioVac.Text.ToDate, TxtVacDiasPago.Text.ToEntero)

    End Sub

    Protected Sub LnkCalculaFechasVacacionesFechaFin_Click(sender As Object, e As EventArgs)

        If Not validaFechasVaciones() Then
            Exit Sub
        End If
        CalculaDiasVacaciones(TxtFechaInicioVac.Text.ToDate, TxtVacDiasPago.Text.ToEntero, TxtFechaFinVac.Text.ToDate)

    End Sub

    Private Function validaFechasVaciones() As Boolean

        If Not IsDate(TxtFechaFinVac.Text) Then
            Alert("Fecha fin invalida", TipoMensaje.MsgAdvertencia)
            Return False
        End If

        If Not IsDate(TxtFechaInicioVac.Text) Then
            Alert("Fecha de inicio invalida", TipoMensaje.MsgAdvertencia)
            Return False
        End If

        Return True
    End Function


    Protected Sub DdlVacPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs)

        Dim Ejercicio As Integer = DdlVacPeriodo.SelectedValue.ToEntero

        If Ejercicio > 0 Then
            DiasDisponibles = DTVacResumen.FiltroPrimeroValor("DiasDisponibles", $"Ejercicio = {Ejercicio}").ToEntero

            TxtVacDiasPago.Text = DiasDisponibles.ToString
            LblModalAddVacacionesTitulo.Text = $"Agregar Vacaciones - días disponibles <b>{DiasDisponibles}</b>"

            CalculaDiasVacaciones(TxtFechaInicioVac.Text.ToDate, TxtVacDiasPago.Text.ToEntero)
            UpModalAddVacacionesTitulo.Update()
            UpSolicitarVacaciones.Update()
        End If




    End Sub

    Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs)
        Dim dt As DataTable = dtSubTipoPeriodo.FiltraParametros(String.Format("CveTipoPeriodo ={0}", DdlTipoPeriodo.SelectedValue.ToEntero()))

        divSubTipoPeriodo.Visible = dt.Rows.Count > 1
        ddlSubTipoPeriodo.DataSource = dt
        ddlSubTipoPeriodo.DataBind()
        If dt.Rows.Count > 0 Then
            ddlSubTipoPeriodo.SelectedIndex = 0
        End If
        ddlSubTipoPeriodo.SelectedValueExist(CveSubTipoPeriodo.ToString())
        UpDatos.Update()
    End Sub



    Protected Sub cvCadena_ServerValidate(source As Object, args As ServerValidateEventArgs)
        Dim retorno As Boolean = True
        ' Verifica que la longitud de la cadena sea 5
        If Len(args.Value) <> 5 Then
            retorno = False
        End If

        ' Verifica que la cadena sea numérica
        If Not IsNumeric(args.Value) Then
            retorno = False
        End If

        args.IsValid = retorno
    End Sub

    Private Sub ValidaDeudorAcreedor()

        Dim RFCval As String = TxtRFC.Text.Trim

        If CvePersonal > 0 AndAlso (RFCval <> "-1" And RFCval <> "") Then
            Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=TxtRFC.Text).FiltroPrimeroValor("CveProveedor").ToEntero
            If Not CveProveedor > 0 Then
                LnkConvertirDeudor.Visible = True
            End If
        End If

    End Sub

    Protected Sub LnkConvertirDeudor_Click(sender As Object, e As EventArgs)

        Dim ProcesoOK = True

        Dim ObjProveedores As New ClsCompProveedores()
        Dim ObjCuentasDeposito As New ClsGenerales(ObjProveedores.IniciaTransacSQL())
        Dim NuevoCveProveedor As Integer = -1

        Dim CveProveedorClasificacion As Integer = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedorClasificacion").ToEntero

        If ObjProveedores.AddProveedor(TxtCodigo.Text.Trim, TxtNombres.Text.Trim, TxtNombres.Text.Trim, TxtNombres.Text.Trim, TxtRFC.Text.Trim, $"{TxtCalle.Text} #{TxtNumExt.Text} {TxtColonia.Text}", TxtTelefono.Text.Trim.Replace("("c, "").Replace(")"c, "").Replace("-"c, "").Replace(" ", ""),
                TxtNombres.Text.Trim, TxtCorreo.Text.Trim, TxtCelularPersonal.Text.Trim.Replace("("c, "").Replace(")"c, "").Replace("-"c, "").Replace(" ", ""), 0, 0,
                TxtObservaciones.Text.Trim, 0, 0, 0,
                CveProveedorClasificacion, -1, TxtCorreo.Text.Trim, TxtCorreo.Text.Trim, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                2, 1, DIOTCveTipoTercero:=1, DIOTCveTipoOperacion:=3, CP:=TxtCP.Text.ToEntero, CveRegimenFiscal:=1) Then

            NuevoCveProveedor = ObjProveedores.CveProveedor

        Else
            ProcesoOK = False
        End If



        If ProcesoOK Then
            ObjCuentasDeposito.Commit()
            GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
            GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
            Alert($"Deudor Agregado Correctamente <b><a target='_blank' href='../Compras/Proveedores.aspx?CveProveedor={NuevoCveProveedor}' class='Texto'>{TxtCodigo.Text.Trim}</a></b>")
            LnkConvertirDeudor.Visible = False
        Else
            ObjProveedores.RollBack()
        End If
        ObjProveedores.Dispose()



    End Sub

    Protected Sub CargaPersonalRefs()
        Dim ObjPers As New ClsNominas()
        ObjPers.PersonalCamposValoresGet(-1, CvePersonal)
        GVPersonalRefs.DataSource = ObjPers.DtResultados
        ObjPers.Dispose()
        GVPersonalRefs.DataBind()
        UPModalPers.Update()
    End Sub
    Protected Sub CargaDDlPersonalRefsReference()
        Dim ObjPers As New ClsNominas()
        ObjPers.PersonalCamposGET()
        DdlPersreferencia.DataSource = ObjPers.DtResultados
        ObjPers.Dispose()
        DdlPersreferencia.DataBind()
        UPModalPers.Update()
    End Sub
    Protected Sub LimpiaPersonalRefs()
        DdlPersreferencia.SelectedIndex = 0
        TxtPersvalor.Text = ""
        UPModalPers.Update()
    End Sub
    Protected Sub LnkMostrarCamposValor_Click(sender As Object, e As EventArgs)
        ltlPerstitulo.Text = "Campos valores"
        LimpiaPersonalRefs()

        RegistraScript("$('#DModalPersonalRefs').modal()")
        BtnPersADD.Visible = False
        PanelMostrarpersonalcampos.Visible = True
        PanelADDpersonalcampos.Visible = False
        UPModalPers.Update()
    End Sub
    Protected Sub LnkAgregarPers_Click(sender As Object, e As EventArgs)
        'RegistraScript("$('#DModalPersonalRefs').modal()")
        ltlPerstitulo.Text = "Agregar Campos Valores"
        LimpiaPersonalRefs()
        BtnPersADD.Visible = True
        PanelADDpersonalcampos.Visible = True
        PanelMostrarpersonalcampos.Visible = False
        UPModalPers.Update()
    End Sub
    Protected Sub BtnPersADD_Click(sender As Object, e As EventArgs)

        Dim cveReferencia As Int32 = DdlPersreferencia.SelectedValue.ToEntero()
        Dim valor As Decimal = TxtPersvalor.Text.ToDecimal()
        Dim ObjPers As New ClsNominas()
        Dim Continuar As Boolean = ObjPers.PersonalCamposValoresAddUp(cveReferencia, CvePersonal, valor)
        ObjPers.Dispose()
        If (Continuar) Then
            LimpiaPersonalRefs()
            UPModalPers.Update()
            Alert("El campo valor se ha agregado")
        End If
    End Sub
    Protected Sub LnkEliminarPers_Click(sender As Object, e As EventArgs)
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
        Dim CcveReferencia As Integer = gvRow.DataKey("CveReferencia").ToEntero()
        Dim ObjPers As New ClsNominas()
        Dim Continuar As Boolean = ObjPers.PersonalCamposValoresRemove(CcveReferencia, CvePersonal)
        ObjPers.Dispose()
        If (Continuar) Then
            CargaPersonalRefs()
            Alert("El campo valor se ha eliminado")
        End If
    End Sub
    'Protected Sub ChkPagoElectronicoGrupos_CheckedChanged(sender As Object, e As EventArgs)

    '    If ChkPagoElectronicoGrupos.Checked Then
    '        DVDdlSatBanco.Visible = True
    '    Else
    '        DVDdlSatBanco.Visible = False
    '    End If

    '    UpAddBancos.Update()
    'End Sub


    'Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs)

    '    'If ChkEstatusPagoE.Checked Then
    '    '    Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la plataforma", TipoMensaje.MsgAdvertencia)
    '    'End If

    'End Sub

End Class