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

-fluctuacion

Browse Source
This commit is contained in:
Rene Molina
2020-01-20 10:14:32 -07:00
parent bb14449678 a9918251a3
commit 34beed42f3
10 changed files with 571 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsContabilidad.vb
View File

@@ -4653,7 +4653,11 @@ Public Class ClsContabilidad
Retorno = SqlAdapter.SelectCommand.Parameters("@CveCuenta").Value.ToString.ToEntero Retorno = SqlAdapter.SelectCommand.Parameters("@CveCuenta").Value.ToString.ToEntero
'Retorno = If(Data IsNot Nothing AndAlso Data.Rows.Count > 0, Data.Rows(0)("CveCuenta").ToString.ToEntero, 0) 'Retorno = If(Data IsNot Nothing AndAlso Data.Rows.Count > 0, Data.Rows(0)("CveCuenta").ToString.ToEntero, 0)
Catch Ex1 As SqlException Catch Ex1 As SqlException
Me.OnError("Ocurrió un error al Guardar la cuenta.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) If Ex1.Message.Contains("IND_Conta_Cuentas_Codigo_CveEmpresa") Then
Me.OnError("No se puede registrar una cuenta ya existente", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
Else
Me.OnError("Ocurrió un error al Guardar la cuenta.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception Catch ex As Exception
Me.OnError("Ocurrió un error al Guardar la cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Me.OnError("Ocurrió un error al Guardar la cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try

212
App_Code/ClsGPS.vb
View File

@@ -8,9 +8,9 @@ Imports System.IO
Imports Newtonsoft.Json Imports Newtonsoft.Json
Public Class ClsGPS Public Class ClsGPS
Implements IDisposable Implements IDisposable
#Region "Campos" #Region "Campos"
'SQL 'SQL
Private Econ As OleDb.OleDbConnection Private Econ As OleDb.OleDbConnection
Private SqlConexion As SqlConnection Private SqlConexion As SqlConnection
Private SqlAdapter As SqlDataAdapter Private SqlAdapter As SqlDataAdapter
@@ -45,9 +45,9 @@ Public Class ClsGPS
Public Property EstaDentro As Boolean Public Property EstaDentro As Boolean
Public Property CvePuntoDeInteresGrupo As Integer Public Property CvePuntoDeInteresGrupo As Integer
Public Property CveGeoReferencia As Integer Public Property CveGeoReferencia As Integer
Public Property MensajeError As String Public Property MensajeError As String
#End Region #End Region
Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
If TransaccionCompartida Is Nothing Then If TransaccionCompartida Is Nothing Then
@@ -74,9 +74,9 @@ Public Class ClsGPS
End With End With
If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
Data = New DataTable Data = New DataTable
End Sub End Sub
#Region "Conexiones" #Region "Conexiones"
Private Sub ConexionAdd() Private Sub ConexionAdd()
If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
Try Try
@@ -109,7 +109,7 @@ Public Class ClsGPS
CveConexion = 0 CveConexion = 0
End If End If
End Sub End Sub
#End Region #End Region
Public Function IniciaTransacSQL() As SqlTransaction Public Function IniciaTransacSQL() As SqlTransaction
If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
@@ -120,8 +120,40 @@ Public Class ClsGPS
End Sub End Sub
Public Sub Commit() Public Sub Commit()
SqlTransacc.Commit() SqlTransacc.Commit()
End Sub End Sub
#Region "Arrastre"
Public Function GPS_ArrastreGET(CveDispositivo As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_GPS_ArrastreGET")
With SqlAdapter.SelectCommand.Parameters
addParameters("@CveDispositivo", SqlDbType.Int, CveDispositivo)
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los datos de Arrastre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function GPS_ArrastreActivarDesactivar(CveDispositivo As Integer, ArrastreActivo As Boolean) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_GPS_ArrastreActivarDesactivar")
With SqlAdapter.SelectCommand.Parameters
addParameters("@CveDispositivo", SqlDbType.Int, CveDispositivo)
addParameters("@ArrastreActivo", SqlDbType.Bit, ArrastreActivo)
End With
Try
Dataset = New DataSet()
SqlAdapter.Fill(Dataset)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al activar o desactivar la alerta de Arrastre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
Public Function GetTemperatura(CveDispositivo As Integer, CveSensor As Integer, strFechaInicio As String, strFechaFin As String, CveUsuario As Integer) As Boolean Public Function GetTemperatura(CveDispositivo As Integer, CveSensor As Integer, strFechaInicio As String, strFechaFin As String, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_GPS_TramaData") DataAdapter("PA_GPS_TramaData")
@@ -170,8 +202,8 @@ Public Class ClsGPS
OnError("Ocurrió un error al obtener las zonas horarias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener las zonas horarias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#Region "FacturasSims" #Region "FacturasSims"
Public Function GetFacturasSims(CveUsuario As Integer, CveEmpresa As Integer, Periodo As Integer) As Boolean Public Function GetFacturasSims(CveUsuario As Integer, CveEmpresa As Integer, Periodo As Integer) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
@@ -258,9 +290,9 @@ Public Class ClsGPS
addParameters("@cveGpsFacturaSim", SqlDbType.Int, cveGpsFacturaSim) addParameters("@cveGpsFacturaSim", SqlDbType.Int, cveGpsFacturaSim)
retorno = RunQuery("Ocurrió un error al eliminar el FacturasSims.") retorno = RunQuery("Ocurrió un error al eliminar el FacturasSims.")
Return retorno Return retorno
End Function End Function
#End Region #End Region
#Region "M O D E L O S" #Region "M O D E L O S"
Public Function AddMarca(Marca As String, Estatus As Boolean, CveUsuario As Integer) As Boolean Public Function AddMarca(Marca As String, Estatus As Boolean, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -456,13 +488,13 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Rastreo" #Region "Rastreo"
Public Function CoordenadasGet(id As Integer, Nombre As String) As Boolean Public Function CoordenadasGet(id As Integer, Nombre As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Coords_Get") DataAdapter("PA_Coords_Get")
@@ -1565,11 +1597,11 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Puntos de interes" #Region "Puntos de interes"
Public Function PuntoDeInteresAdd(PuntoDeInteres As String, CveCliente As Integer, GEOM As String, Estatus As Boolean, Descripcion As String, CvePuntoDeInteresGrupo As Integer) As Boolean Public Function PuntoDeInteresAdd(PuntoDeInteres As String, CveCliente As Integer, GEOM As String, Estatus As Boolean, Descripcion As String, CvePuntoDeInteresGrupo As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -1736,12 +1768,12 @@ Public Class ClsGPS
OnError("Ocurrió un error al obtener el reporte de los Puntos de Interés.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener el reporte de los Puntos de Interés.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "CONDUCTORES" #Region "CONDUCTORES"
Public Function ConductorAdd(Conductor As String, Estatus As Boolean, CveUsuario As Integer, SerieLicencia As String, FechaNacimiento As Date, VencimientoLicencia As Date, Optional CveCliente As Integer = -1) As Boolean Public Function ConductorAdd(Conductor As String, Estatus As Boolean, CveUsuario As Integer, SerieLicencia As String, FechaNacimiento As Date, VencimientoLicencia As Date, Optional CveCliente As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -1887,9 +1919,9 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "CONTROLADORES GRAFICOS" #Region "CONTROLADORES GRAFICOS"
Public Function ControladorGraficoAdd(ControladorGrafico As String, UM As String) As Boolean Public Function ControladorGraficoAdd(ControladorGrafico As String, UM As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -1957,10 +1989,10 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "V E H I C U L O S" #Region "V E H I C U L O S"
Public Function VehiculoAdd(Modelo As String, Color As String, Serie As String, Nombre As String, NoEconomico As String, CveUsuario As Integer, CveCliente As Integer) As Boolean Public Function VehiculoAdd(Modelo As String, Color As String, Serie As String, Nombre As String, NoEconomico As String, CveUsuario As Integer, CveCliente As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2038,9 +2070,9 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "TIPO COMUNICACION" #Region "TIPO COMUNICACION"
Public Function TipoComunicacionAdd(TipoComunicacion As String, Estatus As Boolean, CveUsuario As Integer) As Boolean Public Function TipoComunicacionAdd(TipoComunicacion As String, Estatus As Boolean, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2113,10 +2145,10 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "R U T A S" #Region "R U T A S"
Public Function AddRuta(Ruta As String, CveCliente As Integer) As Boolean Public Function AddRuta(Ruta As String, CveCliente As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2179,9 +2211,9 @@ Public Class ClsGPS
OnError("Ocurrió un error al eliminar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al eliminar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
Public Function GetResGuardantesSim(CveEmpresa As Integer) As Boolean Public Function GetResGuardantesSim(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_GPS_ResGuardantesSimnGet") DataAdapter("PA_GPS_ResGuardantesSimnGet")
@@ -2195,9 +2227,9 @@ Public Class ClsGPS
OnError("Ocurrió un error al obtener el proveedor de comunicacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener el proveedor de comunicacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#Region "Proveedor Comunicacion" #Region "Proveedor Comunicacion"
Public Function ProveedorComunicacion_Add(ProveedorComunicacion As String, Estatus As Byte, CveUsuario As Integer, CveTipoComunicacion As Integer, Public Function ProveedorComunicacion_Add(ProveedorComunicacion As String, Estatus As Byte, CveUsuario As Integer, CveTipoComunicacion As Integer,
APNIP As String, APNUSER As String, APNPASS As String, correo As String) As Boolean APNIP As String, APNUSER As String, APNPASS As String, correo As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2279,12 +2311,12 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Proveedor Comunicacion Cuentas" #Region "Proveedor Comunicacion Cuentas"
Public Function ProveedoresComunicacionCuentasAdd(CveProveedorComunicacion As Integer, CvePlanDato As Integer, CveUsuario As Integer, IP As String, SSID As String, NumeroTelefono As String, Estatus As Integer, CveEmpresa As Integer, Imei As String, CveUsuarioResguardante As Integer, Optional Activacion As Integer = -1) As Boolean Public Function ProveedoresComunicacionCuentasAdd(CveProveedorComunicacion As Integer, CvePlanDato As Integer, CveUsuario As Integer, IP As String, SSID As String, NumeroTelefono As String, Estatus As Integer, CveEmpresa As Integer, Imei As String, CveUsuarioResguardante As Integer, Optional Activacion As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_GPS_ProveedoresComunicacionCuentasAdd") DataAdapter("PA_GPS_ProveedoresComunicacionCuentasAdd")
@@ -2423,10 +2455,10 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "E V E N T O S" #Region "E V E N T O S"
Public Function EventoTipoAdd(EventoTipo As String, Estatus As Boolean, CveUsuario As Integer) As Boolean Public Function EventoTipoAdd(EventoTipo As String, Estatus As Boolean, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2901,15 +2933,15 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Plan de Datos" #Region "Plan de Datos"
Public Function PlanesDatosAdd(CveProveedorComunicacion As Integer, CveUsuario As Integer, PlanDato As String, Importe As Decimal, Estatus As Integer, Capacidad As Integer, Public Function PlanesDatosAdd(CveProveedorComunicacion As Integer, CveUsuario As Integer, PlanDato As String, Importe As Decimal, Estatus As Integer, Capacidad As Integer,
TipoPlan As String, CostoAdicional As String, TechoFacturacion As String, CveEmpresa As Integer) As Boolean TipoPlan As String, CostoAdicional As String, TechoFacturacion As String, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2998,10 +3030,10 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Dispositivos" #Region "Dispositivos"
Public Function DispositivoAdd(TipoDispositivo As Integer, NumTelefono As String, CveModelo As Integer, CveProveedorComunicacionCuenta As Integer, CveCliente As Integer, IMEI As String, Serie As String, CveEstatus As Integer, SerieVehiculo As String, ColorVehiculo As String, Public Function DispositivoAdd(TipoDispositivo As Integer, NumTelefono As String, CveModelo As Integer, CveProveedorComunicacionCuenta As Integer, CveCliente As Integer, IMEI As String, Serie As String, CveEstatus As Integer, SerieVehiculo As String, ColorVehiculo As String,
NombreVehiculo As String, NoEconomico As String, devID As String, devPort As Integer, ModeloVehiculo As String, AñoVehiculo As String, ClaseVehiculo As String, PlacasVehiculo As String, LimiteVelocidad As Boolean, VelocidadMaxima As Double, NombreVehiculo As String, NoEconomico As String, devID As String, devPort As Integer, ModeloVehiculo As String, AñoVehiculo As String, ClaseVehiculo As String, PlacasVehiculo As String, LimiteVelocidad As Boolean, VelocidadMaxima As Double,
@@ -3328,10 +3360,10 @@ Public Class ClsGPS
OnError("Ocurrió un error al actualizar los dispositivos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al actualizar los dispositivos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "REPORTES" #Region "REPORTES"
Public Function GetReportes() As Boolean Public Function GetReportes() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -3645,9 +3677,9 @@ Public Class ClsGPS
OnError("Ocurrió un obtener el reporte de eventos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un obtener el reporte de eventos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "I N D I C A D O R E S" #Region "I N D I C A D O R E S"
Public Function IndicadoresGet(CveCliente As Integer, FechaInicio As DateTime, FechaFin As DateTime) As Boolean Public Function IndicadoresGet(CveCliente As Integer, FechaInicio As DateTime, FechaFin As DateTime) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -3664,9 +3696,9 @@ Public Class ClsGPS
OnError("Ocurrió un obtener el reporte de indicadores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un obtener el reporte de indicadores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "DashBoard" #Region "DashBoard"
Public Function GetDashboard(CveCliente As Integer, FechaI As DateTime, FechaF As DateTime, Optional Top As Integer = 5) As String Public Function GetDashboard(CveCliente As Integer, FechaI As DateTime, FechaF As DateTime, Optional Top As Integer = 5) As String
Dim Retorno As String = "[]" Dim Retorno As String = "[]"
@@ -3917,10 +3949,10 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Controles" #Region "Controles"
Public Function GetCombustible(CveDispositivo As Integer, CveControl As Integer) As Boolean Public Function GetCombustible(CveDispositivo As Integer, CveControl As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -4275,9 +4307,9 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "A P L I C A C I O N M O V I L " #Region "A P L I C A C I O N M O V I L "
Public Function AddTrama(DevID As String, Trama As String, Lat As Double, Lng As Double, FechaTrama As DateTime, Optional Speed As Double = 0, Optional Modelo As String = "App") As Boolean Public Function AddTrama(DevID As String, Trama As String, Lat As Double, Lng As Double, FechaTrama As DateTime, Optional Speed As Double = 0, Optional Modelo As String = "App") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -4411,9 +4443,9 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "G R U P O S" #Region "G R U P O S"
Public Function GruposAdd(Nombre As String, CveCliente As Integer) As Integer Public Function GruposAdd(Nombre As String, CveCliente As Integer) As Integer
@@ -4483,10 +4515,10 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "G R U P O S - D E T A L L E" #Region "G R U P O S - D E T A L L E"
Public Function GruposDetallesAdd(CveDispositivoGrupo As Integer, CveDispositivo As Integer) As Boolean Public Function GruposDetallesAdd(CveDispositivoGrupo As Integer, CveDispositivo As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -4535,9 +4567,9 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "A L T A S - B A J A S" #Region "A L T A S - B A J A S"
Public Function AddAltaBajas(CveDispositivo As Integer, Fecha As DateTime, CveUsuario As Integer, Tipo As Integer, CveCliente As Integer) As Boolean Public Function AddAltaBajas(CveDispositivo As Integer, Fecha As DateTime, CveUsuario As Integer, Tipo As Integer, CveCliente As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -4578,9 +4610,9 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "P A S A J E R O S" #Region "P A S A J E R O S"
Public Function GetCortesChofer(CveCorteChofer As Integer, CveDispositivo As Integer, CveUsuarioIngreso As Integer) As Boolean Public Function GetCortesChofer(CveCorteChofer As Integer, CveDispositivo As Integer, CveUsuarioIngreso As Integer) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
@@ -4714,9 +4746,9 @@ Public Class ClsGPS
OnError("Ocurrió un error al eliminar los costos del kilometro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al eliminar los costos del kilometro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return retorno Return retorno
End Function End Function
#End Region #End Region
#Region "T R A Y E C T O S" #Region "T R A Y E C T O S"
Public Function AddTrayecto(Trayecto As String, Fecha As DateTime, Folio As String, CveDispositivo As Integer, CveCliente As Integer) As Integer Public Function AddTrayecto(Trayecto As String, Fecha As DateTime, Folio As String, CveDispositivo As Integer, CveCliente As Integer) As Integer
Dim retorno As Integer = 0 Dim retorno As Integer = 0
@@ -5266,10 +5298,10 @@ Public Class ClsGPS
OnError("Ocurrió un error al obtener la configuracion de FreightVerify.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener la configuracion de FreightVerify.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return retorno Return retorno
End Function End Function
#End Region #End Region
#Region "F U N C I O N E S" #Region "F U N C I O N E S"
Public Function ReaderToJson(ByVal rdr As SqlDataReader) As String Public Function ReaderToJson(ByVal rdr As SqlDataReader) As String
Dim sb As StringBuilder = New StringBuilder() Dim sb As StringBuilder = New StringBuilder()
@@ -5323,10 +5355,10 @@ Public Class ClsGPS
jsonWriter.WriteEndArray() jsonWriter.WriteEndArray()
End Using End Using
Return sw.ToString() Return sw.ToString()
End Function End Function
#End Region #End Region
Protected Sub addParameters(name As String, tipo As SqlDbType, valor As Object) Protected Sub addParameters(name As String, tipo As SqlDbType, valor As Object)
If SqlConexion.State = ConnectionState.Open Then If SqlConexion.State = ConnectionState.Open Then
SqlAdapter.SelectCommand.Parameters.Add(name, tipo).Value = valor SqlAdapter.SelectCommand.Parameters.Add(name, tipo).Value = valor
@@ -5372,9 +5404,9 @@ Public Class ClsGPS
addParameters("@FechaFin", SqlDbType.DateTime, fechaFin) addParameters("@FechaFin", SqlDbType.DateTime, fechaFin)
retorno = RunQuery("Ocurrió un error al obtener el CombustibleResumen.") retorno = RunQuery("Ocurrió un error al obtener el CombustibleResumen.")
Return retorno Return retorno
End Function End Function
#Region " IDisposable Support " #Region " IDisposable Support "
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then If Not disposedValue Then
If disposing Then If disposing Then
@@ -5405,6 +5437,6 @@ Public Class ClsGPS
ConexionClose() ConexionClose()
Dispose(True) Dispose(True)
GC.SuppressFinalize(Me) GC.SuppressFinalize(Me)
End Sub End Sub
#End Region #End Region
End Class End Class

2
App_Code/ClsPaginas.vb
View File

@@ -3482,6 +3482,8 @@ Public Class ClsPaginas
PaginaDict = New System.Collections.Hashtable PaginaDict = New System.Collections.Hashtable
PaginaDict.Add("/Inicio.aspx".ToUpper(), -1) PaginaDict.Add("/Inicio.aspx".ToUpper(), -1)
PaginaDict.Add("/reporteador.aspx".ToUpper(), -1)
PaginaDict.Add("/GPS/RepArrastre.aspx".ToUpper(), -1)
PaginaDict.Add("/Ventas/RepConciliacionEmitidosSat.aspx".ToUpper(), -1) PaginaDict.Add("/Ventas/RepConciliacionEmitidosSat.aspx".ToUpper(), -1)
PaginaDict.Add("/Ventas/RepConciliacionSat.aspx".ToUpper(), 716) PaginaDict.Add("/Ventas/RepConciliacionSat.aspx".ToUpper(), 716)
PaginaDict.Add("/Ventas/SolicitudesSAT.aspx".ToUpper(), 717) PaginaDict.Add("/Ventas/SolicitudesSAT.aspx".ToUpper(), 717)

217
GPS/RepArrastre.aspx Normal file
View File

@@ -0,0 +1,217 @@
<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepArrastre.aspx.cs" Inherits="GPS_RepArrastre" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
#map {
height: 450px;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Reporte de Arrastre
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li>
<asp:LinkButton ID="LnkApagarvehiculo" runat="server">Apagar vehiculo</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" style="">
<div class="portlet-title portlet-filterT smalltitle" style="">
<div class="tools">
<asp:Button ID="BtnConsultar" OnClick="BtnConsultar_Click" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row">
<div class="col-md-1 truncate">
Vehiculo:
</div>
<div class="col-md-3 ">
<asp:DropDownList ID="DdlDispositivo" runat="server" DataTextField="NombreVehiculo" DataValueField="CveDispositivo" CssClass="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
<div class="portlet-body" style="display: none;">
<asp:HiddenField ID="HdfVGrafica" ClientIDMode="Static" runat="server" />
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpInfo" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="portlet-title">
</div>
<div class="portlet light smmallpadding traspasorow bordered" style="">
<div class="portlet-title">
<div class="caption font-red">
<i class="fa fa-clock-o font-red"></i>
<span class="caption-subject bold uppercase">datos vehiculo</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div>
</div>
<div id="C_bodyreportes" class="portlet-body rowpadding">
<asp:TextBox ID="TxtFunciones" CssClass="hidden EvalRun" runat="server"></asp:TextBox>
<div class="row">
<div class="col-md-4">
<label style="font-weight: bold;">¿Activar funcion de arrastre?</label>
</div>
<div class="col-md-4">
<asp:CheckBox ID="chkActivarArrastre" CssClass="chksino " AutoPostBack="true" OnCheckedChanged="chkActivarArrastre_CheckedChanged" Text=" " runat="server" />
</div>
<div class="col-md-4">
</div>
</div>
<div class="row">
<div class="col-md-4">
<label style="font-weight: bold;">Velocidad</label>
</div>
<div class="col-md-4">
<asp:Label ID="LblVelocidad" runat="server" Text="Sin Información"></asp:Label>
</div>
<div class="col-md-4">
</div>
</div>
<div class="row">
<div class="col-md-4">
<label style="font-weight: bold;">¿Encendido / Apagado?</label>
</div>
<div class="col-md-4">
<asp:Label ID="LblEncApa" runat="server" Text="Sin Información"></asp:Label>
</div>
<div class="col-md-4">
</div>
</div>
<div class="row">
<div class="col-md-4">
<label style="font-weight: bold;">Fecha ultima Conexion</label>
</div>
<div class="col-md-4">
<asp:Label ID="LblFechaInfo" runat="server" Text="Sin Información"></asp:Label>
</div>
<div class="col-md-4">
</div>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div id="map">
</div>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places"></script>
<script>
var image = '/Imagenes/rsz_11rsz_car.png';
var geocoder;
var map;
var markerArrastre;
var markerActual;
var directionsService;
var directionsDisplay;
var polylinesRoute = [];
var directionsDisplayArray = [];
var retorno;
function setCenter(myLatLn) {
map.setCenter(myLatLn);
}
function addmarkerarrastre(myLatLn) {//myLatLn = { lat: -25.363, lng: 131.044 }
if (markerArrastre) {
markerArrastre.setMap(null);
}
markerArrastre = new google.maps.Marker({
position: myLatLn,
map: map,
title: 'Estacionado'
});
}
function addmarkerActual(myLatLn,Encencido) {//myLatLn = { lat: -25.363, lng: 131.044 } ,addmarkerActual({ lat: -25.363, lng: 131.044 })
var imagen = Encencido ==1? '/Imagenes/rsz_11rsz_cargreen.png' :'/Imagenes/rsz_11rsz_car.png';
var markerIcon = { url: imagen, labelOrigin: new google.maps.Point(26, 43) };
if (markerActual) {
markerActual.setMap(null);
}
markerActual = new google.maps.Marker({
position: myLatLn,
map: map,
title: 'Posición Actual',
icon: markerIcon
});
}
function initMap() {
map = new google.maps.Map(document.getElementById('map'), {
center: { lat: 29.0628417, lng: -110.9872448 },
zoom: 13
});
//var ShowDiv1 = document.createElement('div');
//var ShowDivControl = new ShowDiv(ShowDiv1, map);
//ShowDiv1.index = 1;
//ShowDiv1.id = "showdiv1"
//map.controls[google.maps.ControlPosition.BOTTOM_CENTER].push(ShowDiv1);
//var upControlDiv = document.createElement('div');
//var upControl = new ControlLabels(upControlDiv, map);
//upControlDiv.index = 1;
//map.controls[google.maps.ControlPosition.TOP_LEFT].push(upControlDiv);
//var upGeoDiv = document.createElement('div');
//var upGeo = new ControlGeocercas(upGeoDiv, map);
//map.controls[google.maps.ControlPosition.TOP_LEFT].push(upGeoDiv);
geocoder = new google.maps.Geocoder();
//google.maps.event.addListener(map, "click", function (event) {
// closeLastOpenedInfoWindow();
//});
directionsService = new google.maps.DirectionsService;
directionsDisplay = new google.maps.DirectionsRenderer;
directionsDisplay.setOptions({ suppressMarkers: true });
directionsDisplay.setMap(map);
}
function ADSBegin() {
eval($('.EvalRun').val());
}
initMap();
//$(document).ready(function () {
// initMap();
//});
</script>
</asp:Content>

98
GPS/RepArrastre.aspx.cs Normal file
View File

@@ -0,0 +1,98 @@
using System;
using System.Collections.Generic;
using System.Data;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Extensiones;
public partial class GPS_RepArrastre : ClsPaginas
{
public int CveDispositivo
{
get
{
if (ViewState["CveDispositivo"] != null)
{
return ViewState["CveDispositivo"].ToString().ToEntero();
}
else
{
return 0;
}
}
set { ViewState["CveDispositivo"] = value; }
}
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
// fijo borrar
DdlDispositivo.DataSource = get_GlobalDTDispositivosUsuarios(263965, 1928) ;
//DdlDispositivo.DataSource = get_GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario) ;
DdlDispositivo.DataBind();
getArrastre();
}
}
private void getArrastre()
{
CveDispositivo = DdlDispositivo.SelectedValue.ToEntero();
using (ClsGPS objgps = new ClsGPS())
{
if (objgps.GPS_ArrastreGET(CveDispositivo) && objgps.DtResultados.Rows.Count > 0)
{
DataRow dtrow = objgps.DtResultados.Rows[0];
upInfo(dtrow);
}
}
}
public void upInfo(DataRow dtrow)
{
if ( dtrow != null)
{
LblVelocidad.Text = $"{dtrow["Speed"]:N0}";
LblEncApa.Text = $"{dtrow["EncendidoText"]}";
LblFechaInfo.Text = $"{dtrow["FechaTrama"]:dd/MM/yyyy}";
//LblVelocidad.Text = $"{dtrow[""]}";
//LblVelocidad.Text = $"{dtrow[""]}";addmarkerActual({ lat: -25.363, lng: 131.044 })
string pVehiculo = string.Format("{{ lat: {0}, lng: {1}}}", dtrow["Lat"], dtrow["Lng"]);
string parrastre = string.Format("{{ lat: {0}, lng: {1}}}", dtrow["LatArrastre"], dtrow["LngArrastre"]);
TxtFunciones.Text = string.Format("addmarkerActual({0},{3}){1};setCenter({2})", pVehiculo, (dtrow["ArrastreActivo"].ToString() == "1" ? $" ;addmarkerarrastre({parrastre})" : ";addmarkerarrastre()"), (dtrow["ArrastreActivo"].ToString() == "1" ? parrastre : pVehiculo), dtrow["Encendido"].ToString().ToEntero());
UpInfo.Update();
}
}
protected void BtnConsultar_Click(object sender, EventArgs e)
{
getArrastre();
}
protected void chkActivarArrastre_CheckedChanged(object sender, EventArgs e)
{
using (ClsGPS objgps = new ClsGPS())
{
if (objgps.GPS_ArrastreActivarDesactivar(CveDispositivo, chkActivarArrastre.Checked)){
if (objgps.GPS_ArrastreGET(CveDispositivo) && objgps.DtResultados.Rows.Count > 0)
{
DataRow dtrow = objgps.DtResultados.Rows[0];
upInfo(dtrow);
}
if (chkActivarArrastre.Checked)
{
Alert("se ha activado la funcion de arrastre");
}
else
{
Alert("se ha desactivado la funcion de arrastre");
}
}
}
}
}

BIN
Imagenes/rsz_11rsz_cargreen.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.3 KiB

After

Width:  |  Height:  |  Size: 12 KiB

10
Inicio.aspx.vb
View File

@@ -54,8 +54,9 @@ Partial Class Inicio
End Function End Function
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
If UsuarioActual.CveUsuario = 100 Then 'Reporte de ventas sin registrar sig
If UsuarioActual.TienePermisoProceso(287) Then
Using objgral As New ClsGenerales Using objgral As New ClsGenerales
objgral.RepConciliacionSatDetalleGET(UsuarioActual.CveEmpresa, "I", "", "", 10) objgral.RepConciliacionSatDetalleGET(UsuarioActual.CveEmpresa, "I", "", "", 10)
@@ -66,8 +67,9 @@ Partial Class Inicio
End Using End Using
GvFoliosSAT.DataBind() GvFoliosSAT.DataBind()
End If End If
If UsuarioActual.CveUsuario = 100 Then 'Reporte de ventas pendientes de cancelar
If UsuarioActual.TienePermisoProceso(288) Then
Using objventas As New ClsVentas Using objventas As New ClsVentas
If (GetFacturasCanceladasPendientesWS(objventas, UsuarioActual.Empresa.RFC, UsuarioActual.CveEmpresa, False)) AndAlso objventas.DtResultados.Rows.Count > 0 Then If (GetFacturasCanceladasPendientesWS(objventas, UsuarioActual.Empresa.RFC, UsuarioActual.CveEmpresa, False)) AndAlso objventas.DtResultados.Rows.Count > 0 Then
RegistraScript("$('#ModalMitotereCancelaPendiente').modal();", "mitoterosatCanceladasPendientesWS") RegistraScript("$('#ModalMitotereCancelaPendiente').modal();", "mitoterosatCanceladasPendientesWS")

22
Ventas/RepConciliacionSat.aspx.cs
View File

@@ -30,28 +30,6 @@ public partial class Ventas_RepConciliacionSat : ClsPaginas
{ {
if (!IsPostBack) if (!IsPostBack)
{ {
//CrystalDecisions.CrystalReports.Engine.ReportDocument cryRpt = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
//cryRpt.Load(String.Format("C:\\Proyectos\\wwwSIG\\Empresas\\Grales\\Formatos\\CatPS.rpt", UsuarioActual.Empresa.Ruta));
//System.Data.DataTable DtDatos = new System.Data.DataTable();
//using (ClsProductosServicios ObjPS = new ClsProductosServicios())
//{
// if (ObjPS.GetPSLite(-1, 119, "-1", "-1", "02541", -1, -1, -1, -1))
// {
// DtDatos = ObjPS.DtResultados;
// }
//}
//cryRpt.SetDataSource(DtDatos);
//CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfo coninfo = new CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfo();
//cryRpt.
////cryRpt.SetDatabaseLogon("JCaudillo", "JCau127*953");// 293357
//reports.ReportSource = cryRpt;
//reports.RefreshReport();
//// reports.Refresh();
DateTime fecha; DateTime fecha;
DateTime fechaInicio = DateTime.Now; DateTime fechaInicio = DateTime.Now;
DateTime fechaFin = DateTime.Now; DateTime fechaFin = DateTime.Now;

51
reporteador.aspx Normal file
View File

@@ -0,0 +1,51 @@
<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="reporteador.aspx.cs" Inherits="reporteador" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<div class="row">
<div class="col-sm-6"></div>
<div class="col-sm-6 text-right">
<asp:LinkButton ID="LnkImprime" CssClass="btn btn-primary " OnClick="LnkImprime_Click" runat="server" >Imprime reporte</asp:LinkButton>
</div>
</div>
<asp:UpdatePanel ID="upDatosRepC" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GVParametros" runat="server" GridLines="None" CssClass=" Widthall GVParametros" AutoGenerateColumns="False"
DataKeyNames="Name,EnableNullValue" OnRowDataBound="GVParametros_RowDataBound">
<Columns>
<asp:TemplateField HeaderText="Campo">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Name")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Valor">
<ItemTemplate>
<asp:TextBox ID="TxtValor" CssClass="form-control" runat="server" ></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="No Enviar">
<ItemTemplate>
<asp:CheckBox ID="ChkIsNull" runat="server" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
<%--<CR:CrystalReportViewer ID="reports" runat="server" AutoDataBind="true"></CR:CrystalReportViewer>--%>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

70
reporteador.aspx.cs Normal file
View File

@@ -0,0 +1,70 @@
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Extensiones;
public partial class reporteador : ClsPaginas
{
public string rutaArchivo
{
get
{
return ViewState["rutaArchivo"].ToString();
}
set { ViewState["rutaArchivo"] = value; }
}
protected void Page_PreInit(object sender, EventArgs e)
{
}
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
rutaArchivo = Server.MapPath("~/Empresas/Grales/Formatos/CatPS.rpt");
CrystalDecisions.CrystalReports.Engine.ReportDocument cryRpt = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
cryRpt.Load(rutaArchivo);
GVParametros.DataSource = cryRpt.DataDefinition.ParameterFields;
GVParametros.DataBind();
}
}
protected void GVParametros_RowDataBound(object sender, GridViewRowEventArgs e)
{
if (e.Row.RowType == DataControlRowType.DataRow)
{
CrystalDecisions.Shared.ParameterValues defaultValues = ((CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition)e.Row.DataItem).DefaultValues;
if (defaultValues.Count > 0)
{
e.Row.FCTextBox("TxtValor").Text = defaultValues[0].Description;
}
//CrystalDecisions.Shared.ParameterValues. DefaultValues
}
}
protected void LnkImprime_Click(object sender, EventArgs e)
{
string Formato = "PDF";
List<CrystalParametro> lista = new List<CrystalParametro>();
CrystalDecisions.CrystalReports.Engine.ReportDocument cryRpt = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
cryRpt.Load(rutaArchivo);
foreach (GridViewRow gvRow in GVParametros.Rows)
{
if (gvRow.RowType == DataControlRowType.DataRow)
{
lista.Add(new CrystalParametro(gvRow.DataKey("Name"), gvRow.FCTextBox("TxtValor").Text));
}
}
ImprimirbytesPDF(ImprimirPDFCrystal(rutaArchivo, (new System.Data.DataTable()), lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato);
}
}