Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones
Partial Class Inventarios_ResguardoMaterial
    Inherits ClsPaginas

#Region "Propiedades"
    Public Property DtMovimientos() As DataTable
        Get
            Return CType(ViewState("DtMovimientos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtMovimientos") = value
        End Set
    End Property
    Public Property DtMovimientosLiberacion() As DataTable
        Get
            Return CType(ViewState("DtMovimientosLiberacion"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtMovimientosLiberacion") = value
        End Set
    End Property


    Public Property CveAlmacenLiberación() As Integer
        Get
            Return ViewState("CveAlmacenLiberación").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveAlmacenLiberación") = value
        End Set
    End Property
    Public Property CvePersonalLiberacion() As Integer
        Get
            Return ViewState("CvePersonalLiberacion").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CvePersonalLiberacion") = value
        End Set
    End Property
    Public Property CveClienteLiberacion() As Integer
        Get
            Return ViewState("CveClienteLiberacion").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveClienteLiberacion") = value
        End Set
    End Property
    Public Property CveProveedorLiberacion() As Integer
        Get
            Return ViewState("CveProveedorLiberacion").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveProveedorLiberacion") = value
        End Set
    End Property
    Public Property FechaLiberacion As String
        Get
            Return ViewState("FechaLiberacion").ToString
        End Get
        Set(value As String)
            ViewState("FechaLiberacion") = value
        End Set
    End Property


    Public Property EsSurtidoUniforme As Boolean
        Get
            If ViewState("EsSurtidoUniforme") Is Nothing Then
                Return False

            Else
                Return Boolean.Parse(ViewState("EsSurtidoUniforme").ToString)
            End If

        End Get
        Set(value As Boolean)
            ViewState("EsSurtidoUniforme") = value
        End Set
    End Property


    Private Property DtSeccionAlmacen As DataTable
        Get
            Return CType(ViewState("DtSeccionAlmacen"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtSeccionAlmacen") = value
        End Set
    End Property
    Private Property IndexSeccionAlmacen As Integer
        Get
            Return CType(ViewState("IndexSeccionAlmacen"), Integer)
        End Get
        Set(value As Integer)
            ViewState("IndexSeccionAlmacen") = value
        End Set
    End Property
    Private Property CantidadTotal As Decimal
        Get
            Return CType(ViewState("CantidadTotal"), Decimal)
        End Get
        Set(value As Decimal)
            ViewState("CantidadTotal") = value
        End Set
    End Property
    Private Property CvePS As Integer
        Get
            Return CType(ViewState("CvePS"), Integer)
        End Get
        Set(value As Integer)
            ViewState("CvePS") = value
        End Set
    End Property
    Private Property TipoSeccionAlmacen As Integer
        Get
            Return CType(ViewState("TipoSeccionAlmacen"), Integer)
        End Get
        Set(value As Integer)
            ViewState("TipoSeccionAlmacen") = value
        End Set
    End Property



#End Region

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then


            If Not Request.QueryString("EsSurtidoUniforme") Is Nothing Then
                EsSurtidoUniforme = If(Request.QueryString("EsSurtidoUniforme").ToString = "1", True, False)
            End If


            InicializaValores()

            If Not Request.QueryString("CvePersonal") Is Nothing Then
                Try
                    Dim CvePersonal As Integer = Request.QueryString("CvePersonal").ToString.ToEntero
                    OcultarControles(CvePersonal)
                Catch ex As Exception
                End Try

            End If




        End If
    End Sub

    Private Sub OcultarControles(CvePersonal As Integer)

        DdlPersonal.SelectedValueExist(CvePersonal)
        DdlPersonal.Enabled = False
        DVTipo.Visible = False
    End Sub

#Region "  INICIALIZA VALORES  "
    Private Sub InicializaValores()
        CreaDT()
        CargaCombos()
        TxtFecha.Text = Now.ToShortDateString
        TxtFechaLiberacion.Text = Now.ToShortDateString
        GvM.Columns(6).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
        GvMLiberacion.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"

        GvM.DataBind()

        CantidadTotal = 0
        IndexSeccionAlmacen = 0
        CvePS = 0
        CreaDtSeccionAlmacen()
        CargaDdlAlmacen()
        TipoSeccionAlmacen = 0

    End Sub

    Protected Sub CreaDT()
        Dim dt As New DataTable

        Dim column As DataColumn = New DataColumn("No")
        column.DataType = Type.GetType("System.Int32")
        With column
            .AutoIncrement = True
            .AutoIncrementSeed = 1
            .AutoIncrementStep = 1
        End With
        dt.Columns.Add(column)
        dt.Columns.Add("CveMovimiento", Type.GetType("System.Int32"))
        dt.Columns.Add("CveMovimientoDetalle", Type.GetType("System.Int32"))
        dt.Columns.Add("Cantidad", Type.GetType("System.Double"))
        dt.Columns.Add("CveUM", Type.GetType("System.Int32"))
        dt.Columns.Add("UnidadMedida")
        dt.Columns.Add("CvePS", Type.GetType("System.Int32"))
        dt.Columns.Add("PS")
        dt.Columns.Add("Estatus")
        dt.Columns.Add("Codigo")
        dt.Columns.Add("SerieLote")
        dt.Columns.Add("Observaciones")
        dt.Columns.Add("CvePersonal", Type.GetType("System.Int32"))
        dt.Columns.Add("Checado", Type.GetType("System.Boolean"))

        DtMovimientos = dt

        CargaGvM()

    End Sub
    Private Sub CargaCombos()

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

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

        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
        DdlCliente.DataBind()
        DdlCliente.Items.Insert(0, New ListItem("Seleccione", "-1"))

        DdlClienteLiberacion.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
        DdlClienteLiberacion.DataBind()
        DdlClienteLiberacion.Items.Insert(0, New ListItem("Seleccione", "-1"))

        DdlProveedor.setEsWebService(True)
        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
        DdlProveedor.SelectedValue = "-1"
        DdlProveedor.SelectedText = "Seleccione"

        DdlProveedorLiberacion.setEsWebService(True)
        DdlProveedorLiberacion.Attributes.Add("data-metodo", "getproveedores")
        DdlProveedorLiberacion.SelectedValue = "-1"
        DdlProveedorLiberacion.SelectedText = "Seleccione"

        If isWhitFamily() Then
            DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
        Else
            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
        End If
        DdlClasificacion.DataBind()



        If EsSurtidoUniforme Then
            'RESGUARDO
            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (19)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
            DdlAlmacen.DataBind()
            DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
            'Almacen Destino
            DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 20)
            DdlAlmacenDestino.DataBind()
            DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))

            'LIBERACION
            DdlAlmacenLiberacion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 20)
            DdlAlmacenLiberacion.DataBind()
            DdlAlmacenLiberacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
            ''Almacen Destino
        Else
            'RESGUARDO
            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) '.FiltraParametros("CveTipoAlmacen IN (1,2)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
            DdlAlmacen.DataBind()
            DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
            'Almacen Destino
            DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 8)
            DdlAlmacenDestino.DataBind()
            DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))


            'LIBERACION
            DdlAlmacenLiberacion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 8)
            DdlAlmacenLiberacion.DataBind()
            DdlAlmacenLiberacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
        End If


        ''Almacen Destino
        DdlAlmacenDestinoLiberacion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) '.FiltraParametros("CveTipoAlmacen IN (1,2)")
        DdlAlmacenDestinoLiberacion.DataBind()
        DdlAlmacenDestinoLiberacion.Items.Insert(0, New ListItem("Seleccione", "-1"))

        CargaPS()
    End Sub
    Private Sub CargaPS()
        DdlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")

        If DdlProducto2.UsaWebService Then
            DdlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
            DdlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue.ToString)
        End If
        If Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then
            DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
            DdlProducto2.DataBind()
        End If

        VerificaProducto()
    End Sub
    Private Function isWhitFamily() As Boolean
        Return (UsuarioActual.CveEmpresa = 66)
    End Function
#End Region



#Region "  RESGUARDO  "


#Region "  FUNCIONALIDAD 105 - CLASIFICACION PS"
    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
        CargaProductosPorClasificacion()
    End Sub
    Protected Sub DdlProducto_ValueChanged(sender As Object, e As EventArgs) Handles DdlProducto2.selectedindexchange
        VerificaProducto()
    End Sub
    Private Sub CargaProductosPorClasificacion()
        If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
            'Dim filtro As String = ""
            'If Not (DdlClasificacion.SelectedValue = "-1") Then

            '    If isWhitFamily() Then
            '        'filtro = String.Format("CveSubFamilia={0}", DdlClasificacion.SelectedValue)
            '    Else
            '        filtro = String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue)
            '    End If
            'End If
            DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros("", "PSCodigo")
            DdlProducto2.DataBind()
            DdlProducto2.ddl.Items.Insert(0, New ListItem("----", "-1"))
        Else
            'If isWhitFamily() Then
            '    'DdlProducto2.ddlWS.Attributes.Add("data-idSubFamilia", DdlClasificacion.SelectedValue)
            'Else
            DdlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
            'End If
        End If
    End Sub
    Private Sub VerificaProducto()
        If DdlProducto2.SelectedValue.ToEntero > 0 Then
            If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltraParametros("Inv_CveMetodoInventario = 5", "PS").Rows.Count > 0 Then
                ThSerieLote.Visible = True
                TrSerieLote.Visible = True
                TxtnSerieLote.Visible = True
                GvM.Columns(4).Visible = True
            Else
                TxtnSerieLote.Visible = False
            End If
        End If

        'If (1.Contiene("3", "7", "8", "11")) Then
        '    Dim objinv As New ClsInventarios
        '    If objinv.GetExistenciasPS(DdlProducto2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
        '        DdlUnidad.DataSource = objinv.DtResultados.FiltraParametros("", "UnidadMedida", {"CveUnidadMedida", "UnidadMedida"})
        '        If objinv.DtResultados.Rows.Count = 0 Then
        '            Alert("No hay existencias de este producto", TipoMensaje.MsgAdvertencia)
        '        End If
        '    End If
        '    objinv.Dispose()
        'Else
        '    DdlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProducto2.SelectedValue.ToEntero, -1)
        'End If

        DdlUnidad.Items.Clear()
        DdlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProducto2.SelectedValue.ToEntero, -1)
        DdlUnidad.DataBind()
        UPDatos.Update()

    End Sub

#End Region


#Region "  EISTENCIAS  "
    Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional SerieLote As String = "-1") As Double
        Dim Inv As New ClsInventarios
        Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), SerieLote:=SerieLote)
        Inv.Dispose()
        Return Existencia
    End Function
#End Region


#Region "  AGREGAR  "
    Protected Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
        AgregaProducto()
        LimpiarAgregar()
    End Sub
    Protected Sub AgregaProducto()
        Dim PSSelected As Integer = DdlProducto2.SelectedValue.ToEntero
        If DdlAlmacen.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgInformacion) : Exit Sub
        If PSSelected > 0 Then
            If TxtnSerieLote.Visible Then
                If TxtnSerieLote.Text = "" Then
                    Alert("Serie-Lote  es necesario", TipoMensaje.MsgAdvertencia)
                    Return
                End If
            End If
            Dim Valido As Boolean = True
            Dim cantidadd As Double = txtCantidad.Text.ToDouble
            Dim Existencia As Double = GetExistencias(PSSelected, DdlUnidad.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, If(TxtnSerieLote.Visible, TxtnSerieLote.Text, "-1").ToString)
            If Existencia - txtCantidad.Text.ToDouble < 0 Then
                If Existencia <= 0 Then
                    Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
                Else
                    Alert(String.Format("Solo hay en existencia: {0}", Existencia), TipoMensaje.MsgAdvertencia)
                    If Not UsuarioActual.TienePermisoProceso(114) Then
                        cantidadd = Existencia
                    End If
                End If
                Valido = False
                'Valido = If(UsuarioActual.TienePermisoProceso(114), True, False)
            End If
            If Valido Then
                Dim CveClasificacion As Integer
                Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PSSelected).FiltroPrimero("", "PS")
                If dr IsNot Nothing Then CveClasificacion = dr("CveClasificacion").ToString.ToEntero

                Dim registro As DataRow = DtMovimientos.NewRow
                registro.Item("Cantidad") = cantidadd
                registro.Item("CveUM") = DdlUnidad.SelectedValue.ToEntero
                registro.Item("UnidadMedida") = DdlUnidad.SelectedItem.Text
                registro.Item("CvePS") = PSSelected
                registro.Item("PS") = DdlProducto2.SelectedText
                registro.Item("Estatus") = ""
                registro.Item("SerieLote") = TxtnSerieLote.Text
                registro.Item("Observaciones") = TxtObservacionesdetalle.Text
                DtMovimientos.Rows.Add(registro)
                CargaGvM()

                txtCantidad.Text = ""
                txtCantidad.Focus()

            End If
        End If
    End Sub
    Private Sub LimpiarAgregar()
        DdlClasificacion.SelectedValue = "-1"
        txtCantidad.Text = ""
        TxtObservacionesdetalle.Text = ""
    End Sub
#End Region


#Region "  GvM  "
    Private Sub CargaGvM()

        ThSerieLote.Visible = False
        TrSerieLote.Visible = False
        TxtnSerieLote.Visible = False
        GvM.Columns(4).Visible = False
        For Each Dr As DataRow In DtMovimientos.Rows
            If Dr("SerieLote").ToString <> "" Then
                ThSerieLote.Visible = True
                TrSerieLote.Visible = True
                GvM.Columns(4).Visible = True
                Exit For
            End If
        Next

        GvM.DataSource = DtMovimientos
        GvM.DataBind()
    End Sub

    Private Sub GvM_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvM.RowDeleting
        Dim DbRow As DataRow = Nothing
        DbRow = DtMovimientos.Rows(e.RowIndex)
        DtMovimientos.Rows.Remove(DbRow)

        GvM.EditIndex = -1
        CargaGvM()
    End Sub

    Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            If DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {e.Row.RowIndex}").SUMD("CantidadSeccionAlmacen") > 0 Then
                e.Row.FCLinkButton("lnkRemove").Visible = False
                e.Row.FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
            End If
        End If
    End Sub
#End Region


#Region "  NUEVO  "
    Protected Sub BtnNuevo_Click(sender As Object, e As EventArgs)
        LimpiarMovimiento()
    End Sub
    Private Sub LimpiarMovimiento()
        DtMovimientos.Clear()
        CargaGvM()

        BtnGuardarResguardo.Visible = True

        DdlAlmacen.SelectedValue = "-1"
        DdlAlmacenDestino.SelectedValue = "-1"
        DtSeccionAlmacen.Rows.Clear()

        TxtObservaciones.Text = ""
        TxtFecha.Text = Now.ToShortDateString
        DdlPersonal.SelectedIndex = 0
        LimpiarAgregar()
        UPDatos.Update()
        UpGenerales.Update()
    End Sub
#End Region


#End Region


#Region "  LIBERACION  "


#Region "  GV DATOS LIBERACION  "
    Protected Sub GvMLiberacion_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.FCLabel("LblCantidad").Text = e.Row.FCLabel("LblCantidad").Text.FormatoNumero(2)
        End If
    End Sub

    Protected Sub GvMLiberacion_RowCreated(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim Index = e.Row.RowIndex
            e.Row.FCTextBox("TxtCantidad").Attributes.Add("onKeyUp", String.Format("ValidarCantidad({0});", Index))
        End If
    End Sub
#End Region


#Region "  CARGA RESGUARDOS PARA LIBERACION  "

    Protected Sub BtnVerificarExistencias_Click(sender As Object, e As EventArgs)
        If Not DdlProveedorLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 3 Then
            Alert("Tiene que seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        If Not DdlPersonalLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 1 Then
            Alert("Tiene que seleccionar un personal.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        If Not DdlClienteLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 2 Then
            Alert("Tiene que seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        CargaResguardos()
    End Sub

    Private Sub CargaResguardos()
        Dim ObjInventario As New ClsInventarios()
        Dim Existencias As Double = 0

        If ObjInventario.GetMovimientosDetallePorPersonal(DdlPersonalLiberacion.SelectedValue.ToEntero, DdlAlmacenLiberacion.SelectedValue.ToEntero, DdlClienteLiberacion.SelectedValue.ToEntero, DdlProveedorLiberacion.SelectedValue.ToEntero) Then
            DtMovimientosLiberacion = ObjInventario.DtResultados

            DtMovimientosLiberacion.Columns("No").AutoIncrement = True
            DtMovimientosLiberacion.Columns("No").AutoIncrementSeed = DtMovimientosLiberacion.Rows.Count + 1
            DtMovimientosLiberacion.Columns("No").AutoIncrementStep = 1

            Dim keys(1) As DataColumn
            keys(0) = DtMovimientosLiberacion.Columns("No")
            DtMovimientosLiberacion.PrimaryKey = keys

            CargaGvMLiberacion()
            If DdlPersonalLiberacion.SelectedValue.ToEntero <> -1 Then
                LblTipo.InnerText = "Personal/Responsable:"
                LbTipoLiberacion.Text = DdlPersonalLiberacion.SelectedItem.Text
            End If
            If DdlProveedorLiberacion.SelectedValue.ToEntero <> -1 Then
                LblTipo.InnerText = "Proveedor:"
                LbTipoLiberacion.Text = DdlProveedorLiberacion.SelectedText
            End If
            If DdlClienteLiberacion.SelectedValue.ToEntero <> -1 Then
                LblTipo.InnerText = "Cliente:"
                LbTipoLiberacion.Text = DdlClienteLiberacion.SelectedItem.Text
            End If
            CvePersonalLiberacion = DdlPersonalLiberacion.SelectedValue.ToEntero
            CveClienteLiberacion = DdlClienteLiberacion.SelectedValue.ToEntero
            CveProveedorLiberacion = DdlProveedorLiberacion.SelectedValue.ToEntero
            LbAlmacenLiberacion.Text = DdlAlmacenLiberacion.SelectedItem.Text
            CveAlmacenLiberación = DdlAlmacenLiberacion.SelectedValue.ToEntero
            LbFechaLiberacion.Text = TxtFechaLiberacion.Text
            FechaLiberacion = TxtFechaLiberacion.Text
            BtnGuardarLiberacion.Visible = True

            DtSeccionAlmacen.Rows.Clear()

            UpGeneralesLibreacion.Update()
        Else
            Alert("Ocurrió un error al cargar los resguardos del personal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        End If
        ObjInventario.Dispose()

    End Sub

    Private Sub CargaGvMLiberacion()
        GvM.Columns(5).Visible = False
        For Each Dr As DataRow In DtMovimientosLiberacion.Rows
            If Dr("SerieLote").ToString <> "" Then
                GvM.Columns(5).Visible = True
                Exit For
            End If
        Next

        GvMLiberacion.DataSource = DtMovimientosLiberacion
        GvMLiberacion.DataBind()
        UpGridLiberacion.Update()
    End Sub

#End Region

#Region "  LIMPIAR LIBERACION  "
    Private Sub LimpiarLiberacion()
        LbTipoLiberacion.Text = ""
        LblTipo.InnerText = ""
        CvePersonalLiberacion = -1
        CveClienteLiberacion = -1
        CveProveedorLiberacion = -1
        LbAlmacenLiberacion.Text = ""
        CveAlmacenLiberación = -1
        LbFechaLiberacion.Text = ""
        FechaLiberacion = ""
        BtnGuardarLiberacion.Visible = False
        DtSeccionAlmacen.Rows.Clear()

        DdlAlmacenDestinoLiberacion.SelectedValue = "-1"
        TxtObservacionesLiberacion.Text = ""

        DtMovimientosLiberacion.Clear()
        CargaGvMLiberacion()

        UpGeneralesLibreacion.Update()
    End Sub
#End Region


#End Region



#Region "  GUARDAR  "
    Protected Sub BtnGuardarResguardo_Click(sender As Object, e As EventArgs) Handles BtnGuardarResguardo.Click

        If Not GvM.Rows.Count > 0 Then
            Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        If Not DdlProveedor.SelectedValue.ToEntero > 0 And DivProveedor.Visible Then
            Alert("Tiene que seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        'VALIDA LA EXISTENCIA DEL ALMACEN
        Dim ObjInventario As New ClsInventarios
        Dim ErrorExistencia = False
        Dim TextoExistencia As StringBuilder = New StringBuilder
        Dim Existencia As Double
        TextoExistencia.Append("Los siguiente productos se ajustaron por falta de exitencia:<br/>")
        For Each dr As DataRow In DtMovimientos.Rows
            Existencia = ObjInventario.GetExistenciasPS(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), SerieLote:=If(dr("SerieLote").ToString = "", "-1", dr("SerieLote").ToString))
            Existencia -= DtMovimientos.SUM("Cantidad", $"CvePS = {dr("CvePS").ToString.ToEntero} AND CveUM = {dr("CveUM").ToString.ToEntero} {If(dr("SerieLote").ToString <> "-1", $" AND SerieLote = '{dr("SerieLote").ToString}'", "")}")

            If Existencia < 0 Then
                ErrorExistencia = True
                dr("Cantidad") = Existencia
                TextoExistencia.AppendFormat("- #{0} {1}<br/>", dr("No").ToString, dr("PS").ToString)
            End If
        Next
        ObjInventario.Dispose()

        If ErrorExistencia Then
            Alert(TextoExistencia.ToString, TipoMensaje.MsgError)
        End If

        Dim TotalCantidad As Double = DtMovimientos.SUMD("Cantidad")
        If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
            If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 1").SUMD("CantidadSeccionAlmacen") Then
                Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
                Exit Sub
            End If
        End If

        Guardar(23)

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

        If Not DdlProveedorLiberacion.SelectedValue.ToEntero > 0 And DivProveedorLiberacion2.Visible Then
            Alert("Tiene que seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        If Not GvMLiberacion.Rows.Count > 0 Then
            Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        Dim TieneError = True
        Dim TotalCantidad As Decimal = 0
        For Each Gvr As GridViewRow In GvMLiberacion.Rows
            If Gvr.FCTextBox("TxtCantidad").Text.ToDecimal > 0 Then
                TieneError = False
                Exit For
            Else
                TotalCantidad += Gvr.FCTextBox("TxtCantidad").Text.ToDecimal
            End If
        Next

        If TieneError Then
            Alert("Se debe seleccionar por lo menos una cantidad de los resguardos para generar la liberación. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
            If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 2").SUMD("CantidadSeccionAlmacen") Then
                Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
                Exit Sub
            End If
        End If

        Guardar(24)


    End Sub

    Private Sub Guardar(Concepto As Integer)
        Dim ObjInventario As New ClsInventarios
        Dim ObjEventos As New ClsOIEventos(ObjInventario.IniciaTransacSQL()) 'Inicia la transacción
        Dim TieneError = False
        Dim MensajeError As String = ""
        Dim ImporteConcepto = 0.0

        Dim CveMovimientoSalida = 0
        Dim FolioSalida = 0
        Dim CveMovimientoEntrada = 0
        Dim FolioEntrada = 0

        'Para Campos Nuevos AF y OC
        Dim SubProyecto = -1
        Dim ActivoFijo = -1

        Dim CveProveedor = -1
        Dim CveCliente = -1
        Dim CvePersonal = -1

        If RbTipoCliente.Checked Then CveCliente = DdlCliente.SelectedValue.ToEntero
        If RbTipoProveedor.Checked Then CveProveedor = DdlProveedor.SelectedValue.ToEntero
        If RbTipoPersonal.Checked Then CvePersonal = DdlPersonal.SelectedValue.ToEntero

        Dim Fecha = If(Concepto = 23, TxtFecha.Text.ToDate, FechaLiberacion.ToDate)

        Select Case (Concepto)
            Case 23 ' Resguardo

                'SALIDA ORIGEN
                CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 24, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, CveCliente:=CveCliente, CveProveedor:=CveProveedor)
                FolioSalida = ObjInventario.Folio

                If CveMovimientoSalida <= 0 Then
                    TieneError = True
                    MensajeError = "Ocurrió un error al guardar el movimiento de salida. Por favor vuelva a intentar."
                    Exit Select
                End If

                Dim Cont As Integer = 0
                For Each Dr As DataRow In DtMovimientos.Rows
                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, -1, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then
                        MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
                        TieneError = True
                        Exit For
                    Else
                        If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
                            For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 1").Rows
                                If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenOrigen").ToString.ToEntero, -Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
                                    TieneError = True
                                    MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
                                    Exit For
                                End If
                            Next
                        End If
                    End If
                    Cont += 1
                Next

                Cont = 0
                If Not TieneError Then
                    CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 2, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveMovimientoRelacionado:=CveMovimientoSalida, CveCliente:=CveCliente, CveProveedor:=CveProveedor)
                    FolioEntrada = ObjInventario.Folio

                    If CveMovimientoEntrada <= 0 Then
                        MensajeError = "Ocurrió un error al guardar el movimiento de entrada correctamente. Por favor vuelva a intentar."
                        TieneError = True
                    Else
                        If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                            For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then
                                    TieneError = True
                                    MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
                                    Exit For
                                Else
                                    If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
                                        For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 1").Rows
                                            If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenDestino").ToString.ToEntero, Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
                                                TieneError = True
                                                MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
                                                Exit For
                                            End If
                                        Next
                                    End If
                                End If
                                Cont += 1
                            Next
                        End If
                    End If
                End If

            Case 24 'LIBERACION


                'SALIDA ORIGEN - RESGUARDO
                CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenLiberación, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveAlmacenDestino:=DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True)
                FolioSalida = ObjInventario.Folio

                If CveMovimientoSalida <= 0 Then
                    TieneError = True
                    MensajeError = "Ocurrió un error al guardar el movimiento de salida. Por favor vuelva a intentar."
                    Exit Select
                End If

                Dim Cont As Integer = 0
                For Each Gvr As GridViewRow In GvMLiberacion.Rows
                    If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then
                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDouble, -1, -1, Gvr.DataKey("SerieLote").ToString, Gvr.DataKey("Observaciones").ToString) Then
                            MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
                            TieneError = True
                            Exit For
                        Else
                            If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
                                For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 2").Rows
                                    If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenOrigen").ToString.ToEntero, -Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
                                        TieneError = True
                                        MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
                                        Exit For
                                    End If
                                Next
                            End If
                        End If
                    End If
                    Cont += 1
                Next


                If Not TieneError Then
                    CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, 23, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveMovimientoRelacionado:=CveMovimientoSalida, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True)
                    FolioEntrada = ObjInventario.Folio

                    If CveMovimientoEntrada <= 0 Then
                        MensajeError = "Ocurrió un error al guardar el movimiento de entrada correctamente. Por favor vuelva a intentar."
                        TieneError = True
                    Else
                        If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                            Cont = 0
                            For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then
                                    TieneError = True
                                    MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
                                    Exit For
                                Else
                                    If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
                                        For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 2").Rows
                                            If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenDestino").ToString.ToEntero, Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
                                                TieneError = True
                                                MensajeError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
                                                Exit For
                                            End If
                                        Next
                                    End If
                                End If
                                Cont += 1
                            Next
                        End If
                    End If
                End If

        End Select

        If Not TieneError Then
            TieneError = Not AgregarAgenda(ObjEventos, FolioEntrada, FolioSalida)
        End If

        If Not TieneError Then
            Dim Msg As New StringBuilder
            If Concepto = 23 Then
                Msg.AppendFormat("<br/>Resguardo con Folio: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoSalida, FolioSalida)
                Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Resguardo</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))

                Msg.AppendFormat("<br/><br/><br/>El Movimiento de control se registro con el Folio: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntrada, FolioEntrada)
            Else
                Msg.AppendFormat("<br/>Liberación de Resguardo con Folio: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntrada, FolioEntrada)
                Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir liberación de Resguardo</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))

                Msg.AppendFormat("<br/><br/><br/>El Movimiento de control se registro con el Folio: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoSalida, FolioSalida)
            End If


            Alert(Msg.ToString, TipoMensaje.MsgInformacion)

            'Limpia Valores cuando inserta de campos especiales
            If UsuarioActual.CveEmpresa = 66 Then
                DdlSubProyecto.SelectedValueExist("-1")
            End If

            ObjInventario.Commit()

            If Concepto = 23 Then
                LimpiarMovimiento()
            Else
                LimpiarLiberacion()
            End If

            UPDatos.Update()
        Else
            Alert(MensajeError, TipoMensaje.MsgError)
            ObjInventario.RollBack()
        End If

        ObjInventario.Dispose()
        ObjEventos.Dispose()
    End Sub
    Private Function AgregarAgenda(ByRef ObjEventos As ClsOIEventos, FolioEntrada As Integer, FolioSalida As Integer) As Boolean
        Dim TieneError As Boolean = False
        Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1", CveAgendaTipo = 4, Prioridad = 3, CveTipoEvento = 2, Importe = -1

        Dim Asunto As String = $"Vencimiento de Resguardo de Material. FolioEntrada:{FolioEntrada}, FolioSalida:{FolioSalida}"
        Dim Descripcion As String = TxtObservaciones.Text.Trim()
        Dim Fecha As DateTime = TxtFechaVigencia.Text.Trim().ToDateTime()
        Dim FechaI As DateTime = Fecha
        Dim FechaF As DateTime = Fecha.AddHours(22)

        TieneError = Not ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                        RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=CveTipoEvento, Importe:=Importe)

        Return Not TieneError
    End Function


#End Region

#Region "TIPOS"

    Protected Sub RbTipo_CheckedChanged(sender As Object, e As EventArgs)
        DivCliente.Visible = False
        DivPersonal.Visible = False
        DivProveedor.Visible = False
        If RbTipoCliente.Checked Then DivCliente.Visible = True
        If RbTipoPersonal.Checked Then DivPersonal.Visible = True
        If RbTipoProveedor.Checked Then DivProveedor.Visible = True
        UpGenerales.Update()
    End Sub

    Protected Sub DdlTipo_SelectedIndexChanged(sender As Object, e As EventArgs)
        DdlPersonalLiberacion.SelectedIndex = 0
        DdlProveedorLiberacion.SelectedValue = "-1"
        DdlProveedorLiberacion.SelectedText = "Seleccione"
        DdlClienteLiberacion.SelectedIndex = 0
        DivPersonalLiberacion.Visible = False
        DivPersonalLiberacion2.Visible = False
        DivClienteLiberacion.Visible = False
        DivClienteLiberacion2.Visible = False
        DivProveedorLiberacion.Visible = False
        DivProveedorLiberacion2.Visible = False
        If DdlTipo.SelectedValue.ToEntero = 1 Then
            DivPersonalLiberacion.Visible = True
            DivPersonalLiberacion2.Visible = True
        End If
        If DdlTipo.SelectedValue.ToEntero = 2 Then
            DivClienteLiberacion.Visible = True
            DivClienteLiberacion2.Visible = True
        End If
        If DdlTipo.SelectedValue.ToEntero = 3 Then
            DivProveedorLiberacion.Visible = True
            DivProveedorLiberacion2.Visible = True
        End If
        UpFiltraLiberacion.Update()
    End Sub

#End Region

#Region "SECCION ALMACEN"
    Private Sub CreaDtSeccionAlmacen()
        DtSeccionAlmacen = New DataTable
        DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal))
        DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer))
        DtSeccionAlmacen.Columns.Add("CveSeccionAlmacenOrigen", GetType(Integer))
        DtSeccionAlmacen.Columns.Add("CveSeccionAlmacenDestino", GetType(Integer))
        DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer))
        DtSeccionAlmacen.Columns.Add("SeccionAlmacenOrigen", GetType(String))
        DtSeccionAlmacen.Columns.Add("SeccionAlmacenDestino", GetType(String))
        DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer))
        DtSeccionAlmacen.Columns.Add("TipoSeccionAlmacen", GetType(Integer))
    End Sub
    Private Sub CargaDdlAlmacen()
        DdlSeccionAlmacenOrigen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
        DdlSeccionAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlSeccionAlmacenOrigen.DataBind()

        DdlSeccionAlmacenDestino.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
        DdlSeccionAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlSeccionAlmacenDestino.DataBind()
    End Sub
    Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs)
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)

        If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
            Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen origen.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        'If Not DdlAlmacenDestino.SelectedValue.ToEntero > 0 AndAlso Not ChkTransitorio.Checked Then
        '    Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen destino.", TipoMensaje.MsgAdvertencia)
        '    Exit Sub
        'End If

        GvSeccion.Columns(2).Visible = True
        DivSeccionAlmacenDestino.Visible = True

        DivSeccionAlmacenOrigen.Visible = True
        GvSeccion.Columns(1).Visible = True

        CantidadTotal = gvRow.DataKey("Cantidad").ToDecimal
        IndexSeccionAlmacen = gvRow.RowIndex
        CvePS = gvRow.DataKey("CvePS").ToEntero
        TipoSeccionAlmacen = 1
        CargaSeccionAlmacen()
        RegistraScript("$('#DModalSeccionAlmacen').modal()")
    End Sub

    Protected Sub LnkSeccionAlmacenDestino_Click(sender As Object, e As EventArgs)
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)

        If Not DdlAlmacenLiberacion.SelectedValue.ToEntero > 0 Then
            Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen destino.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        DivSeccionAlmacenOrigen.Visible = True
        DivSeccionAlmacenDestino.Visible = True
        GvSeccion.Columns(1).Visible = True
        GvSeccion.Columns(2).Visible = True

        CantidadTotal = gvRow.FCTextBox("TxtCantidad").Text.ToDecimal
        IndexSeccionAlmacen = gvRow.RowIndex
        CvePS = gvRow.DataKey("CvePS").ToEntero
        TipoSeccionAlmacen = 2
        CargaSeccionAlmacen()
        RegistraScript("$('#DModalSeccionAlmacen').modal()")

    End Sub

    Private Sub CargaSeccionAlmacen()
        Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen} AND TipoSeccionAlmacen = {TipoSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
        GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}  AND TipoSeccionAlmacen = {TipoSeccionAlmacen}")
        GvSeccion.DataBind()

        TxtCantidadSeccion.Text = ""
        DdlSeccionAlmacenOrigen.SelectedIndex = 0
        DdlSeccionAlmacenDestino.SelectedIndex = 0
        Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion
        If CantidadRestante = 0 Then
            RVTxtCantidad.MaximumValue = "1"
            TxtCantidadSeccion.Enabled = False
        Else
            RVTxtCantidad.MaximumValue = CantidadRestante.ToString
            TxtCantidadSeccion.Enabled = True
        End If

        If TipoSeccionAlmacen = 1 Then
            If CantidadTotalSeccion > 0 Then
                GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = False
                GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
            Else
                GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = True
                GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = ""
            End If
            If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then
                DdlAlmacen.Enabled = False
                DdlAlmacen.ToolTip = "Cuenta con sección almacen"
            Else
                DdlAlmacen.Enabled = True
                DdlAlmacen.ToolTip = ""
            End If
            UpGenerales.Update()

            ElseIf TipoSeccionAlmacen = 2 Then
            If CantidadTotalSeccion > 0 Then
                GvMLiberacion.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").Enabled = False
                GvMLiberacion.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").ToolTip = "Cuenta con sección almacen"
            Else
                GvMLiberacion.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").Enabled = True
                GvMLiberacion.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").ToolTip = ""
            End If
            If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then
                DdlAlmacenLiberacion.Enabled = False
                DdlAlmacenLiberacion.ToolTip = "Cuenta con sección almacen"
            Else
                DdlAlmacenLiberacion.Enabled = True
                DdlAlmacenLiberacion.ToolTip = ""
            End If
            UpGridLiberacion.Update()
            UpFiltraLiberacion.Update()
        End If

        UpModalSeccionAlmacen.Update()
    End Sub

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

        Dim ObjInv As New ClsInventarios
        Dim CantidadDisponible As Decimal = 0
        If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacenOrigen.SelectedValue.ToEntero, If(TipoSeccionAlmacen = 1, DdlAlmacen.SelectedValue.ToEntero, DdlAlmacenLiberacion.SelectedValue.ToEntero),
                                                        CvePS, UsuarioActual.CveEmpresa) Then
            If ObjInv.DtResultados.Rows.Count > 0 Then
                CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal
            End If
        End If
        ObjInv.Dispose()

        CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacenOrigen = {DdlSeccionAlmacenOrigen.SelectedValue} AND TipoSeccionAlmacen = {TipoSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")

        If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then
            Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: <b>{CantidadDisponible}</b>", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        Dim Row As DataRow = Nothing
        DtSeccionAlmacen.AcceptChanges()
        Row = DtSeccionAlmacen.NewRow
        Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal
        Row("IndexSeccionAlmacen") = IndexSeccionAlmacen
        Row("CveSeccionAlmacenOrigen") = DdlSeccionAlmacenOrigen.SelectedValue.ToEntero
        Row("SeccionAlmacenOrigen") = DdlSeccionAlmacenOrigen.SelectedItem.Text
        Row("CveSeccionAlmacenDestino") = DdlSeccionAlmacenDestino.SelectedValue.ToEntero
        Row("SeccionAlmacenDestino") = DdlSeccionAlmacenDestino.SelectedItem.Text
        Row("CvePS") = CvePS
        Row("Consec") = DtSeccionAlmacen.Rows.Count + 1
        Row("TipoSeccionAlmacen") = TipoSeccionAlmacen
        DtSeccionAlmacen.Rows.Add(Row)
        DtSeccionAlmacen.AcceptChanges()
        CargaSeccionAlmacen()
    End Sub

    Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs)
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
        Dim Index As Integer = 0
        For Each Dr As DataRow In DtSeccionAlmacen.Rows
            If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then
                Exit For
            End If
            Index += 1
        Next
        DtSeccionAlmacen.Rows.RemoveAt(Index)
        DtSeccionAlmacen.AcceptChanges()
        CargaSeccionAlmacen()
    End Sub

    'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs)
    '    If Not CveVentaSurtir > 0 Then
    '        Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
    '        Exit Sub
    '    End If

    '    If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
    '        Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia)
    '        Exit Sub
    '    End If

    '    Dim ObjInv As New ClsInventarios
    '    If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
    '        GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados
    '    End If
    '    ObjInv.Dispose()
    '    GvVerSeccionesAlmacen.DataBind()
    '    UpVerSeccionesAlmacen.Update()
    '    RegistraScript("$('#ModalVerSeccionesAlmacen').modal()")
    'End Sub

#End Region




End Class