diff --git a/RH/CatPersonalRequerido.aspx.vb b/RH/CatPersonalRequerido.aspx.vb
index b63e39969..875b934e7 100644
--- a/RH/CatPersonalRequerido.aspx.vb
+++ b/RH/CatPersonalRequerido.aspx.vb
@@ -76,7 +76,7 @@ Partial Class RH_CatPersonalRequerido
     End Sub
 
     Private Sub CargaProyectos()
-        ReqProyectoDdl.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1)
+        ReqProyectoDdl.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
         ReqProyectoDdl.DataBind()
         ReqProyectoDdl.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
     End Sub
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index f9e85dfc2..52a13be90 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -4582,7 +4582,7 @@ Partial Class PV
 
     Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click
 
-        If TxtRFCCliente.Text = "XAXX010101000" Then
+        If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
             DivNombreCliente.Visible = True
             DivDireccionCliente.Visible = True
             DivNumeroCPCliente.Visible = True