diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index b5c868fcb..90d787cc5 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -11125,7 +11125,7 @@ Public Class ClsPaginas End Function #End Region - Public Shared Sub EnviaNotificacionSMS(Tipo As Integer, tEmpresa As Empresa, CveOS As Integer, Folio As String, FechaCirugía As DateTime, Hospital As String, TipoVenta As String, Medico As String, Procedimiento As String, Tecnico As String, Vendedor As String, Remision As String, ListaPS As List(Of GenericaCantidadProducto), CorreoDestino As String) + Public Shared Sub EnviaNotificacionSMS(Tipo As Integer, tEmpresa As Empresa, CveOS As Integer, Folio As String, FechaCirugía As DateTime, Hospital As String, TipoVenta As String, Medico As String, Procedimiento As String, Tecnico As String, Vendedor As String, Remision As String, ListaPS As List(Of GenericaCantidadProducto), CorreoDestino As String, Optional TextoAdicional As String = "") Dim ObjMail As New ClsSisMail() Dim Asunto As String = "" Dim OpcionNegritas As String = "" @@ -11197,9 +11197,40 @@ Public Class ClsPaginas Asunto = "Cirugía Cancelada; OS " & Folio Contenido.AppendFormat(" OS: {1}
", CveOS, Folio) TextoFinal = "CANCELADA" + Case 16 + Asunto = "Una cirugía ha cambiado de fecha/hora" + Contenido.AppendFormat(" OS: {1}
", CveOS, Folio) + Case 17 + Asunto = "Una cirugía ha cambiado de fecha/hora" + Contenido.AppendFormat(" OS: {1}
", CveOS, Folio) + OpcionNegritas = "HC" + Case 18 + Asunto = "Una cirugía ha cambiado de Hospital" + Contenido.AppendFormat(" OS: {1}
", CveOS, Folio) + OpcionNegritas = "HC" + Case 19 + Asunto = "Una cirugía ha cambiado de Hospital" + Contenido.AppendFormat(" OS: {1}
", CveOS, Folio) + OpcionNegritas = "HC" + Case 20 + Asunto = "Una cirugía ha cambiado de Médico" + Contenido.AppendFormat(" OS: {1}
", CveOS, Folio) + OpcionNegritas = "HC" + Case 21 + Asunto = "Una cirugía ha cambiado de Médico" + Contenido.AppendFormat(" OS: {1}
", CveOS, Folio) + OpcionNegritas = "HC" + Case 22 + Asunto = "Se ha agregado material a una cx" + Contenido.AppendFormat(" OS: {1}
", CveOS, Folio) + OpcionNegritas = "HC" + Case 23 + Asunto = "Se modificó el material de una cx" + Contenido.AppendFormat(" OS: {1}
", CveOS, Folio) + OpcionNegritas = "HC" End Select - Contenido.AppendFormat("Fecha y hora de cx: {0}
", FechaCirugía.ToString("dd/MM/yyyy HH:mm"), If(OpcionNegritas = "T", "Negritas", "")) + Contenido.AppendFormat("Fecha y hora de cx: {0}
", FechaCirugía.ToString("dd/MM/yyyy HH:mm"), If(OpcionNegritas.Contiene("HC", "T"), "Negritas", "")) Contenido.AppendFormat("Hospital: {0}
", Hospital) If TipoVenta <> "" Then Contenido.AppendFormat("Tipo Venta: {0}
", TipoVenta) If Medico <> "" Then Contenido.AppendFormat("Médico: {0}
", Medico) @@ -11208,6 +11239,7 @@ Public Class ClsPaginas If Vendedor <> "" Then Contenido.AppendFormat("Vendedor: {0}
", Vendedor) If Remision <> "" Then Contenido.AppendFormat("Remisión: {0}
", Remision) + If ListaPS IsNot Nothing Then If ListaPS.Count > 0 Then Contenido.Append("
")