Cambios de BDH

2019-11-04 09:48:11 -07:00
parent 43211806f8
commit f39e329c00
2 changed files with 6 additions and 2 deletions
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2467,7 +2467,11 @@ Partial Class Clientes
                Else
                    ObjClientes.Commit()

-                    'JM 05-02-19: CRM ASIGAN CLIENTE A EMPRESACRM
+                    If UsuarioActual.Empresa.Funcionalidad(571).ToEntero > 0 And ChkEstado.Checked = False Then
+                        Dim Correo As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("", "")
+                    End If
+
+                    'JM 05-02-19: CRM ASIGAN CLIENTE A EMPRESACRM
                    Dim MensajeCRM As String = ""
                    If CveEmpresaCRM > 0 Then
                        If VincularEmpresaCRM() Then