60 lines
2.3 KiB
VB.net
60 lines
2.3 KiB
VB.net
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
|