From 4bac4bd4a8dfb2c12b3601dc4a137294c474a4c3 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Fri, 22 Nov 2019 14:04:18 -0700 Subject: [PATCH] Enviar correo al desactivar cliente --- Ventas/Clientes.aspx.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 0434a039d..90c9c08cb 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -2546,10 +2546,15 @@ Partial Class Clientes If DTVendedor.Rows.Count > 0 Then Dim _CorreoVendedor As String = DTVendedor(0)("Correo").ToString - If _CorreoVendedor.Length > 0 And UsuarioActual.Empresa.Funcionalidad(571).ToEntero > 0 Then + Dim _CorreoAsistente As String = GlobalDTVendedores(UsuarioActual.Empresa.CveEmpresa).FiltroPrimeroValor("Correo", "CveSuperior = " & DdlVendedor.SelectedValue.ToEntero) + + Dim CveSuperior As Integer = DTVendedor(0)("CveSuperior").ToString.ToEntero + Dim _CorreoCoordinador As String = GlobalDTVendedores(UsuarioActual.Empresa.CveEmpresa).FiltroPrimeroValor("Correo", "CveVendedor = " & CveSuperior) + + If (_CorreoVendedor.Length > 0 Or _CorreoAsistente.Length > 0 Or _CorreoCoordinador.Length > 0) And UsuarioActual.Empresa.Funcionalidad(571).ToEntero > 0 Then Dim Asunto As String = "" - Dim Para As String = _CorreoVendedor + Dim Para As String = If(_CorreoVendedor.Length > 0, _CorreoVendedor & ";", "") & If(_CorreoAsistente.Length > 0, _CorreoAsistente & ";", "") & _CorreoCoordinador Dim SBBody As New StringBuilder If ChkEstado.Checked Then