From 51536ae23ad89352f3b0fa7388bf3e1d0bc82938 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Nov 2023 12:01:29 -0700 Subject: [PATCH] option explicit --- AF/AF.aspx.vb | 93 +++++++++++++++++++++++++-------------------------- 1 file changed, 46 insertions(+), 47 deletions(-) diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 5d6ea33ce..0d497a0ad 100644 --- a/AF/AF.aspx.vb +++ b/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(" ", linkDescarga, "Licencia" & "." & extencion) + If extension.Length > 0 Then + ImgDownLoad.Text = String.Format(" ", linkDescarga, "Licencia" & "." & extension) Else ImgDownLoad.Text = String.Format(" ", 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(" ", linkDescarga, "Poliza" & "." & extencion) + If extension.Length > 0 Then + ImgDownLoad.Text = String.Format(" ", linkDescarga, "Poliza" & "." & extension) Else ImgDownLoad.Text = String.Format(" ", 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