83 lines
3.2 KiB
VB.net
83 lines
3.2 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports Extensiones
|
|
Imports System.Data.SqlClient
|
|
Imports Microsoft.AspNet.SignalR
|
|
Imports System.IO
|
|
|
|
Partial Class PortalGPS_ServiciosGPS
|
|
Inherits System.Web.UI.Page
|
|
Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
If Request("Correr") IsNot Nothing AndAlso Request("Correr").ToString = "1" Then
|
|
'Dim Tipo As String = RdlTipo.SelectedValue
|
|
EjecutarComandos()
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
Private Sub EjecutarComandos(Optional Tipo As String = "GPRS")
|
|
Dim ObjGPS As New ClsGPS
|
|
Dim ObjHerra As New ClsGPSHerramientas
|
|
If ObjGPS.DispositivosGet(-1, 1, -1, -1) Then
|
|
Try
|
|
Dim DtDispositivos = ObjGPS.DtResultados.FiltraParametros("Modelo IN ('ST300K','ST300KE','ST300C')")
|
|
|
|
For Each Dr As DataRow In DtDispositivos.Rows
|
|
Dim DevID As String = Dr("DevID").ToString
|
|
If Not String.IsNullOrEmpty(DevID) Then
|
|
|
|
Dim Comando As String = $"ST300GED;{DevID};02"
|
|
Dim Telefono As String = Dr("NumeroTelefono").ToString
|
|
Dim CveDispositivo As Integer = Dr("CveDispositivo").ToString.ToEntero
|
|
|
|
Select Case Tipo
|
|
Case "GPRS"
|
|
If ObjHerra.EjecutarComandoManualGPRS(Comando, Telefono, CveDispositivo, -1) Then
|
|
LblFecha.Text = Now.ToString("dd/MM/yyyy")
|
|
GuardaLog($"Se ejecuto el comando correctamente vía GPRS. ")
|
|
End If
|
|
Case "SMS"
|
|
If ObjHerra.EjecutarComandoManualSMS(Comando, Telefono, CveDispositivo, -1) Then
|
|
LblFecha.Text = Now.ToString("dd/MM/yyyy")
|
|
GuardaLog($"Se ejecuto el comando correctamente vía SMS Fecha. ")
|
|
End If
|
|
End Select
|
|
End If
|
|
Next
|
|
|
|
Catch ex As Exception
|
|
GuardaLog($"Ocurrió un error al ejecutar el comando. {ex.ToString}")
|
|
End Try
|
|
End If
|
|
ObjGPS.Dispose()
|
|
ObjHerra.Dispose()
|
|
End Sub
|
|
|
|
Protected Sub BtnPrueba_Click(sender As Object, e As EventArgs)
|
|
Dim Tipo As String = RdlTipo.SelectedValue
|
|
EjecutarComandos(Tipo)
|
|
End Sub
|
|
Public Sub GuardaLog(Str As String)
|
|
Dim ArchivoW As StreamWriter
|
|
Dim strLineaTMP As String
|
|
|
|
strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
|
|
Try
|
|
ArchivoW = New StreamWriter(String.Format("{0}\LogCanBus.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
|
|
Catch ex As Exception
|
|
Exit Sub
|
|
End Try
|
|
|
|
Try
|
|
ArchivoW.WriteLine(strLineaTMP)
|
|
Catch
|
|
End Try
|
|
|
|
ArchivoW.Close()
|
|
ArchivoW.Dispose()
|
|
End Sub
|
|
End Class
|