Nueva vista

Inventarios/ReconstruirCostos.aspx.vb

@@ -0,0 +1,64 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports System.Data
+Partial Class Inventario_ReconstruirCostos
+    Inherits ClsPaginas
+
+    Private Property FacturasCheckadas As Integer
+        Get
+            Return ViewState("FacturasCheckadas").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("FacturasCheckadas") = value
+        End Set
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaClasificaciones()
+            CargaMarcas()
+        End If
+    End Sub
+    Private Sub CargaClasificaciones()
+
+        If UsuarioActual.Empresa.UsaAC Then
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        Else
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
+        End If
+        DdlClasificacion.DataBind()
+    End Sub
+
+    Private Sub CargaMarcas()
+
+        Dim ObjPS As New ClsProductosServicios
+
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarca.DataSource = ObjPS.DtResultados
+            DdlMarca.DataBind()
+
+        End If
+        ObjPS.Dispose()
+    End Sub
+    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+
+    Private Sub CargaDatos()
+
+
+        Dim ObjPS As New ClsProductosServicios
+        ObjPS.GetPS(-1, DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveMarca:=DdlMarca.SelectedValue.ToEntero)
+        If ObjPS.DtResultados.Rows.Count > 0 Then
+            GvProdcutos.DataSource = ObjPS.DtResultados
+            GvProdcutos.DataBind()
+            UpGvProductos.Update()
+        End If
+        ObjPS.Dispose()
+    End Sub
+
+
+
+End Class