diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index d0291a9fd..ecdf4d95e 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1914,12 +1914,8 @@ Partial Class RH_Personal
                 Else
                     TxtFechaInicioVac.Text = Now.ToString("dd/MM/yyyy")
                 End If
-
-
                 TxtFechaFinVac.Text = Now.AddDays(VacDiasDisponibles).ToString("dd/MM/yyyy")
 
-
-
                 'PERSONAL ALTAS
                 If ObjPersonal.GetPersonalAltas(CvePersonal) Then
                     GvPersonalAltas.DataSource = ObjPersonal.DtResultados
@@ -2127,13 +2123,9 @@ Partial Class RH_Personal
                             'If ViewState("CveEstatusOriginal").ToString() <> DdlEstatusPersonal.SelectedValue Then
                             '    'Manda Mail con bajas
                             'End If
-
-
                         Else
                             TieneError = True
                         End If
-
-
                         'GUARDA ORGANIGRAMA
                         If Not TieneError Then
                             If Not ObjPersonal.AddUpdatePersonalOrganigrama(CvePersonal, If(DdlSupervisorOrganigrama.SelectedValue.ToEntero() = 0, CvePersonal, DdlSupervisorOrganigrama.SelectedValue.ToEntero())) Then
@@ -2164,7 +2156,6 @@ Partial Class RH_Personal
                             End Using
                             CargaDatos()
                         End If
-
                     End If
 
                     GuardarDocumentosFirmaContrato()
@@ -2179,7 +2170,7 @@ Partial Class RH_Personal
 
         If EnviarCorreoNomina AndAlso DDLUsuarioNomina.SelectedValue.ToEntero > 0 Then
             'EnviarCorreoNominista()
-            EnviarCorreoBajaReingresoNomista(TipoMovimientoRH.Alta)
+            EnviarCorreoBajaReingresoNominista(TipoMovimientoRH.Alta)
         End If
 
 
@@ -7585,7 +7576,7 @@ Partial Class RH_Personal
 
         If continuar Then
 
-            EnviarCorreoBajaReingresoNomista(If(estatus = 1, TipoMovimientoRH.Reingreso, TipoMovimientoRH.Baja))
+            EnviarCorreoBajaReingresoNominista(If(estatus = 1, TipoMovimientoRH.Reingreso, TipoMovimientoRH.Baja))
 
         End If
 
@@ -7741,7 +7732,7 @@ Partial Class RH_Personal
         Reingreso
     End Enum
 
-    Private Sub EnviarCorreoBajaReingresoNomista(eTipoMovimientoRH As TipoMovimientoRH)
+    Private Sub EnviarCorreoBajaReingresoNominista(eTipoMovimientoRH As TipoMovimientoRH)
 
 
         Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
@@ -7808,7 +7799,7 @@ Partial Class RH_Personal
         Cuerpo.AppendLine("<table border='0' style='width:100%'>")
         Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, DdlEmpresaAsignada.SelectedItem.Text, UsuarioActual.Empresa.Empresa) }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ Now.ToShortDateString }   { Now.ToShortTimeString  } <br/></td> </tr>")
 
-        Cuerpo.AppendLine($"<tr><td style='  font-size:large; text-align: left;' colspan='3'>Notificacion por { TimpoMovimiento } de Nomina</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='  font-size:large; text-align: left;' colspan='3'>Notificación por { TimpoMovimiento } de Nómina</td></tr>")
         Cuerpo.AppendLine("</table>")
 
         Cuerpo.AppendLine("<br/>")
@@ -7822,7 +7813,7 @@ Partial Class RH_Personal
             Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left;  font-weight:bold;'>{ DdlRuta.SelectedItem.Text }</td></tr>")
         End If
 
-        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de { TimpoMovimiento }:</td><td style=' text-align: left; font-weight:bold;'>{  If(eTipoMovimientoRH = TipoMovimientoRH.Alta, Now.ToString("dd/MM/yyyy"), TxtFechaEstatus.Text)   }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de { TimpoMovimiento }:</td><td style=' text-align: left; font-weight:bold;'>{  If(eTipoMovimientoRH = TipoMovimientoRH.Alta, TxtFechaIngreso.Text.ToDate.ToString("dd/MM/yyyy"), TxtFechaEstatus.Text)   }</td></tr>")
 
         If eTipoMovimientoRH = TipoMovimientoRH.Baja Then
             Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Motivo de Baja:</td><td style=' text-align: left;  font-weight:bold;'>{ DdlMotivoBaja.SelectedItem.Text }</td></tr>")