Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
156
Ashx/SIGGPS.ashx
156
Ashx/SIGGPS.ashx
@@ -18,7 +18,9 @@ Public Class SIGGPS : Implements IHttpHandler, IRequiresSessionState
|
||||
Case "getimginstalacion"
|
||||
GetImgInstalacion(context)
|
||||
Case "EjecutarNotificaciones"
|
||||
EjecutarNotificaciones(context)
|
||||
EjecutarNotificaciones(context)
|
||||
Case "EjecutaTrayectos"
|
||||
EnviarCorreoTrayectos(context, context.Request("CveTrayecto").ToString().ToEntero())
|
||||
End Select
|
||||
ElseIf context.Request.InputStream IsNot Nothing Then
|
||||
Using reader As New StreamReader(context.Request.InputStream)
|
||||
@@ -224,5 +226,155 @@ Public Class SIGGPS : Implements IHttpHandler, IRequiresSessionState
|
||||
)
|
||||
|
||||
Return Json
|
||||
End Function
|
||||
End Function
|
||||
|
||||
#Region "N O T F I C A C I O N - T R A Y E C T O S"
|
||||
Private Sub EnviarCorreoTrayectos(ByVal context As HttpContext, CveTrayecto As Integer)
|
||||
Dim Retorno As JObject = New JObject(New JProperty("EnvioCorreo", False), New JProperty("Mensaje", ""))
|
||||
|
||||
Dim DtInfoTrayecto As DataTable = Nothing
|
||||
Dim DtTrayecto As DataTable = Nothing
|
||||
|
||||
Using ObjGPS As New ClsGPS
|
||||
If ObjGPS.GetTrayectos(CveTrayecto, -1, -1) AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then
|
||||
DtTrayecto = ObjGPS.DtResultados.Copy()
|
||||
End If
|
||||
|
||||
If ObjGPS.GetTrayectosDatos(CveTrayecto) Then
|
||||
DtInfoTrayecto = ObjGPS.DtSetResultados.Tables(0).Copy()
|
||||
End If
|
||||
End Using
|
||||
|
||||
If DtTrayecto IsNot Nothing AndAlso DtInfoTrayecto IsNot Nothing AndAlso DtInfoTrayecto.Rows.Count > 0 Then
|
||||
Dim RowTrayecto As DataRow = DtTrayecto.Rows(0)
|
||||
Dim RowInfo As DataRow = DtInfoTrayecto.Rows(0)
|
||||
|
||||
Dim EnviarLiga As Boolean = CBool(RowTrayecto("EnviarLiga").ToString())
|
||||
|
||||
Dim Asunto As String = "Estatus de Trayecto"
|
||||
Dim Cuerpo As String = GeneraCorreo(CveTrayecto, EnviarLiga, RowInfo)
|
||||
Dim Correos As String = RowTrayecto("CorreosNotificacion").ToString()
|
||||
|
||||
Dim ObjMail As New ClsSisMail
|
||||
If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, Asunto, Cuerpo) Then
|
||||
Retorno("EnvioCorreo") = True
|
||||
Retorno("Mensaje") = "El correo fue enviado correctamente"
|
||||
Else
|
||||
Retorno("EnvioCorreo") = False
|
||||
Retorno("Mensaje") = "Ocurrió un error al enviar el correo"
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
context.Response.Write(Retorno.ToString())
|
||||
End Sub
|
||||
|
||||
Protected Function GeneraCorreo(CveTrayecto As Integer, EnviarLiga As Boolean, Row As DataRow) As String
|
||||
Dim strBody As New StringBuilder
|
||||
Try
|
||||
strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
|
||||
strBody.Append("<head> ")
|
||||
strBody.Append(" <style type=""text/css""> ")
|
||||
strBody.Append(" body ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" margin:0px; ")
|
||||
strBody.Append(" padding:0px 0px 0px 0px; ")
|
||||
strBody.Append(" font-family: Verdana, Arial, Helvetica, sans-serif; ")
|
||||
strBody.Append(" font-size: 10px; ")
|
||||
strBody.Append(" background-color:#F0F0F0; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" a.Texto ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" font-size:11px; ")
|
||||
strBody.Append(" background-color:#F7F6F3; ")
|
||||
strBody.Append(" text-decoration:none; ")
|
||||
strBody.Append(" font-weight:bold; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .Texto ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .TextoAlterno ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center; ")
|
||||
strBody.Append(" vertical-align:middle; height:20px;")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .BarraIdentidad ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" color:#FFFFFF; ")
|
||||
strBody.Append(" background:#F0F0F0; ")
|
||||
strBody.Append(" font-weight:bold; ")
|
||||
strBody.Append(" font-size:19px; ")
|
||||
strBody.Append(" font-style:oblique; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .Titulos ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" background-color: Gray;")
|
||||
strBody.Append(" color:White; ")
|
||||
strBody.Append(" font-family:Verdana; font-size:12px; text-align:center; ")
|
||||
strBody.Append(" vertical-align:middle; font-weight:bold; height:30px; ")
|
||||
strBody.Append(" text-decoration:none; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .Verde {color: #00CC00;} ")
|
||||
strBody.Append(" .Negro {color: #000000;} ")
|
||||
strBody.Append(" .Rojo {color: #FF0000;} ")
|
||||
strBody.Append(" </style> ")
|
||||
strBody.Append("</head> ")
|
||||
strBody.Append("<body> ")
|
||||
strBody.Append(" <h5> ")
|
||||
strBody.Append(" ")
|
||||
strBody.Append(" </h5> ")
|
||||
strBody.Append(" <div id=""C_divOC"" > ")
|
||||
strBody.Append("<div><fieldset><legend><strong> Datos del Trayecto</strong></legend>")
|
||||
strBody.Append("<table style=""width: 726.5px;"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
|
||||
strBody.Append("<tbody>")
|
||||
strBody.Append("<tr>")
|
||||
strBody.Append("<td style=""width: 36.5px;""> Trayecto:</td>")
|
||||
strBody.AppendFormat("<td style=""width: 167px;"" colspan=""3""><strong> {0}</strong></td>", Row("Trayecto"))
|
||||
strBody.Append("</tr>")
|
||||
strBody.Append("<tr>")
|
||||
strBody.Append("<td style=""width: 36.5px;""> Vehículo:</td>")
|
||||
strBody.AppendFormat("<td style=""width: 167px;"" colspan=""3""><strong> {0}strong></td>", Row("Vehiculo"))
|
||||
strBody.Append("</tr>")
|
||||
strBody.Append("<tr>")
|
||||
strBody.Append("<td style=""width: 36.5px;""> Estatus:</td>")
|
||||
strBody.AppendFormat("<td style=""width: 167px;"" colspan=""3""><strong> {0}</strong></td>", Row("Estatus"))
|
||||
strBody.Append("</tr>")
|
||||
strBody.Append("<tr>")
|
||||
strBody.Append("<tr>")
|
||||
strBody.Append("<td style=""width: 36.5px;""> Latitud:</td>")
|
||||
strBody.AppendFormat("<td style=""width: 167px;"" colspan=""3""><strong> {0}</strong></td>", Row("LatitudActual"))
|
||||
strBody.Append("</tr>")
|
||||
strBody.Append("<tr>")
|
||||
strBody.Append("<td style=""width: 36.5px;""> Longitud:</td>")
|
||||
strBody.AppendFormat("<td style=""width: 167px;"" colspan=""3""><strong> {0}</strong></td>", Row("LongitudActual"))
|
||||
strBody.Append("</tr>")
|
||||
strBody.Append("<tr>")
|
||||
strBody.Append("<td style=""width: 36.5px;""> Posición:</td>")
|
||||
strBody.AppendFormat("<td style=""width: 187px;"" colspan=""3""><strong> <a href=""https://www.google.com/maps/search/{0},{1}/\"" target=""_blank"" rel=""noopener"">Ver en google maps</a></strong></td>", Row("LatitudActual"), Row("LongitudActual"))
|
||||
strBody.Append("</tr>")
|
||||
If EnviarLiga Then
|
||||
strBody.Append("<tr>")
|
||||
strBody.Append("<td style=""width: 36.5px;""> Rastreo:</td>")
|
||||
strBody.AppendFormat("<td style=""width: 187px;"" colspan=""3""><strong> <a href=""http://gps.signalsgps.com/GPS/RastreoTrayectos.aspx?P={0}"" target=""_blank"" rel=""noopener"">Rastrear Vehículo</a></strong></td>", Encripta($"CveTrayecto={Row("CveTrayecto").ToString()}"))
|
||||
strBody.Append("</tr>")
|
||||
End If
|
||||
strBody.Append("<tr>")
|
||||
strBody.Append("<td style=""width: 187px;"" colspan=""3""><img src=""https://maps.googleapis.com/maps/api/staticmap?size=700x340&zoom=14&center=20.5269,-100.868&path=&markers=icon:http://gps.signalsgps.com/Imagenes/rsz_11rsz_car.png|20.5269,-100.868&sensor=false&key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4"" /></td>")
|
||||
strBody.Append("</tr>")
|
||||
strBody.Append("</tbody>")
|
||||
strBody.Append("</table>")
|
||||
strBody.Append("</fieldset></div>")
|
||||
strBody.Append(" <h5> ")
|
||||
strBody.Append(" ")
|
||||
strBody.Append(" </h5> ")
|
||||
strBody.Append(" </div> ")
|
||||
strBody.Append("</body></html>")
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrio un error al general el correo.", ex)
|
||||
End Try
|
||||
Return strBody.ToString()
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user