Merge branch 'master' of http://192.168.10.111:8383/SIG

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

Edoc/CatDocumentosContratos.aspx.vb

@@ -1,4 +1,6 @@
-Option Strict On
+Option Explicit On
+Option Strict On
+
 
 Imports System.Data
 Imports System.Linq

Edoc/CatTipoContratos.aspx.vb

@@ -1,4 +1,6 @@
-Option Strict On
+Option Explicit On
+Option Strict On
+
 
 Imports System.Data
 Imports System.Linq

Edoc/Contratos.aspx.vb

@@ -1,4 +1,6 @@
-Option Strict On
+Option Explicit On
+Option Strict On
+
 
 Imports System.Data
 Imports System.Linq

Empresas/Grales/Formatos/EntradasSalidas.rdlc

@@ -47,39 +47,39 @@
         </Field>
         <Field Name="SaldoIniCant">
           <DataField>SaldoIniCant</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="SaldoInitCant">
           <DataField>SaldoInitCant</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="EntradaCant">
           <DataField>EntradaCant</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="SalidaCant">
           <DataField>SalidaCant</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="SaldoFCant">
           <DataField>SaldoFCant</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="SaldoIniImp">
           <DataField>SaldoIniImp</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="EntradaImp">
           <DataField>EntradaImp</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="SalidaImp">
           <DataField>SalidaImp</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="SaldoFImp">
           <DataField>SaldoFImp</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="Orden">
           <DataField>Orden</DataField>
@@ -1012,7 +1012,7 @@
                                   <Value>=IIF(Fields!SaldoIniCant.Value = "0", "-", Fields!SaldoIniCant.Value)</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
-                                    <Format>0;(0)</Format>
+                                    <Format>#,0.0000;(#,0.0000)</Format>
                                     <Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
                                     <Language>es-MX</Language>
                                   </Style>
@@ -1056,7 +1056,7 @@
                                   <Value>=IIF(Fields!EntradaCant.Value = "0", "-", Fields!EntradaCant.Value)</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
-                                    <Format>0;(0)</Format>
+                                    <Format>#,0.0000;(#,0.0000)</Format>
                                     <Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
                                     <Language>es-MX</Language>
                                   </Style>
@@ -1100,7 +1100,7 @@
                                   <Value>=IIF(Fields!SalidaCant.Value = "0", "-", Fields!SalidaCant.Value)</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
-                                    <Format>0;(0)</Format>
+                                    <Format>#,0.0000;(#,0.0000)</Format>
                                     <Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
                                     <Language>es-MX</Language>
                                   </Style>
@@ -1144,7 +1144,7 @@
                                   <Value>=IIF(Fields!SaldoFCant.Value = "0", "-", Fields!SaldoFCant.Value)</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
-                                    <Format>0;(0)</Format>
+                                    <Format>#,0.0000;(#,0.0000)</Format>
                                     <Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
                                     <Language>es-MX</Language>
                                   </Style>
@@ -1726,7 +1726,6 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                   </TablixCells>
@@ -1859,6 +1858,7 @@
               </Paragraphs>
               <rd:DefaultName>Textbox2</rd:DefaultName>
               <Top>1.13799cm</Top>
+              <Left>0.01cm</Left>
               <Height>0.52945cm</Height>
               <Width>20.5896cm</Width>
               <ZIndex>1</ZIndex>

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
 

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
 

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

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

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

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

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

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