Commit inicial Ventas Productivo

Inventarios/RepUMEquivalencia.aspx.vb

@@ -0,0 +1,59 @@
+Imports Extensiones
+Partial Class Inventarios_RepUMEquivalencia
+    Inherits ClsPaginas
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If IsPostBack Then
+            RegistraScript("bind()")
+        End If
+        If Not IsPostBack Then
+            CargaCombos()
+        End If
+    End Sub
+
+    Public Sub CargaCombos()
+
+
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataBind()
+        DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+    End Sub
+
+    Public Sub CargaDatos()
+        Dim ObjInv As New ClsInventarios
+
+        If ObjInv.RepExistenciasEquivalencias( DdlClasificacion.SelectedValue,-1,UsuarioActual.CveEmpresa) Then
+            GVDatos.DataSource = ObjInv.DtResultados
+            If ObjInv.DtResultados.Columns.Count <= 5 Then
+                divGvdatos.Style.Add("width", "50%")
+                divHeader.Style.Add("width", "48.5%")
+            ElseIf ObjInv.DtResultados.Columns.Count > 5 AndAlso ObjInv.DtResultados.Columns.Count <= 7 Then
+                divGvdatos.Style.Add("width", "60%")
+                divHeader.Style.Add("width", "58.5%")
+            ElseIf ObjInv.DtResultados.Columns.Count > 7 AndAlso ObjInv.DtResultados.Columns.Count <= 9 Then
+                divGvdatos.Style.Add("width", "70%")
+                divHeader.Style.Add("width", "68%")
+            ElseIf ObjInv.DtResultados.Columns.Count > 9 AndAlso ObjInv.DtResultados.Columns.Count <= 11 Then
+                divGvdatos.Style.Add("width", "80%")
+                divHeader.Style.Add("width", "77.5%")
+            ElseIf ObjInv.DtResultados.Columns.Count > 11 AndAlso ObjInv.DtResultados.Columns.Count <= 13 Then
+                divGvdatos.Style.Add("width", "90%")
+                divHeader.Style.Add("width", "87%")
+            ElseIf ObjInv.DtResultados.Columns.Count > 13 Then
+                divGvdatos.Style.Add("width", "100%")
+                divHeader.Style.Add("width", "96.5%")
+            End If
+        End If
+            divGvdatos.Visible = True
+        UpDatos.Update()
+        ObjInv.Dispose()
+        GVDatos.DataBind()
+        'GVDatos.Columns(2).Visible = False
+        'GVDatos.Columns(3).Visible = False
+    End Sub
+
+    Protected Sub btnFiltrar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+
+End Class