diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index ea507a976..64b26477f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18163,7 +18163,7 @@ Partial Class Compras_Compras
         Ddl.SelectedValueExist("-1")
 
         If CvePS > 0 Then
-            Ddl.Items.Insert(1, New ListItem(GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("PSCodigo"), CvePS.ToString))
+            Ddl.Items.Insert(1, New ListItem(GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("PSCodigo"), CvePS.ToString))
         End If
 
         If OpIncluirIEPSEnProducto Then
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 3c4d3394b..df7e6cb21 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1003,6 +1003,7 @@ Partial Class RH_Personal
                     CargaFonacot()
                 End If
 
+
             Else
                 cargatipoTrabajador()
                 MostrarOcultarFechasEstatus()
@@ -7848,6 +7849,7 @@ Partial Class RH_Personal
         Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text  }</td></tr>")
 
         Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Supervisor:</td><td style=' text-align: left; font-weight:bold;'>{ DdlSupervisorOrganigrama.SelectedItem.Text  }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta:</td><td style=' text-align: left; font-weight:bold;'>{ DdlRuta.SelectedItem.Text  }</td></tr>")