Filtro por numero de serie en el kardex

App_Code/ClsInventarios.vb

@@ -97,7 +97,6 @@ Public Class ClsInventarios
     Public Property CveFlete As Integer
     Public Property CveCliente As Integer
     Public Property CveClienteSucursal As Integer
-    Public Property NombreCliente As String
     Public Property DepartamentoEntrega As String
     Public Property PedidoContrato As String
     Public Property GastoIndirecto As Double
@@ -821,7 +820,6 @@ Public Class ClsInventarios
                 FolioInterno = dr("VentaAnticipo").ToString
                 CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1)
                 CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").ToString.ToEntero, -1)
-                NombreCliente = dr("Nombre").ToString
                 DepartamentoEntrega = dr("DepartamentoEntrega").ToString
                 PedidoContrato = dr("PedidoContrato").ToString
                 TienePrePoliza = dr("TienePrePoliza").ToString.ToEntero
@@ -1484,7 +1482,7 @@ Public Class ClsInventarios
         Return Retorno
 
     End Function
-    Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional AgruparAlmacen As Boolean = False) As Boolean
+    Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexGet")
@@ -1501,6 +1499,7 @@ Public Class ClsInventarios
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@AgruparAlmacen", SqlDbType.Bit).Value = AgruparAlmacen
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
         End With
 
         Try

Inventarios/Kardex.aspx

@@ -141,7 +141,7 @@
                     <div class="titlefiltros caption ">
                         <div class="row" style="padding-top: 10px; position: relative;">
 
-                            <asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate" style="max-width: 80px;">Producto:</asp:Label>
+                            <asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate" Style="max-width: 80px;">Producto:</asp:Label>
                             <div class="col-md-2 " style="min-width: 250px; max-width: 300px;">
                                 <ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" IncluyeTodos="false" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost>
                             </div>
@@ -181,37 +181,49 @@
                                 <asp:CheckBox ID="ChkAgruparAlmacen" CssClass="md-checksd" runat="server" Text="Agrupar Almacenes" Checked="False" Visible="false" />
                             </div>
 
+
+                        </div>
+                </div>
+            </div>
+            <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                <div class="row">
+                    <label class="col-md-1 truncate">Clasificación:</label>
+                    <div class="col-md-2">
+                        <asp:DropDownList ID="DdlClasificacion" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 250px !important;">
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                        </asp:DropDownList>
+                    </div>
+
+                    <label class="col-md-1 truncate">Unidad Medida:</label>
+                    <div class="col-md-2">
+                        <asp:DropDownList ID="DdlUnidadMedida" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida">
+                            <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                        </asp:DropDownList>
+                    </div>
+
+                    <div class="col-md-1">
+                        <asp:CheckBox ID="cbEntrada" CssClass="md-checksd" runat="server" Text="Entrada" Checked="True" />
+                    </div>
+
+                    <div class="col-md-1">
+                        <asp:CheckBox ID="cbSalida" CssClass="md-checksd" runat="server" Text="Salida" Checked="True" />
+                    </div>
+
+                    <div class="col-md-2">
+                        <button type="button" class="btn btn-default" data-toggle="modal" data-target="#ModalTiposAlmacen">Filtrar tipos almacén</button>
+                    </div>
+
+
+                    <div id="DivSerie" runat="server" visible="false">
+                        <label class="col-md-1 truncate" style="max-width: 80px;">Serie:</label>
+                        <div class="col-md-1 ">
+                            <asp:TextBox ID="TxtSerie" CssClass="form-control input-sm" runat="server" Width="90px" />
                         </div>
                     </div>
-                </div>
-                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
-                    <div class="row">
-                        <label class="col-md-1 truncate">Clasificación:</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClasificacion" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 250px !important;">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
 
-                        <label class="col-md-1 truncate">Unidad Medida:</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlUnidadMedida" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida">
-                                <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-
-                        <div class="col-md-1">
-                            <asp:CheckBox ID="cbEntrada" CssClass="md-checksd" runat="server" Text="Entrada" Checked="True" />
-                        </div>
-                        <div class="col-md-1">
-                            <asp:CheckBox ID="cbSalida" CssClass="md-checksd" runat="server" Text="Salida" Checked="True" />
-                        </div>
-                        <div class="col-md-2">
-                            <button type="button" class="btn btn-default" data-toggle="modal" data-target="#ModalTiposAlmacen">Filtrar tipos almacén</button>
-                        </div>
-                    </div>
                 </div>
             </div>
+            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
 
@@ -307,8 +319,13 @@
                 </div>
             </div>
             <div class="row">
-                <div class="col-md-12 text-right">
-                    <asp:Literal ID="LtIndicador_Mensaje" Text="" runat="server" />
+                <div class="col-md-12">
+                    <div class="col-md-6 text-left">
+                        <asp:Literal ID="LtIndicador_MensajeSerie" Text="" runat="server" />
+                    </div>
+                    <div class="col-md-6 text-right">
+                        <asp:Literal ID="LtIndicador_Mensaje" Text="" runat="server" />
+                    </div>
                 </div>
             </div>
         </ContentTemplate>
@@ -408,6 +425,7 @@
                 <AlternatingRowStyle CssClass="TextoAlterno" />
             </asp:GridView>
             </div>
+       
         </ContentTemplate>
         <Triggers>
             <asp:AsyncPostBackTrigger ControlID="btConsultar" EventName="Click" />

Inventarios/Kardex.aspx.vb

@@ -170,6 +170,19 @@ Partial Class Inventarios_Kardex
         If UsuarioActual.CveUsuario = 100 Then
             LblPS.ToolTip = ddlProducto2.SelectedValue
         End If
+
+        TxtSerie.Text = ""
+        If ddlProducto2.SelectedValue.ToEntero > 0 Then
+            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, ddlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
+            If Dr IsNot Nothing Then
+                If Dr("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then
+                    DivSerie.Visible = True
+                Else
+                    DivSerie.Visible = False
+                End If
+            End If
+        End If
+
     End Sub
 #End Region
 
@@ -205,6 +218,12 @@ Partial Class Inventarios_Kardex
 
                     LtIndicador_Mensaje.Text = $"* Importes calculados con el tipo de cambio del dia <b> $ {TC.FormatoNumero(4)} </b>"
 
+                    If TxtSerie.Text <> "" Then
+                        LtIndicador_MensajeSerie.Text = $"* Existencia y costos calculada por numero de serie: <b> {TxtSerie.Text} </b>"
+                    Else
+                        LtIndicador_MensajeSerie.Text = ""
+                    End If
+
                     UpIndicadores.Update()
 
                     GvM.Attributes.Add("data-heighterror", "430")
@@ -235,8 +254,10 @@ Partial Class Inventarios_Kardex
             CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
         Next
 
+        Dim Serie As String = If(TxtSerie.Text <> "", TxtSerie.Text, "-1")
+
         Dim ObjInventarios As New ClsInventarios
-        If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked) Then
+        If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie) Then
             dt = ObjInventarios.DtResultados.Copy
         End If
         ObjInventarios.Dispose()
@@ -315,15 +336,18 @@ Partial Class Inventarios_Kardex
         Dim EntradaSalida As String = ""
 
         If cbEntrada.Checked And cbSalida.Checked Then
-            EntradaSalida = "Entradas y Salidas"
+            EntradaSalida = "&emsp;Entradas y Salidas"
         ElseIf cbEntrada.Checked And cbSalida.Checked = False Then
-            EntradaSalida = "Solo Entradas"
+            EntradaSalida = "&emsp;Solo Entradas"
         ElseIf cbEntrada.Checked = False And cbSalida.Checked Then
-            EntradaSalida = "Solo Salidas"
+            EntradaSalida = "&emsp;Solo Salidas"
         End If
 
+        Dim Serie As String = If(TxtSerie.Text <> "", TxtSerie.Text, "-1")
 
-        If Movimientos.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, "1", DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked) Then
+        Dim SerieAgrupado As String = If(TxtSerie.Text = "", "", $"<b>Existencia y costos calculada por numero de serie:</b>&nbsp;{TxtSerie.Text} ")
+
+        If Movimientos.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, "1", DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie) Then
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
             Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
@@ -335,7 +359,7 @@ Partial Class Inventarios_Kardex
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Producto", ddlProducto2.SelectedText))
-            params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}"))
+            params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{SerieAgrupado}{EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}"))
 
             If Imagen.Exists Then
                 params.Add(New ReportParameter("LogoPath", logouri))