From 1bb39f45db6163869c91dbbcdae3f7538dcb0c18 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 14 Jul 2020 09:43:08 -0700
Subject: [PATCH] se consideran los nuevos campos serie,lote y fecha caducidad
 en el inventario fisico

---
 Inventarios/InventarioFisicoDetalle.aspx    |  6 +++---
 Inventarios/InventarioFisicoDetalle.aspx.vb | 18 +++++++++++-------
 Inventarios/RepAnomalias.aspx               |  8 ++++++--
 Inventarios/RepAnomalias.aspx.vb            | 11 ++++++++++-
 4 files changed, 30 insertions(+), 13 deletions(-)

diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx
index a1c069487..c702804ee 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx
+++ b/Inventarios/InventarioFisicoDetalle.aspx
@@ -92,7 +92,7 @@
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="btnFin" runat="server" Text="Finalizar" data-toggle="confirmation" data-popout="true" data-original-title="Finalizar el inventario" data-btn-ok-label="si" />
+                <asp:LinkButton ID="btnFin" runat="server" Text="<i class='fa fa-stop' style='color:#cb5a5e'></i>Finalizar" data-toggle="confirmation" data-popout="true" data-original-title="Finalizar el inventario" data-btn-ok-label="si" />
             </li>
             <li>
                 <asp:LinkButton ID="LBAvance" OnClick="LBAvance_Click" runat="server" Text="Ver Avance" Visible="false" />
@@ -232,7 +232,7 @@
                                         <asp:TextBox runat="server" ID="TxtCodigoBarras" OnTextChanged="TxtCodigoBarras_Change" AutoPostBack="true"></asp:TextBox>
                                     </div>
                                 </div>
-                                <div class="row" style="margin-top: 5px;">
+                                <div class="row" style="margin-top: 5px;" runat="server" id="divSerie" visible="false">
                                     <label class="col-md-4">Serie</label>
                                     <div class="col-md-8">
                                         <asp:TextBox runat="server" ID="TxtCodigoSerie"></asp:TextBox>
@@ -323,7 +323,7 @@
                             <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
                             <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
                             <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
-                            <asp:BoundField HeaderText="Serie/Lote" DataField="SerieLote" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                            <asp:BoundField HeaderText="Serie" DataField="SerieLote" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
                             <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
                             <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
                             <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"></asp:BoundField>
diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb
index d478c9d76..208728062 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/Inventarios/InventarioFisicoDetalle.aspx.vb
@@ -103,7 +103,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
                     lbEstatus.Text = ObjInventario.Estatus
 
                     lbFechaF.Text = ObjInventario.FechaF
-                    btnFin.Text = "Iniciar"
+                    btnFin.Text = "<i style='color:#26a69a' class='fa fa-play'></i>Iniciar"
                     BtnGuardar.Enabled = False
                     btnFin.ToolTip = "Inicia el Inventario Físico"
                 Case "3" 'FINALIZADO
@@ -128,7 +128,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
                     lbFechaI.Text = ObjInventario.FechaI
                     lbFechaF.Text = ObjInventario.FechaF
                     BtnGuardar.Enabled = True
-                    btnFin.Text = "Finalizar"
+                    btnFin.Text = "<i class='fa fa-stop' style='color:#cb5a5e'></i>Finalizar"
                     LBAvance.Visible = UsuarioActual.TienePermisoProceso(178) ' si tiene permiso de ver el avance, se activa
             End Select
             GvIFD.Visible = False
@@ -293,16 +293,18 @@ Partial Class Inventarios_InventarioFisicoDetalle
                 Exit Sub
             End If
 
-
             Dim Consulto As Boolean = False
             Using Inventarios As New ClsInventarios
 
                 If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario,
                                                           CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, FechaCaducidad:=FechaCaducidad.ToDate) Then
+
+                    GvIFDUltimoRegistrado.Columns(4).Visible = CveSeccionAlmacen > 0
+                    GvIFDUltimoRegistrado.Columns(5).Visible = SerieLote <> "-1"
+                    GvIFDUltimoRegistrado.Columns(6).Visible = Lote <> "-1"
+                    GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad <> "01/01/1900"
+
                     If GvIFDUltimoRegistrado.Rows.Count > 0 Then
-                        GvIFDUltimoRegistrado.Columns(4).Visible = CveSeccionAlmacen > 0
-                        GvIFDUltimoRegistrado.Columns(6).Visible = Lote <> "-1"
-                        GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad <> "01/01/1900"
 
                         GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
                         GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
@@ -390,7 +392,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
 
 #Region "  FINALIZAR  "
     Protected Sub btnFin_Click(sender As Object, e As EventArgs) Handles btnFin.Click
-        If btnFin.Text = "Iniciar" Then
+        If btnFin.Text.Contains("Iniciar") Then
             Dim Inventarios As New ClsInventarios
 
             Inventarios.UpdateInventarioFisicoEstatus(CveInventarioFisico, 1, UsuarioActual.CveEmpresa)
@@ -526,10 +528,12 @@ Partial Class Inventarios_InventarioFisicoDetalle
         Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1"
         Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1"
         Dim AplicaLote As Boolean = Producto("AplicaLote") = "1"
+        Dim AplicaSerie As Boolean = Producto("AplicaSerie") = "1"
 
         divSeccionAlmacen.Visible = AplicaSeccion
         divLote.Visible = AplicaLote
         divFechaCaducidad.Visible = AplicaCaducidad
+        divSerie.Visible = AplicaSerie
         UPAgregarPro.Update()
     End Sub
 End Class
diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx
index 284ea3c83..8d3185711 100644
--- a/Inventarios/RepAnomalias.aspx
+++ b/Inventarios/RepAnomalias.aspx
@@ -198,7 +198,9 @@
                     <asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="SerieLote" DataField="SerieLote" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
@@ -230,7 +232,9 @@
                     <asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="SerieLote" DataField="SerieLote" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index 73046d131..a239ccbab 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/Inventarios/RepAnomalias.aspx.vb
@@ -136,9 +136,14 @@ Partial Class Inventarios_RepAnomalias
         Inventario.Dispose()
 
         GvS.DataSource = dt.FiltraParametros("Diferencia < 0")
+        Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0")
         GvS.DataBind()
+        BanderaSerieLoteCad(GvS, DtS)
+
         GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
+        Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
         GvF.DataBind()
+        BanderaSerieLoteCad(GvF, DtF)
 
         Dim Script = ""
         If (GvF.Rows.Count > 0) Then
@@ -267,6 +272,10 @@ Partial Class Inventarios_RepAnomalias
     End Sub
 #End Region
 
-
+    Private Sub BanderaSerieLoteCad(Gv As GridView, resultado As DataTable)
+        Gv.Columns(4).Visible = resultado.MAX("Serie") <> ""
+        Gv.Columns(5).Visible = resultado.MAX("Lote") <> ""
+        Gv.Columns(6).Visible = resultado.MAX("FechaCaducidad") <> ""
+    End Sub
 
 End Class