cambios en filtro de Categoría en

repentradassalidas reputilidadventas
2022-01-05 22:17:15 -07:00
parent 11aef2f7dd
commit 059a99953f
10 changed files with 120 additions and 77 deletions
--- a/Inventarios/RepEntradasSalidas.aspx
+++ b/Inventarios/RepEntradasSalidas.aspx
@@ -105,9 +105,9 @@
                        <div class="col-md-2">
                            <asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
                        </div>
-                        <div class="col-md-1 truncate" style="width:150px !important">Solo con Movimientos</div>
+                        <div class="col-md-1 truncate">Opción</div>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlMovs" CssClass="form-control input-sm select2me" runat="server" Width="250" DataValueField="CveAlmacen" DataTextField="Almacen">
+                            <asp:DropDownList ID="DdlMovs" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen">
                                <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
                                <asp:ListItem Text="Con Movimientos" Value="2"></asp:ListItem>
                                <asp:ListItem Text="Sin Movimientos" Value="5"></asp:ListItem>
@@ -121,17 +121,24 @@
                        <div class="col-md-2">
                            <asp:DropDownList ID="DdlProveedor" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataValueField="CveProveedor" DataTextField="RazonSocial"></asp:DropDownList>
                        </div>
+                        <div class="col-md-1 truncate">Categoría</div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlCategoria" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlCategoria_SelectedIndexChanged" Width="100%" DataTextField="Categoria" DataValueField="CveCategoria"></asp:DropDownList>
+                        </div>
                        <div class="col-md-1 truncate">Clasificación</div>
                        <div class="col-md-2">
                            <asp:DropDownList ID="DdlClasificacion" runat="server" AutoPostBack="true"  OnSelectedIndexChanged="DdlClasificacion_SelectedIndexChanged"  CssClass="form-control input-sm select2me" Width="100%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
                        </div>
-                        <div class="col-md-1 truncate" style="width:50px !important" >PS</div>
+                        </div>
+                     <div class="row">
+
+                        <div class="col-md-1 truncate"   >Producto</div>
                        <div class="col-md-2">
                             <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
                            <%--<asp:DropDownList ID="DdlPS" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataTextField="PS" DataValueField="CvePS"></asp:DropDownList>--%>
                        </div>
                        <div runat="Server" id="DivMarca">
-                            <div class="col-md-1 truncate" style="width:50px !important" >Marca</div>
+                            <div class="col-md-1 truncate"  >Marca</div>
                            <div class="col-md-2">
                                <asp:DropDownList ID="DdlMarca" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataValueField="CveMarca" DataTextField="Marca"></asp:DropDownList>
                            </div>
@@ -164,10 +171,7 @@

                    </div>
                    <div id="DivFamiliaSubFamilia" style="display:none" class="row" runat="server" visible="false">
-                        <div class="col-md-1 truncate">Familia</div>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlFamilia" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlFamilia_SelectedIndexChanged" Width="100%" DataTextField="Categoria" DataValueField="CveCategoria"></asp:DropDownList>
-                        </div>
+                        
                        <div class="col-md-1 truncate" >SubFamilia</div>
                        <div class="col-md-2">
                            <asp:DropDownList ID="DdlSubFamilia" CssClass="form-control input-sm select2me" runat="server"  Width="100%" DataTextField="Clasificacion" DataValueField="CveClasificacion"></asp:DropDownList>
--- a/Inventarios/RepEntradasSalidas.aspx.vb
+++ b/Inventarios/RepEntradasSalidas.aspx.vb
@@ -59,10 +59,6 @@ Partial Class Inventarios_ReporteEntradasSalidas
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then

-            If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-                DivFamiliaSubFamilia.Visible = True
-            End If
-
            If UsuarioActual.CveEmpresa.Contiene(119) Then
                LnkFormatoInventario.Visible = True
            End If
@@ -144,26 +140,25 @@ Partial Class Inventarios_ReporteEntradasSalidas
        DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))


-        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-            DdlFamilia.DataSource = GlobalDTFamilias(UsuarioActual.CveEmpresa)
-            DdlFamilia.DataBind()
-        End If
-        DdlFamilia.Items.Insert(0, New ListItem("Todas", "-1"))
+        DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
+        DdlCategoria.DataBind()
+
+        DdlCategoria.Items.Insert(0, New ListItem("Todas", "-1"))
        DdlSubFamilia.Items.Insert(0, New ListItem("Todas", "-1"))

        'Carga Productos
-        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+        DdlPS.setEsWebService(True)

-        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
-            DdlPS.SelectedText = ""
-            DdlPS.SelectedValue = "-1"
-        Else
-            DdlPS.ddl.Items.Clear()
-            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
-            DdlPS.ddl.DataBind()
-            DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
-        End If
+        'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+        DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+        DdlPS.SelectedText = ""
+        DdlPS.SelectedValue = "-1"
+        'Else
+        '    DdlPS.ddl.Items.Clear()
+        '    DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
+        '    DdlPS.ddl.DataBind()
+        '    DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        'End If

        DdlMovs.SelectedValue = "2"

@@ -190,12 +185,10 @@ Partial Class Inventarios_ReporteEntradasSalidas
        DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))

    End Sub
-    Protected Sub DdlFamilia_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DdlSubFamilia.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa, DdlFamilia.SelectedValue.ToEntero)
-        DdlSubFamilia.DataBind()
-        DdlSubFamilia.Items.Insert(0, New ListItem("Todas", "-1"))
-
-
+    Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveCategoria:=DdlCategoria.SelectedValue.ToEntero)
+        DdlClasificacion.DataBind()
+        DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
    End Sub
    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
        CargaDatos()
@@ -218,7 +211,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
        End If

        If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
-                                  Almacenes, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
+                                  Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
                                  DdlMovs.SelectedValue.ToEntero, CveMarca, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
                                  Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
            dt = Reporte.DtResultados
@@ -353,7 +346,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
        Dim SoloConMov = If(DdlMovs.SelectedValue = "-1", "", $"&emsp;<b>Solo&nbsp;Movimientos:</b>&nbsp;{DdlMovs.SelectedItem.Text}")
        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedItem.Text}")
        Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b>&nbsp;{DdlClasificacion.SelectedItem.Text}")
-        Dim Familia = If(DdlFamilia.SelectedValue = "-1", "", $"&emsp;<b>Familia:</b>&nbsp;{DdlFamilia.SelectedItem.Text}")
+        Dim Familia = If(DdlCategoria.SelectedValue = "-1", "", $"&emsp;<b>Categoria:</b>&nbsp;{DdlCategoria.SelectedItem.Text}")
        Dim SubFamilia = If(DdlSubFamilia.SelectedValue = "-1", "", $"&emsp;<b>SubFamilia:</b>&nbsp;{DdlSubFamilia.SelectedItem.Text}")
        Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>PS:</b>&nbsp;{DdlPS.SelectedText}")
        Dim FechaIn As String = $"&emsp;<b>Fecha&nbsp;Inicio:</b>&nbsp;{TxtFechaI.Text}"