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

Compilación

Browse Source
This commit is contained in:
rakcsle
2023-08-23 20:37:37 -07:00
parent de83379635
commit 6c94dc331c
5 changed files with 33 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
GPS/CatEventosTipos.aspx.vb
View File

@@ -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

10
GPS/CatProveedorComunicacion.aspx.vb
View File

@@ -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

8
GPS/PuntosDeInteres.aspx.vb
View File

@@ -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();")

26
GPS/RepCombustible.aspx.vb
View File

@@ -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

14
General/RepIndicadorResumen.aspx.vb
View File

@@ -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