From 02087a4638bdc8ea4bf6faa787791a62d6da5803 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 10 Oct 2024 06:16:19 -0700
Subject: [PATCH] -- notif SMS

---
 App_Code/ClsPaginas.vb     | 58 ++++++++++++++++++++++++++++++++++++++
 App_Code/modExtensiones.vb |  5 ++++
 2 files changed, 63 insertions(+)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index d72277ae2..2370b8389 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -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
 
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index dc36ee5f2..1169b2c0c 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -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