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/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
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))