diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 923fb7b93..aff0f2822 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -1276,7 +1276,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero();
         int CveNomina = gvRow.DataKey("CveNomina").ToEntero();
         LogicNominas lognom = new LogicNominas();
-        Usuario UsuarioActual = null;
+        Usuario UsuarioActual = this.UsuarioActual;
 
 
         ClsSisMail Mail = new ClsSisMail();
@@ -1291,7 +1291,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         }
         using (ClsRH objrh = new ClsRH())
         {
-            objrh.GetPersonal(-1, UsuarioActual.CveEmpresa);
+            objrh.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa);
             dtpersonal = objrh.DtResultados.FiltraParametros("", "", new string[] { "CvePersonal", "MaiReciboNomina", "NombreCompleto" });
         }
         /*
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 115d474bb..23a23715b 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -3231,15 +3231,15 @@ Partial Class RH_Personal
         If ChkEstatusPagoE.Checked Then
 
             'CLABE SIEMPRE OBLIGATORIA SI NO ES BANCOMER
-            If TxtCLABECB.Text.Trim.Length <> 18 AndAlso TxtCLABECB.Text.Trim.Length = 0 AndAlso Not EsBancomer Then
-                Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
+            'If TxtCLABECB.Text.Trim.Length <> 18 AndAlso TxtCLABECB.Text.Trim.Length = 0 AndAlso Not EsBancomer Then
+            '    Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            '    Exit Sub
+            'End If
             'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
-            If TxtCLABECB.Text.Trim.Length <> 0 AndAlso TxtCLABECB.Text.Trim.Length <> 18 Then
-                Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
+            'If TxtCLABECB.Text.Trim.Length <> 0 AndAlso TxtCLABECB.Text.Trim.Length <> 18 Then
+            '    Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            '    Exit Sub
+            'End If
         End If
 
         'SI CUENTA TIENE ALGO Y BANCO BANCOMER DEBE TENER UNA LOGITUD EXACTA DE 10
diff --git a/vwd.webinfo b/vwd.webinfo
index fa5b57957..3e1e1e0b4 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -506,6 +506,8 @@
     
   
     
+  
+