diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx
index 1b930ed61..3b7ee3bef 100644
--- a/Inventarios/RepAnomalias.aspx
+++ b/Inventarios/RepAnomalias.aspx
@@ -304,6 +304,50 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index ad367eea6..6935e4ef9 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/Inventarios/RepAnomalias.aspx.vb
@@ -187,6 +187,11 @@ Partial Class Inventarios_RepAnomalias
GvF.DataBind()
BanderaSerieLoteCad(GvF, DtF)
+ Dim DtC As DataTable = dt.FiltraParametros("Diferencia = 0")
+ GvC.DataSource = DtC
+ GvC.DataBind()
+ BanderaSerieLoteCad(GvC, DtC)
+
Dim Script = ""
If (GvF.Rows.Count > 0) Then
GvF.UseAccessibleHeader = True
@@ -204,6 +209,14 @@ Partial Class Inventarios_RepAnomalias
LtlTotalRegistrosSobran.Text = GvS.Rows.Count.ToString
End If
+ If (GvC.Rows.Count > 0) Then
+ GvC.UseAccessibleHeader = True
+ GvC.HeaderRow.TableSection = TableRowSection.TableHeader
+ Script += "OrdenarGVS();"
+ divRegistradosCoinciden.Visible = True
+ LtlCoincidentes.Text = GvC.Rows.Count.ToString
+ End If
+
PSIguales()
RegistraScript(Script)