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

-- notif SMS

Browse Source
This commit is contained in:
rrene
2024-10-10 06:16:19 -07:00
parent 1f803382e0
commit 02087a4638
2 changed files with 63 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
App_Code/ClsPaginas.vb
View File

@@ -11024,5 +11024,63 @@ 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, Medico As String, Procedimiento As String, Tecnico As String, Vendedor As String, Remision As String, ListaPS As List(Of GenericaCantidadProducto), CorreoDestino As String)
Dim ObjMail As New ClsSisMail()
Dim Asunto As String = ""
Dim Contenido As New StringBuilder
Contenido.Append("<html>")
Contenido.Append("<head>")
Contenido.Append("<meta charset='UTF-8'>")
Contenido.Append("</head>")
Contenido.Append(" <body style='width:800px'>")
'Contenido.Append("<div>")
'Contenido.Append($"<img src='http://sms.adssistemas.mx/Empresas/186/Logo.png' style='width:200px'></img>")
'Contenido.Append("</div>")
Select Case Tipo
Case 6
Asunto = "Tu pedido ha sido entregado"
Contenido.AppendFormat(" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></p>", CveOS, Folio)
Case 9
Asunto = "Material Utilizado en tu CX"
Contenido.AppendFormat(" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></p>", CveOS, Folio)
Case 10
Asunto = "Material por recolectar; Remisión: " & Remision
Contenido.AppendFormat(" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></p>", CveOS, Folio)
Case 11
Asunto = "Sin material por recolectar ; Remisión " & Remision
Contenido.AppendFormat(" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></p>", CveOS, Folio)
Case 12
Asunto = "Remisión por facturar ### (folio de Remisión)"
Contenido.AppendFormat("Remisión: <a href='https://sms.adssistemas.mx/Ventas/Vetas.aspx?CveVenta={0}'>{1}</a><br/>", CveOS, Folio)
End Select
Contenido.AppendFormat("Fecha y hora de cx: {0}<br/>", FechaCirugía.ToString("dd/MM/yyyy HH:mm"))
Contenido.AppendFormat("Hospital: {0}<br/>", Hospital)
Contenido.AppendFormat("Médico: {0}<br/>", Medico)
Contenido.AppendFormat("Procedimiento: {0}<br/>", Procedimiento)
If Tecnico <> "" Then Contenido.AppendFormat("Técnico: {0}<br/>", Tecnico)
Contenido.AppendFormat("Vendedor: {0}<br/>", Vendedor)
Contenido.AppendFormat("Remisión: {0}<br/>", Remision)
If ListaPS.Count > 0 Then
Contenido.Append(" <div style='width:100%;text-align:left'>")
Contenido.Append(" <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>")
Contenido.AppendFormat("<b>Productos.</b><br/>", Remision)
For Each ps As GenericaCantidadProducto In ListaPS
Contenido.AppendFormat("<tr><td style='width:25%'>{0}</td><td style='width:75%'>{1}</td></tr>", ps.Cantidad.FormatoNumero(0), ps.Producto)
Next
Contenido.Append(" </table>")
Contenido.Append(" </div>")
Else
Contenido.AppendFormat("<b>Sin material sobrante.</b><br/>", Remision)
End If
Contenido.AppendFormat("Remisión: {0}<br/>", Remision)
Contenido.Append(" </body>")
Contenido.Append("</html>")
If ObjMail.SendMail(tEmpresa, CorreoDestino, Asunto, Contenido.ToString) Then
End If
End Sub
End Class

5
App_Code/modExtensiones.vb
View File

@@ -4020,6 +4020,11 @@ Namespace Extensiones
End Class
Public Class GenericaCantidadProducto
Public Property Cantidad As Decimal
Public Property Producto As String
End Class
#End Region