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 @@
-
+
@@ -478,9 +478,9 @@
-
+
-
+
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