From 2d53fdb08993cd17de4d8b3e201e52515224186b Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Sat, 12 Sep 2020 12:46:18 -0700
Subject: [PATCH] =?UTF-8?q?se=20agreg=C3=B3=20una=20ventana=20modal=20que?=
 =?UTF-8?q?=20muestra=20en=20un=20grid=20las=20series=20en=20los=20almacen?=
 =?UTF-8?q?es=20del=20producto=20seleccionado?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/Kardex.aspx    | 60 ++++++++++++++++++++++++++++++++------
 Inventarios/Kardex.aspx.vb | 21 +++++++++++++
 2 files changed, 72 insertions(+), 9 deletions(-)

diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index ca1b60934..6dc8dfaf9 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -116,15 +116,22 @@
     Kardex
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li>
-        <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
-    </li>
-    <li>
-        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
-    </li>
-    <li>
-        <a target="_blank" class="ayuda" href="../Documentacion/DocumentacionInventarios.aspx#Kardex">&nbsp;</a>
-    </li>
+    <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional" >
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkSeries" Visible="false" runat="server">Series</asp:LinkButton>
+            </li>
+            <li>
+                <a target="_blank" class="ayuda" href="../Documentacion/DocumentacionInventarios.aspx#Kardex">&nbsp;</a>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
@@ -493,6 +500,41 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
+    <div id="DivModalSerie" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel1" UpdateMode="Conditional" RenderMode="Inline" style="width:40%">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlSerieTitle" Text="Series con Existencias" runat="server"> </asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row" style="width:100%">
+                            <div style="width:95%;margin-left:2.5%;margin-right:2.5%">
+                                <asp:UpdatePanel ID="UpGridSeries" runat="server" UpdateMode="Conditional" RenderMode="Inline">
+                                <ContentTemplate>
+                                    <asp:GridView ID="GvSeries" Width="100%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
+                                        ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover ScrollAD" GridLines="None" 
+                                        DataKeyNames="CveEmpresa,CveAlmacen,Almacen,PS,CvePS,Serie,Lote,FechaCaducidad,CveSeccionAlmacen,Existencia,Valor">
+                                        <Columns>
+                                            <asp:BoundField HeaderText="Almacén" DataField="Almacen"/>
+                                            <asp:BoundField HeaderText="Serie" DataField="Serie"/>
+                                            <asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:N}"/>
+                                        </Columns>
+
+                                    </asp:GridView>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <button type="button" class="btn btn-primary" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 448dcc4e4..040ca2bc1 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -203,6 +203,8 @@ Partial Class Inventarios_Kardex
                 If AplicaLote Then GvM.Columns(9).Visible = True
                 If AplicaCaducidad Then GvM.Columns(10).Visible = True
 
+                Dim AuxAplicaSerie As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaSerie") = "True"
+                LnkSeries.Visible = AuxAplicaSerie
                 'CARGA INDICADORES
                 If UsuarioActual.TienePermisoProceso(201) Then
                     DivIndicadores.Visible = True
@@ -238,6 +240,7 @@ Partial Class Inventarios_Kardex
                 End If
                 GvM.DataSource = DtTemp
                 GvM.DataBind()
+                UpAcciones.Update()
             End If
         Else
             Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
@@ -299,6 +302,15 @@ Partial Class Inventarios_Kardex
 
         End If
     End Sub
+
+    Private Sub CargarExistenciasProductosSeries()
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetExistenciasProductoSerie(ddlProducto2.SelectedValue.ToEntero(), ddlAlmacen.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            GvSeries.DataSource = ObjInventarios.DtResultados
+        End If
+        ObjInventarios.Dispose()
+        GvSeries.DataBind()
+    End Sub
 #End Region
 
 #Region "   IMPRIMIR   "
@@ -409,5 +421,14 @@ Partial Class Inventarios_Kardex
 
 #End Region
 
+#Region "Acciones"
+    Protected Sub LnkSeries_OnClick(sender As Object, e As EventArgs) Handles LnkSeries.Click
+        CargarExistenciasProductosSeries()
+        UpGridSeries.Update()
+        RegistraScript(String.Format("$('#{0}').modal('show');", "DivModalSerie"))
+    End Sub
+#End Region
+
+
 
 End Class