modificaciones en MiPerfil

RH/MiPerfil.aspx.vb

@@ -1081,7 +1081,7 @@ Partial Class RH_MiPerfil
 
         Dim ObjRH As New ClsRH
         Dim CvePermisoInterno As Integer = GvRow.DataKey("CvePermiso").ToEntero
-        If ObjRH.ChecadorPermisosRemove(CvePermiso, UsuarioActual.CveEmpresa) Then
+        If ObjRH.ChecadorPermisosRemove(CvePermisoInterno, UsuarioActual.CveEmpresa) Then
             UpGvPermisos.Update()
         End If
 
@@ -1093,13 +1093,13 @@ Partial Class RH_MiPerfil
     Protected Sub BtnSolicitarVacaciones_Click(sender As Object, e As EventArgs) Handles BtnSolicitarVacaciones.Click
         Dim fInicio As Date = TxtFechaInicioVac.Text.ToDate
         Dim fFin As Date = TxtFechaFinVac.Text.ToDate
-        Dim motivoVacaciones As String = TxtMotivoVacaciones.Text
+        'Dim motivoVacaciones As String = TxtMotivoVacaciones.Text
         If fInicio <= fFin Then
 
             VacFolioActual = VacFolioActual + 1
             Dim objRH As New ClsRH
-            Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones)
-            Alert(VacCveSupervisor.ToString)
+            Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual)
+            'Alert(VacCveSupervisor.ToString + "aquí esta el cero que aparece")
             If objRH.DtResultados.Rows.Count > 0 Then
                 Dim ShowError As String = objRH.DtResultados.Rows(0)("ShowError").ToString()
                 If ShowError.Length > 0 Then
@@ -1111,7 +1111,7 @@ Partial Class RH_MiPerfil
             If continuar Then
                 CargaVacaciones()
                 CargaVacacionesResumenPeriodoActual()
-                VacacionesMandaCorreoSupervisor("Solicitud Vacaciones " & NombreCompleto, VacSupervisorCorreo, VacSupervisorNombre, NombreCompleto, fInicio, fFin)
+                VacacionesMandaCorreoSupervisor("Vacaciones " & UsuarioActual.Nombre, "antonio.gonzalez@adssistemas.mx", VacSupervisorNombre, NombreCompleto, fInicio, fFin, "vacaciones")
                 RegistraScript("$('#ModalAddVacaciones').modal('hide');")
             End If
         Else
@@ -1122,7 +1122,7 @@ Partial Class RH_MiPerfil
 
     End Sub
 
-    Private Sub VacacionesMandaCorreoSupervisor(Asunto As String, CorreoSupervisor As String, NombreSupervisor As String, NombreSolicitante As String, _FechaInicio As Date, _FechaFin As Date)
+    Private Sub VacacionesMandaCorreoSupervisor(Asunto As String, CorreoSupervisor As String, NombreSupervisor As String, NombreSolicitante As String, _FechaInicio As Date, _FechaFin As Date, VacacionServicio As String)
 
         If CorreoSupervisor.Trim.Length > 0 Then
 
@@ -1133,7 +1133,7 @@ Partial Class RH_MiPerfil
             If _FechaInicio = _FechaFin Then
                 Cuerpo = "El empleado " & NombreCompleto & " a hecho una solicitud de vacaiones programada para el día " & _FechaInicio.ToString("dd/MM/yyyy") & " en las proximas horas se le presentara la solicitud para que se a aprovada o declinada por usted."
             Else
-                Cuerpo = "El empleado " & NombreCompleto & " a hecho una solicitud de vacaiones programada  de  " & _FechaInicio.ToString("dd/MM/yyyy") & " a " & _FechaFin.ToString("dd/MM/yyyy") & " en las proximas horas se le presentara la solicitud para que se a aprovada o declinada por usted."
+                Cuerpo = String.Format("el presente correo es para informarle que el <a href='localhost/RH/Personal.aspx?CvePersonal={0}'>empleado {1}</a> realizo una solicitud de {2} para los dias del '{3}' al '{4}'.", UsuarioActual.CvePersonal, NombreSolicitante, VacacionServicio, _FechaInicio.ToString("dd/mm/yy"), _FechaFin.ToString("dd/mm/yy"))
             End If
 
             Dim Mail As New ClsSisMail()
@@ -1165,6 +1165,7 @@ Partial Class RH_MiPerfil
         Dim HoraSalida As TimeSpan
         Dim GoceSueldo As Integer = If(ChkGoceSueldo.Checked, 1, 0)
         Dim EstatusPermiso As Integer = If(ChkEstatusPermiso.Checked, 1, 0)
+        Dim Motivo As String = TxtMotivoPermiso.Text
 
         If TxtHoraEntrada.Text.Trim.Length > 0 Then
             Try
@@ -1189,13 +1190,13 @@ Partial Class RH_MiPerfil
 
 
         If ObjRH.ChecadorPermisosAddUpdate(CvePermiso, TxtPermisoDescripcion.Text.Trim, CvePersonal, TxtFechaInicioPer.Text.ToDate, TxtFechaFinPer.Text.Trim.ToDate, HoraEntrada, HoraSalida,
-                                           GoceSueldo, EstatusPermiso, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                                           GoceSueldo, EstatusPermiso, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Motivo:=Motivo) Then
             If CvePermiso = -1 Then
                 Alert("Permiso agregado correctamente")
             Else
                 Alert("Permiso agregado Actualizado correctamente")
             End If
-
+            VacacionesMandaCorreoSupervisor("Permiso para " & UsuarioActual.Nombre, "antonio.gonzalez@adssistemas.mx", VacSupervisorNombre, NombreCompleto, TxtFechaInicioPer.Text, TxtFechaFinPer.Text, "permiso")
             RegistraScript("$('#DvPermisos').modal('hide');")
 
         End If