From 8985c3d1e06e867fa568d8f46f37ef8d08a6d5e3 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 6 Jul 2022 18:09:59 -0700
Subject: [PATCH] -- mejora carga de excel E140

---
 Inventarios/RecepcionAlmacen.aspx    | 24 +++++++++---------------
 Inventarios/RecepcionAlmacen.aspx.vb | 15 +++++++--------
 2 files changed, 16 insertions(+), 23 deletions(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx
index ef5430e69..bdd49fea6 100644
--- a/Inventarios/RecepcionAlmacen.aspx
+++ b/Inventarios/RecepcionAlmacen.aspx
@@ -285,8 +285,8 @@
                                 <div class="portlet-body">
                                     <asp:GridView ID="GVPendientes" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" DataKeyNames="CveCompra" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="200" data-freezerows="1" GridLines="None">
                                         <Columns>
-                                            <asp:BoundField HeaderText="Tipo" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
-                                            <asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-Width="45%" />
+                                            <asp:BoundField HeaderText="Tipo" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="50px" />
+                                            <asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" />
                                             <asp:TemplateField HeaderText="Serie-Folio">
                                                 <ItemTemplate>
                                                     <asp:Label ID="LblSerieFolio" runat="server" Text='<%# Eval("SerieFolio")%>' />
@@ -297,7 +297,7 @@
                                                 <ItemTemplate>
                                                     <asp:LinkButton Text="Surtir" ID="BtnSurtir" CommandArgument="-1" OnClick="BtnSurtir_Click" CssClass="btn btn-primary input-sm" runat="server" />
                                                 </ItemTemplate>
-                                                <ItemStyle HorizontalAlign="Center" Width="20%" />
+                                                <ItemStyle HorizontalAlign="Center" Width="100px" />
                                             </asp:TemplateField>
                                         </Columns>
                                     </asp:GridView>
@@ -809,7 +809,7 @@
                     <div class="modal-header">
                         <button type="button" class="close" data-dismiss="modal">&times;</button>
                         <h4 class="modal-title">
-                            <asp:Label ID="Label7" runat="server" ClientIDMode="Static" Text="Ingresar producto con Serie/Lote y Fecha de Vencimiento"></asp:Label>
+                            <asp:Label ID="Label7" runat="server" ClientIDMode="Static" Text="Ingresar producto con Serie"></asp:Label>
                         </h4>
                     </div>
                     <div class="modal-body">
@@ -824,12 +824,7 @@
                                     <td >
                                         <asp:Label Text="" ID="LbCantidad" runat="server" />
                                     </td>
-                                </tr>
-                                <tr>
-                                    <td colspan="4">
-                                        <hr />
-                                    </td>
-                                </tr>
+                                </tr>                                
                                 <tr>
                                     <td width="80px">Serie:</td>
                                     <td>
@@ -839,20 +834,19 @@
                                         
                                         <asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerie"    Display="None"  ClientValidationFunction="TamanioSerie"
                                             ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> debe tener  un minimo de 6 caracteres." ValidationGroup="GrpAgregaSerie" />
-                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="ReVTxtSerie" Width="300px"></ajax:ValidatorCalloutExtender>
-
+                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="ReVTxtSerie" Width="300px"></ajax:ValidatorCalloutExtender>
 
                                     </td>
                                     <td><asp:Button Text="Agregar" CssClass="btn btn-primary" ID="BtnAgregarPS" OnClick="BtnAgregarPS_Click" ValidationGroup="GrpAgregaSerie" runat="server" /></td>
                                 </tr>                                 
                                 <tr>
                                     <td colspan="4">
-                                        <asp:GridView ID="GvSerie" runat="server" EmptyDataText="Aun no hay registros." DataKeyNames="Serie" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="250" data-freezerows="1" GridLines="None">
+                                        <asp:GridView ID="GvSerie" runat="server" EmptyDataText="Aun no hay registros." DataKeyNames="Serie" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover table-advance mysmallbtn Widthall ScrollAD " data-height="250" data-freezerows="1" GridLines="None">
                                             <Columns>
-                                                <asp:BoundField HeaderText="Serie-Folio" DataField="Serie" ItemStyle-Width="40%" />
+                                                <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="40%" />
                                                 <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center">
                                                     <ItemTemplate>
-                                                        <asp:LinkButton ID="lnkRemove" runat="server" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></i>" CommandName="Delete" OnClientClick="return confirm('¿Desea borrar el registro?')"></asp:LinkButton>
+                                                        <asp:LinkButton ID="lnkRemove" runat="server" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" CommandName="Delete" OnClientClick="return confirm('¿Desea borrar el registro?')"></asp:LinkButton>
                                                     </ItemTemplate>
                                                     <ItemStyle Width="20%"></ItemStyle>
                                                 </asp:TemplateField>
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 246846c89..55e5616dc 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -858,7 +858,7 @@ Partial Class Inventarios_RecepcionAlmacen
         If e.Row.RowType = DataControlRowType.DataRow Then
             e.Row.FCLinkButton("BtnSurtir").CommandArgument = e.Row.DBCampo("CveCompra")
 
-            If e.Row.DBCampo("TipoDocto").ToString.Contiene({"Fac"}) And e.Row.DBCampo("EstatusAlmacen").ToString.ToEntero = 0 Then
+            If e.Row.DBCampo("TipoDocto").ToString.Contiene({"Fac"}) And e.Row.DBCampo("EstatusAlmacen").ToString = "0" Then
                 e.Row.FCLinkButton("BtnSurtir").CssClass = "btn btn-primary input-sm"
                 e.Row.FCLinkButton("BtnSurtir").Text = "<i class='fa fa-arrow-left'></i> Recibir"
             Else
@@ -867,9 +867,7 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
 
             If UsuarioActual.TienePermisoProceso(201) Then
-                Dim Css = "Texto"
-                Dim Liga = $"/Compras/Compras.aspx?&CveCompra={e.Row.DataKey("CveCompra")}"
-                e.Row.FCLabel("LblSerieFolio").Text = "<a class=" + "" + Css + "" + " href=" + "" + Liga + "" + ">" + e.Row.FCLabel("LblSerieFolio").Text + "</a>"
+                e.Row.FCLabel("LblSerieFolio").Text = String.Format("<a class='Texto' href='/Compras/Compras.aspx?&CveCompra='{0}' >{1} </a>", e.Row.DataKey("CveCompra"), e.Row.FCLabel("LblSerieFolio").Text)
             End If
 
         End If
@@ -1761,7 +1759,7 @@ Partial Class Inventarios_RecepcionAlmacen
     Protected Sub BtnAgregarPS_Click(sender As Object, e As EventArgs)
         AgregaSerie(TxtSerie.Text.Replace(" ", String.Empty), 1)
     End Sub
-    Private Sub AgregaSerie(Serie As String, Tipo As Integer)
+    Private Sub AgregaSerie(Serie As String, Tipo As Integer, Optional AlertaSonido As Boolean = True)
         'SerieLote = SerieLote.Trim.Replace("  ", " ")
 
         If Serie.Trim = "" Then
@@ -1875,12 +1873,12 @@ Partial Class Inventarios_RecepcionAlmacen
         CargaSerie(Tipo, True)
 
         If MensajeAlert.ToString <> "" Then
-            RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
+            If AlertaSonido Then RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
         Else
             If MensajeSinExistencias.ToString <> "" Then
                 Alert($"Las siguientes Series no cuentan con la existencia suficiente por lo cual se omitieron. <br?><br/> {MensajeSinExistencias.ToString}", TipoMensaje.MsgAdvertencia)
             End If
-            RegistraScript("playsonidito('beep-07.wav')", "SoniditoSerie")
+            If AlertaSonido Then RegistraScript("playsonidito('beep-07.wav')", "SoniditoSerie")
 
         End If
 
@@ -4954,12 +4952,13 @@ Partial Class Inventarios_RecepcionAlmacen
 
                             If RowPS("AplicaSerie").ToString() = "True" AndAlso Not String.IsNullOrEmpty(Serie.Trim()) Then
                                 NoPSConSerie = NoPSConSerie + 1
+                                LbCantidad.Text = DtInv.FiltroPrimeroValor("Cantidad", "CvePS=" & CvePSSerie)
                             End If
 
 
                             If Valido Then
                                 CveConsecSerie = RowPS("Consec").ToString.ToEntero
-                                AgregaSerie(RowExcel("Serie").ToString, 1)
+                                AgregaSerie(RowExcel("Serie").ToString, 1, False)
 
                                 'AgregarPS(Cantidad, CveProducto, CveUnidadMedida, Observaciones, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(Not String.IsNullOrEmpty(Serie), Serie, ""), Lote:=Lote, FechaCaducidad:=FechaCaducidad, Limpia:=False)
                                 RowsCargados = RowsCargados + 1