Option Strict On
Option Explicit On

Imports System.IO
Imports Extensiones
Imports System.Data

Partial Class AF_ResguardoAF
    Inherits ClsPaginas

#Region "  PROPIEDADES  "
    Private Property ActivosFijos As List(Of Integer)
        Get
            Return CType(ViewState("ActivosFijos"), List(Of Integer))
        End Get
        Set(value As List(Of Integer))
            ViewState("ActivosFijos") = value
        End Set
    End Property
    Private Property CveResguardoPadre As Integer
        Get
            Return ViewState("CveResguardoPadre").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveResguardoPadre") = value
        End Set
    End Property
    Private Property EsURL2 As Boolean
        Get
            Return CType(ViewState("EsURL2"), Boolean)
        End Get
        Set(value As Boolean)
            ViewState("EsURL2") = value
        End Set
    End Property

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

#End Region

    Private Sub AF_TraspasoAF_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            InicializaValores()
        End If

    End Sub



#Region "  INICIALIZA VALORES  "
    Private Sub InicializaValores()
        EsLiberacion = False
        CveResguardoPadre = -1
        CargaDTResguardos()
        'RESGUARDO
        TxtFecha.Text = Now.ToShortDateString
        CargaAFResguardos()
        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()
        DdlSubProyectoF.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
        DdlSubProyectoF.DataBind()
        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlSubProyectoF.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0"))
        DdlSubProyectoF.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlResponsable.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusPersonal = 1", "NombreCompleto")
        DdlResponsable.DataBind()
        DdlResponsable.Items.Insert(0, New ListItem("Seleccione", "-1"))


        'TRASPASO

        TxtFechaT.Text = Now.ToShortDateString
        CargaAFResguardosTraslado()
        DdlSubProyectoT.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
        DdlSubProyectoT.DataBind()
        DdlSubProyectoT.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlResponsableT.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusPersonal = 1", "NombreCompleto")
        DdlResponsableT.DataBind()
        DdlResponsableT.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlSubProyectoFT.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
        DdlSubProyectoFT.DataBind()
        DdlSubProyectoFT.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0"))
        DdlSubProyectoFT.Items.Insert(0, New ListItem("Todos", "-1"))




        'RECEPCION

        DdlSubProyectoRT.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
        DdlSubProyectoRT.DataBind()
        DdlSubProyectoRT.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0"))
        DdlSubProyectoRT.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlSubProyectoRTA.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
        DdlSubProyectoRTA.DataBind()
        DdlSubProyectoRTA.Items.Insert(0, New ListItem("Seleccione", "-1"))
        TxtFechaR.Text = Now.ToShortDateString


        'LIBERACION

        DdlSubProyectoRL.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
        DdlSubProyectoRL.DataBind()
        DdlSubProyectoRL.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0"))
        DdlSubProyectoRL.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlSubProyectoL.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
        DdlSubProyectoL.DataBind()
        DdlSubProyectoL.Items.Insert(0, New ListItem("Seleccione", "-1"))

        TxtFechaRecepcion.Text = Now.ToShortDateString


        DdlPersonalR.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
        DdlPersonalR.DataBind()
        DdlPersonalR.Items.Insert(0, New ListItem("Seleccione", "-1"))

        DdlPersonalRT.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
        DdlPersonalRT.DataBind()
        DdlPersonalRT.Items.Insert(0, New ListItem("Seleccione", "-1"))

    End Sub

    Private Sub CargaDTResguardos()
        Dim AF As New ClsAF
        DTAF = New DataTable
        If AF.GetActivosFijosProyectos(UsuarioActual.CveEmpresa, -1, -1, 1, UsuarioActual.CveUsuario) Then
            DTAF = AF.DtResultados
        End If
        AF.Dispose()
    End Sub

    Private Sub CargaAFResguardos()
        GVAF.DataBind()
        GVAF.DataSource = DTAF.FiltraParametros("EstatusResguardo = 1")
        GVAF.DataBind()
        UPGVAF.Update()
    End Sub
    Private Sub CargaAFResguardosTraslado()
        GVAFT.DataBind()
        GVAFT.DataSource = DTAF.FiltraParametros("EstatusResguardo = 1")
        GVAFT.DataBind()
        UPGVAFT.Update()
    End Sub
#End Region



#Region "  RESGUARDAR  "
    Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click

        Dim TieneError = True

        For Each Gvr As GridViewRow In GVAF.Rows
            If Gvr.FCCheckBox("chkAF").Checked Then
                TieneError = False
                Exit For
            End If
        Next

        If TieneError Then
            Alert("No hay ningun Activo Fijo para resguardar. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If


        Dim objAF As New ClsAF
        objAF.IniciaTransacSQL()

        Dim ErrorAF As Boolean = False
        ActivosFijos = New List(Of Integer)


        Dim CveResguardo = objAF.ActivoFijoResguardoGpo()

        If CveResguardo > 0 Then
            For Each row As GridViewRow In GVAF.Rows
                If row.FCCheckBox("chkAF").Checked Then
                    If objAF.ActivoFijoResguardoADD(TxtFecha.Text.ToDate, DdlResponsable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero, row.DataKey("CveActivoFijo").ToEntero, "AFR", 1, UsuarioActual.CveEmpresa, TxtObservaciones.Text, CveResguardo) Then
                        If Not objAF.UpdateEstatusResguardo(3, UsuarioActual.CveEmpresa, row.DataKey("CveActivoFijo").ToEntero) Then   'Estatus resguardo 3 = Asignado
                            ErrorAF = True
                        End If
                    Else
                        ErrorAF = True
                    End If
                End If
            Next
        Else
            ErrorAF = True
        End If

        Dim Folio = objAF.FolioResguardo

        If ErrorAF Then
            objAF.RollBack()
            Alert("Ocurrió un error al guardar el Resguardo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
            CveResguardoPadre = -1
        Else
            objAF.Commit()
            EsURL2 = False
            Dim Liga = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a> ", Encripta(String.Format("OP=AFR2&CVER={0}&TIPO=1", CveResguardo)))
            Alert($"Resguardo Guardado con el folio: <b>{Folio}</b> <br/><br/> {Liga}", TipoMensaje.MsgInformacion, "location.href=""javascript:$('#DivArchivo').modal()""")
            EsLiberacion = False
            CargaDTResguardos()
            LimpiaResguardo()
            LimpiaTraslado()
            LimpiaRecepcion()
            CveResguardoPadre = CveResguardo
            ' RegistraScript("$('#DivArchivo').modal()")
        End If

        objAF.Dispose()



    End Sub

    Protected Sub DdlSubProyectoF_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyectoF.SelectedIndexChanged
        If DdlSubProyectoF.SelectedValue.Contiene({"-1", "0"}) Then
            CargaAFResguardos()
            Exit Sub
        End If
        GVAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros($"EstatusResguardo = 1 AND CveSubProyecto ={DdlSubProyectoF.SelectedValue}")
        GVAF.DataBind()
        UPGVAF.Update()
    End Sub

    Private Sub LimpiaResguardo()
        CargaAFResguardos()
        CargaAFResguardosTraslado()
        CargaTransitorios()
        DdlSubProyecto.SelectedValue = "-1"
        DdlResponsable.SelectedValue = "-1"
        DdlSubProyectoT.SelectedValue = "-1"
        DdlResponsableT.SelectedValue = "-1"
        DdlSubProyectoL.SelectedValue = "-1"
        TxtObservaciones.Text = ""
        TxtObservacionesR.Text = ""
        TxtObservacionesRecepcion.Text = ""
        TxtObservacionesT.Text = ""
        TxtFecha.Text = Now.ToShortDateString
    End Sub
#End Region


#Region "  TRASPASO  "

    Protected Sub DdlSubProyectoFT_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyectoFT.SelectedIndexChanged
        If DdlSubProyectoFT.SelectedValue.Contiene({"-1", "0"}) Then
            CargaAFResguardosTraslado()
            Exit Sub
        End If
        GVAFT.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros($"EstatusResguardo = 1 AND CveSubProyecto ={DdlSubProyectoFT.SelectedValue}")
        GVAFT.DataBind()
        UPGVAFT.Update()
    End Sub

    Protected Sub BtnTrasladar_Click(sender As Object, e As EventArgs) Handles BtnTrasladar.Click
        Dim objAF As New ClsAF
        objAF.IniciaTransacSQL()


        Dim CveResguardo = objAF.ActivoFijoResguardoGpo()

        Dim ErrorAF As Boolean = True

        For Each Gvr As GridViewRow In GVAFT.Rows
            If Gvr.FCCheckBox("chkAF").Checked Then
                ErrorAF = False
                Exit For
            End If
        Next

        If ErrorAF Then
            Alert("No hay ningun Activo Fijo para traspasar. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If


        For Each row As GridViewRow In GVAFT.Rows
            If row.FCCheckBox("chkAF").Checked Then
                If objAF.ActivoFijoResguardoADD(TxtFechaT.Text.ToDate, DdlResponsableT.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectoT.SelectedValue.ToEntero, row.DataKey("CveActivoFijo").ToEntero, "AFT", 2, UsuarioActual.CveEmpresa, TxtObservacionesT.Text, CveResguardo) Then 'TIPO RESGUARDO TRASLADO
                    If Not objAF.UpdateEstatusResguardo(2, UsuarioActual.CveEmpresa, row.DataKey("CveActivoFijo").ToEntero) Then   'Estatus resguardo 2 = EN TRASLADO
                        ErrorAF = True
                    End If
                Else
                    ErrorAF = True
                End If
            End If
        Next

        Dim Folio = objAF.FolioResguardo

        If ErrorAF Then
            objAF.RollBack()
            Alert("Ocurrió un error al guardar el traslado de resguardo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
            CveResguardoPadre = -1
        Else
            objAF.Commit()
            EsURL2 = False
            Dim Liga = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a> ", Encripta(String.Format("OP=AFR2&CVER={0}&TIPO=2", CveResguardo)))
            Alert($"Traslado Guardado con el folio: <b>{Folio}</b> <br/><br/> {Liga}", TipoMensaje.MsgInformacion, "location.href=""javascript:$('#DivArchivo').modal()""")
            EsLiberacion = False
            ' RegistraScript("$('#DivArchivo').modal()")
            CveResguardoPadre = CveResguardo
            CargaDTResguardos()
            LimpiaTraslado()
            LimpiaRT()
            LimpiaResguardo()
        End If
        objAF.Dispose()
    End Sub
    Private Sub LimpiaTraslado()
        CargaAFResguardos()
        CargaAFResguardosTraslado()
        DdlSubProyectoT.SelectedValue = "-1"
        DdlResponsableT.SelectedValue = "-1"
        TxtObservacionesT.Text = ""
        TxtFechaT.Text = Now.ToShortDateString
        UPTraslado.Update()
    End Sub
#End Region


#Region "  RECEPCION TRASLADO  "

    Protected Sub BtnCargaTraslado_Click(sender As Object, e As EventArgs) Handles BtnCargaTraslado.Click
        If DdlPersonalRT.SelectedValue = "-1" AndAlso DdlSubProyectoRT.SelectedValue = "-1" AndAlso TxtFolioT.Text.Equals(String.Empty) AndAlso HdnCveAFT.Value = "-1" Then
            Alert("Por favor, seleccione al menos un filtro", TipoMensaje.MsgAdvertencia)
        Else
            CargaTransitorios()
        End If
    End Sub

    Private Sub CargaTransitorios()


        GvAFTR.DataBind()
        Dim objAF As New ClsAF
        ' CveSubProyecto:=DdlSubProyectoRL.SelectedValue.ToEntero, Folio:=If((TxtFolioRL.Text.Equals("")), -1, TxtFolioRL.Text.ToEntero), CveEmpresa:=UsuarioActual.CveEmpresa
        If objAF.GetActivosFijosResguardos(HdnCveAFT.Value.ToEntero, -1, DdlPersonalRT.SelectedValue.ToEntero, -1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoRT.SelectedValue.ToEntero, Folio:=If((TxtFolioT.Text.Equals("")), -1, TxtFolioT.Text.ToEntero)) Then
            GvAFTR.DataSource = objAF.DtResultados.FiltraParametros("Tipo = 2 AND FechaFin is NULL")
            GvAFTR.DataBind()
        End If
        HdnCveAFT.Value = "-1"
        UpGVTR.Update()
        objAF.Dispose()
    End Sub

    Protected Sub BtnRecibiT_Click(sender As Object, e As EventArgs) Handles BtnRecibiT.Click

        Dim objAF As New ClsAF
        objAF.IniciaTransacSQL()
        Dim ErrorAF = True

        For Each Gvr As GridViewRow In GvAFTR.Rows
            If Gvr.FCCheckBox("chkAF").Checked Then
                ErrorAF = False
                Exit For
            End If
        Next

        If ErrorAF Then
            Alert("No hay ningun traslado para recibir. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        Dim CveResguardo = objAF.ActivoFijoResguardoGpo()

        For Each row As GridViewRow In GvAFTR.Rows
            If row.FCCheckBox("chkAF").Checked Then
                If objAF.UpdateActivosFijosResguardos(TxtFechaR.Text, TxtObservacionesR.Text, "-1", row.DataKey("CveActivoFijoResguardo").ToString.ToEntero, row.DataKey("CveActivoFijo").ToString.ToEntero, CveSubProyecto:=DdlSubProyectoRTA.SelectedValue.ToEntero, CveResguardo2:=CveResguardo) Then
                    If Not objAF.UpdateEstatusResguardo(1, UsuarioActual.CveEmpresa, row.DataKey("CveActivoFijo").ToString.ToEntero, row.DataKey("CveSubProyecto").ToString.ToEntero, UsuarioActual.CveUsuario) Then
                        ErrorAF = True
                    End If
                Else
                    ErrorAF = True
                End If
            End If
        Next

        If ErrorAF Then
            objAF.RollBack()
            Alert("Ocurrió un error al guardar la liberación de resguardo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
            CveResguardoPadre = -1
        Else
            objAF.Commit()
            EsURL2 = True
            Dim Liga = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a> ", Encripta(String.Format("OP=AFR2&CVER={0}&TIPO=3", CveResguardo)))
            Alert($"La recepcion traslado del activo fijo se guardó correctamente<br/><br/> {Liga}", TipoMensaje.MsgInformacion, "location.href=""javascript:$('#DivArchivo').modal()""")
            CargaDTResguardos()
            EsLiberacion = False
            LimpiaRT()
            LimpiaResguardo()
            LimpiaTraslado()
            CveResguardoPadre = CveResguardo
        End If
        objAF.Dispose()
    End Sub




    Private Sub LimpiaRT()
        GvAFTR.DataBind()
        TxtObservacionesR.Text = ""
        TxtFechaR.Text = Now.ToShortDateString
        DdlPersonalRT.SelectedValue = "-1"
        TxtFolioT.Text = ""
        DdlSubProyectoRT.SelectedValue = "-1"
        CargaTransitorios()
        UpFiltros.Update()
        UpTR.Update()
        UpGVTR.Update()
    End Sub
#End Region


#Region "  LIBERAR  "
    Protected Sub BtnCargaAsignados_Click1(sender As Object, e As EventArgs) Handles BtnCargaAsignados.Click
        If DdlPersonalR.SelectedValue = "-1" AndAlso DdlSubProyectoRL.SelectedValue = "-1" AndAlso TxtFolioRL.Text.Equals(String.Empty) AndAlso HdnAFR.Value = "-1" Then
            Alert("Por favor, seleccione al menos un filtro", TipoMensaje.MsgAdvertencia)
        Else
            CargaAsignados()
        End If
    End Sub

    Private Sub CargaAsignados()
        GvRecepcion.DataBind()
        Dim objAF As New ClsAF

        If objAF.GetActivosFijosResguardos(HdnAFR.Value.ToEntero, -1, DdlPersonalR.SelectedValue.ToEntero, -1, CveSubProyecto:=DdlSubProyectoRL.SelectedValue.ToEntero, Folio:=If((TxtFolioRL.Text.Equals("")), -1, TxtFolioRL.Text.ToEntero), CveEmpresa:=UsuarioActual.CveEmpresa) Then
            GvRecepcion.DataSource = objAF.DtResultados.FiltraParametros("Tipo = 1 AND FechaFin is NULL")
        End If
        HdnAFR.Value = "-1"
        objAF.Dispose()
        GvRecepcion.DataBind()
        UpGVRecepcion.Update()
    End Sub

    Private Sub BtnRecibir_Click(sender As Object, e As EventArgs) Handles BtnRecibir.Click

        Dim objAF As New ClsAF
        objAF.IniciaTransacSQL()
        Dim ErrorAF = True

        For Each Gvr As GridViewRow In GvRecepcion.Rows
            If Gvr.FCCheckBox("chkAF").Checked Then
                ErrorAF = False
                Exit For
            End If
        Next

        If ErrorAF Then
            Alert("No hay ningun Activo Fijo para liberar. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        Dim CveResguardo = objAF.ActivoFijoResguardoGpo()

        For Each row As GridViewRow In GvRecepcion.Rows
            If row.FCCheckBox("chkAF").Checked Then
                If objAF.UpdateActivosFijosResguardos(TxtFechaR.Text, TxtObservacionesR.Text, "-1", row.DataKey("CveActivoFijoResguardo").ToString.ToEntero, row.DataKey("CveActivoFijo").ToString.ToEntero, CveResguardo2:=CveResguardo, CveSubProyecto:=DdlSubProyectoL.SelectedValue.ToEntero) Then
                    If Not objAF.UpdateEstatusResguardo(1, UsuarioActual.CveEmpresa, row.DataKey("CveActivoFijo").ToEntero,) Then
                        ErrorAF = True
                    End If
                Else
                    ErrorAF = True
                End If
            End If
        Next

        If ErrorAF Then
            objAF.RollBack()
            Alert("Ocurrió un error al guardar la recepción de resguardo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
            CveResguardoPadre = -1
        Else
            objAF.Commit()
            EsURL2 = True
            Dim Liga = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a> ", Encripta(String.Format("OP=AFR2&CVER={0}&TIPO=4", CveResguardo)))
            Alert($"La liberación del resguardo se guardó correctamente<br/><br/> {Liga}", TipoMensaje.MsgInformacion, "location.href=""javascript:$('#DivArchivo').modal()""")
            EsLiberacion = False
            CargaDTResguardos()
            LimpiaRecepcion()
            LimpiaResguardo()
            LimpiaTraslado()
            CveResguardoPadre = CveResguardo
        End If
        objAF.Dispose()

    End Sub
    Private Sub LimpiaRecepcion()
        GvRecepcion.DataBind()
        TxtObservacionesRecepcion.Text = ""
        TxtFechaRecepcion.Text = Now.ToShortDateString
        DdlPersonalR.SelectedValue = "-1"
        DdlSubProyectoRL.SelectedValue = "-1"
        TxtFolioRL.Text = ""
        UpFiltrosR.Update()
        UpRecepcion.Update()
        UpGVRecepcion.Update()
    End Sub

#End Region


#Region "  ARCHIVO  "

    Protected Sub btnAddArchivo_Click(sender As Object, e As EventArgs) Handles btnAddArchivo.Click
        Dim FileExtension As String = "-1"
        Dim filesgral As List(Of Archivo) = TxtUpFormato.getfiles().Archivos
        Dim filemove As String = ""


        Dim objAF As New ClsAF
        objAF.IniciaTransacSQL()
        Dim HuboError As Boolean = False

        If filesgral.Count > 0 Then

            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

            'SE HIZO UN CASO ESPECIAL PARA LA LIBERACION (SUBIDA DE ARCHIVOS DESDE EL GV).
            If EsLiberacion Then
                If objAF.UpdateActivosFijosResguardosURL($"AFR{CveResguardoPadre}.{FileExtension}", "-1", CveResguardoPadre) Then
                    If filemove <> "" Then
                        If File.Exists(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension)) Then
                            File.Delete(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension))
                        End If
                        If filemove.FilesMove(String.Format("AFR{0}", CveResguardoPadre), String.Format("Empresas\{0}\AF\Resguardos", UsuarioActual.CveEmpresa)) Then
                            HuboError = False
                        Else
                            HuboError = True
                        End If
                    End If
                Else
                    HuboError = True
                End If
            Else
                If EsURL2 Then
                    If objAF.UpdateActivosFijosResguardosURLGpo("-1", $"AFT{CveResguardoPadre}.{FileExtension}", CveResguardoPadre) Then
                        If filemove <> "" Then
                            If File.Exists(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension)) Then
                                File.Delete(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension))
                            End If
                            If filemove.FilesMove(String.Format("AFT{0}", CveResguardoPadre), String.Format("Empresas\{0}\AF\Resguardos", UsuarioActual.CveEmpresa)) Then
                                HuboError = False
                            Else
                                HuboError = True
                            End If

                        End If
                    Else
                        HuboError = True
                    End If
                Else

                    If objAF.UpdateActivosFijosResguardosURLGpo($"AFR{CveResguardoPadre}.{FileExtension}", "-1", CveResguardoPadre) Then
                        If filemove <> "" Then
                            If File.Exists(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension)) Then
                                File.Delete(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension))
                            End If
                            If filemove.FilesMove(String.Format("AFR{0}", CveResguardoPadre), String.Format("Empresas\{0}\AF\Resguardos", UsuarioActual.CveEmpresa)) Then
                                HuboError = False
                            Else
                                HuboError = True
                            End If
                        End If
                    Else
                        HuboError = True
                    End If
                End If

            End If

        End If



        If HuboError Then
            objAF.RollBack()
            Alert("Ocurrió un error al guardar el archivo.", TipoMensaje.MsgError)
        Else
            objAF.Commit()
            Alert("El archivo se guardó correctamente", TipoMensaje.MsgInformacion)
            TxtUpFormato.Text = "[]"
            RegistraScript("$('#DivArchivo').modal('hide');")
        End If

        objAF.Dispose()

        CargaAsignados()
    End Sub

    Public Function FormatearNombreArchivo(nombreArchivoOriginal As String) As String
        Dim nombreArchivoFormateado As String
        nombreArchivoFormateado = nombreArchivoOriginal.Replace(" ", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("'", "")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace(Chr(34), "")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("$", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("#", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("%", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("!", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("&", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("?", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("¿", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("¡", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("*", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("~", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("^", "_")
        Return nombreArchivoFormateado
    End Function

    Protected Sub ImgArchivo_Click(sender As Object, e As ImageClickEventArgs)
        CveResguardoPadre = CType(sender, ImageButton).CommandArgument.ToEntero
        EsLiberacion = True
        EsURL2 = False
        RegistraScript("$('#DivArchivo').modal()")
    End Sub
#End Region




End Class