Option Explicit On
Option Strict On
Imports System.Data
Imports Extensiones

Partial Class OC_PopUpBuscarOCPS
    Inherits ClsPaginas

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

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CType(Me.Master, BaseMasterPage).EsPopup = True
            CType(Me.Master, BaseMasterPage).PopupWidth = 780
            RegistraScript("if($get('tdContenido')){$get('tdContenido').style.height='465px'}")
            CveOrdenCompra = Request("CveOrdenCompra").ToEntero
            CargaDatos()
        End If
    End Sub

    Private Sub CargaDatos()
        If CveOrdenCompra > 0 Then
            Dim ObjInv As New ClsInventarios
            If ObjInv.GetExistenciasAlmacenDT(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
                GV.DataSource = ObjInv.DtResultados
                GV.DataBind()
            End If
            ObjInv.Dispose()
            UPDatos.Update()
        End If
    End Sub

End Class