SIG/Inventarios/InventarioFisico.aspx.vb

Imports Extensiones
Imports System.Data

Partial Class Inventarios_InventarioFisico
    Inherits ClsPaginas


#Region "PROPIEDADES"

    Public Property DtEquivalencias() As DataTable
        Get
            Return CType(ViewState("dtIF"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("dtIF") = value
        End Set
    End Property

    Private Property tDTClasif As DataTable
        Get
            Return If(IsNothing(ViewState("tDTClasif")), Nothing, CType(ViewState("tDTClasif"), DataTable))
        End Get
        Set(value As DataTable)
            ViewState("tDTClasif") = value
        End Set
    End Property
    Private Property tDTClasifExcluye As DataTable
        Get
            Return If(IsNothing(ViewState("tDTClasifExcluye")), Nothing, CType(ViewState("tDTClasifExcluye"), DataTable))
        End Get
        Set(value As DataTable)
            ViewState("tDTClasifExcluye") = value
        End Set
    End Property

    Private Property tDTPS As DataTable
        Get
            Return If(IsNothing(ViewState("tDTPS")), Nothing, CType(ViewState("tDTPS"), DataTable))
        End Get
        Set(value As DataTable)
            ViewState("tDTPS") = value
        End Set
    End Property

    Private Property tDTPSExcluye As DataTable
        Get
            Return If(IsNothing(ViewState("tDTPSExcluye")), Nothing, CType(ViewState("tDTPSExcluye"), DataTable))
        End Get
        Set(value As DataTable)
            ViewState("tDTPSExcluye") = value
        End Set
    End Property
    Private Property tALM As DataTable
        Get
            Return If(IsNothing(ViewState("tALM")), Nothing, CType(ViewState("tALM"), DataTable))
        End Get
        Set(value As DataTable)
            ViewState("tALM") = value
        End Set
    End Property
    Property FechaInicio As String
    Property FechaFin As String

#End Region

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            CargaDdlSubProyectos()
            CargaDdlClasificacion()
            CargaDdlProductosServicios()
            CargDdlAlmacen()
            CreaTmpClasificaciones()
            CreaTmpProductosServicios()
            CreaTmpAlmacen()
            CargaDatos(UsuarioActual.CveEmpresa)

        End If
    End Sub

#Region "CARGAS"
    Private Sub CargaDatos(CveEmpresa As Integer)
        Dim Inventario As New ClsInventarios
        Dim dt As New DataTable

        If Inventario.GetInventarioFisico(-1, CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue.ToEntero) Then
            dt = Inventario.DtResultados
        End If
        Inventario.Dispose()
        gvIF.DataSource = dt
        gvIF.EditIndex = -1
        gvIF.DataBind()
        gvIF.Columns(6).Visible = UsuarioActual.TienePermisoProceso(178)
    End Sub
    Private Sub CargaGvAlmacen()
        Dim ObjInventario As New ClsInventarios()
        If ObjInventario.GetInventarioFisicoDetallesAlmacen(HdnID.Value, UsuarioActual.CveEmpresa) Then
            GvAlmacen.DataSource = ObjInventario.DtResultados
            GvAlmacen.DataBind()
        End If
        ObjInventario.Dispose()
        UpSubProyecto.Update()
    End Sub
    Private Sub CargaGvClasificacion()
        Dim ObjInventario As New ClsInventarios()
        If ObjInventario.GetInventarioFisicoDetallesClasificacion(HdnID.Value, UsuarioActual.CveEmpresa) Then
            GvClasificacion.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
            GvClasificacionExcluida.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 0")
        End If
        ObjInventario.Dispose()
        GvClasificacion.DataBind()
        GvClasificacionExcluida.DataBind()
        UpClasificacionExcluida.Update()
        UpClasificacion.Update()
    End Sub
    Private Sub CargaGvProductosServicios()
        Dim ObjInventario As New ClsInventarios()
        If ObjInventario.GetInventarioFisicoDetallesProductosServicios(HdnID.Value, UsuarioActual.CveEmpresa) Then
            GvPS.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
            GvPSExcluye.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 0")
        End If
        ObjInventario.Dispose()
        GvPS.DataBind()
        GvPSExcluye.DataBind()
        UpProductosServicios.Update()
        UPPPSExcluye.Update()
    End Sub
    Private Sub CargaDdlSubProyectos()
        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()
        DdlFiltroSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
        DdlFiltroSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
        DdlFiltroSubProyecto.DataBind()
    End Sub
    Private Sub CargaDdlClasificacion()
        DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("UsoClasificacion IN (1,3)")
        DdlClasificacion.DataBind()
        DdlClasificacionExcluida.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlClasificacionExcluida.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("UsoClasificacion IN (1,3)")
        DdlClasificacionExcluida.DataBind()
    End Sub
    Private Sub CargaDdlProductosServicios()
        DdlProductosServicios.setEsWebService(True)
        DdlProductosServicios.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
        DdlProductosServicios.SelectedText = "Todos"
        DdlProductosServicios.SelectedValue = "-1"
        DdlPSExcluye.setEsWebService(True)
        DdlPSExcluye.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
        DdlPSExcluye.SelectedText = "Todos"
        DdlPSExcluye.SelectedValue = "-1"
    End Sub
    Private Sub CargDdlAlmacen()
        DdlAlmacen.Items.Clear()
        DdlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto ={DdlSubProyecto.SelectedValue} AND Inventariable= 'True'")
        DdlAlmacen.DataBind()
    End Sub

#End Region

#Region "PRODUCTOS SERVICIOS"

    Public Sub DeleteProductosServicios_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        tDTPS.Rows(GvRow.RowIndex.ToEntero).Delete()
        GvPS.DataSource = tDTPS
        GvPS.DataBind()
        UpProductosServicios.Update()
    End Sub

    Public Sub DeleteProductosServiciosExcluye_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        tDTPSExcluye.Rows(GvRow.RowIndex.ToEntero).Delete()
        GvPSExcluye.DataSource = tDTPSExcluye
        GvPSExcluye.DataBind()
        UPPPSExcluye.Update()
    End Sub

    Private Sub BtnAgregarProductosServicios_Click(sender As Object, e As EventArgs) Handles BtnAgregarProductosServicios.Click
        If DdlProductosServicios.SelectedValue = -1 Then
            Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
            GvPS.DataSource = Nothing
            GvPS.DataBind()
            tDTPS.Rows.Clear()
        Else
            Dim Row As DataRow = Nothing
            Row = tDTPS.NewRow
            Row("CvePS") = DdlProductosServicios.SelectedValue.ToEntero
            Row("CodigoPS") = DdlProductosServicios.SelectedText
            tDTPS.Rows.Add(Row)
            GvPS.DataSource = tDTPS
            GvPS.DataBind()
            UpProductosServicios.Update()
        End If
    End Sub

    Private Sub BtnAddPSExcluye_Click(sender As Object, e As EventArgs) Handles BtnAddPSExcluye.Click
        If DdlPSExcluye.SelectedValue = -1 Then
            Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
            GvPSExcluye.DataSource = Nothing
            GvPSExcluye.DataBind()
            tDTPSExcluye.Rows.Clear()
        Else
            Dim Row As DataRow = Nothing
            Row = tDTPSExcluye.NewRow
            Row("CvePS") = DdlPSExcluye.SelectedValue.ToEntero
            Row("CodigoPS") = DdlPSExcluye.SelectedText
            tDTPSExcluye.Rows.Add(Row)
            GvPSExcluye.DataSource = tDTPSExcluye
            GvPSExcluye.DataBind()
            UPPPSExcluye.Update()
        End If
    End Sub

    Private Sub CreaTmpProductosServicios()
        tDTPS = New DataTable
        tDTPS.Columns.Add("CvePS", GetType(Integer))
        tDTPS.Columns.Add("CodigoPS", GetType(String))
        tDTPS.Columns.Add("Incluye", GetType(Integer))
        tDTPSExcluye = New DataTable
        tDTPSExcluye.Columns.Add("CvePS", GetType(Integer))
        tDTPSExcluye.Columns.Add("CodigoPS", GetType(String))
        tDTPSExcluye.Columns.Add("Incluye", GetType(Integer))
    End Sub

#End Region

#Region "CLASIFICACIONES"
    Public Sub DeleteClasificacion_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        tDTClasif.Rows(GvRow.RowIndex.ToEntero).Delete()
        GvClasificacion.DataSource = tDTClasif
        GvClasificacion.DataBind()
        UpClasificacion.Update()
    End Sub

    Private Sub BtnAgregarClasificaciones_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificaciones.Click
        If DdlClasificacion.SelectedValue = -1 Then
            Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
            GvClasificacion.DataSource = Nothing
            GvClasificacion.DataBind()
            tDTClasif.Rows.Clear()
        Else
            Dim Row As DataRow = Nothing
            Row = tDTClasif.NewRow
            Row("CveClasificacion") = DdlClasificacion.SelectedValue.ToEntero
            Row("Clasificacion") = DdlClasificacion.SelectedItem.Text
            tDTClasif.Rows.Add(Row)
            GvClasificacion.DataSource = tDTClasif
            GvClasificacion.DataBind()
            UpClasificacion.Update()
        End If
    End Sub

    Private Sub CreaTmpClasificaciones()
        tDTClasif = New DataTable
        tDTClasif.Columns.Add("CveClasificacion", GetType(Integer))
        tDTClasif.Columns.Add("Clasificacion", GetType(String))
        tDTClasif.Columns.Add("Incluye", GetType(Integer))
        tDTClasifExcluye = New DataTable
        tDTClasifExcluye.Columns.Add("CveClasificacion", GetType(Integer))
        tDTClasifExcluye.Columns.Add("Clasificacion", GetType(String))
        tDTClasifExcluye.Columns.Add("Incluye", GetType(Integer))
    End Sub

    Protected Sub BtnClasificacionExcluida_Click(sender As Object, e As EventArgs)
        If DdlClasificacionExcluida.SelectedValue = -1 Then
            Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
            GvClasificacionExcluida.DataSource = Nothing
            GvClasificacionExcluida.DataBind()
            tDTClasifExcluye.Rows.Clear()
        Else
            Dim Row As DataRow = Nothing
            Row = tDTClasifExcluye.NewRow
            Row("CveClasificacion") = DdlClasificacionExcluida.SelectedValue.ToEntero
            Row("Clasificacion") = DdlClasificacionExcluida.SelectedItem.Text
            tDTClasifExcluye.Rows.Add(Row)
            GvClasificacionExcluida.DataSource = tDTClasifExcluye
            GvClasificacionExcluida.DataBind()
            UpClasificacionExcluida.Update()
        End If
    End Sub
    Protected Sub LnkEliminarClasificacionExcluida_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        tDTClasifExcluye.Rows(GvRow.RowIndex.ToEntero).Delete()
        GvClasificacionExcluida.DataSource = tDTClasifExcluye
        GvClasificacionExcluida.DataBind()
        UpClasificacionExcluida.Update()
    End Sub

#End Region

#Region "INVENTARIO FISICO"
    Public Sub Delete_Click(sender As Object, e As EventArgs)
        Dim ObjInventario As New ClsInventarios()
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        HdnID.Value = GvRow.DataKey("CveInventarioFisico")
        UppInventarioFisico.Update()
        If ObjInventario.RemoveInventarioFisico(HdnID.Value) Then
            CargaDatos(UsuarioActual.CveEmpresa)
            Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
        End If

        ObjInventario.Dispose()
        UppInventarioFisico.Update()
    End Sub

    Public Sub Edit_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        tDTClasif.Rows.Clear()
        tDTClasifExcluye.Rows.Clear()
        tDTPS.Rows.Clear()
        tDTPSExcluye.Rows.Clear()
        tALM.Rows.Clear()
        GvAlmacen.DataSource = Nothing
        GvAlmacen.DataBind()
        GvClasificacion.DataSource = Nothing
        GvClasificacion.DataBind()
        GvClasificacionExcluida.DataSource = Nothing
        GvClasificacionExcluida.DataBind()
        GvPS.DataSource = Nothing
        GvPS.DataBind()
        HdnModalidad.Value = "U"
        HdnID.Value = GvRow.DataKey("CveInventarioFisico")
        UppInventarioFisico.Update()
        BtnAgregarInventarioFisico.Text = "Actualizar"
        myModalLabel.InnerText = "Actualizar Inventario Fisico"
        TxtTitulo.Text = GvRow.DataKey("InventarioFisico")
        TxtObservaciones.Text = GvRow.DataKey("Observaciones")
        FechaInicio = GvRow.DataKey("FechaInicio").ToEntero
        FechaFin = GvRow.DataKey("FechaFin").ToEntero
        DdlSubProyecto.SelectedValue = GvRow.DataKey("CveSubProyecto").ToEntero
        CargaGvAlmacen()
        CargaGvClasificacion()
        CargaGvProductosServicios()
        tDTClasif = GvClasificacion.DataSource
        tDTClasifExcluye = GvClasificacionExcluida.DataSource
        tDTPS = GvPS.DataSource
        tDTPSExcluye = GvPSExcluye.DataSource
        tALM = GvAlmacen.DataSource
        UpAddInventarioFisico.Update()
        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddInventarioFisico"))
    End Sub


    Private Sub LnkInventarioFisico_Click(sender As Object, e As EventArgs) Handles LnkInventarioFisico.Click
        Agregar()
    End Sub

    Public Sub Agregar()
        If tDTClasif IsNot Nothing AndAlso tDTPS IsNot Nothing Then
            tDTClasif.Rows.Clear()
            tDTPS.Rows.Clear()
            tDTPSExcluye.Rows.Clear()
            tDTClasifExcluye.Rows.Clear()
            tALM.Rows.Clear()
        End If

        HdnModalidad.Value = "A"
        UppInventarioFisico.Update()
        BtnAgregarInventarioFisico.Text = "Agregar"
        myModalLabel.InnerText = "Agregar Inventario Fisico"
        TxtTitulo.Text = ""
        TxtObservaciones.Text = ""
        GvAlmacen.DataSource = Nothing
        GvAlmacen.DataBind()
        GvClasificacion.DataSource = Nothing
        GvClasificacion.DataBind()
        GvClasificacionExcluida.DataSource = Nothing
        GvClasificacionExcluida.DataBind()
        GvPS.DataSource = Nothing
        GvPS.DataBind()
        GvPSExcluye.DataSource = Nothing
        GvPSExcluye.DataBind()
        UpAddInventarioFisico.Update()
        RegistraScript("$('#divAddInventarioFisico').modal('show');")

    End Sub

    Private Sub BtnAgregarInventarioFisico_Click(sender As Object, e As EventArgs) Handles BtnAgregarInventarioFisico.Click
        'verificar almacen 
        If GvAlmacen.Rows.Count = 0 Then Alert("Favor de especificar cuando menos un almacen", TipoMensaje.MsgAdvertencia) : Exit Sub
        Dim ErrorClasif As Boolean = False
        Dim ObjInventario As New ClsInventarios
        Dim CveInventarioFisico As Integer
        ObjInventario.IniciaTransacSQL()
        If HdnModalidad.Value = "A" Then
            If ObjInventario.AddInventarioFisico(UsuarioActual.CveEmpresa, TxtTitulo.Text, TxtObservaciones.Text, 0, DdlSubProyecto.SelectedValue.ToEntero) Then
                CveInventarioFisico = ObjInventario.CveInventarioFisico

                For Each Gvr As GridViewRow In GvAlmacen.Rows
                    If Not ObjInventario.AddInventarioFisicoAlmacenes(CveInventarioFisico, Gvr.DataKey("CveAlmacen").ToEntero) Then
                        ErrorClasif = True
                        Exit For
                    End If
                Next

                If ErrorClasif = False Then
                    For Each Gvr As GridViewRow In GvClasificacion.Rows
                        If Not ObjInventario.AddInventarioFisicoClasificaciones(CveInventarioFisico, Gvr.DataKey("CveClasificacion").ToEntero, UsuarioActual.CveUsuario, True) Then
                            ErrorClasif = True
                            Exit For
                        End If
                    Next
                    For Each Gvr As GridViewRow In GvClasificacionExcluida.Rows
                        If Not ObjInventario.AddInventarioFisicoClasificaciones(CveInventarioFisico, Gvr.DataKey("CveClasificacion").ToEntero, UsuarioActual.CveUsuario, False) Then
                            ErrorClasif = True
                            Exit For
                        End If
                    Next
                End If

                If ErrorClasif = False Then
                    For Each Gvr As GridViewRow In GvPS.Rows
                        If Not ObjInventario.AddInventarioFisicoProductosServicios(CveInventarioFisico, Gvr.DataKey("CvePS").ToEntero, True) Then
                            ErrorClasif = True
                            Exit For
                        End If
                    Next
                    For Each Gvr As GridViewRow In GvPSExcluye.Rows
                        If Not ObjInventario.AddInventarioFisicoProductosServicios(CveInventarioFisico, Gvr.DataKey("CvePS").ToEntero, False) Then
                            ErrorClasif = True
                            Exit For
                        End If
                    Next
                End If

                If ErrorClasif = False And CveInventarioFisico > 0 Then
                    ObjInventario.Commit()
                    Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
                    RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddInventarioFisico"))
                    CargaDatos(UsuarioActual.CveEmpresa)
                    UppInventarioFisico.Update()
                Else
                    ObjInventario.RollBack()
                End If
            End If

        Else

            If ObjInventario.UpdateInventarioFisico(HdnID.Value, TxtTitulo.Text, TxtObservaciones.Text, DdlSubProyecto.SelectedValue.ToEntero) Then


                If Not ObjInventario.RemoveInventarioFisicoAlamacen(HdnID.Value) Then
                    ErrorClasif = True
                End If

                If Not ObjInventario.RemoveInventarioFisicoClasificacion(HdnID.Value) Then
                    ErrorClasif = True
                End If

                If Not ObjInventario.RemoveInventarioFisicoProductosServicios(HdnID.Value) Then
                    ErrorClasif = True
                End If

                If ErrorClasif = False Then
                    For Each Gvr As GridViewRow In GvAlmacen.Rows
                        If Not ObjInventario.AddInventarioFisicoAlmacenes(HdnID.Value, Gvr.DataKey("CveAlmacen").ToEntero) Then
                            ErrorClasif = True
                            Exit For
                        End If
                    Next
                End If

                If ErrorClasif = False Then
                    For Each Gvr As GridViewRow In GvClasificacion.Rows
                        If Not ObjInventario.AddInventarioFisicoClasificaciones(HdnID.Value, Gvr.DataKey("CveClasificacion").ToEntero, UsuarioActual.CveUsuario, True) Then
                            ErrorClasif = True
                            Exit For
                        End If
                    Next
                    For Each Gvr As GridViewRow In GvClasificacionExcluida.Rows
                        If Not ObjInventario.AddInventarioFisicoClasificaciones(HdnID.Value, Gvr.DataKey("CveClasificacion").ToEntero, UsuarioActual.CveUsuario, False) Then
                            ErrorClasif = True
                            Exit For
                        End If
                    Next
                End If

                If ErrorClasif = False Then
                    For Each Gvr As GridViewRow In GvPS.Rows
                        If Not ObjInventario.AddInventarioFisicoProductosServicios(HdnID.Value, Gvr.DataKey("CvePS").ToEntero, True) Then
                            ErrorClasif = True
                            Exit For
                        End If
                    Next

                    For Each Gvr As GridViewRow In GvPSExcluye.Rows
                        If Not ObjInventario.AddInventarioFisicoProductosServicios(HdnID.Value, Gvr.DataKey("CvePS").ToEntero, False) Then
                            ErrorClasif = True
                            Exit For
                        End If
                    Next
                End If


                If ErrorClasif = False And HdnID.Value > 0 Then
                    ObjInventario.Commit()
                    Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
                    RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddInventarioFisico"))
                    CargaDatos(UsuarioActual.CveEmpresa)
                    UppInventarioFisico.Update()
                Else
                    ObjInventario.RollBack()
                End If
            End If
        End If

    End Sub

    Protected Sub gvIF_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvIF.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.DBCampo("CveEstatus") = "3" Then
                e.Row.FCLinkButton("imgE").Visible = False
                e.Row.FCLinkButton("imgD").Visible = False
            End If

        End If
    End Sub

#End Region

#Region "ALMACEN"
    Public Sub DeleteAlmacen_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        tALM.Rows(GvRow.RowIndex.ToEntero).Delete()
        GvAlmacen.DataSource = tALM
        GvAlmacen.DataBind()
        UpSubProyecto.Update()
    End Sub
    Private Sub BtnAgregarAlmacen_Click(sender As Object, e As EventArgs) Handles BtnAgregarAlmacen.Click
        Dim Row As DataRow = Nothing
        Row = tALM.NewRow
        Row("CveAlmacen") = DdlAlmacen.SelectedValue.ToEntero
        Row("Almacen") = DdlAlmacen.SelectedItem.Text
        tALM.Rows.Add(Row)
        GvAlmacen.DataSource = tALM
        GvAlmacen.DataBind()
        UpSubProyecto.Update()
    End Sub
    Private Sub CreaTmpAlmacen()
        tALM = New DataTable
        tALM.Columns.Add("CveAlmacen", GetType(Integer))
        tALM.Columns.Add("Almacen", GetType(String))
    End Sub

#End Region

#Region "CONSULTA"

    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        Dim ObjInventario As New ClsInventarios
        If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue) Then
            gvIF.DataSource = ObjInventario.DtResultados
            gvIF.DataBind()
        End If
        UppInventarioFisico.Update()
        ObjInventario.Dispose()
    End Sub

#End Region

#Region "SELECTED INDEX CHANGE"
    Private Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
        CargDdlAlmacen()
        GvAlmacen.DataSource = Nothing
        GvAlmacen.DataBind()
        tALM.Rows.Clear()
        UpSubProyecto.Update()
    End Sub

#End Region

End Class