Commit inicial Ventas Productivo

AF/ResguardoAF.aspx.vb

@@ -0,0 +1,643 @@
+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, AppDomain.CurrentDomain.BaseDirectory, FileExtension)) Then
+                            File.Delete(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, AppDomain.CurrentDomain.BaseDirectory, 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, AppDomain.CurrentDomain.BaseDirectory, FileExtension)) Then
+                                File.Delete(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, AppDomain.CurrentDomain.BaseDirectory, 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, AppDomain.CurrentDomain.BaseDirectory, FileExtension)) Then
+                                File.Delete(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, AppDomain.CurrentDomain.BaseDirectory, 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