diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 78f8767e6..245553772 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -5876,7 +5876,7 @@ Public Class ClsRH End Function - Public Function ChecadorPermisosAddUpdate(CvePermiso As Integer, Descripcion As String, CvePersonal As Integer, FechaInicio As Date, FechaFin As Date, HoraEntrada As TimeSpan, HoraSalida As TimeSpan, GoceSueldo As Integer, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function ChecadorPermisosAddUpdate(CvePermiso As Integer, Descripcion As String, CvePersonal As Integer, FechaInicio As Date, FechaFin As Date, HoraEntrada As TimeSpan, HoraSalida As TimeSpan, GoceSueldo As Integer, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional Motivo As String = "") As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_ChecadorPermisosAddUpdate") @@ -5893,6 +5893,7 @@ Public Class ClsRH .Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Motivo", SqlDbType.VarChar).Value = Motivo End With Try diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx index d92b361db..097783418 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx +++ b/Inventarios/InventarioFisicoDetalle.aspx @@ -98,8 +98,8 @@
  • Imprimir PDF
    • -
  • - Imprimir PDF +
  • + Imprimir PDF Resumido
  • Imprimir EXCEL diff --git a/Inventarios/RepAlmacen.aspx b/Inventarios/RepAlmacen.aspx index 77782e614..5d4b16180 100644 --- a/Inventarios/RepAlmacen.aspx +++ b/Inventarios/RepAlmacen.aspx @@ -120,14 +120,16 @@
    -
    Tipo Almacen:
    -
    - +
    Sucursal:
    +
    + + +
    -
    - Motivo - @@ -486,8 +484,6 @@
    - <%-- --%> -
    @@ -503,14 +499,10 @@ -
    - <%-- --%> - -
    @@ -1651,7 +1643,6 @@ Actualizar Día
    -
    +
    + + + +
    +
    diff --git a/RH/MiPerfil.aspx.vb b/RH/MiPerfil.aspx.vb index fcdcb91a7..37fea5560 100644 --- a/RH/MiPerfil.aspx.vb +++ b/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 empleado {1} 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