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

cambios de extensiones .SUM de double a decimal

Browse Source
This commit is contained in:
rrene
2023-11-12 21:21:50 -07:00
parent 7ab88313cb
commit 053512112c
57 changed files with 747 additions and 811 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
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: {NowADS().ToString("dd/MM/yyyy HH:mm:ss")}")
GuardaLog($"Empecé Task. Fecha: {ClsPaginas.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: {NowADS().ToString("dd/MM/yyyy HH:mm:ss")}")
GuardaLog($"Terminé Task, se reportaron: {ObjTsoft.DtResultados.Rows.Count} registros. Fecha: {ClsPaginas.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 = NowADS().AddMinutes(120)
info.FechaRecepcion = ClsPaginas.NowADS().AddMinutes(120)
info.Username = row("Usuario").ToString
info.Password = row("PWD").ToString
Dim Protocol As New WSPenske.Protocolo
@@ -97,7 +97,7 @@ Partial Class PortalGPS_Penske
Dim strLineaTMP As String
' 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)
strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, ClsPaginas.NowADS().ToShortDateString, ClsPaginas.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 = NowADS().ToString("dd/MM/yyyy")
LblFecha.Text = ClsPaginas.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 = NowADS().ToString("dd/MM/yyyy")
LblFecha.Text = ClsPaginas.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, NowADS().ToShortDateString, NowADS().ToShortTimeString)
strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString)
Try
ArchivoW = New StreamWriter(String.Format("{0}\log\LogCanBus.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch ex As Exception