Commit inicial Ventas Productivo

Inventarios/PopUpExistenciasAlmacenDT.aspx.vb

@@ -0,0 +1,46 @@
+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