From cff6ec5b87ce4d78a39576a5f3a6b267aff6c05c Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 12 Oct 2024 15:50:59 -0700 Subject: [PATCH] -- mejora SMS notif --- Ventas/Ventas.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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