diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 4e05ae0a5..1493cf14a 100644 --- 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 diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 45ba428bf..b28c7670a 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2909,7 +2909,7 @@
- +