From 6c94dc331cd406817b9f347b1173f16cc47687d1 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 23 Aug 2023 20:37:37 -0700 Subject: [PATCH] =?UTF-8?q?Compilaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- GPS/CatEventosTipos.aspx.vb | 2 +- GPS/CatProveedorComunicacion.aspx.vb | 10 +++++----- GPS/PuntosDeInteres.aspx.vb | 8 ++++---- GPS/RepCombustible.aspx.vb | 26 ++++++++++++++------------ General/RepIndicadorResumen.aspx.vb | 14 +++++++++----- 5 files changed, 33 insertions(+), 27 deletions(-) diff --git a/GPS/CatEventosTipos.aspx.vb b/GPS/CatEventosTipos.aspx.vb index 7176fd61a..feeb73659 100644 --- a/GPS/CatEventosTipos.aspx.vb +++ b/GPS/CatEventosTipos.aspx.vb @@ -103,7 +103,7 @@ Partial Class GPS_CatEventosTipos e.Row.VerticalAlign = VerticalAlign.Middle e.Row.FCLinkButton("ImgE").CommandArgument = e.Row.DataKey("CveEventoTipo").ToString - If e.Row.DBCampo("Estatus") = True Then + If Boolean.Parse(e.Row.DBCampo("Estatus")) = True Then e.Row.FCLabel("LblEstatus").Text = "Activo" e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green diff --git a/GPS/CatProveedorComunicacion.aspx.vb b/GPS/CatProveedorComunicacion.aspx.vb index 5a826973e..00672d527 100644 --- a/GPS/CatProveedorComunicacion.aspx.vb +++ b/GPS/CatProveedorComunicacion.aspx.vb @@ -36,16 +36,16 @@ Partial Class GPS_CatProveedorComunicacion Private Sub BtnAgregarProveedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarProveedor.Click Dim ObjGps As New ClsGPS - Dim Estatus = 0 + Dim Estatus As Byte = 0 Dim correo As String = TxtMail.Text - If ChkEstatus.Checked Then Estatus = 1 + If chkEstatus.Checked Then Estatus = 1 If HdnModalidad.Value = "A" Then If ObjGps.ProveedorComunicacion_Add(TxtProveedor.Text, Estatus, UsuarioActual.CveUsuario, DdlTipoComunicacion.SelectedValue.ToEntero(), TxtAPNIP.Text, TxtAPNUser.Text, TxtAPNPass.Text, correo) Then CargaDatos() Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) End If ElseIf HdnModalidad.Value = "U" Then - If ObjGps.ProveedorComunicacion_Update(HdnID.Value, TxtProveedor.Text, Estatus, UsuarioActual.CveUsuario, DdlTipoComunicacion.SelectedValue.ToEntero(), TxtAPNIP.Text, TxtAPNUser.Text, TxtAPNPass.Text, correo) Then + If ObjGps.ProveedorComunicacion_Update(HdnID.Value.ToEntero, TxtProveedor.Text, Estatus, UsuarioActual.CveUsuario, DdlTipoComunicacion.SelectedValue.ToEntero(), TxtAPNIP.Text, TxtAPNUser.Text, TxtAPNPass.Text, correo) Then CargaDatos() Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) End If @@ -98,7 +98,7 @@ Partial Class GPS_CatProveedorComunicacion Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) HdnID.Value = GvRow.DataKey("CveProveedorComunicacion") UpDatos.Update() - If ObjGps.Proveedor_Delete(HdnID.Value) Then + If ObjGps.Proveedor_Delete(HdnID.Value.ToEntero) Then CargaDatos() Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) End If @@ -113,7 +113,7 @@ Partial Class GPS_CatProveedorComunicacion Private Sub GvTipoComunicacion_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvProveedorComunicacion.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("Estatus") = True Then + If Boolean.Parse(e.Row.DBCampo("Estatus")) = True Then e.Row.FCLabel("LblEstatus").Text = "Activo" e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green diff --git a/GPS/PuntosDeInteres.aspx.vb b/GPS/PuntosDeInteres.aspx.vb index 0029bed99..04a164eb2 100644 --- a/GPS/PuntosDeInteres.aspx.vb +++ b/GPS/PuntosDeInteres.aspx.vb @@ -148,10 +148,10 @@ Partial Class GPS_PuntosDeInteres Dim Var As String = "" For Each coordenada As String In CoordsPuntos If coordenada Is CoordsPuntos.Last Then - Dim latlng() As String = coordenada.Trim.Split(" ") + Dim latlng() As String = coordenada.Trim.Split(" "c) Var = $"{Var}{{lat: {latlng(1)}, lng: {latlng(0)} }}" Else - Dim latlng() As String = coordenada.Trim.Split(" ") + Dim latlng() As String = coordenada.Trim.Split(" "c) Var = $"{Var}{{lat: {latlng(1)}, lng: {latlng(0)} }}," End If Next @@ -229,7 +229,7 @@ Partial Class GPS_PuntosDeInteres dvEstatus.Style.Add("display", "") dvEstatus.Style.Add("display", "") chkEstatus.Checked = CBool(GvRow.DataKey("Estatus").ToString) - RegistraScript($"$('#divAgregarTipo').modal();",1) + RegistraScript($"$('#divAgregarTipo').modal();", "1") For Each row As GridViewRow In GvGrupos.Rows If row.DataKey("CvePuntoDeInteresGrupo").ToString = GvRow.DataKey("CvePuntoDeInteresGrupo").ToString Then RegistraScript($"CargaDatosSeleccionados({row.RowIndex}, '{row.DataKey("CvePuntoDeInteresGrupo").ToString}');") @@ -255,7 +255,7 @@ Partial Class GPS_PuntosDeInteres For Each row As GridViewRow In GVPuntosInteres.Rows If row.FCCheckBox("chkGR").Checked Then Dim coords = SQLToGmaps(row.DataKey("Punto"), "POINT") - RegistraScript($"CreaMarcador({coords}, '{row.DataKey("PuntoDeInteres").ToString}')", row.RowIndex) + RegistraScript($"CreaMarcador({coords}, '{row.DataKey("PuntoDeInteres").ToString}')", row.RowIndex.ToString) End If Next RegistraScript("$('#dvEditar').modal('hide');FitBounds();") diff --git a/GPS/RepCombustible.aspx.vb b/GPS/RepCombustible.aspx.vb index 6df5d34e6..ead4b150f 100644 --- a/GPS/RepCombustible.aspx.vb +++ b/GPS/RepCombustible.aspx.vb @@ -97,7 +97,7 @@ Partial Class GPS_RepCombustible If GPS.RepCombustibleGet(DdlDispositivo.SelectedValue.ToEntero(), FechaI, FechaF) AndAlso GPS.DtResultados.Rows.Count > 0 Then Dim Arow As DataRow = GPS.DtResultados.Rows(0) Dim TotalKilometros As Decimal = (Arow("Distancia").ToString().ToDecimal()) / 1000 - Dim CombustibleConsumido As Decimal = $"{(Arow("CombustibleInicial").ToString().ToDecimal() + Arow("SumaCargas").ToString().ToDecimal()) - Arow("CombustibleFinal").ToString().ToDecimal():N2}" + Dim CombustibleConsumido As Decimal = $"{(Arow("CombustibleInicial").ToString().ToDecimal() + Arow("SumaCargas").ToString().ToDecimal()) - Arow("CombustibleFinal").ToString().ToDecimal():N2}".ToDecimal Dim RendBruto As Decimal = If(CombustibleConsumido > 0, TotalKilometros / CombustibleConsumido, 0) '2.8 Dim CostoCombustible As Decimal = GlobalDTDispositivos(-1).FiltroPrimeroValor("CostoCombustible", $"CveDispositivo = {DdlDispositivo.SelectedValue}").ToDecimal LtlDistancia.Text = TotalKilometros.ToString().FormatoNumero() @@ -117,7 +117,7 @@ Partial Class GPS_RepCombustible LtlCostoConsumo.Text = $"${((CombustibleConsumido - Arow("SumaDescargas").ToString().ToDecimal()) * CostoCombustible).ToString().FormatoNumero()}" LtlCostoCombustibleF.Text = $"${(GPS.DtResultados.Rows(0)("CombustibleFinal").ToString().ToDecimal * CostoCombustible).ToString().FormatoNumero()}" LtlCostoInicial.Text = $"${(GPS.DtResultados.Rows(0)("CombustibleInicial").ToString().ToDecimal * CostoCombustible).ToString().FormatoNumero()}" - lblMuerto.Text = $"{((DateDiff(DateInterval.Minute, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime).ToString() - GPS.DtResultados.Rows(0)("Horas").ToString().ToLong) / 60).ToString().FormatoNumero()} Hrs." + lblMuerto.Text = $"{((DateDiff(DateInterval.Minute, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime) - GPS.DtResultados.Rows(0)("Horas").ToString().ToLong) / 60).ToString().FormatoNumero()} Hrs." lblMovimiento.Text = $"{(GPS.DtResultados.Rows(0)("Horas").ToString().ToDecimal / 60).ToString().FormatoNumero()} Hrs" LtlRalenti.Text = $"{GPS.DtResultados.Rows(0)("TiempoRalentiHoras").ToString().FormatoNumero()} Hrs. ({GPS.DtResultados.Rows(0)("TiempoRalentiMinutos").ToString()} Minutos)" CargaHistorico(GPS) @@ -138,10 +138,12 @@ Partial Class GPS_RepCombustible Dim json As New StringBuilder json.Append("data=[") Dim color As String = "" - Dim encencido As Int16 = -1 - Dim encencidoC As Int16 = -1 + Dim encencido As Integer = -1 + Dim encencidoC As Integer = -1 For Each gvrow As DataRow In GPS.DtResultados.Rows + encencidoC = gvrow("Encendido").ToString().ToEntero() + If encencido <> encencidoC Then If encencidoC = 1 Then color = ",lineColor:""#2498d2""" @@ -328,11 +330,11 @@ Partial Class GPS_RepCombustible libro.Cell(5, 4).Value = txtFechaF.Text Dim cRow As Integer = 9 - Dim FechaI As String = txtFechaI.Text.ToDateTime - Dim FechaF As String = txtFechaF.Text.ToDateTime + Dim FechaI As Date = txtFechaI.Text.ToDateTime + Dim FechaF As Date = txtFechaF.Text.ToDateTime Using GPS As New ClsGPS() - For Each item In DdlDispositivo.Items - CveDispositivo = item.value.ToString().ToEntero() + For Each item As ListItem In DdlDispositivo.Items + CveDispositivo = item.Value.ToString().ToEntero() If CveDispositivo > 0 Then cRow = cRow + 1 @@ -363,14 +365,14 @@ Partial Class GPS_RepCombustible Dim Arow As DataRow = GPS.DtResultados.Rows(0) Dim TotalKilometros As Decimal = (Arow("Distancia").ToString().ToDecimal()) / 1000 Dim CostoCombustible As Decimal = GlobalDTDispositivos(-1).FiltroPrimeroValor("CostoCombustible", $"CveDispositivo = {CveDispositivo}").ToDecimal - Dim CombustibleConsumidoCC As Decimal = $"{(Arow("CombustibleInicial").ToString().ToDecimal() + Arow("SumaCargas").ToString().ToDecimal()) - Arow("CombustibleFinal").ToString().ToDecimal():N2}" + Dim CombustibleConsumidoCC As Decimal = $"{ (Arow("CombustibleInicial").ToString().ToDecimal() + Arow("SumaCargas").ToString().ToDecimal()) - Arow("CombustibleFinal").ToString().ToDecimal():N2}".ToDecimal VelocidadMaxima = $"{GPS.DtResultados.Rows(0)("VelocidadMaxima").ToString().FormatoNumero():N2}" Rendimiento = $"{If(CombustibleConsumidoCC > 0, TotalKilometros / CombustibleConsumidoCC, 0):N2}" KMRecorridos = $"{TotalKilometros:N2}" CombustibleConsumido = $"{(Arow("CombustibleInicial").ToString().ToDecimal() + Arow("SumaCargas").ToString().ToDecimal()) - Arow("CombustibleFinal").ToString().ToDecimal():N2}" Ralenti = $"{GPS.DtResultados.Rows(0)("TiempoRalentiHoras").ToString().FormatoNumero()} Hrs. ({GPS.DtResultados.Rows(0)("TiempoRalentiMinutos").ToString()} Minutos)" TiempoMovto = $"{(GPS.DtResultados.Rows(0)("Horas").ToString().ToDecimal / 60).ToString().FormatoNumero()} Hrs" - TiempoMuerto = $"{((DateDiff(DateInterval.Minute, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime).ToString() - GPS.DtResultados.Rows(0)("Horas").ToString().ToLong) / 60).ToString().FormatoNumero()} Hrs." + TiempoMuerto = $"{((DateDiff(DateInterval.Minute, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime).ToString().ToDecimal - GPS.DtResultados.Rows(0)("Horas").ToString().ToLong) / 60).ToString().FormatoNumero()} Hrs." CILts = $"{Arow("CombustibleInicial").ToString().ToDecimal():N2}" CITotal = $"{(GPS.DtResultados.Rows(0)("CombustibleInicial").ToString().ToDecimal * CostoCombustible).ToString().FormatoNumero()}" CFLts = GPS.DtResultados.Rows(0)("CombustibleFinal").ToString().FormatoNumero() @@ -382,8 +384,8 @@ Partial Class GPS_RepCombustible DesCargaLts = $"{Arow("SumaDescargas").ToString().ToDecimal():N2}" DesCargaTotal = $"{Arow("SumaDescargas").ToString().ToDecimal() * CostoCombustible:N2}" RecorridoValor = TotalKilometros.ToString().FormatoNumero() - RecorridoLts = $"{(CombustibleConsumido - Arow("SumaDescargas").ToString().ToDecimal()):N2}" - RecorridoTotal = $"{((CombustibleConsumido - Arow("SumaDescargas").ToString().ToDecimal()) * CostoCombustible).ToString().FormatoNumero()}" + RecorridoLts = $"{(CombustibleConsumido.ToDecimal - Arow("SumaDescargas").ToString().ToDecimal()):N2}" + RecorridoTotal = $"{((CombustibleConsumido.ToDecimal - Arow("SumaDescargas").ToString().ToDecimal()) * CostoCombustible).ToString().FormatoNumero()}" End If libro.Cell(cRow, 1).Value = vehiculo diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb index 48d55e64b..80bbd09cd 100644 --- a/General/RepIndicadorResumen.aspx.vb +++ b/General/RepIndicadorResumen.aspx.vb @@ -1,4 +1,8 @@ -Imports System.Data + +Option Explicit On +Option Strict On + +Imports System.Data Imports Extensiones Imports Microsoft.Reporting.WebForms Imports MoreLinq @@ -35,18 +39,18 @@ Partial Class General_RepIndicadorResumen Dim ObjCitrus As New ClsCGame Dim Grupo As Integer = 28 'Clasificación - PS - If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1, + If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim().ToDate, TxtFechaF.Text.Trim().ToDate, MinFecha, MaxFecha, -1, -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:="Ing,Dev", TipoCambio:=1) Then GvVxP.DataSource = ObjVentas.DtResultados End If - If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1, + If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue, "-1", -1, -1, TxtFechaI.Text.Trim().ToDate, TxtFechaF.Text.Trim().ToDate, -1, -1, -1, UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, TipoDocto:="Fac", CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then GvCompProductores.DataSource = ObjCompras.DtResultados.FiltraParametros("", "Cantidad DESC") End If - If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero) Then + If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero) Then 'Compras Productores 'GvCompProductores.DataSource = ObjCitrus.DTSetResultados.Tables(0).FiltraParametros("", "RazonSocial ASC") 'CxP Productores @@ -250,7 +254,7 @@ Partial Class General_RepIndicadorResumen DtCompProductores.Columns.Add("Importe") DtCompProductores.Columns.Add("UnidadC") DtCompProductores.Columns.Add("UnidadI") - For Each Dr As DataRow In GvCompProductores.DataSource.Rows + For Each Dr As DataRow In DirectCast(GvCompProductores.DataSource, DataTable).Rows If Not Dr("Orden").ToString = "00ND" Then Dim Row = DtCompProductores.NewRow() Row("Texto") = Dr("GPO").ToString