EntregaRuta

Inventarios/RepAnomalias.aspx.vb

@@ -83,6 +83,14 @@ Partial Class Inventarios_RepAnomalias
         Dim Inventario As New ClsInventarios
         Dim dt As DataTable = Nothing
 
+
+        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
+        End If
+
         If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
             lbTitulo.Text = Inventario.InventarioFisico
             lbObservaciones.Text = Inventario.Observaciones
@@ -299,6 +307,7 @@ Partial Class Inventarios_RepAnomalias
 
             End If
 
+            UpGeneral.Update()
 
             LnkPDF.Visible = False
             ImgExcel.Visible = False
@@ -306,14 +315,17 @@ Partial Class Inventarios_RepAnomalias
             ImgExcelProdcutosCoinciden.Visible = False
             LnkDescarExcelGrupos.Visible = True
 
-            GvGrupos.DataSource = dt
+            GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0")
             GvGrupos.DataBind()
 
             LtlGrupos1.Text = dt.FiltraParametros("Orden = 1  and CvePS > 0").Rows.Count.ToString
             LtlGrupos2.Text = dt.FiltraParametros("Orden = 2  and CvePS > 0").Rows.Count.ToString
             LtlGrupos3.Text = dt.FiltraParametros("Orden = 3  and CvePS > 0").Rows.Count.ToString
 
-            'PSIguales()
+            If DdlGPO.SelectedValue.ToEntero = 1 Then
+                PSIguales()
+            End If
+
 
         End If