diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx
index b331f65a9..734e7078f 100644
--- a/Inventarios/RepAnomalias.aspx
+++ b/Inventarios/RepAnomalias.aspx
@@ -130,18 +130,18 @@
                     <div class="titlefiltros  caption">
                         <div class="row">
                             <div class="col-md-1 truncate">Ver por:</div>
-                            <div class="col-md-1">
+                            <div class="col-md-2">
                                 <asp:DropDownList ID="DdlGPO" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Width="100%">
-                                    <asp:ListItem Text="Detalle" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Cantidad" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="Detallado Serie/Lote/Cad" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Cantidad" Value="2" Selected="True"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
 
-                            <div class="col-md-1 truncate">Vista de Resultados:</div>
+                            <div class="col-md-2 truncate">Vista de Resultados:</div>
                             <div class="col-md-1">
                                 <asp:DropDownList ID="DdlVista" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Width="100%">
-                                    <asp:ListItem Text="Ver por Detalle" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Ver por Grupos" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="Detallado" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Agrupado" Value="2"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
 
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index e3ec81c96..3d2e96bd3 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/Inventarios/RepAnomalias.aspx.vb
@@ -85,10 +85,14 @@ Partial Class Inventarios_RepAnomalias
 
 
         If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
-            GvF.Columns(2).Visible = True
-            GvS.Columns(2).Visible = True
-            GvC.Columns(2).Visible = True
-            GvGrupos.Columns(1).Visible = True
+            GvF.Columns(2).Visible = True 'proveedor
+            GvS.Columns(2).Visible = True 'proveedor
+            GvC.Columns(2).Visible = True 'proveedor
+            GvF.Columns(16).Visible = False 'costo
+            GvS.Columns(16).Visible = False 'costo
+            GvC.Columns(16).Visible = False 'costo
+            GvGrupos.Columns(1).Visible = True 'proveedor
+            GvGrupos.Columns(15).Visible = False 'costo
         End If
 
         If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
@@ -198,12 +202,10 @@ Partial Class Inventarios_RepAnomalias
 
             End If
 
-
         End If
         Inventario.Dispose()
 
 
-
         If DdlVista.SelectedValue.ToEntero = 1 Then
 
             DVNormal.Visible = True
@@ -215,7 +217,6 @@ Partial Class Inventarios_RepAnomalias
             ImgExcelProdcutosCoinciden.Visible = True
             LnkDescarExcelGrupos.Visible = False
 
-
             If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvS.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
             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)
@@ -225,20 +226,16 @@ Partial Class Inventarios_RepAnomalias
             BanderaSerieLoteCad(GvS, DtS)
             GvS.DataBind()
 
-
             GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
             Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
             BanderaSerieLoteCad(GvF, DtF)
             GvF.DataBind()
 
-
             Dim DtC As DataTable = dt.FiltraParametros("Diferencia = 0")
             GvC.DataSource = DtC
             BanderaSerieLoteCad(GvC, DtC)
             GvC.DataBind()
 
-
-
             If (GvF.Rows.Count > 0) Then
                 GvF.UseAccessibleHeader = True
                 GvF.HeaderRow.TableSection = TableRowSection.TableHeader
@@ -325,11 +322,7 @@ Partial Class Inventarios_RepAnomalias
             If DdlGPO.SelectedValue.ToEntero = 1 Then
                 PSIguales()
             End If
-
-
         End If
-
-
         UpGeneral.Update()
         UPAcciones.Update()
 
@@ -504,7 +497,10 @@ Partial Class Inventarios_RepAnomalias
 
 
     Private Sub LnkDescarExcelGrupos_Click(sender As Object, e As EventArgs) Handles LnkDescarExcelGrupos.Click
-        GvGrupos.ExportToExcel("Reporte de Inventario Fisico" & Now.ToShortDateString)
+        GvGrupos.ExportToExcelGembox("Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "", "", "Inventario:" & lbTitulo.Text, "", 1)
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
     End Sub
 
 #End Region