Inventario Fisico

Inventarios/RepAnomalias.aspx.vb

@@ -214,18 +214,21 @@ Partial Class Inventarios_RepAnomalias
 
             GvS.DataSource = dt.FiltraParametros("Diferencia < 0")
             Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0")
-            GvS.DataBind()
             BanderaSerieLoteCad(GvS, DtS)
+            GvS.DataBind()
+
 
             GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
             Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
-            GvF.DataBind()
             BanderaSerieLoteCad(GvF, DtF)
+            GvF.DataBind()
+
 
             Dim DtC As DataTable = dt.FiltraParametros("Diferencia = 0")
             GvC.DataSource = DtC
-            GvC.DataBind()
             BanderaSerieLoteCad(GvC, DtC)
+            GvC.DataBind()
+
 
 
             If (GvF.Rows.Count > 0) Then
@@ -263,6 +266,39 @@ Partial Class Inventarios_RepAnomalias
             DVNormal.Visible = False
             DVGrupos.Visible = True
 
+            If DdlGPO.SelectedValue.ToEntero = 2 Then
+                GvGrupos.Columns(4).Visible = False
+                GvGrupos.Columns(5).Visible = False
+                GvGrupos.Columns(6).Visible = False
+                GvGrupos.Columns(7).Visible = False
+            Else
+                GvGrupos.Columns(4).Visible = True
+                GvGrupos.Columns(5).Visible = True
+                GvGrupos.Columns(6).Visible = True
+                GvGrupos.Columns(7).Visible = True
+            End If
+
+            If DdlGPO.SelectedValue.ToEntero = 2 Then
+                LtlGrupos1.Visible = False
+                LtlGrupos2.Visible = False
+                LtlGrupos3.Visible = False
+
+                LblGrupos1.Visible = False
+                LblGrupos2.Visible = False
+                LblGrupos3.Visible = False
+
+            Else
+
+                LtlGrupos1.Visible = True
+                LtlGrupos2.Visible = True
+                LtlGrupos3.Visible = True
+
+                LblGrupos1.Visible = True
+                LblGrupos2.Visible = True
+                LblGrupos3.Visible = True
+
+            End If
+
 
             LnkPDF.Visible = False
             ImgExcel.Visible = False
@@ -277,7 +313,7 @@ Partial Class Inventarios_RepAnomalias
             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()
+            'PSIguales()
 
         End If
 
@@ -419,17 +455,39 @@ Partial Class Inventarios_RepAnomalias
     End Function
 
     Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
+
+
+        Dim GvTemp As GridView = GvF
+
+        For Each GvRow As GridViewRow In GvTemp.Rows
+            GvRow.BackColor = Drawing.ColorTranslator.FromHtml("#white")
+        Next
+
+        'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
+        GvTemp.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
     End Sub
 
 
     Private Sub ImgExcel2_Click(sender As Object, e As EventArgs) Handles ImgExcel2.Click
-        GvS.ExportToExcel("Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString)
+        Dim GvTemp As GridView = GvS
+
+        For Each GvRow As GridViewRow In GvTemp.Rows
+            GvRow.BackColor = Drawing.ColorTranslator.FromHtml("white")
+        Next
+
+        'GvS.ExportToExcel("Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString)
+        GvTemp.ExportToExcel("Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString)
     End Sub
 
 
     Private Sub ImgExcelProdcutosCoinciden_Click(sender As Object, e As EventArgs) Handles ImgExcelProdcutosCoinciden.Click
-        GvC.ExportToExcel("Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString)
+        Dim GvTemp As GridView = GvC
+
+        For Each GvRow As GridViewRow In GvTemp.Rows
+            GvRow.BackColor = Drawing.ColorTranslator.FromHtml("white")
+        Next
+        'GvC.ExportToExcel("Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString)
+        GvTemp.ExportToExcel("Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString)
     End Sub