From 1633efedc0e3daf61b51621b6133aeb2b9490364 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Mon, 4 May 2020 10:41:37 -0700
Subject: [PATCH] - cambios en AplicaSerie,AplicaCaducidad...

---
 Inventarios/RecepcionAlmacen.aspx    |  2 +-
 Inventarios/RecepcionAlmacen.aspx.vb | 50 ++++++++++++++++------------
 2 files changed, 30 insertions(+), 22 deletions(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx
index 8d742140e..8d284c08a 100644
--- a/Inventarios/RecepcionAlmacen.aspx
+++ b/Inventarios/RecepcionAlmacen.aspx
@@ -418,7 +418,7 @@
                     </asp:UpdatePanel>
 
                     <asp:GridView ID="GvInv" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True"
-                        DataKeyNames="EntregaDirecta,Consec,CodigoBarras,CvePS,CveUM,PU,CantidadC,CantidadF,UM,PS,CveCompraDetalle,CveOrdenCompraDetalle,PUExtranjero,AplicaSerieLote,CveClasificacion,Codigo,CveVentaDetalle,CostoIndirecto,CveTamaño,Lote" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
+                        DataKeyNames="EntregaDirecta,Consec,CodigoBarras,CvePS,CveUM,PU,CantidadC,CantidadF,UM,PS,CveCompraDetalle,CveOrdenCompraDetalle,PUExtranjero,AplicaSerieLote,CveClasificacion,Codigo,CveVentaDetalle,CostoIndirecto,CveTamaño,Lote,AplicaSeccion,AplicaLote,AplicaCaducidad,AplicaSerie" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
                         <HeaderStyle Height="58px" />
                         <Columns>
                             <asp:TemplateField>
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 05ef7a391..91b612f15 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -1109,11 +1109,19 @@ Partial Class Inventarios_RecepcionAlmacen
         TmDT.Columns.Add("PUExtranjero", GetType(Double))
         TmDT.Columns.Add("CostoIndirectoExtranjero", GetType(Double))
         TmDT.Columns.Add("Consec", GetType(Integer))
-        TmDT.Columns.Add("CantidadSurtidaPantalla", GetType(Double))
-        TmDT.Columns.Add("AplicaSeccion", GetType(Boolean))
-        TmDT.Columns.Add("AplicaSerie", GetType(Boolean))
-        TmDT.Columns.Add("AplicaLote", GetType(Boolean))
-        TmDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
+        TmDT.Columns.Add("CantidadSurtidaPantalla", GetType(Double))
+        If Not TmDT.Columns.Contains("AplicaSeccion") Then
+            TmDT.Columns.Add("AplicaSeccion", GetType(Double))
+        End If
+        If Not TmDT.Columns.Contains("AplicaSerie") Then
+            TmDT.Columns.Add("AplicaSerie", GetType(Double))
+        End If
+        If Not TmDT.Columns.Contains("AplicaLote") Then
+            TmDT.Columns.Add("AplicaLote", GetType(Double))
+        End If
+        If Not TmDT.Columns.Contains("AplicaCaducidad") Then
+            TmDT.Columns.Add("AplicaCaducidad", GetType(Double))
+        End If
         If Not TmDT.Columns.Contains("CostoIndirecto") Then
             TmDT.Columns.Add("CostoIndirecto", GetType(Double))
         End If
@@ -1166,21 +1174,21 @@ Partial Class Inventarios_RecepcionAlmacen
             DtInv = DtInv.FiltraParametros("", "PS")
         End If
 
-        For Each item As DataRow In DtInv.Rows
-            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, item("CvePS").ToString.ToEntero).FiltroPrimero("")
-            If Dr IsNot Nothing Then
-                item("AplicaSeccion") = CBool(Dr("AplicaSeccion"))
-                If CBool(Dr("AplicaSeccion")) Then GvInv.Columns(10).Visible = True
-                item("AplicaSerie") = CBool(Dr("AplicaSerie"))
-                item("AplicaLote") = CBool(Dr("AplicaLote"))
-                If CBool(Dr("AplicaLote")) Then GvInv.Columns(11).Visible = True
-                item("AplicaCaducidad") = CBool(Dr("AplicaCaducidad"))
-                If CBool(Dr("AplicaCaducidad")) Then GvInv.Columns(12).Visible = True
-                If CBool(Dr("AplicaSeccion")) Or CBool(Dr("AplicaLote")) Or CBool(Dr("AplicaCaducidad")) Or CBool(Dr("AplicaSerie")) Then
-                    GvInv.Columns(15).Visible = True
-                End If
-            End If
-        Next
+        'For Each item As DataRow In DtInv.Rows
+        '    Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, item("CvePS").ToString.ToEntero).FiltroPrimero("")
+        '    If Dr IsNot Nothing Then
+        '        item("AplicaSeccion") = CBool(Dr("AplicaSeccion"))
+        '        If CBool(Dr("AplicaSeccion")) Then GvInv.Columns(10).Visible = True
+        '        item("AplicaSerie") = CBool(Dr("AplicaSerie"))
+        '        item("AplicaLote") = CBool(Dr("AplicaLote"))
+        '        If CBool(Dr("AplicaLote")) Then GvInv.Columns(11).Visible = True
+        '        item("AplicaCaducidad") = CBool(Dr("AplicaCaducidad"))
+        '        If CBool(Dr("AplicaCaducidad")) Then GvInv.Columns(12).Visible = True
+        '        If CBool(Dr("AplicaSeccion")) Or CBool(Dr("AplicaLote")) Or CBool(Dr("AplicaCaducidad")) Or CBool(Dr("AplicaSerie")) Then
+        '            GvInv.Columns(15).Visible = True
+        '        End If
+        '    End If
+        'Next
 
         GvInv.DataSource = DtInv
         GvInv.DataBind()
@@ -2824,7 +2832,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
             End If
         Catch ex As Exception
-            OnError("Ocurrió un error al guardar", ex)
+            OnError("Ocurrió un error al guardar RA.", ex)
             ErrorMovInv = True
         End Try