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/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 08c098bd7..7458819a9 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5976,6 +5976,8 @@ Partial Class Compras_Compras
 
                                                         Case 6 'Compra
 
+                                                            Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
+
                                                             If RBLPago.SelectedValue.ToEntero = 4 Then
                                                                 Exit Select 'Es credito el concepto 6 se agrega en CASE 17
                                                             End If
@@ -6071,7 +6073,7 @@ Partial Class Compras_Compras
                                                                 'End If
                                                                 Dim CostoIndirectoAcum176 As Decimal = 0
                                                                 'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ]
-                                                                If UsuarioActual.CveEmpresa.Contiene(1, 119) And UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen.Contiene(205, 176, 237, 240) Then
+                                                                If AgregaMercanciaInventario AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") AndAlso CveConceptoContableAlmacen.Contiene(205, 176, 237, 240) Then
 
                                                                     importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND (ISNULL(CveTipoPS,0) = 2 OR (ISNULL(CveTipoPS,0) = 1 AND ISNULL(AplicaCostoIndirecto,0) = 1))").ToString.ToDecimal
                                                                     importeMN = importeMovimiento * tipoCambioActual * Multiplicador
@@ -6271,7 +6273,7 @@ Partial Class Compras_Compras
                                                                     DtAlmacenes.Dispose()
 
                                                                     'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS]
-                                                                    If UsuarioActual.CveEmpresa.Contiene(1, 119) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                                                    If AgregaMercanciaInventario Then
                                                                         DT = DT.FiltraParametros("ISNULL(CveTipoPS,0) <> 2")
                                                                     End If
 
diff --git a/LogMail.txt b/LogMail.txt
index f636678cd..c66d4e3c7 100644
--- a/LogMail.txt
+++ b/LogMail.txt
@@ -4,4 +4,4 @@
    en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 

  05/09/2019:12:31 p. m. From:'signotificaciones@adssistemas.mx'  -  Para:';'  - Asunto:'Envío de complemento de pago' -  CCP: '' - Adjuntos: 2 
  - Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario.
    en System.Net.Mail.SmtpClient.Send(MailMessage message)
-   en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 

  10/09/2019:12:16 p. m. From:'signotificaciones@adssistemas.mx'  -  Para:'DSDDS@hotmail.com'  - Asunto:'SIG - La Orden Compra #26598 cambió de estatus.' -  CCP: '' - Adjuntos: 0 

  10/09/2019:02:58 p. m. No se especifico a remitente - SIG - La Orden Compra #28107 cambió de estatus. 
\ No newline at end of file
+   en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 

  10/09/2019:12:16 p. m. From:'signotificaciones@adssistemas.mx'  -  Para:'DSDDS@hotmail.com'  - Asunto:'SIG - La Orden Compra #26598 cambió de estatus.' -  CCP: '' - Adjuntos: 0 

  10/09/2019:02:58 p. m. No se especifico a remitente - SIG - La Orden Compra #28107 cambió de estatus. 

  11/09/2019:11:56 a. m. From:'signotificaciones@adssistemas.mx'  -  Para:'antonio.gonzalez@adssistemas.mx'  - Asunto:'Solicitud Vacaciones ' -  CCP: '' - Adjuntos: 0 

  11/09/2019:12:35 p. m. From:'signotificaciones@adssistemas.mx'  -  Para:'antonio.gonzalez@adssistemas.mx'  - Asunto:'(Vacaciones:Permisos) Asistencia Técnica AD Sistemas' -  CCP: '' - Adjuntos: 0 

  11/09/2019:01:02 p. m. From:'signotificaciones@adssistemas.mx'  -  Para:'antonio.gonzalez@adssistemas.mx'  - Asunto:'Permiso para Asistencia Técnica AD Sistemas' -  CCP: '' - Adjuntos: 0 

  11/09/2019:01:03 p. m. From:'signotificaciones@adssistemas.mx'  -  Para:'antonio.gonzalez@adssistemas.mx'  - Asunto:'Vacaciones Asistencia Técnica AD Sistemas' -  CCP: '' - Adjuntos: 0 

  11/09/2019:01:10 p. m. From:'signotificaciones@adssistemas.mx'  -  Para:'antonio.gonzalez@adssistemas.mx'  - Asunto:'Vacaciones Asistencia Técnica AD Sistemas' -  CCP: '' - Adjuntos: 0 
\ No newline at end of file
diff --git a/RH/MiPerfil.aspx b/RH/MiPerfil.aspx
index 619b351d5..7cc81afef 100644
--- a/RH/MiPerfil.aspx
+++ b/RH/MiPerfil.aspx
@@ -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">
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 <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
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 6006ea58e..6e77cef50 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -15757,7 +15757,7 @@ Partial Class Ventas
                 Else
                     If Not ObjVentas.AddVentaDetalle(CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("CveUM").ToString.ToEntero,
                                          Row("PU").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("ImporteIVA").ToString.ToDouble, Math.Round((Row("Total").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)))), 6),
-                                         Row("Obs").ToString, Row("Descuento").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero, PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal, IEPS:=Row("IEPS").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString,
+                                         Row("Obs").ToString, Row("Descuento").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero, PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal, IEPS:=Row("ImporteIEPS").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString,
                                          CveVentaDetallePadre:=Row("CveVentaDetalle").ToString.ToEntero, CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CvePromocionDetalle:=If(DtPromociones IsNot Nothing, DtPromociones.FiltroPrimeroValor("CvePromocionDetalle", $"CvePS={Row("CvePS").ToString}").ToEntero, -1),
                                          ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDouble, CuentaPredial:=Row("CuentaPredial").ToString) Then
                         OcurrioError = True
@@ -21047,7 +21047,7 @@ Partial Class Ventas
             If Not ObjVentas.AddVentaDetalle(CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("CveUM").ToString.ToEntero,
                                          Row("PU").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("ImporteIVA").ToString.ToDouble, Math.Round((Row("Total").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)))), 6),
                                          Row("Obs").ToString, Row("Descuento").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero,
-                                         PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal, IEPS:=Row("IEPS").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString) Then
+                                         PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal, IEPS:=Row("ImporteIEPS").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString) Then
                 MensajeError = "Ocurrió un error al guardar las partidas de la cotización"
                 OcurrioError = True
                 Exit For