From 90bf9346af20e093facea32766643c65b4cc01fd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 30 Nov 2021 20:54:17 -0700
Subject: [PATCH] =?UTF-8?q?exporta=20excel,=20formateo=20numerico=20de=20c?=
 =?UTF-8?q?=C3=B3digo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/RepAnomalias.aspx    |  6 +++---
 Inventarios/RepAnomalias.aspx.vb | 23 +++++++++++++----------
 2 files changed, 16 insertions(+), 13 deletions(-)

diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx
index d28d09550..4a0e1d04e 100644
--- a/Inventarios/RepAnomalias.aspx
+++ b/Inventarios/RepAnomalias.aspx
@@ -271,7 +271,7 @@
                                 </asp:TemplateField>       
                                 <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />                         
                                 <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                                <asp:BoundField HeaderText="Código" DataField="Codigo" 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="Sección Almacén" DataField="SeccionAlmacen" />
                                 <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
@@ -478,9 +478,9 @@
                                 <asp:CheckBox ID="ChkPSFaltante" runat="server" />
                             </ItemTemplate>
                         </asp:TemplateField>       
-                        <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />                                          
+                        <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" Visible="false" />                                          
                         <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                        <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" DataFormatString="&nbsp;{0}"  />
                         <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
                         <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
                         <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index 861028c31..587c9d385 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/Inventarios/RepAnomalias.aspx.vb
@@ -87,13 +87,17 @@ Partial Class Inventarios_RepAnomalias
 
 
         If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
-            GvF.Columns(2).Visible = True 'proveedor
-            GvS.Columns(2).Visible = True 'proveedor
-            GvC.Columns(2).Visible = True 'proveedor
+            GvF.Columns(2).Visible = True 'clasificación
+            GvS.Columns(2).Visible = True 'clasificación
+            GvC.Columns(2).Visible = True 'clasificación
+            GvF.Columns(3).Visible = True 'proveedor
+            GvS.Columns(3).Visible = True 'proveedor
+            GvC.Columns(3).Visible = True 'proveedor
             GvF.Columns(16).Visible = UsuarioActual.Procesos(201)   'costo
             GvS.Columns(16).Visible = UsuarioActual.Procesos(201)   'costo
             GvC.Columns(16).Visible = UsuarioActual.Procesos(201)   'costo
-            GvGrupos.Columns(1).Visible = True 'proveedor
+            GvGrupos.Columns(1).Visible = True 'clasificación
+            GvGrupos.Columns(2).Visible = True 'proveedor
             GvGrupos.Columns(15).Visible = UsuarioActual.Procesos(201)   'costo
         End If
 
@@ -223,13 +227,13 @@ Partial Class Inventarios_RepAnomalias
             If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
             If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvC.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
 
-            GvS.DataSource = dt.FiltraParametros("Diferencia < 0")
-            Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0")
+            GvS.DataSource = dt.FiltraParametros("Diferencia > 0")
+            Dim DtS As DataTable = dt.FiltraParametros("Diferencia > 0")
             BanderaSerieLoteCad(GvS, DtS)
             GvS.DataBind()
 
-            GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
-            Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
+            GvF.DataSource = dt.FiltraParametros("Diferencia < 0")
+            Dim DtF As DataTable = dt.FiltraParametros("Diferencia < 0")
             BanderaSerieLoteCad(GvF, DtF)
             GvF.DataBind()
 
@@ -862,7 +866,7 @@ Partial Class Inventarios_RepAnomalias
                     RangoDatosFiltro.Merged = True
                     RangoDatosFiltro.Style.WrapText = True
                     RangoDatosFiltro.Value = TextoFiltro
-                    RangoDatosFiltro.Style.Font.Size = 12 * 20
+                    RangoDatosFiltro.Style.Font.Size = 11 * 20
                     RangoDatosFiltro.Style.Font.Name = "Calibri Light"
                     RangoDatosFiltro.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
                     RangoDatosFiltro.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
@@ -920,7 +924,6 @@ Partial Class Inventarios_RepAnomalias
                     'Else
                     '    worksheet.Columns(I + 1).Style.NumberFormat = "#,##"
                     'End If
-
                     worksheet.Columns(I + 1).Style.NumberFormat = "@"
 
                     Try