From d9e9dd3cf9d847199d7c6dd6815a5375154f9a02 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 29 Jul 2024 07:14:24 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20de=20globaldtusuarios?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OS/Asignaciones.aspx.vb | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb
index 27dd8d20a..0b2b99d57 100644
--- a/OS/Asignaciones.aspx.vb
+++ b/OS/Asignaciones.aspx.vb
@@ -269,13 +269,11 @@ Partial Class OS_Asignaciones
                                 Dim Fecha As DateTime = time
                                 OIDescripcion = $"<b><a href='/OS/OrdenesServicios.aspx?CveOS={row.DataKey("CveOS")}' target='_blank' class='Texto' >Orden de servicio {row.DataKey("Folio")} </a></b>"
 
-
                                 If Not ObjEventos.AddEventoAgenda(2, DdlTecnico.SelectedItem.Text, $"{DdlTecnico.SelectedItem.Text}   {OIDescripcion}", 2, time, time.AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                                     RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2,
                                                     Importe:=0, CveOS:=row.DataKey("CveOS").ToEntero, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero) Then
                                     TieneError = True
                                 End If
-
                             End If
 
                             If Not TieneError Then
@@ -284,13 +282,10 @@ Partial Class OS_Asignaciones
                                 End If
                             End If
 
-                            Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnico.SelectedValue.ToEntero).Rows(0)("Correo").ToString
-
-                            If Not TieneError Then
+                            Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnico.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo").ToString
+                            If Not TieneError AndAlso CorreoAsignado <> "" Then
                                 MandaCorreOS(row.DataKey("CveOS").ToEntero, CorreoAsignado, TrasaccionSql:=ObjOS.IniciaTransacSQL)
                             End If
-
-
                         End If
                     End If
                 End If