diff --git a/OC/CatEstatus.aspx.vb b/OC/CatEstatus.aspx.vb
index e847a2912..0ee5d010d 100644
--- a/OC/CatEstatus.aspx.vb
+++ b/OC/CatEstatus.aspx.vb
@@ -573,7 +573,7 @@ Partial Class OC_CatEstatus
 
 
         For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows
-
+            Dim aux As Integer = Row.DataKey("CveUsuario").ToString.ToEntero
             Dim r As Integer = 1
             For i = 0 To Row.Cells.Count - 1
 
diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb
index 2d6a5a6e3..c147d4075 100644
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/OS/CatEstatusOrdenServicio.aspx.vb
@@ -236,7 +236,7 @@ Partial Class OS_CatEstatusOrdenServicio
 
 
         For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows
-
+            Dim aux As String = Row.DataKey("CveUsuario").ToString
             Dim r As Integer = 1
             For i = 0 To Row.Cells.Count - 1