modificaciones en MiPerfil
This commit is contained in:
Antonio Gonzalez
@@ -458,8 +458,6 @@
|
||||
</div>
|
||||
<div class="col-md-3"></div>
|
||||
</div>
|
||||
Motivo
|
||||
<asp:TextBox ID="TxtMotivoVacaciones" runat="server" TextMode="MultiLine" Rows="4" CssClass="form-control Widthallimp"></asp:TextBox>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
@@ -486,8 +484,6 @@
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtPermisoMotivo" runat="server" MaxLength="200"></asp:TextBox>
|
||||
<label for="<%= TxtPermisoMotivo.ClientID.ToString()%>">Motivo del permiso laboral:</label>
|
||||
<%-- <asp:RequiredFieldValidator ID="RfvTxtPermisosHoras" runat="server" ControlToValidate="TxtPermisosHoras" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Horas de permiso''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPermisos"></asp:RequiredFieldValidator>--%>
|
||||
|
||||
<i></i>
|
||||
|
||||
</div>
|
||||
@@ -503,14 +499,10 @@
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtPermisoComentarios" runat="server" MaxLength="200"></asp:TextBox>
|
||||
<label for="<%= TxtPermisoComentarios.ClientID.ToString()%>">Comentarios:</label>
|
||||
<%-- <asp:RequiredFieldValidator ID="RfvTxtPermisosHoras" runat="server" ControlToValidate="TxtPermisosHoras" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Horas de permiso''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPermisos"></asp:RequiredFieldValidator>--%>
|
||||
|
||||
<i></i>
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
@@ -1651,7 +1643,6 @@
|
||||
<asp:Literal ID="Literal1" runat="server">Actualizar Día</asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtPermisoDescripcion" runat="server" CausesValidation="true" MaxLength="50" Visible="true" CssClass="form-control"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="rfvTxtAPaterno4" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPermisoDescripcion"
|
||||
@@ -1710,6 +1701,12 @@
|
||||
<asp:CheckBox ID="ChkEstatusPermiso" runat="server" Checked="true" Text="Activo" />
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtMotivoPermiso" runat="server" CausesValidation="true" MaxLength="250" Visible="true" CssClass="form-control" ></asp:TextBox>
|
||||
<label for="<%= TxtPermisoDescripcion.ClientID.ToString()%>">Motivo para permiso</label>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user