AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Enviar correo al desactivar cliente

Browse Source
This commit is contained in:
janeth arvizu
2019-11-22 14:04:18 -07:00
parent 7bf7176137
commit 4bac4bd4a8
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Ventas/Clientes.aspx.vb
View File

@@ -2546,10 +2546,15 @@ Partial Class Clientes
If DTVendedor.Rows.Count > 0 Then If DTVendedor.Rows.Count > 0 Then
Dim _CorreoVendedor As String = DTVendedor(0)("Correo").ToString 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 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 Dim SBBody As New StringBuilder
If ChkEstado.Checked Then If ChkEstado.Checked Then