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

option explicit

Browse Source
This commit is contained in:
rrene
2023-11-24 12:01:29 -07:00
parent 99e63b5a8d
commit 51536ae23a
1 changed files with 46 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

93
AF/AF.aspx.vb
View File

@@ -678,7 +678,7 @@ Partial Class AF_AF
End Sub End Sub
Private Sub CargaDispositivos() Private Sub CargaDispositivos()
DivDispositivo.Visible = False DivDispositivo.Visible = False
Dim AplicaGPSStr = GlobalDTSubTipoActivoFijo(CveEmpresaActual).FiltroPrimeroValor("AplicaGPS", $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue.ToEntero}") Dim AplicaGPSStr As String = GlobalDTSubTipoActivoFijo(CveEmpresaActual).FiltroPrimeroValor("AplicaGPS", $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue.ToEntero}")
Dim AplicaGPS As Boolean = CBool(If(String.IsNullOrEmpty(AplicaGPSStr), "False", AplicaGPSStr)) Dim AplicaGPS As Boolean = CBool(If(String.IsNullOrEmpty(AplicaGPSStr), "False", AplicaGPSStr))
If AplicaGPS Then If AplicaGPS Then
Dim ObjGPS As New ClsGPS Dim ObjGPS As New ClsGPS
@@ -719,7 +719,7 @@ Partial Class AF_AF
DdlGrupo.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlGrupo.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
Private Sub CargaResponsable() Private Sub CargaResponsable()
Dim DtPersonal = GlobalDTRHPersonal(CveEmpresaActual).FiltraParametros("", "NombreCompleto") Dim DtPersonal As DataTable = GlobalDTRHPersonal(CveEmpresaActual).FiltraParametros("", "NombreCompleto")
DdlResponsable.DataSource = DtPersonal DdlResponsable.DataSource = DtPersonal
DdlResponsable.DataBind() DdlResponsable.DataBind()
End Sub End Sub
@@ -1281,20 +1281,20 @@ Partial Class AF_AF
Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad") Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
Dim separado As Char() = ".".ToCharArray Dim separado As Char() = ".".ToCharArray
Dim array() As String = Adjunto.Split(separado) Dim array() As String = Adjunto.Split(separado)
Dim extencion As String = "" Dim extension As String = ""
If array.Length > 0 Then If array.Length > 0 Then
extencion = array(array.Length - 1) extension = array(array.Length - 1)
End If End If
If Adjunto.Trim.Length > 0 Then If Adjunto.Trim.Length > 0 Then
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Licencias/" & Adjunto & "." & extencion Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Licencias/" & Adjunto & "." & extension
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "AF/Licencias/" & Adjunto & "." & extencion Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "AF/Licencias/" & Adjunto & "." & extension
If File.Exists(linkDescargaArchivo) Then If File.Exists(linkDescargaArchivo) Then
ImgDownLoad.Visible = True ImgDownLoad.Visible = True
If extencion.Length > 0 Then If extension.Length > 0 Then
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Licencia" & "." & extencion) ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Licencia" & "." & extension)
Else Else
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Licencia") ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Licencia")
End If End If
@@ -1308,20 +1308,20 @@ Partial Class AF_AF
Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad") Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
Dim separado As Char() = ".".ToCharArray Dim separado As Char() = ".".ToCharArray
Dim array() As String = Adjunto.Split(separado) Dim array() As String = Adjunto.Split(separado)
Dim extencion As String = "" Dim extension As String = ""
If array.Length > 0 Then If array.Length > 0 Then
extencion = array(array.Length - 1) extension = array(array.Length - 1)
End If End If
If Adjunto.Trim.Length > 0 Then If Adjunto.Trim.Length > 0 Then
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Polizas/" & Adjunto & "." & extencion Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Polizas/" & Adjunto & "." & extension
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "AF/Polizas/" & Adjunto & "." & extencion Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "AF/Polizas/" & Adjunto & "." & extension
If File.Exists(linkDescargaArchivo) Then If File.Exists(linkDescargaArchivo) Then
ImgDownLoad.Visible = True ImgDownLoad.Visible = True
If extencion.Length > 0 Then If extension.Length > 0 Then
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Poliza" & "." & extencion) ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Poliza" & "." & extension)
Else Else
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Poliza") ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Poliza")
End If End If
@@ -1532,7 +1532,7 @@ Partial Class AF_AF
End Sub End Sub
Private Sub BtnAgregarFalla_Click(sender As Object, e As EventArgs) Handles BtnAgregarFalla.Click Private Sub BtnAgregarFalla_Click(sender As Object, e As EventArgs) Handles BtnAgregarFalla.Click
Dim ObjAF As New ClsAF Dim ObjAF As New ClsAF
Dim TieneError = False Dim TieneError As Boolean = False
If HdnModalidadFalla.Value = "A" Then If HdnModalidadFalla.Value = "A" Then
If ObjAF.AddFalla(CveActivoFijo, TxtAsuntoFalla.Text.Trim, TxtDescripcionFalla.Text.Trim, TxtAFMedida.Text.ToEntero, DdlPrioridad.SelectedValue.ToEntero, TxtFechaFalla.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoFallas.SelectedValue.ToEntero, TxtCorreoNotificacion.Text.Trim) Then If ObjAF.AddFalla(CveActivoFijo, TxtAsuntoFalla.Text.Trim, TxtDescripcionFalla.Text.Trim, TxtAFMedida.Text.ToEntero, DdlPrioridad.SelectedValue.ToEntero, TxtFechaFalla.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoFallas.SelectedValue.ToEntero, TxtCorreoNotificacion.Text.Trim) Then
@@ -1561,9 +1561,9 @@ Partial Class AF_AF
End Sub End Sub
Private Sub EnviaCorreoFallas() Private Sub EnviaCorreoFallas()
Try Try
Dim Para = TxtCorreoNotificacion.Text.Trim Dim Para As String = TxtCorreoNotificacion.Text.Trim
Dim Asunto = "Registro de Falla de Activo Fijo" Dim Asunto As String = "Registro de Falla de Activo Fijo"
Dim Body = "" Dim Body As String = ""
Dim strBody As New StringBuilder Dim strBody As New StringBuilder
strBody.Append("Registro de Falla de Activo Fijo") strBody.Append("Registro de Falla de Activo Fijo")
@@ -1720,7 +1720,7 @@ Partial Class AF_AF
End Sub End Sub
Private Sub BtnRegistrarAccidente_Click(sender As Object, e As EventArgs) Handles BtnRegistrarAccidente.Click Private Sub BtnRegistrarAccidente_Click(sender As Object, e As EventArgs) Handles BtnRegistrarAccidente.Click
Dim ObjAF As New ClsAF Dim ObjAF As New ClsAF
Dim TieneError = False Dim TieneError As Boolean = False
If HdnModalidadAccidente.Value = "A" Then If HdnModalidadAccidente.Value = "A" Then
If ObjAF.AddFalla(CveActivoFijo, TxtAsuntoAccidente.Text.Trim, TxtDescripcionAccidente.Text.Trim, TxtAFMedidaAccidente.Text.ToEntero, DdlPrioridadAccidente.SelectedValue.ToEntero, TxtFechaAccidente.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoFallaAccidente.SelectedValue.ToEntero, TxtCorreoNotificacionAccidente.Text.Trim) Then If ObjAF.AddFalla(CveActivoFijo, TxtAsuntoAccidente.Text.Trim, TxtDescripcionAccidente.Text.Trim, TxtAFMedidaAccidente.Text.ToEntero, DdlPrioridadAccidente.SelectedValue.ToEntero, TxtFechaAccidente.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoFallaAccidente.SelectedValue.ToEntero, TxtCorreoNotificacionAccidente.Text.Trim) Then
@@ -1747,9 +1747,9 @@ Partial Class AF_AF
End Sub End Sub
Private Sub EnviaCorreoAccidente() Private Sub EnviaCorreoAccidente()
Try Try
Dim Para = TxtCorreoNotificacion.Text.Trim Dim Para As String = TxtCorreoNotificacion.Text.Trim
Dim Asunto = "Registro de Accidente de Activo Fijo" Dim Asunto As String = "Registro de Accidente de Activo Fijo"
Dim Body = "" Dim Body As String = ""
Dim strBody As New StringBuilder Dim strBody As New StringBuilder
strBody.Append("Registro de Accidente de Activo Fijo") strBody.Append("Registro de Accidente de Activo Fijo")
@@ -1929,7 +1929,7 @@ Partial Class AF_AF
ObjMF.Dispose() ObjMF.Dispose()
End Sub End Sub
Private Sub BtnAgregarActividades_Click(sender As Object, e As EventArgs) Handles BtnAgregarActividades.Click Private Sub BtnAgregarActividades_Click(sender As Object, e As EventArgs) Handles BtnAgregarActividades.Click
Dim TieneError = False Dim TieneError As Boolean = False
If HdnIDActividades.Value.ToEntero > 0 Then If HdnIDActividades.Value.ToEntero > 0 Then
If TxtHorometroInicial.Text.ToEntero < HdnHorometroAnterior.Value.ToEntero Then If TxtHorometroInicial.Text.ToEntero < HdnHorometroAnterior.Value.ToEntero Then
@@ -2473,9 +2473,9 @@ Partial Class AF_AF
If CveActivoFijo <= 0 Then If CveActivoFijo <= 0 Then
'SALIDA DE ALMACEN PARA IMPORTACION 'SALIDA DE ALMACEN PARA IMPORTACION
Dim CveMovimientoSalidaInv = -1 Dim CveMovimientoSalidaInv As Integer = -1
If AFInvCvePS > 0 AndAlso AFInvCveAlmacen > 0 Then If AFInvCvePS > 0 AndAlso AFInvCveAlmacen > 0 Then
Dim CveUMInv = GlobalDTPS(CveEmpresaActual, CvePS:=AFInvCvePS).FiltroPrimeroValor("CveUM").ToEntero Dim CveUMInv As Integer = GlobalDTPS(CveEmpresaActual, CvePS:=AFInvCvePS).FiltroPrimeroValor("CveUM").ToEntero
If CveUMInv > 0 Then If CveUMInv > 0 Then
CveMovimientoSalidaInv = ObjInventarios.AddMovimiento(AFInvCveAlmacen, 3, 1, NowADS(), -1, UsuarioActual.CveUsuario, CveEmpresaActual, -1, -1, -1, -1, Observaciones:=$"Salida de inventario para Activo Fijo | {TxtCodigo.Text.Trim}", Modulo:="AF1") CveMovimientoSalidaInv = ObjInventarios.AddMovimiento(AFInvCveAlmacen, 3, 1, NowADS(), -1, UsuarioActual.CveUsuario, CveEmpresaActual, -1, -1, -1, -1, Observaciones:=$"Salida de inventario para Activo Fijo | {TxtCodigo.Text.Trim}", Modulo:="AF1")
If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaInv, 1, CveUMInv, AFInvCvePS, 0, -1, Serie:=AFInvSerie, CveSeccionAlmacen:=AFInvCveSeccionAlmacen) Then If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaInv, 1, CveUMInv, AFInvCvePS, 0, -1, Serie:=AFInvSerie, CveSeccionAlmacen:=AFInvCveSeccionAlmacen) Then
@@ -3027,11 +3027,11 @@ Partial Class AF_AF
#Region "GUARDAR ARCHIVO" #Region "GUARDAR ARCHIVO"
Protected Sub BtnGuardaArchivo1_Click(sender As Object, e As ImageClickEventArgs) Protected Sub BtnGuardaArchivo1_Click(sender As Object, e As ImageClickEventArgs)
Dim objResguardos As New ClsAF Dim objResguardos As New ClsAF
Dim cve = CType(sender, ImageButton).CommandArgument.ToEntero Dim cve As Integer = CType(sender, ImageButton).CommandArgument.ToEntero
Dim btn As ImageButton = CType(sender, ImageButton) Dim btn As ImageButton = CType(sender, ImageButton)
Dim URL As String = cve.ToString Dim URL As String = cve.ToString
Dim RutaGuardar = "" Dim RutaGuardar As String = ""
Dim RutaArchivo = "" Dim RutaArchivo As String = ""
Dim Archivo As String = "" Dim Archivo As String = ""
@@ -3067,11 +3067,11 @@ Partial Class AF_AF
Protected Sub BtnGuardaArchivo2_Click(sender As Object, e As ImageClickEventArgs) Protected Sub BtnGuardaArchivo2_Click(sender As Object, e As ImageClickEventArgs)
Dim objResguardos As New ClsAF Dim objResguardos As New ClsAF
Dim cve = CType(sender, ImageButton).CommandArgument.ToEntero Dim cve As Integer = CType(sender, ImageButton).CommandArgument.ToEntero
Dim btn As ImageButton = CType(sender, ImageButton) Dim btn As ImageButton = CType(sender, ImageButton)
Dim URL As String = cve.ToString Dim URL As String = cve.ToString
Dim RutaGuardar = "" Dim RutaGuardar As String = ""
Dim RutaArchivo2 = "" Dim RutaArchivo2 As String = ""
Dim Archivo2 As String = "" Dim Archivo2 As String = ""
@@ -3126,7 +3126,7 @@ Partial Class AF_AF
Else Else
Dim Conta As New ClsContPAQi(UsuarioActual.Empresa) Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
Dim CuentaPadre = UsuarioActual.Empresa.Funcionalidad(221).ToEntero Dim CuentaPadre As Integer = UsuarioActual.Empresa.Funcionalidad(221).ToEntero
If Conta.GetCuentasRecursiva(CuentaPadre, 1) Then If Conta.GetCuentasRecursiva(CuentaPadre, 1) Then
DtCuentas = Conta.DtResultados DtCuentas = Conta.DtResultados
@@ -3532,9 +3532,8 @@ Partial Class AF_AF
AFInvSerie = If(Inv_CveMetodoInventario = 5, TxtAFInvSerie.Text.Trim, "-1") AFInvSerie = If(Inv_CveMetodoInventario = 5, TxtAFInvSerie.Text.Trim, "-1")
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
Dim Existencia = ObjInventario.GetExistenciasPS(DdlAFInvPS.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, FechaMovto:=NowADS().ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=AFInvSerie) Dim Existencia As Decimal = ObjInventario.GetExistenciasPS(DdlAFInvPS.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, FechaMovto:=NowADS().ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=AFInvSerie)
Dim Costo As Decimal = 0 Dim Costo As Decimal = 0
If Inv_CveMetodoInventario = 5 Then If Inv_CveMetodoInventario = 5 Then
Costo = ObjInventario.GetCostoPSSerie(DdlAFInvPS.SelectedValue.ToEntero, AFInvSerie, DdlAFInvAlmacen.SelectedValue.ToEntero, CveEmpresaActual) Costo = ObjInventario.GetCostoPSSerie(DdlAFInvPS.SelectedValue.ToEntero, AFInvSerie, DdlAFInvAlmacen.SelectedValue.ToEntero, CveEmpresaActual)
@@ -3688,7 +3687,7 @@ Partial Class AF_AF
Private Sub BtnAgregarGrupoAF_Click(sender As Object, e As EventArgs) Handles BtnAgregarGrupoAF.Click Private Sub BtnAgregarGrupoAF_Click(sender As Object, e As EventArgs) Handles BtnAgregarGrupoAF.Click
Dim ObjAF As New ClsAF Dim ObjAF As New ClsAF
Dim CveGrupo As Integer Dim CveGrupo As Integer
Dim TieneError = False Dim TieneError As Boolean = False
For Each Dr As DataRow In DTGrupos.Rows For Each Dr As DataRow In DTGrupos.Rows
@@ -3781,7 +3780,7 @@ Partial Class AF_AF
SBJS.Append("setTimeout(function(){initMapRastreo();") SBJS.Append("setTimeout(function(){initMapRastreo();")
Try Try
Dim Coord = "", Fecha = "", Vehiculo = "", Icono = "", Info As String = "" Dim Coord As String = "", Fecha As String = "", Vehiculo As String = "", Icono As String = "", Info As String = ""
If ObjGPS.UltimaPosicionEquipoGet($"{CveDispositivo};", CveClienteGPS) Then If ObjGPS.UltimaPosicionEquipoGet($"{CveDispositivo};", CveClienteGPS) Then
If ObjGPS.DtResultados.Rows.Count > 0 Then If ObjGPS.DtResultados.Rows.Count > 0 Then
For Each row As DataRow In ObjGPS.DtResultados.Rows For Each row As DataRow In ObjGPS.DtResultados.Rows
@@ -3850,7 +3849,7 @@ Partial Class AF_AF
Protected Sub BtnConsultarHistorico_Click(sender As Object, e As EventArgs) Protected Sub BtnConsultarHistorico_Click(sender As Object, e As EventArgs)
Dim ObjGPS As New ClsGPS Dim ObjGPS As New ClsGPS
Try Try
Dim CveDispositivo = DdlDispositivo.SelectedValue.ToEntero Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero
If ObjGPS.GetPosicionEquipo(CveDispositivo, TxtFechaIH.Text.ToDateTime(), TxtFechaFH.Text.ToDateTime()) Then If ObjGPS.GetPosicionEquipo(CveDispositivo, TxtFechaIH.Text.ToDateTime(), TxtFechaFH.Text.ToDateTime()) Then
If ObjGPS.DtResultados.Rows.Count > 0 Then If ObjGPS.DtResultados.Rows.Count > 0 Then
Dim SBJS As New StringBuilder Dim SBJS As New StringBuilder
@@ -3858,10 +3857,10 @@ Partial Class AF_AF
Dim StrPolyPath As New StringBuilder Dim StrPolyPath As New StringBuilder
StrPolyPath.Append("[") StrPolyPath.Append("[")
Dim POLYPATH As String = "[" Dim POLYPATH As String = "["
Dim Contador = 0 Dim Contador As Integer = 0
Dim RowDispositivo As DataRow = GlobalDTDispositivosUsuarios(CveClienteGPS).FiltroPrimero($"CveDispositivo = {CveDispositivo}") Dim RowDispositivo As DataRow = GlobalDTDispositivosUsuarios(CveClienteGPS).FiltroPrimero($"CveDispositivo = {CveDispositivo}")
Dim CordenadaAnterior As String = "" Dim CordenadaAnterior As String = ""
Dim Coord = "", Fecha = "", Vehiculo = "", Icono = "", Info As String = "" Dim Coord As String = "", Fecha As String = "", Vehiculo As String = "", Icono As String = "", Info As String = ""
SBJS.Append("initMapHistorico();") SBJS.Append("initMapHistorico();")
For Each row As DataRow In ObjGPS.DtResultados.Rows For Each row As DataRow In ObjGPS.DtResultados.Rows
@@ -3914,9 +3913,9 @@ Partial Class AF_AF
Private Sub CargaDatosCombustible() Private Sub CargaDatosCombustible()
'LtlUnidad.Text = DdlDispositivo.SelectedItem.Text 'LtlUnidad.Text = DdlDispositivo.SelectedItem.Text
Dim CveDispositivo = DdlDispositivo.SelectedValue.ToEntero() Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero()
Dim FechaI = TxtFechaIC.Text.ToDateTime Dim FechaI As DateTime = TxtFechaIC.Text.ToDateTime
Dim FechaF = TxtFechaFC.Text.ToDateTime Dim FechaF As DateTime = TxtFechaFC.Text.ToDateTime
'UpReportes.Update() 'UpReportes.Update()
Dim GPS As New ClsGPS Dim GPS As New ClsGPS
If GPS.RepCombustibleGet(DdlDispositivo.SelectedValue.ToEntero(), FechaI, FechaF) AndAlso GPS.DtResultados.Rows.Count > 0 Then If GPS.RepCombustibleGet(DdlDispositivo.SelectedValue.ToEntero(), FechaI, FechaF) AndAlso GPS.DtResultados.Rows.Count > 0 Then
@@ -4050,15 +4049,15 @@ Partial Class AF_AF
Protected Sub BtnConsultarGeoReferencia_Click(sender As Object, e As EventArgs) Protected Sub BtnConsultarGeoReferencia_Click(sender As Object, e As EventArgs)
Dim LastCoord As String = "" Dim LastCoord As String = ""
Dim DtPosiciones As New DataTable Dim DtPosiciones As New DataTable
Dim Info = "" Dim Info As String = ""
Dim SBBody As New StringBuilder Dim SBBody As New StringBuilder
Dim Icono As String = "/Imagenes/rsz_11rsz_car.png" Dim Icono As String = "/Imagenes/rsz_11rsz_car.png"
Dim CoordsPoligono As JArray Dim CoordsPoligono As JArray
Dim Coords As JObject Dim Coords As JObject
Dim Titulo = "" Dim Titulo As String = ""
Dim COUNT = 0 Dim COUNT As Integer = 0
Dim FechaI = If(TxtFechaIG.Text.Trim = "", MinFecha, TxtFechaIG.Text.Trim.ToDate) Dim FechaI As Date = If(TxtFechaIG.Text.Trim = "", MinFecha, TxtFechaIG.Text.Trim.ToDate)
Dim FechaF = If(TxtFechaFG.Text.Trim = "", MaxFecha, TxtFechaFG.Text.Trim.ToDate) Dim FechaF As Date = If(TxtFechaFG.Text.Trim = "", MaxFecha, TxtFechaFG.Text.Trim.ToDate)
Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero
Dim SBJS As New StringBuilder Dim SBJS As New StringBuilder
Dim ArrayGeocercas As New JArray Dim ArrayGeocercas As New JArray