diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 8a7e419cf..0848d97b8 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -386,7 +386,7 @@ Partial Class PopUpVerFactura
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
         Dim rutardlc As String = "Formatos\RepAgroInventarioDiario.rdlc"
         If EnviarCorrreo Then
-            Dim para As String = "caudillo.90d@gmail.com"
+            Dim para As String = ""
             Dim dtCorreos As DataTable = New DataTable()
 
             Using objnom As New ClsCGame
@@ -394,8 +394,10 @@ Partial Class PopUpVerFactura
                     dtCorreos = objnom.DtResultados
                 End If
             End Using
+            Dim coma As String = ""
             For Each row As DataRow In dtCorreos.Rows
-                para = String.Format("{0},{1}", para, row("Correo"))
+                para = String.Format("{0}{2}{1}", para, row("Correo"), coma)
+                coma = ","
             Next
 
             Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato)
diff --git a/RH/CatAsistenciasInasistencias.aspx.vb b/RH/CatAsistenciasInasistencias.aspx.vb
index e46a468a1..6f2ff753a 100644
--- a/RH/CatAsistenciasInasistencias.aspx.vb
+++ b/RH/CatAsistenciasInasistencias.aspx.vb
@@ -79,7 +79,7 @@ Partial Class RH_CatAsistenciasInasistencias
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click 'esta funcion es la que agrega un nuevo motivo de baja se activa con el boton "Agregar" de la ventana modal"
         Dim ObjAsistenciasInasistencias As New ClsRH
         Dim chkAplicaFalta As Boolean = AplicaFalta.Checked
-        Dim chkAplicaNoAplica As Boolean = Not AplicaNoAplica.Checked
+        Dim chkAplicaNoAplica As Boolean = AplicaNoAplica.Checked
         Dim chkAplicaVacacion As Boolean = AplicaVacacion.Checked
         Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked
         Dim chkAplicaRetardo As Boolean = AplicaRetardo.Checked
@@ -154,7 +154,7 @@ Partial Class RH_CatAsistenciasInasistencias
         Dim Tipo As String = TipoTxt.Text.Trim
         Dim TipoCorto As String = TxtTipoCorto.Text.Trim
         Dim Estatus As Boolean = ChkEstatus.Checked
-        Dim ckAplicaFalta As Boolean = Not AplicaFalta.Checked
+        Dim ckAplicaFalta As Boolean = AplicaFalta.Checked
         Dim AplicaAsistencia As Boolean = AplicaNoAplica.Checked
         Dim CveAsistenciasInasistencias As Integer = CveTipoAsisAEditar 'aquí obtenemos el valor de la propiedad que utilizamos en el metodo "GvDatos_RowEditing"