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

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
PortalGPS/Penske.aspx.vb
View File

@@ -16,7 +16,7 @@ Partial Class PortalGPS_Penske
Private Sub EnviarDatos()
Dim ObjTsoft As New ClsTSoft
Try
GuardaLog($"Empecé Task. Fecha: {DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss")}")
GuardaLog($"Empecé Task. Fecha: {NowADS().ToString("dd/MM/yyyy HH:mm:ss")}")
If ObjTsoft.GetInfoWSPenske() AndAlso ObjTsoft.DtResultados.Rows.Count > 0 Then
Dim Direcciones As JArray = ConsultarDirecciones(ObjTsoft.DtResultados)
For Each Dir As JObject In Direcciones
@@ -26,7 +26,7 @@ Partial Class PortalGPS_Penske
Catch ex As Exception
GuardaLog(ex.ToString())
Finally
GuardaLog($"Terminé Task, se reportaron: {ObjTsoft.DtResultados.Rows.Count} registros. Fecha: {DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss")}")
GuardaLog($"Terminé Task, se reportaron: {ObjTsoft.DtResultados.Rows.Count} registros. Fecha: {NowADS().ToString("dd/MM/yyyy HH:mm:ss")}")
ObjTsoft.Dispose()
End Try
End Sub
@@ -45,7 +45,7 @@ Partial Class PortalGPS_Penske
info.Trackingnumber = row("TrackingNumber").ToString
info.Ubicacion = direccion
info.FechaHoraEvento = row("FechaTrama").ToString.ToDate
info.FechaRecepcion = DateTime.Now.AddMinutes(120)
info.FechaRecepcion = NowADS().AddMinutes(120)
info.Username = row("Usuario").ToString
info.Password = row("PWD").ToString
Dim Protocol As New WSPenske.Protocolo
@@ -96,8 +96,8 @@ Partial Class PortalGPS_Penske
Dim ArchivoW As StreamWriter
Dim strLineaTMP As String
' strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
' strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, NowADS().ToShortDateString, NowADS().ToShortTimeString)
Try
ArchivoW = New StreamWriter(String.Format("{0}\log\LogPenske.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch ex As UnauthorizedAccessException

6
PortalGPS/ServiciosGPS.aspx.vb
View File

@@ -36,12 +36,12 @@ Partial Class PortalGPS_ServiciosGPS
Select Case Tipo
Case "GPRS"
If ObjHerra.EjecutarComandoManualGPRS(Comando, Telefono, CveDispositivo, -1) Then
LblFecha.Text = Now.ToString("dd/MM/yyyy")
LblFecha.Text = NowADS().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")
LblFecha.Text = NowADS().ToString("dd/MM/yyyy")
GuardaLog($"Se ejecuto el comando correctamente vía SMS Fecha. ")
End If
End Select
@@ -64,7 +64,7 @@ Partial Class PortalGPS_ServiciosGPS
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)
strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, NowADS().ToShortDateString, NowADS().ToShortTimeString)
Try
ArchivoW = New StreamWriter(String.Format("{0}\log\LogCanBus.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch ex As Exception