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.ToEntero, -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