diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 3249d2c1f..8cb6dbc4a 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -11363,8 +11363,8 @@ Partial Class Ventas 'ENVIAR NOTIFICACION DE SMS If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If DdlTipoComprobante.SelectedValue.Contiene("Ped") Then - Dim CorreoDestinoAlmacen As String = "almacen@smsmedicalsolutions.com" - + Dim CorreoDestino As String + CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("Almacén") If RBLTipoVenta.SelectedValue.Contiene("1", "2") Then Dim ListMateriales As New List(Of GenericaCantidadProducto) Dim DetalleTable As String = "" @@ -11377,7 +11377,7 @@ Partial Class Ventas End If 'cirugía en el mismo día o si es despues de las 9 y requiere técnico, 'jefe de técnicos If TxtFechaOS.Text.ToDate.ToShortDateString = NowADS.ToShortDateString OrElse (NowADS.Hour > 21 And NowADS.AddDays(1).ToShortDateString = TxtFechaOS.Text.ToDate.ToShortDateString AndAlso ChkRequiereTecnicoModal.Checked) Then - CorreoDestinoAlmacen = "esandoval@smsmedicalsolutions.com " + CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("JefeTécnicos") EnviaNotificacionSMS(5, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, "", DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino) End If End If