From ee81670411fe5c98ba407566f60d513b9cf28357 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Oct 2024 16:06:13 -0700 Subject: [PATCH] =?UTF-8?q?env=C3=ADo=20de=20correo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntregaAlmacen.aspx.vb | 104 +++++++++++------------ OS/OrdenesServicios.aspx.vb | 60 ++++++-------- Ventas/Ventas.aspx.vb | 127 +++++++++++++++-------------- 3 files changed, 141 insertions(+), 150 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 54b9f9400..a8eb475bc 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -4,12 +4,9 @@ Option Explicit On Imports System.Data Imports System.Data.SqlClient Imports System.IO -Imports System.Web.Management -Imports DocumentFormat.OpenXml.InkML Imports Extensiones Imports Microsoft.Reporting.WebForms -Imports MoreLinq -Imports Telerik.Web.UI + Partial Class Inventarios_EntregaAlmacen Inherits ClsPaginas @@ -3364,7 +3361,7 @@ Partial Class Inventarios_EntregaAlmacen Msg.AppendFormat("
Consola ", Encripta(String.Format("OP=Alm&CveMovimiento={0}&Consola={1}", CveMovimiento, Consola))) End If - If CveMovimientoEntrada > 0 AndAlso Not UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + If CveMovimientoEntrada > 0 AndAlso Not UsuarioActual.Empresa.Funcionalidad(578) = "1" Then Msg.AppendFormat("

Movimiento Entrada (Traspaso): {1}", CveMovimientoEntrada, FolioEntrada) Msg.AppendFormat("
Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) End If @@ -3415,12 +3412,16 @@ Partial Class Inventarios_EntregaAlmacen Alert(Msg.ToString(), TipoMensaje.MsgInformacion) + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + EnviarCorreoEntregaSMS(CveVentaSurtir, UsuarioActual, CveMovimiento, Folio) + End If + Limpia() - CargaPendientes() - LimpiaCampos() - CargaBitacora = False - Else - ObjInventario.RollBack() + CargaPendientes() + LimpiaCampos() + CargaBitacora = False + Else + ObjInventario.RollBack() Alert(TextoError.ToString(), TipoMensaje.MsgError) RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") End If @@ -3958,6 +3959,49 @@ Partial Class Inventarios_EntregaAlmacen MailCls = Nothing End Sub + Private Sub EnviarCorreoEntregaSMS(tCveVenta As Integer, UsuarioActual As Usuario, tCveMovimiento As Integer, FolioRemision As Integer) + 'Dim Correo As New ClsSisMail + Dim SerieFolio As String = "" + Dim Destinatario As String = "" + Dim tCveVendedor As Integer + Dim ObjVentas As New ClsVentas() + + Dim strBody As New StringBuilder + If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("") + tCveVendedor = dr("CveVendedor").ToString.ToEntero() + Dim CorreoVendedor As String = dr("CorreoVendedorVenta").ToString + Dim dtDetalle As New DataTable + Dim objInv As New ClsInventarios + If objInv.GetMovimientosDetalle(tCveMovimiento, UsuarioActual.CveEmpresa) Then + dtDetalle = objInv.DtResultados + End If + objInv.Dispose() + Dim ListMateriales As New List(Of GenericaCantidadProducto) + Dim DetalleTable As String = "" + For Each dRow As DataRow In dtDetalle.Rows + ListMateriales.Add(New GenericaCantidadProducto With {.Cantidad = dRow("Cantidad").ToString.ToEntero, .Producto = dRow("PS").ToString}) + Next + + CorreoVendedor = "rene.molina@adssistemas.mx" + Dim tCveOS As Integer = -1 + Dim FolioOS As String = "-" + Dim objOS As New ClsOS + If objOS.GetCotizacionOS(CveVentaSurtir) Then + tCveOS = objOS.DtResultados.FiltroPrimeroValor("CveOS", "").ToEntero + FolioOS = objOS.DtResultados.FiltroPrimeroValor("Folio", "") + End If + + objOS.Dispose() + ' TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F. Cirugía {drE("FechaParaSurtir").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}" + + EnviaNotificacionSMS(6, UsuarioActual.Empresa, tCveOS, FolioOS, dr("FechaParaSurtir").ToString.ToDateTime, dr("ClienteNombre").ToString, dr("Medico").ToString, dr("Procedimiento").ToString, "", dr("VendedorNombre").ToString, FolioRemision.ToString, ListMateriales, CorreoVendedor) + + End If + ObjVentas.Dispose() + + End Sub + Private Sub Limpia() 'DATOS DE LA VENTA @@ -4581,51 +4625,15 @@ Partial Class Inventarios_EntregaAlmacen Dim ObjOS As New ClsOS(TransaccionSql) Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar) - Dim cancelarPeido As Boolean = CancelarPedido(TransaccionSql, CveMovimientoGenerado, Respuesta) - If Respuesta Then Dim ObjInventario As New ClsInventarios(TransaccionSql) If ObjInventario.GetMovimientosDetalle(CveMovimientoGenerado, UsuarioActual.CveEmpresa) Then If Not cancelarPeido Then - - 'Dim DT_Ventas_Detalles As DataTable = DTSolicitudDev.FiltraParametros("", "", {"CantidadPedido", "CvePS", "CveVentaDetalle"}) - 'DT_Ventas_Detalles.Columns.Add("CantidadUsada", GetType(Decimal)) - 'DT_Ventas_Detalles.AcceptChanges() - - 'For Each dRow As DataRow In DT_Ventas_Detalles.Rows - - ' For Each gvRow As GridViewRow In GvMU.Rows - - ' Dim CantidadUsada As Decimal = gvRow.FCTextBox("TxtUtilizado").Text.ToDecimal - - ' If dRow("CvePS").ToString.ToDecimal = gvRow.DataKey("CvePS").ToDecimal AndAlso CantidadUsada > 0 Then - - ' dRow("CantidadUsada") = dRow("CantidadUsada").ToString.ToDecimal + CantidadUsada - - ' End If - ' Next - - 'Next - - 'For Each dRow As DataRow In DT_Ventas_Detalles.Rows - ' Dim CantidadUsada As Decimal = dRow("CantidadUsada").ToString.ToDecimal - ' If dRow("CantidadUsada").ToString.ToDecimal < dRow("CantidadPedido").ToString.ToDecimal Then - ' If Not ObjInventario.UpdatePedidoDetalleCantidad(dRow("CveVentaDetalle").ToString.ToEntero, CantidadUsada, 2) Then - ' ProcesoOK = False - ' Exit For - ' End If - ' End If - 'Next - - - For Each Dr As DataRow In ObjInventario.DtResultados.Rows - Dim CveVentaDetalle As Integer = Dr("CveVentaDetalle").ToString().ToEntero() Dim Cantidad As Decimal = Dr("Cantidad").ToString().ToDecimal - If CveVentaDetalle > 0 Then If Not ObjInventario.UpdatePedidoDetalleCantidad(CveVentaDetalle, Cantidad) Then Respuesta = False @@ -4634,11 +4642,7 @@ Partial Class Inventarios_EntregaAlmacen Else Respuesta = False End If - Next - - - End If End If End If diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 95c6f8f08..03c3e8f0d 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -2855,7 +2855,7 @@ Partial Class OS_OrdenesServicios Private Sub CargaTecnico() DdlTecnico.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlTecnico.DataBind() - DdlTecnico.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlTecnico.Items.Insert(0, New ListItem("-", "-1")) DdlUsuarioAtendio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlUsuarioAtendio.DataBind() @@ -3101,6 +3101,10 @@ Partial Class OS_OrdenesServicios Dim GenerarRemisionMovimientos As Boolean = False Dim AplicaDevolucion As Boolean = False + Dim ListMaterialesUtil As New List(Of GenericaCantidadProducto) + Dim ListMaterialesDev As New List(Of GenericaCantidadProducto) + Dim Respuesta As New RespuestaFacturacion() + If DdlTipoVenta.SelectedValue = "5" Then 'Consignación - Uso Material 'genera una salida de almacen. Dim Fecha As DateTime = ClsPaginas.NowADS() @@ -3197,6 +3201,7 @@ Partial Class OS_OrdenesServicios If CantidadDev > 0 AndAlso CveVentaDetalle > 0 Then AplicaDevolucion = True + ListMaterialesDev.Add(New GenericaCantidadProducto With {.Cantidad = CantidadDev, .Producto = GvRow.DataKey("CodigoPS")}) If Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then ProcesoOK = False GenerarRemisionMovimientos = False @@ -3223,7 +3228,6 @@ Partial Class OS_OrdenesServicios End If End If - Dim Respuesta As New RespuestaFacturacion() Dim DtVentaDetalle As New DataTable Dim CveMovimientoSalida, CveMovimientoEntrada As Integer Dim ImporteAlmacen As Decimal @@ -3268,6 +3272,7 @@ Partial Class OS_OrdenesServicios Dim CvePS As Integer = drr("CvePS").ToString.ToEntero Dim CveUM As Integer = drr("CveUM").ToString.ToEntero Dim PU As Decimal = drr("PU").ToString.ToDecimal + ListMaterialesUtil.Add(New GenericaCantidadProducto With {.Cantidad = Cantidad, .Producto = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("PSCodigo")}) If Cantidad > 0 Then Dim CveVentaDetalle As Integer = drr("CveVentaDetalle").ToString.ToEntero 'DtVentaDetalle.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetallePadre = {GvRow.DataKey("CveVentaDetalle")}").ToEntero @@ -3384,17 +3389,24 @@ Partial Class OS_OrdenesServicios Alert("El material utilizado se guardó correctamente") End If End If - Dim Contenido As String = $" OS #{LblFolio.Text}
Hospital: {If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text)}
Folio {LblFolio.Text}
" - 'genera notificación - If AplicaDevolucion Then 'notif a almacen - EnviaNotificacion("listado productos") - End If - RegistraScript("$('#DivModalMaterialUtilizado').modal('hide');") - CargaEventoBitacora() + CargaEventoBitacora() + Dim CorreoDestino As String = "rene.molina@adssistemas.mx" + 'genera notificación + If AplicaDevolucion Then 'notif a almacen de devolución + EnviaNotificacionSMS(10, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlTecnico.SelectedItem.Text, "vendedor", TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino) Else - ObjV.RollBack() + EnviaNotificacionSMS(11, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlTecnico.SelectedItem.Text, "vendedor", TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino) + End If + If ListMaterialesUtil.Count > 0 Then 'notif a almacen de mat utilizado + EnviaNotificacionSMS(9, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlTecnico.SelectedItem.Text, "vendedor", TxtFolioRemisionModal.Text, ListMaterialesUtil, CorreoDestino) + End If + If Respuesta IsNot Nothing Then 'notif de remisión generada + EnviaNotificacionSMS(12, UsuarioActual.Empresa, Respuesta.CveVenta, Respuesta.SerieFolio, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlTecnico.SelectedItem.Text, "vendedor", TxtFolioRemisionModal.Text, ListMaterialesUtil, CorreoDestino) + End If + Else + ObjV.RollBack() Alert("Se presento un error al guardar el material", TipoMensaje.MsgAdvertencia) End If @@ -3402,28 +3414,6 @@ Partial Class OS_OrdenesServicios End If End Sub - Private Sub EnviaNotificacion(Contenido As String) - Dim ObjMail As New ClsSisMail() - Dim Asunto As String = "Notificación de recolección de Producto" - Dim CorreoDestino As String = "" - - If ObjMail.SendMail(UsuarioActual.Empresa, CorreoDestino, Asunto, Contenido) Then - - End If - - End Sub - - Private Sub EnviaNotificacionSMS(Tipo As Integer, Folio As String, FechaCirugía As DateTime, Hospital As String, Medico As String, Procedimiento As String, Técnico As String, Vendedor As String, Remision As String, dtMaterial As DataTable) - Dim ObjMail As New ClsSisMail() - Dim Asunto As String = "Notificación de recolección de Producto" - Dim CorreoDestino As String = "" - - If ObjMail.SendMail(UsuarioActual.Empresa, CorreoDestino, Asunto, Contenido) Then - - End If - - End Sub - Private Function GuardarArchivoConfirmacion(ByRef transaccion As SqlTransaction, CveOSActual As Integer, CveVentaRemisionGenerada As Integer) As Boolean Dim respuesta As Boolean = False @@ -3497,8 +3487,6 @@ Partial Class OS_OrdenesServicios Dim CveSubProyectoPedido As Integer = -1 Dim CveMoneda As Integer = -1 Dim tCveVendedor As Integer = -1 - - Dim CountDetalles As Integer = 0 Dim PuEnCero As Boolean = False @@ -3534,8 +3522,6 @@ Partial Class OS_OrdenesServicios Return Respuesta End If - - If ObjVentas.GetVenta(CvePedido, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Copy().Rows(0) CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero @@ -3743,4 +3729,4 @@ Partial Class OS_OrdenesServicios End Try End Sub -End Class \ No newline at end of file +End Class diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fdfe809ff..3249d2c1f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -7063,14 +7063,14 @@ Partial Class Ventas End If 'funcionalidad EnviarSMSTimbrado - If CveVenta <= 0 And UsuarioActual.Empresa.Funcionalidad(152) <> "" And DdlTipoComprobante.SelectedValue = "Ing" Then - If ObjCliente.CobranzaTelefono <> "" Then - LblMensaje.Text = $"Se enviará mensaje SMS a {ObjCliente.CobranzaTelefono}" - Else - LblMensaje.Text = $"El Cliente no tiene teléfono para envío SMS " - End If - LblMensaje.Visible = True - End If + 'If CveVenta <= 0 And UsuarioActual.Empresa.Funcionalidad(152) <> "" And DdlTipoComprobante.SelectedValue = "Ing" Then + ' If ObjCliente.CobranzaTelefono <> "" Then + ' LblMensaje.Text = $"Se enviará mensaje SMS a {ObjCliente.CobranzaTelefono}" + ' Else + ' LblMensaje.Text = $"El Cliente no tiene teléfono para envío SMS " + ' End If + ' LblMensaje.Visible = True + 'End If 'If Not ObjCliente.RFC = "XAXX010101000" Then ' TxtNumCtaPago.Text = ObjCliente.NumCtaPago @@ -11139,9 +11139,9 @@ Partial Class Ventas End If - If SeTimbro AndAlso ObjFactura.TipoDocto.Contiene("Ing") Then - EstatusSMS = EnviarSMSTimbrado(ObjEventos) - End If + 'If SeTimbro AndAlso ObjFactura.TipoDocto.Contiene("Ing") Then + ' EstatusSMS = EnviarSMSTimbrado(ObjEventos) + ' End If 'If Not SeTimbro Then ' Alert(MsgErrorTimbrado, TipoMensaje.MsgError) @@ -11363,7 +11363,7 @@ Partial Class Ventas 'ENVIAR NOTIFICACION DE SMS If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If DdlTipoComprobante.SelectedValue.Contiene("Ped") Then - Dim CorreoDestino As String = "rene.molina@adssistemas.mx" + Dim CorreoDestinoAlmacen As String = "almacen@smsmedicalsolutions.com" If RBLTipoVenta.SelectedValue.Contiene("1", "2") Then Dim ListMateriales As New List(Of GenericaCantidadProducto) @@ -11376,7 +11376,8 @@ Partial Class Ventas EnviaNotificacionSMS(4, 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 '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 OrElse ChkRequiereTecnicoModal.Checked) Then + 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 " 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 @@ -17940,20 +17941,20 @@ Partial Class Ventas 'NOTIFICACION DE SMS - Dim EstatusSMS As Integer = 0 - If ObjFactura.TipoDocto = "Ing" Then - Dim ObjEventos As New ClsOIEventos - EnviarSMSTimbrado(ObjEventos) - ObjEventos.Dispose() - End If - Select Case EstatusSMS - Case 1 - MensajeAlert.AppendFormat("Notificación SMS: enviado con éxito al cliente al celular: {0}", ObjFactura.Cliente.CobranzaTelefono) - Case 2 - MensajeAlert.AppendFormat("Notificación SMS: sin enviar. Ocurrió un error en el envío, por favor verifique la información del cliente.") - Case 3 - MensajeAlert.AppendFormat("Notificación SMS: sin enviar. No se pudo cargar el celular del cliente, por favor verifique la información del cliente.") - End Select + 'Dim EstatusSMS As Integer = 0 + 'If ObjFactura.TipoDocto = "Ing" Then + ' Dim ObjEventos As New ClsOIEventos + ' EnviarSMSTimbrado(ObjEventos) + ' ObjEventos.Dispose() + 'End If + 'Select Case EstatusSMS + ' Case 1 + ' MensajeAlert.AppendFormat("Notificación SMS: enviado con éxito al cliente al celular: {0}", ObjFactura.Cliente.CobranzaTelefono) + ' Case 2 + ' MensajeAlert.AppendFormat("Notificación SMS: sin enviar. Ocurrió un error en el envío, por favor verifique la información del cliente.") + ' Case 3 + ' MensajeAlert.AppendFormat("Notificación SMS: sin enviar. No se pudo cargar el celular del cliente, por favor verifique la información del cliente.") + 'End Select 'MUESTA Alert OK 'MensajeAlert.Append("El Documento se generó correctamente") @@ -27920,49 +27921,49 @@ Partial Class Ventas #End Region #Region " ENVIAR SMS - CONFIRMACION DE TIMBRADO " - Private Function EnviarSMSTimbrado(ByRef ObjEventos As ClsOIEventos) As Integer - 'NOTA: - '0 = NO APLICA - '1 = TODO FINO - '2 = ERROR - '3 = SIN CELULAR - PROBLEMA CON EL CELULAR - Try - Dim Mensaje As String = UsuarioActual.Empresa.Funcionalidad(152) - If Mensaje = "" Then Return 0 + 'Private Function EnviarSMSTimbrado(ByRef ObjEventos As ClsOIEventos) As Integer + ' 'NOTA: + ' '0 = NO APLICA + ' '1 = TODO FINO + ' '2 = ERROR + ' '3 = SIN CELULAR - PROBLEMA CON EL CELULAR + ' Try + ' Dim Mensaje As String = UsuarioActual.Empresa.Funcionalidad(152) + ' If Mensaje = "" Then Return 0 - Dim Celular As String = "" + ' Dim Celular As String = "" - Try - Celular = ObjFactura.Cliente.CobranzaTelefono - Catch ex As Exception + ' Try + ' Celular = ObjFactura.Cliente.CobranzaTelefono + ' Catch ex As Exception - End Try + ' End Try - If Celular.Length <> 10 Then Return 3 + ' If Celular.Length <> 10 Then Return 3 - 'ARMA MENSAJE - '4: VSH Monitoreo aviso de: Factura pendiente {SerieFolio} del {Fecha} por ${Importe} fecha limite de pago {FechaPago} Bancomer 0171426931-{ClienteNombreCorto} - Mensaje = Mensaje.Replace("{SerieFolio}", ObjFactura.SerieFolio) - Mensaje = Mensaje.Replace("{Fecha}", ObjFactura.Fecha.ToString("dd-MMM-yyyy").Replace(".", "")) - Mensaje = Mensaje.Replace("{Importe}", ObjFactura.Total.FormatoNumero) - Mensaje = Mensaje.Replace("{FechaPago}", ObjFactura.FechaPago.ToString("dd-MMM-yyyy").Replace(".", "")) - Mensaje = Mensaje.Replace("{ClienteNombreCorto}", ObjFactura.Cliente.NombreCorto) - If Mensaje = "" Then Return 2 + ' 'ARMA MENSAJE + ' '4: VSH Monitoreo aviso de: Factura pendiente {SerieFolio} del {Fecha} por ${Importe} fecha limite de pago {FechaPago} Bancomer 0171426931-{ClienteNombreCorto} + ' Mensaje = Mensaje.Replace("{SerieFolio}", ObjFactura.SerieFolio) + ' Mensaje = Mensaje.Replace("{Fecha}", ObjFactura.Fecha.ToString("dd-MMM-yyyy").Replace(".", "")) + ' Mensaje = Mensaje.Replace("{Importe}", ObjFactura.Total.FormatoNumero) + ' Mensaje = Mensaje.Replace("{FechaPago}", ObjFactura.FechaPago.ToString("dd-MMM-yyyy").Replace(".", "")) + ' Mensaje = Mensaje.Replace("{ClienteNombreCorto}", ObjFactura.Cliente.NombreCorto) + ' If Mensaje = "" Then Return 2 - Dim ObjMensaje As New ClsTecnoMovil - If ObjMensaje.EnviarMensajeWS(Celular, Mensaje) Then - If ObjEventos.AddEventoBitacora($"Notificación al cliente via SMS. Mensaje: {Mensaje}", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=ObjFactura.CveCliente, CveVenta:=ObjFactura.CveVenta) Then - End If - Return 1 - Else - Return 2 - End If - Catch ex As Exception - OnError("Ocurrió un error al generar el SMS", ex) - Return 0 - End Try + ' Dim ObjMensaje As New ClsTecnoMovil + ' If ObjMensaje.EnviarMensajeWS(Celular, Mensaje) Then + ' If ObjEventos.AddEventoBitacora($"Notificación al cliente via SMS. Mensaje: {Mensaje}", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=ObjFactura.CveCliente, CveVenta:=ObjFactura.CveVenta) Then + ' End If + ' Return 1 + ' Else + ' Return 2 + ' End If + ' Catch ex As Exception + ' OnError("Ocurrió un error al generar el SMS", ex) + ' Return 0 + ' End Try - End Function + 'End Function #End Region #Region " COMPLEMENTOS PAGO "