From 531b270a003e3c242eaa134ec6b2113677e1eb79 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Sat, 16 Sep 2023 10:55:41 -0700
Subject: [PATCH 1/2]

---
 Compras/PopUpVerFactura.aspx.vb | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 0ec2f8250..d1a70d945 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 = "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)

From 631ca259b84d95b56b14d3b1cd0075c0dbb612bd Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Fri, 22 Sep 2023 09:48:56 -0700
Subject: [PATCH 2/2]

---
 RH/CatAsistenciasInasistencias.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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"