option explicit

AF/AF.aspx.vb

@@ -678,7 +678,7 @@ Partial Class AF_AF
     End Sub
     Private Sub CargaDispositivos()
         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))
         If AplicaGPS Then
             Dim ObjGPS As New ClsGPS
@@ -719,7 +719,7 @@ Partial Class AF_AF
         DdlGrupo.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
     Private Sub CargaResponsable()
-        Dim DtPersonal = GlobalDTRHPersonal(CveEmpresaActual).FiltraParametros("", "NombreCompleto")
+        Dim DtPersonal As DataTable = GlobalDTRHPersonal(CveEmpresaActual).FiltraParametros("", "NombreCompleto")
         DdlResponsable.DataSource = DtPersonal
         DdlResponsable.DataBind()
     End Sub
@@ -1281,20 +1281,20 @@ Partial Class AF_AF
             Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
             Dim separado As Char() = ".".ToCharArray
             Dim array() As String = Adjunto.Split(separado)
-            Dim extencion As String = ""
+            Dim extension As String = ""
 
             If array.Length > 0 Then
-                extencion = array(array.Length - 1)
+                extension = array(array.Length - 1)
             End If
 
             If Adjunto.Trim.Length > 0 Then
-                Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Licencias/" & Adjunto & "." & extencion
-                Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "AF/Licencias/" & Adjunto & "." & extencion
+                Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Licencias/" & Adjunto & "." & extension
+                Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "AF/Licencias/" & Adjunto & "." & extension
 
                 If File.Exists(linkDescargaArchivo) Then
                     ImgDownLoad.Visible = True
-                    If extencion.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)
+                    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" & "." & extension)
                     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")
                     End If
@@ -1308,20 +1308,20 @@ Partial Class AF_AF
             Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
             Dim separado As Char() = ".".ToCharArray
             Dim array() As String = Adjunto.Split(separado)
-            Dim extencion As String = ""
+            Dim extension As String = ""
 
             If array.Length > 0 Then
-                extencion = array(array.Length - 1)
+                extension = array(array.Length - 1)
             End If
 
             If Adjunto.Trim.Length > 0 Then
-                Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Polizas/" & Adjunto & "." & extencion
-                Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "AF/Polizas/" & Adjunto & "." & extencion
+                Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Polizas/" & Adjunto & "." & extension
+                Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "AF/Polizas/" & Adjunto & "." & extension
 
                 If File.Exists(linkDescargaArchivo) Then
                     ImgDownLoad.Visible = True
-                    If extencion.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)
+                    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" & "." & extension)
                     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")
                     End If
@@ -1532,7 +1532,7 @@ Partial Class AF_AF
     End Sub
     Private Sub BtnAgregarFalla_Click(sender As Object, e As EventArgs) Handles BtnAgregarFalla.Click
         Dim ObjAF As New ClsAF
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         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
@@ -1561,9 +1561,9 @@ Partial Class AF_AF
     End Sub
     Private Sub EnviaCorreoFallas()
         Try
-            Dim Para = TxtCorreoNotificacion.Text.Trim
-            Dim Asunto = "Registro de Falla de Activo Fijo"
-            Dim Body = ""
+            Dim Para As String = TxtCorreoNotificacion.Text.Trim
+            Dim Asunto As String = "Registro de Falla de Activo Fijo"
+            Dim Body As String = ""
             Dim strBody As New StringBuilder
 
             strBody.Append("Registro de Falla de Activo Fijo")
@@ -1720,7 +1720,7 @@ Partial Class AF_AF
     End Sub
     Private Sub BtnRegistrarAccidente_Click(sender As Object, e As EventArgs) Handles BtnRegistrarAccidente.Click
         Dim ObjAF As New ClsAF
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         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
@@ -1747,9 +1747,9 @@ Partial Class AF_AF
     End Sub
     Private Sub EnviaCorreoAccidente()
         Try
-            Dim Para = TxtCorreoNotificacion.Text.Trim
-            Dim Asunto = "Registro de Accidente de Activo Fijo"
-            Dim Body = ""
+            Dim Para As String = TxtCorreoNotificacion.Text.Trim
+            Dim Asunto As String = "Registro de Accidente de Activo Fijo"
+            Dim Body As String = ""
             Dim strBody As New StringBuilder
 
             strBody.Append("Registro de Accidente de Activo Fijo")
@@ -1929,7 +1929,7 @@ Partial Class AF_AF
         ObjMF.Dispose()
     End Sub
     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 TxtHorometroInicial.Text.ToEntero < HdnHorometroAnterior.Value.ToEntero Then
@@ -2473,9 +2473,9 @@ Partial Class AF_AF
         If CveActivoFijo <= 0 Then
 
             'SALIDA DE ALMACEN PARA IMPORTACION
-            Dim CveMovimientoSalidaInv = -1
+            Dim CveMovimientoSalidaInv As Integer = -1
             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
                     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
@@ -3027,11 +3027,11 @@ Partial Class AF_AF
 #Region "GUARDAR ARCHIVO"
     Protected Sub BtnGuardaArchivo1_Click(sender As Object, e As ImageClickEventArgs)
         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 URL As String = cve.ToString
-        Dim RutaGuardar = ""
-        Dim RutaArchivo = ""
+        Dim RutaGuardar As String = ""
+        Dim RutaArchivo As String = ""
 
         Dim Archivo As String = ""
 
@@ -3067,11 +3067,11 @@ Partial Class AF_AF
 
     Protected Sub BtnGuardaArchivo2_Click(sender As Object, e As ImageClickEventArgs)
         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 URL As String = cve.ToString
-        Dim RutaGuardar = ""
-        Dim RutaArchivo2 = ""
+        Dim RutaGuardar As String = ""
+        Dim RutaArchivo2 As String = ""
         Dim Archivo2 As String = ""
 
 
@@ -3126,7 +3126,7 @@ Partial Class AF_AF
         Else
             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
                 DtCuentas = Conta.DtResultados
@@ -3532,9 +3532,8 @@ Partial Class AF_AF
 
         AFInvSerie = If(Inv_CveMetodoInventario = 5, TxtAFInvSerie.Text.Trim, "-1")
 
-
         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
         If Inv_CveMetodoInventario = 5 Then
             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
         Dim ObjAF As New ClsAF
         Dim CveGrupo As Integer
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         For Each Dr As DataRow In DTGrupos.Rows
 
@@ -3781,7 +3780,7 @@ Partial Class AF_AF
         SBJS.Append("setTimeout(function(){initMapRastreo();")
 
         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.DtResultados.Rows.Count > 0 Then
                     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)
         Dim ObjGPS As New ClsGPS
         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.DtResultados.Rows.Count > 0 Then
                     Dim SBJS As New StringBuilder
@@ -3858,10 +3857,10 @@ Partial Class AF_AF
                     Dim StrPolyPath As New StringBuilder
                     StrPolyPath.Append("[")
                     Dim POLYPATH As String = "["
-                    Dim Contador = 0
+                    Dim Contador As Integer = 0
                     Dim RowDispositivo As DataRow = GlobalDTDispositivosUsuarios(CveClienteGPS).FiltroPrimero($"CveDispositivo = {CveDispositivo}")
                     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();")
 
                     For Each row As DataRow In ObjGPS.DtResultados.Rows
@@ -3914,9 +3913,9 @@ Partial Class AF_AF
 
     Private Sub CargaDatosCombustible()
         'LtlUnidad.Text = DdlDispositivo.SelectedItem.Text
-        Dim CveDispositivo = DdlDispositivo.SelectedValue.ToEntero()
-        Dim FechaI = TxtFechaIC.Text.ToDateTime
-        Dim FechaF = TxtFechaFC.Text.ToDateTime
+        Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero()
+        Dim FechaI As DateTime = TxtFechaIC.Text.ToDateTime
+        Dim FechaF As DateTime = TxtFechaFC.Text.ToDateTime
         'UpReportes.Update()
         Dim GPS As New ClsGPS
         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)
         Dim LastCoord As String = ""
         Dim DtPosiciones As New DataTable
-        Dim Info = ""
+        Dim Info As String = ""
         Dim SBBody As New StringBuilder
         Dim Icono As String = "/Imagenes/rsz_11rsz_car.png"
         Dim CoordsPoligono As JArray
         Dim Coords As JObject
-        Dim Titulo = ""
-        Dim COUNT = 0
-        Dim FechaI = If(TxtFechaIG.Text.Trim = "", MinFecha, TxtFechaIG.Text.Trim.ToDate)
-        Dim FechaF = If(TxtFechaFG.Text.Trim = "", MaxFecha, TxtFechaFG.Text.Trim.ToDate)
+        Dim Titulo As String = ""
+        Dim COUNT As Integer = 0
+        Dim FechaI As Date = If(TxtFechaIG.Text.Trim = "", MinFecha, TxtFechaIG.Text.Trim.ToDate)
+        Dim FechaF As Date = If(TxtFechaFG.Text.Trim = "", MaxFecha, TxtFechaFG.Text.Trim.ToDate)
         Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero
         Dim SBJS As New StringBuilder
         Dim ArrayGeocercas As New JArray