From de833796355e5f15ec46de9558b6c33d88878c99 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 23 Aug 2023 17:09:44 -0700 Subject: [PATCH 1/2] Ajustes comparacion --- Edoc/CatDocumentos.aspx.vb | 23 ++++++++------- Edoc/CatDocumentosContratos.aspx.vb | 4 ++- Edoc/CatTipoContratos.aspx.vb | 4 ++- Edoc/Contratos.aspx.vb | 4 ++- Empresas/Grales/Formatos/EntradasSalidas.rdlc | 28 +++++++++---------- Inventarios/RepEntradasSalidas.aspx.vb | 9 ++++-- RH/Personal.aspx.vb | 4 +-- Ventas/ClientesAbonar.aspx.vb | 11 +++++++- 8 files changed, 54 insertions(+), 33 deletions(-) diff --git a/Edoc/CatDocumentos.aspx.vb b/Edoc/CatDocumentos.aspx.vb index e2afe6520..171aac132 100644 --- a/Edoc/CatDocumentos.aspx.vb +++ b/Edoc/CatDocumentos.aspx.vb @@ -1,10 +1,13 @@ - +Option Explicit On +Option Strict On + Imports System.Data Imports System.Linq Imports Extensiones Imports System.IO - +Imports iText.StyledXmlParser.Css.Resolve.Shorthand.Impl + Partial Class RH_CatDocumentos Inherits ClsPaginas @@ -92,10 +95,9 @@ Partial Class RH_CatDocumentos Property Estatus As Boolean Get If ViewState("Estatus") Is Nothing Then - Return False - Else - Return DirectCast(ViewState("Estatus"), Boolean) + ViewState("Estatus") = False End If + Return DirectCast(ViewState("Estatus"), Boolean) End Get Set(value As Boolean) ViewState("Estatus") = value @@ -219,17 +221,18 @@ Partial Class RH_CatDocumentos CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo").ToEntero DocumentacionTipo = GvRow.DataKey("DocumentacionTipo") Orden = GvRow.DataKey("Orden").ToEntero - Estatus = GvRow.DataKey("Estatus") = "True" - Requerido = GvRow.DataKey("Requerido") = "True" + Estatus = Boolean.Parse(GvRow.DataKey("Estatus")) + Requerido = Boolean.Parse(GvRow.DataKey("Requerido")) + Txtdocumentacion.Text = Documentacion - TxtOrden.Text = GvRow.DataKey("Orden") + TxtOrden.Text = Orden.ToString TxtDiasLimite.Text = GvRow.DataKey("DiasLimite") - ChkAplicaDiasLimite.Checked = GvRow.DataKey("AplicaDiasLimite") = "True" + ChkAplicaDiasLimite.Checked = Boolean.Parse(GvRow.DataKey("AplicaDiasLimite")) TxtPeriodicidad.Text = GvRow.DataKey("Periodicidad") - ChkAplicaFechaVencimiento.Checked = GvRow.DataKey("AplicaFechaVencimiento") = "True" + ChkAplicaFechaVencimiento.Checked = Boolean.Parse(GvRow.DataKey("AplicaFechaVencimiento")) DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo) chkEstatus.Checked = Estatus diff --git a/Edoc/CatDocumentosContratos.aspx.vb b/Edoc/CatDocumentosContratos.aspx.vb index 9bce2a167..24b3d55ed 100644 --- a/Edoc/CatDocumentosContratos.aspx.vb +++ b/Edoc/CatDocumentosContratos.aspx.vb @@ -1,4 +1,6 @@ -Option Strict On +Option Explicit On +Option Strict On + Imports System.Data Imports System.Linq diff --git a/Edoc/CatTipoContratos.aspx.vb b/Edoc/CatTipoContratos.aspx.vb index 158eababc..0af135e97 100644 --- a/Edoc/CatTipoContratos.aspx.vb +++ b/Edoc/CatTipoContratos.aspx.vb @@ -1,4 +1,6 @@ -Option Strict On +Option Explicit On +Option Strict On + Imports System.Data Imports System.Linq diff --git a/Edoc/Contratos.aspx.vb b/Edoc/Contratos.aspx.vb index 9ae0556a9..5e531a8e4 100644 --- a/Edoc/Contratos.aspx.vb +++ b/Edoc/Contratos.aspx.vb @@ -1,4 +1,6 @@ -Option Strict On +Option Explicit On +Option Strict On + Imports System.Data Imports System.Linq diff --git a/Empresas/Grales/Formatos/EntradasSalidas.rdlc b/Empresas/Grales/Formatos/EntradasSalidas.rdlc index 97f895378..289fcb212 100644 --- a/Empresas/Grales/Formatos/EntradasSalidas.rdlc +++ b/Empresas/Grales/Formatos/EntradasSalidas.rdlc @@ -47,39 +47,39 @@ SaldoIniCant - System.Int16 + System.Decimal SaldoInitCant - System.Int16 + System.Decimal EntradaCant - System.Int16 + System.Decimal SalidaCant - System.Int16 + System.Decimal SaldoFCant - System.Int16 + System.Decimal SaldoIniImp - System.Int16 + System.Decimal EntradaImp - System.Int16 + System.Decimal SalidaImp - System.Int16 + System.Decimal SaldoFImp - System.Int16 + System.Decimal Orden @@ -1012,7 +1012,7 @@ =IIF(Fields!SaldoIniCant.Value = "0", "-", Fields!SaldoIniCant.Value) @@ -1056,7 +1056,7 @@ =IIF(Fields!EntradaCant.Value = "0", "-", Fields!EntradaCant.Value) @@ -1100,7 +1100,7 @@ =IIF(Fields!SalidaCant.Value = "0", "-", Fields!SalidaCant.Value) @@ -1144,7 +1144,7 @@ =IIF(Fields!SaldoFCant.Value = "0", "-", Fields!SaldoFCant.Value) @@ -1726,7 +1726,6 @@ 2pt - true @@ -1859,6 +1858,7 @@ Textbox2 1.13799cm + 0.01cm 0.52945cm 20.5896cm 1 diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb index 63596b1f9..1710c7e8d 100644 --- a/Inventarios/RepEntradasSalidas.aspx.vb +++ b/Inventarios/RepEntradasSalidas.aspx.vb @@ -1,4 +1,7 @@ -Imports System.Data +Option Explicit On +Option Strict On + +Imports System.Data Imports System.IO Imports Extensiones Imports Microsoft.Reporting.WebForms @@ -65,7 +68,7 @@ Partial Class Inventarios_ReporteEntradasSalidas End If TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString - TxtFechaF.Text = Now + TxtFechaF.Text = Now.ToString("dd/MM/yyyy") FechaInicial = "-1" FechaFinal = "-1" @@ -374,7 +377,7 @@ Partial Class Inventarios_ReporteEntradasSalidas FechaI = "01-01-0001" End If If FechaF = "-1" OrElse FechaFinal.ToDate > Now.ToDate Then - FechaF = Now + FechaF = Now.ToString("dd/MM/yyyy") End If Dim RutaPDF As String Dim Ruta As String = UsuarioActual.Empresa.Ruta diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index cd7fea4c6..6cff3f356 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1704,7 +1704,7 @@ Partial Class RH_Personal 'TxtContactoAlterno.Text = ObjPersonal.ContactoAlterno - If ObjPersonal.CveUniforme > 0 Then + If ObjPersonal.CveUniforme > 0 Or UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then LnkSurtir.Visible = True ViewState("CveUniforme") = ObjPersonal.CveUniforme DdlUniforme.SelectedValueExist(CveUniforme) @@ -5636,7 +5636,7 @@ Partial Class RH_Personal Private Sub CargaUniformesPersonal() - If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154, 140) Then + If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154, 140, 7, 11, 12, 122, 145) Then GvUniforme.Visible = True GvUniformesResguardo.Visible = False diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 51539abc1..829d7d6d9 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -260,7 +260,16 @@ Partial Class Ventas_ClientesAbonar Dim CveTipoCuenta As Integer = 2 If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then CveTipoCuenta = -1 'que se muestren todas, para empresa acumuladores - Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=CveTipoCuenta) + + Dim dt As DataTable + + If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then + dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=-1).FiltraParametros(" CveTipoCuenta in (1,2) ") + Else + dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=CveTipoCuenta) + End If + + If ChkPagarPesos.Checked Then dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1)) From 6c94dc331cd406817b9f347b1173f16cc47687d1 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 23 Aug 2023 20:37:37 -0700 Subject: [PATCH 2/2] =?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