AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- agregado de concepto de notificación

Browse Source
This commit is contained in:
rrene
2024-11-28 11:28:12 -07:00
parent 128a18af89
commit 59f8fd71bb
1 changed files with 34 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
App_Code/ClsPaginas.vb
View File

@@ -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(" <span style='width:100%;text-align:left;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></span>", CveOS, Folio)
TextoFinal = "<b>CANCELADA</b>"
Case 16
Asunto = "Una cirugía ha cambiado de fecha/hora"
Contenido.AppendFormat(" <span style='width:100%;text-align:left;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></span>", CveOS, Folio)
Case 17
Asunto = "Una cirugía ha cambiado de fecha/hora"
Contenido.AppendFormat(" <span style='width:100%;text-align:left;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></span>", CveOS, Folio)
OpcionNegritas = "HC"
Case 18
Asunto = "Una cirugía ha cambiado de Hospital"
Contenido.AppendFormat(" <span style='width:100%;text-align:left;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></span>", CveOS, Folio)
OpcionNegritas = "HC"
Case 19
Asunto = "Una cirugía ha cambiado de Hospital"
Contenido.AppendFormat(" <span style='width:100%;text-align:left;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></span>", CveOS, Folio)
OpcionNegritas = "HC"
Case 20
Asunto = "Una cirugía ha cambiado de Médico"
Contenido.AppendFormat(" <span style='width:100%;text-align:left;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></span>", CveOS, Folio)
OpcionNegritas = "HC"
Case 21
Asunto = "Una cirugía ha cambiado de Médico"
Contenido.AppendFormat(" <span style='width:100%;text-align:left;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></span>", CveOS, Folio)
OpcionNegritas = "HC"
Case 22
Asunto = "Se ha agregado material a una cx"
Contenido.AppendFormat(" <span style='width:100%;text-align:left;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></span>", CveOS, Folio)
OpcionNegritas = "HC"
Case 23
Asunto = "Se modificó el material de una cx"
Contenido.AppendFormat(" <span style='width:100%;text-align:left;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></span>", CveOS, Folio)
OpcionNegritas = "HC"
End Select
Contenido.AppendFormat("<span style='{1}'>Fecha y hora de cx: {0}</span><br/>", FechaCirugía.ToString("dd/MM/yyyy HH:mm"), If(OpcionNegritas = "T", "Negritas", ""))
Contenido.AppendFormat("<span style='{1}'>Fecha y hora de cx: {0}</span><br/>", FechaCirugía.ToString("dd/MM/yyyy HH:mm"), If(OpcionNegritas.Contiene("HC", "T"), "Negritas", ""))
Contenido.AppendFormat("Hospital: {0}<br/>", Hospital)
If TipoVenta <> "" Then Contenido.AppendFormat("Tipo Venta: {0}<br/>", TipoVenta)
If Medico <> "" Then Contenido.AppendFormat("Médico: {0}<br/>", Medico)
@@ -11208,6 +11239,7 @@ Public Class ClsPaginas
If Vendedor <> "" Then Contenido.AppendFormat("Vendedor: {0}<br/>", Vendedor)
If Remision <> "" Then Contenido.AppendFormat("Remisión: {0}<br/>", Remision)
If ListaPS IsNot Nothing Then
If ListaPS.Count > 0 Then
Contenido.Append(" <div style='width:100%;text-align:left;font-family:Segoe UI Semibold;font-size:10pt''>")