-- option strict on

RH/CatEstatusPersonal.aspx.vb

@@ -165,7 +165,7 @@ Partial Class RH_CatEstatusPersonal
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
         PersonalEstatTxt.Text = GvRow.DataKey("EstatusPersonal")
         ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
-        CveEstatusPerAEditar = GvRow.DataKey("CveEstatusPersonal") 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
+        CveEstatusPerAEditar = GvRow.DataKey("CveEstatusPersonal").ToEntero 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
 
         UpDatos.Update()
         If ViewState("Orden").ToString() <> String.Empty Then

RH/CatMotivoBaja.aspx.vb

@@ -166,7 +166,7 @@ Partial Class RH_CatMotivoBaja
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
         MotivoTxt.Text = GvRow.DataKey("MotivoBaja")
         ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
-        CveMotivoBajaAEditar = GvRow.DataKey("CveMotivoBaja") 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
+        CveMotivoBajaAEditar = GvRow.DataKey("CveMotivoBaja").ToEntero 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
 
         UpDatos.Update()
         If ViewState("Orden").ToString() <> String.Empty Then

Sistemas/CatDistribuidores.aspx.vb

@@ -95,7 +95,7 @@ Partial Class Sistemas_CatDistribuidores
                 Alert("Ocurrió un error al agregar el distribuidor", TipoMensaje.MsgError)
             End If
         ElseIf EsEditar = 1 Then
-            If Plataforma.UpdateDistribuidor(CveDistribuidor, DdlPlataforma.SelectedValue, TxtDistribuidor.Text) Then
+            If Plataforma.UpdateDistribuidor(CveDistribuidor, DdlPlataforma.SelectedValue.ToEntero, TxtDistribuidor.Text) Then
                 Alert("el distribuidor se editó correctamente", TipoMensaje.MsgInformacion)
             Else
                 Alert("Ocurrió un error al editar el distribuidor", TipoMensaje.MsgError)

Sistemas/CatModulos.aspx.vb

@@ -54,8 +54,8 @@ Partial Class CatModulos
                 UpDatos.Update()
             End If
         ElseIf HdnModalidad.Value = "U" Then
-            If Modulo.UpdateModulo(CboPadres.SelectedValue, TxtDescripcion.Text.Trim(), TxtLiga.Text.Trim(), CboPopUp.SelectedValue, TxtAncho.Text.Trim().ToEntero(), TxtAlto.Text.Trim().ToEntero(),
+            If Modulo.UpdateModulo(CboPadres.SelectedValue.ToEntero, TxtDescripcion.Text.Trim(), TxtLiga.Text.Trim(), CboPopUp.SelectedValue, TxtAncho.Text.Trim().ToEntero(), TxtAlto.Text.Trim().ToEntero(),
-                                   TxtOrden.Text.Trim().ToEntero(), TxtEstilo.Text.Trim(), CboIncluye.SelectedValue, CboAgrupacion.SelectedValue, UsuarioActual.CveUsuario, HdnID.Value, DdlPlataforma.SelectedValue.ToEntero) Then
+                                   TxtOrden.Text.Trim().ToEntero(), TxtEstilo.Text.Trim(), CboIncluye.SelectedValue, CboAgrupacion.SelectedValue, UsuarioActual.CveUsuario, HdnID.Value.ToEntero, DdlPlataforma.SelectedValue.ToEntero) Then
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos"))
                 Alert("El Módulo se actualizó correctamente.", TipoMensaje.MsgInformacion)
                 CargaDatos()
@@ -117,7 +117,7 @@ Partial Class CatModulos
                 If Modulo.GetModulos(-1, -1, "-1", "-1") Then
                     e.Row.FCDropDownList("B").DataSource = Modulo.DtResultados.FiltraParametros("CvePadre = 0 OR Agrupacion = 'S'")
                     e.Row.FCDropDownList("B").DataBind()
-                    e.Row.FCDropDownList("B").SelectedValue = e.Row.FCLabel("LB").Text.ToEntero
+                    e.Row.FCDropDownList("B").SelectedValue = e.Row.FCLabel("LB").Text
 
                 End If
             End If

Sistemas/CatParametros.aspx.vb

@@ -46,7 +46,7 @@ Partial Class CatParametros
 
     Protected Sub LbAgregar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LbAgregar.Click
         Dim Parametro As New ClsSisParametros
-        If Parametro.AddParametros(TxtCveParam.Text.ToEntero, TxtDescripcion.Text.Trim, CboModulos.SelectedValue.ToEntero, TxtStrValor1.Text, TxtStrValor2.Text, TxtNumValor1.Text.ToEntero, TxtNumValor2.Text.ToEntero, TxtDTValor1.Text, TxtDTValor2.Text, TxtDTVencimiento.Text, UsuarioActual.CveUsuario) Then
+        If Parametro.AddParametros(TxtCveParam.Text.ToEntero, TxtDescripcion.Text.Trim, CboModulos.SelectedValue.ToEntero, TxtStrValor1.Text, TxtStrValor2.Text, TxtNumValor1.Text, TxtNumValor2.Text, TxtDTValor1.Text, TxtDTValor2.Text, TxtDTVencimiento.Text, UsuarioActual.CveUsuario) Then
             TxtDescripcion.Text = ""
             Alert("El nuevo Parámetro se guardó correctamente.", TipoMensaje.MsgInformacion)
 

Sistemas/CatSesiones.aspx.vb

@@ -545,7 +545,7 @@ Partial Class Sistemas_CatSesiones
         'Dim ObjOC As New ClsOC
         'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
         'ObjOC.Dispose()
-        GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa, -1, -1) = Nothing
+        GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa, -1, "-1") = Nothing
     End Sub
 
     'Compras

Sistemas/CatTareasProgramadas.aspx.vb

@@ -120,9 +120,9 @@ Partial Class Sistemas_CatTareasProgramadas
         LtlTituloModalTareasProgramadas.Text = "Agregar Tarea Programada"
         BtnAgregarTareasProgramadasModal.Text = "Agregar"
 
-        DdlTareaProgra.SelectedValue = -1
+        DdlTareaProgra.SelectedValue = "-1"
         DdlTareaProgra_SelectedIndexChanged(Nothing, Nothing)
-        DdlEmpresas.SelectedValue = -1
+        DdlEmpresas.SelectedValue = "-1"
         TxtNumerico.Text = ""
         TxtParametros.Text = ""
         TxtCorreo.Text = ""
@@ -143,16 +143,16 @@ Partial Class Sistemas_CatTareasProgramadas
         Dim recursividadEnDias = 0
 
         If DdlTipoR.SelectedValue.ToString = "D" Then
-            recursividadEnDias = TxtNumerico.Text
+            recursividadEnDias = TxtNumerico.Text.ToEntero
         ElseIf DdlTipoR.SelectedValue.ToString = "H" Then
-            recursividadEnHoras = TxtNumerico.Text
+            recursividadEnHoras = TxtNumerico.Text.ToEntero
         ElseIf DdlTipoR.SelectedValue.ToString = "M" Then
-            recursividadEnMinutos = TxtNumerico.Text
+            recursividadEnMinutos = TxtNumerico.Text.ToEntero
         End If
 
 
         If Not Actualizar Then
-            If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue, DdlTareaProgra.SelectedValue, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then
+            If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue.ToEntero, DdlTareaProgra.SelectedValue.ToEntero, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then
 
                 CargadatosGvTareasProgramadas()
 
@@ -168,7 +168,7 @@ Partial Class Sistemas_CatTareasProgramadas
             If ObTareasProgra.RemoveTareasProgramadas(CveTareaProgramada, CveEmpresa) Then
             End If
 
-            If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue, DdlTareaProgra.SelectedValue, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then
+            If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue.ToEntero, DdlTareaProgra.SelectedValue.ToEntero, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then
 
                 CargadatosGvTareasProgramadas()
                 UpModalTareasProgramadas.Update()
@@ -193,9 +193,9 @@ Partial Class Sistemas_CatTareasProgramadas
 
         Dim ObTareasProgra As New ClsTareasProgramadas
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
+        Dim activo As Boolean = False
-        CveTareaProgramada = GvRow.DataKey("CveTareaProgramada")
+        CveTareaProgramada = GvRow.DataKey("CveTareaProgramada").ToEntero
-        CveEmpresa = GvRow.DataKey("CveEmpresa")
+        CveEmpresa = GvRow.DataKey("CveEmpresa").ToEntero
 
         If ObTareasProgra.RemoveTareasProgramadas(CveTareaProgramada, CveEmpresa) Then
             CargadatosGvTareasProgramadas()
@@ -216,13 +216,13 @@ Partial Class Sistemas_CatTareasProgramadas
     Public Sub Edit_ClickTareasProgramadas(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
+        Dim activo As Boolean = False
 
         LtlTituloModalTareasProgramadas.Text = "Editar Tarea Programada"
         Actualizar = True
 
-        CveTareaProgramada = GvRow.DataKey("CveTareaProgramada")
+        CveTareaProgramada = GvRow.DataKey("CveTareaProgramada").ToEntero
-        CveEmpresa = GvRow.DataKey("CveEmpresa")
+        CveEmpresa = GvRow.DataKey("CveEmpresa").ToEntero
 
         DdlTareaProgra.SelectedValueExist(CveTareaProgramada)
         DdlTareaProgra_SelectedIndexChanged(Nothing, Nothing)
@@ -230,13 +230,13 @@ Partial Class Sistemas_CatTareasProgramadas
         DdlEmpresas.SelectedValueExist(CveEmpresa)
 
         If GvRow.DataKey("RecursividadEnMinutos").ToEntero > 0 Then
-            TxtNumerico.Text = GvRow.DataKey("RecursividadEnMinutos").ToEntero
+            TxtNumerico.Text = GvRow.DataKey("RecursividadEnMinutos")
             DdlTipoR.SelectedValue = "M"
         ElseIf GvRow.DataKey("RecursividadEnHoras").ToEntero > 0 Then
-            TxtNumerico.Text = GvRow.DataKey("RecursividadEnHoras").ToEntero
+            TxtNumerico.Text = GvRow.DataKey("RecursividadEnHoras")
             DdlTipoR.SelectedValue = "H"
         ElseIf GvRow.DataKey("RecursividadEnDias").ToEntero > 0 Then
-            TxtNumerico.Text = GvRow.DataKey("RecursividadEnDias").ToEntero
+            TxtNumerico.Text = GvRow.DataKey("RecursividadEnDias")
             DdlTipoR.SelectedValue = "D"
         End If
 

Sistemas/PopUpAddUsuario.aspx.vb

@@ -81,14 +81,14 @@ Partial Class Sistemas_PopUpAddUsuario
                 CveProveedor = -1
             End If
 
-            If UsuarioActual.Empresa.CvePlataforma = 3 AndAlso (ViewState("CveProveedor") > 0 Or ViewState("CveCliente") > 0) Then
+            If UsuarioActual.Empresa.CvePlataforma = 3 AndAlso (ViewState("CveProveedor").ToString.ToEntero > 0 Or ViewState("CveCliente").ToString.ToEntero > 0) Then
                 CargaDispositivos()
                 CargarNotificaciones()
                 TabApp.Visible = True
                 CargaGridModulosAccesoApp()
             End If
 
-            If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso (ViewState("CveProveedor") > 0 OrElse ViewState("CveCliente") > 0) Then
+            If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso (ViewState("CveProveedor").ToString.ToEntero > 0 OrElse ViewState("CveCliente").ToString.ToEntero > 0) Then
                 TabVehiculos.Visible = False
                 TabPermisoVehiculos.Visible = False
                 TabNotificaciones.Visible = False
@@ -105,9 +105,9 @@ Partial Class Sistemas_PopUpAddUsuario
             End If
 
             'INICIALIZA CVEPLATAFORMA
-            If UsuarioActual.Empresa.CvePlataforma = 1 And ViewState("CveCliente") > 0 Then
+            If UsuarioActual.Empresa.CvePlataforma = 1 And ViewState("CveCliente").ToString.ToEntero > 0 Then
                 ViewState("CvePlataforma") = 6
-            ElseIf UsuarioActual.Empresa.CvePlataforma = 1 And ViewState("CveProveedor") > 0 Then
+            ElseIf UsuarioActual.Empresa.CvePlataforma = 1 And ViewState("CveProveedor").ToString.ToEntero > 0 Then
                 ViewState("CvePlataforma") = 7
             Else
                 ViewState("CvePlataforma") = 3
@@ -126,7 +126,7 @@ Partial Class Sistemas_PopUpAddUsuario
                 LtlUsuario.Text = ObjUsuario.DtResultados.Rows(0)("Usuario").ToString()
                 TxtEmail.Text = ObjUsuario.DtResultados.Rows(0)("Correo").ToString()
                 TxtNombre.Text = ObjUsuario.DtResultados.Rows(0)("Nombre").ToString()
-                ChkEstatus.Checked = ObjUsuario.DtResultados.Rows(0)("Estatus")
+                ChkEstatus.Checked = ObjUsuario.DtResultados.Rows(0)("Estatus").ToString = "True"
 
                 If ObjUsuario.DtResultados.Rows(0)("CveRol").ToString.ToEntero = 1200 OrElse ObjUsuario.DtResultados.Rows(0)("CveRol").ToString.ToEntero = 1198 Then
                     BtnDefaultPWD.Visible = True
@@ -561,7 +561,7 @@ Partial Class Sistemas_PopUpAddUsuario
                 For Each row As GridViewRow In GVNotificaciones.Rows
                     If row.FCCheckBox("chkCorreo").Checked OrElse row.FCCheckBox("chkVentana").Checked OrElse row.FCCheckBox("chkSMS").Checked OrElse
                                                                              row.FCCheckBox("chkApp").Checked OrElse row.FCCheckBox("chkCampana").Checked Then
-                        If Not ObjNotificaciones.AddUsuariosNotificacion(CveUsuario, row.DataKey("CveNotificacion"), row.FCCheckBox("chkCorreo").Checked, row.FCCheckBox("chkVentana").Checked, row.FCCheckBox("chkSMS").Checked,
+                        If Not ObjNotificaciones.AddUsuariosNotificacion(CveUsuario, row.DataKey("CveNotificacion").ToEntero, row.FCCheckBox("chkCorreo").Checked, row.FCCheckBox("chkVentana").Checked, row.FCCheckBox("chkSMS").Checked,
                                                                              row.FCCheckBox("chkApp").Checked, row.FCCheckBox("chkCampana").Checked) Then
                             HuboError = True
                         End If

Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb

@@ -49,7 +49,7 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
 
             Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c)
             If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
-                CveEmpresa = 119
+                CveEmpresa = "119"
             End If
 
             If splitedtext.Length > 0 Then

Sistemas/Registro.aspx.vb

@@ -53,7 +53,7 @@ Partial Class Sistemas_Registro
 
     Private Property CveEmpresaTemp As Integer
         Get
-            CveEmpresaTemp = ViewState("CveEmpresaTemp").ToString
+            CveEmpresaTemp = ViewState("CveEmpresaTemp").ToString.ToEntero
         End Get
         Set(value As Integer)
             ViewState("CveEmpresaTemp") = value

Sistemas/SessionesActivas.aspx.vb

@@ -74,7 +74,7 @@ Partial Class SessionesActivas
         dtU.Columns.Add("Modulo", System.Type.GetType("System.String"))
         dtU.Columns.Add("SessionID", System.Type.GetType("System.String"))
         Dim dtF As DataTable = dtU.Clone
-        Dim objlist As List(Of ADSSession.ADSSessionObj) = ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.getListasession)
+        Dim objlist As List(Of ADSSession.ADSSessionObj) = CType(ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.getListasession), List(Of ADSSession.ADSSessionObj))
 
         For Each user As ADSSession.ADSSessionObj In objlist
             Dim row As DataRow = dtU.FiltroPrimero($"CveUsuario={user.CveUsuario} AND CveEmpresa={user.CveEmpresa}")

Ventas/CatAutorizacionLimites.aspx.vb

@@ -223,7 +223,7 @@ Partial Class Ventas_CatAutorizacionLimites
             Dim LimiteCredito = gvRow.DataKey("LimiteCredito").ToDecimal()
             'SI EL LIMITE ES 0, PERMITE AUTORIZAR
             If LimiteCredito > 0 Then
-                Dim PorcentajeMaximoAutorizar As Decimal = 0.1
+                Dim PorcentajeMaximoAutorizar As Decimal = 0.1D
 
                 If UsuarioActual.PorcentajeMaximoAutorizacion > 0 Then
                     PorcentajeMaximoAutorizar = (UsuarioActual.PorcentajeMaximoAutorizacion / 100)
@@ -351,7 +351,7 @@ Partial Class Ventas_CatAutorizacionLimites
         StrFiltro.AppendFormat("Vendedor: {0},  ", DdlVendedorFiltro.SelectedItem)
         StrFiltro.AppendFormat("Fecha Inicio: {0}", txtFechaI.Text.ToDate.ToString("dd/MM/yyyy"))
         'If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(",  Fecha Fin: {0}", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"))
-        Dim fechaFin As String = IIf(txtFechaF.Text <> "", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"), Now.ToString("dd/MM/yyyy"))
+        Dim fechaFin As String = If(txtFechaF.Text <> "", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"), Now.ToString("dd/MM/yyyy"))
         StrFiltro.AppendFormat(",  Fecha Fin: {0}", fechaFin)
 
         'Oculta columnas en export sin afectar GridView en página

Ventas/CatCobranzaEstatus.aspx.vb

@@ -50,7 +50,7 @@ Partial Class Vta_CatCobranzaEstatus
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         CveCobranzaEstatus = GvRow.DataKey("CveCobranzaEstatus").ToEntero
         TxtEstatusCobranza.Text = GvRow.DataKey("CobranzaEstatus").ToString
-        ChkEstatus.Checked = GvRow.DataKey("Estatus")
+        ChkEstatus.Checked = GvRow.DataKey("Estatus") = "True"
         BtnAgregarEstatusCobranza.Text = "Actualizar"
         UpAddEstatus.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusCobranza"))
@@ -115,7 +115,7 @@ Partial Class Vta_CatCobranzaEstatus
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         CveCobranzaEstatusTurno = GvRow.DataKey("CveCobranzaEstatusTurno").ToEntero
         TxtEstatusCobranzaTurno.Text = GvRow.DataKey("CobranzaEstatusTurno").ToString
-        ChkEstatusTurno.Checked = GvRow.DataKey("Estatus")
+        ChkEstatusTurno.Checked = GvRow.DataKey("Estatus") = "True"
         BtnAgregarEstatusCobranzaTurno.Text = "Actualizar"
         UpAddEstatusTurno.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusCobranzaTurno"))

Ventas/CatDocumentosClientes.aspx.vb

@@ -92,7 +92,7 @@ Partial Class Vta_CatDocumentosClientes
     Property Estatus As Boolean
         Get
             If ViewState("Estatus") Is Nothing Then
-                Return 0
+                Return False
             Else
                 Return DirectCast(ViewState("Estatus"), Boolean)
             End If
@@ -132,7 +132,7 @@ Partial Class Vta_CatDocumentosClientes
     Property DiasLimite As Integer
         Get
             If ViewState("DiasLimite") Is Nothing Then
-                Return True
+                Return 1
             Else
                 Return DirectCast(ViewState("DiasLimite"), Integer)
             End If
@@ -257,26 +257,26 @@ Partial Class Vta_CatDocumentosClientes
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
-        CveDocumentacion = GvRow.DataKey("CveDocumentacion")
+        CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToEntero
         Documentacion = GvRow.DataKey("Documentacion")
         DocumentacionFormato = GvRow.DataKey("DocumentacionFormato")
-        CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo")
+        CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo").ToEntero
         DocumentacionTipo = GvRow.DataKey("DocumentacionTipo")
-        Orden = GvRow.DataKey("Orden")
+        Orden = GvRow.DataKey("Orden").ToEntero
-        Estatus = GvRow.DataKey("Estatus")
+        Estatus = GvRow.DataKey("Estatus") = "True"
-        Requerido = GvRow.DataKey("Requerido")
+        Requerido = GvRow.DataKey("Requerido") = "True"
 
         DiasLimite = GvRow.DataKey("DiasLimite").ToEntero
         AplicaDiasLimite = If(GvRow.DataKey("AplicaDiasLimite").ToEntero = 1, True, False)
         AplicaFechaVencimiento = If(GvRow.DataKey("AplicaFechaVencimiento").ToEntero = 1, True, False)
 
         Txtdocumentacion.Text = Documentacion
-        TxtOrden.Text = Orden
+        TxtOrden.Text = Orden.ToString
         DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo)
         chkEstatus.Checked = Estatus
         chkRequerido.Checked = Requerido
 
-        TxtDiasLimite.Text = DiasLimite
+        TxtDiasLimite.Text = DiasLimite.ToString
         ChkAplicaDiasLimite.Checked = AplicaDiasLimite
         ChkAplicaFechaVencimiento.Checked = AplicaFechaVencimiento
 
@@ -339,7 +339,7 @@ Partial Class Vta_CatDocumentosClientes
     Public Sub Remove_ClickDocumentacion(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion")
+        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToEntero
         Dim _documetacionFormato As String = GvRow.DataKey("DocumentacionFormato")
 
 
@@ -384,7 +384,7 @@ Partial Class Vta_CatDocumentosClientes
         If ActualizarDocumentacion Then
 
             _formato = GuardarArchivo(CveDocumentacion)
-            If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
+            If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.CveEmpresa) Then
 
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion"))
                 Alert("Documento Actualizado  correctamente.", TipoMensaje.MsgInformacion)
@@ -392,11 +392,11 @@ Partial Class Vta_CatDocumentosClientes
             End If
 
         Else
-            If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
+            If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.CveEmpresa) Then
 
                 CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero
                 _formato = GuardarArchivo(CveDocumentacion)
-                If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
+                If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.CveEmpresa) Then
 
                 End If
 
@@ -421,7 +421,7 @@ Partial Class Vta_CatDocumentosClientes
             Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString.ToEntero
             Dim DocumetacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString
             Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
-            Dim separado As Char() = {"."}
+            Dim separado As Char() = {"."c}
             Dim array() As String = DocumetacionFormato.Split(separado)
             Dim extencion As String = ""
 

Ventas/CatMetasVendedores.aspx.vb

@@ -15,7 +15,7 @@ Partial Class CatMetasVendedores
 
     Private Property DtDatos() As DataTable
         Get
-            Return ViewState("DtDatos")
+            Return CType(ViewState("DtDatos"), DataTable)
         End Get
         Set
             ViewState("DtDatos") = Value
@@ -97,7 +97,7 @@ Partial Class CatMetasVendedores
 
             Dim ObjVentas As New ClsVentas
             If BtnAgregarMetaVendedor.Text = "Agregar" Then
-                If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero,
+                If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text.ToDate, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero,
                                             TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
                     Alert("Se agregó la meta al vendedor")
                 Else
@@ -324,8 +324,8 @@ Partial Class CatMetasVendedores
                         Dim CveClasificacion2 As Integer = DtClasificaciones2.FiltroPrimeroValor("CveClasificacion", String.Format("trim(Clasificacion)='{0}'", row("Clasificación").ToString().TrimStart().TrimEnd())).ToEntero
                         Dim CveMarca As Integer = DtMarcas.FiltroPrimeroValor("CveMarca", String.Format("Marca='{0}'", row("Marca").ToString().TrimStart().TrimEnd())).ToEntero
 
-                        Dim Mes As Decimal = row("Mes").ToString().ToDecimal()
+                        Dim Mes As Integer = row("Mes").ToString().ToEntero()
-                        Dim Anio As Decimal = row("Año").ToString().ToDecimal()
+                        Dim Anio As Integer = row("Año").ToString().ToEntero()
                         Dim Cantidad As Decimal = row("Cantidad").ToString().ToDecimal()
                         Dim Importe As Decimal = row("Importe").ToString().ToDecimal()
 

Ventas/MetasVendedores.aspx.vb

@@ -57,7 +57,7 @@ Partial Class MetasVendedores
         End If
 
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
+        If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text.ToDate, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
                                            DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
                                            DdlSubProyectoFiltro.SelectedValue.ToEntero, CveCliente, DdlDistribuidor.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero) Then
             GV.DataSource = ObjVentas.DtResultados
@@ -109,7 +109,7 @@ Partial Class MetasVendedores
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
-        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString))
         params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
         params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))
 
@@ -124,7 +124,7 @@ Partial Class MetasVendedores
 
         params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
-        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString))
         params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
         params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))
 

Ventas/PuntoVenta.aspx.vb

@@ -43,7 +43,7 @@ Partial Class Ventas_PuntoVenta
         ' Return a base 64 encoded string of the Hash value
         Dim i As Integer
         For i = 0 To byteHash.Length - 1
-            Respuesta = Respuesta + Hex(byteHash(i)).ToString.PadLeft(2, "0")
+            Respuesta = Respuesta + Hex(byteHash(i)).ToString.PadLeft(2, "0"c)
         Next
 
         Return Respuesta

Ventas/RepIngresosDetalle.aspx.vb

@@ -75,7 +75,7 @@ Partial Class Ventas_RepIngresosDetalle
             RsFechaI = If(IsNothing(Request("RsFechaI")), "", Request("RsFechaI").ToString())
             RsFechaF = If(IsNothing(Request("RsFechaF")), "", Request("RsFechaF").ToString())
             TipoDoc = If(IsNothing(Request("TipoDoc")), "", Request("TipoDoc").ToString())
-            CveCuenta = If(IsNothing(Request("CveCuenta")), "", Request("CveCuenta").ToString())
+            CveCuenta = If(IsNothing(Request("CveCuenta")), "", Request("CveCuenta").ToString()).ToEntero
             CveSubProyecto = If(IsNothing(Request("CveSubProyecto")), 0, Request("CveSubProyecto").ToString().ToEntero())
             CveConceptoContable = If(IsNothing(Request("CveConceptoContable")), -1, Request("CveConceptoContable").ToString().ToEntero())
             TipoAmortizacion = If(IsNothing(Request("TipoAmortizacion")), -1, Request("TipoAmortizacion").ToString().ToEntero())

Ventas/RepVentasMensuales.aspx.vb

@@ -50,7 +50,7 @@ Partial Class RepVentasMensuales
 
     Private Sub CargaDatos()
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetRepVentasMensuales(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacionesPS.SelectedValue.ToEntero,
+        If ObjVentas.GetRepVentasMensuales(UsuarioActual.CveEmpresa, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacionesPS.SelectedValue.ToEntero,
                                             DdlVendedor.SelectedValue.ToEntero, DdlMarca.SelectedValue.ToEntero, DdlModalidad.SelectedValue.ToEntero) Then
             GV.DataSource = ObjVentas.DtResultados
             DtDatos = ObjVentas.DtResultados
@@ -72,7 +72,7 @@ Partial Class RepVentasMensuales
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
-        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString))
         params.Add(New ReportParameter("Modalidad", DdlModalidad.SelectedValue))
 
         ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensuales.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "PDF", RDSName:="DataSet1")
@@ -90,10 +90,10 @@ Partial Class RepVentasMensuales
                 CveCliente = e.Row.DataKey("Clave").ToEntero
                 CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
             Else
-                CveSubProyecto = e.Row.DataKey("Clave")
+                CveSubProyecto = e.Row.DataKey("Clave").ToEntero
             End If
-            Dim FechaInicio As Date = TxtFechaI.Text
+            Dim FechaInicio As Date = TxtFechaI.Text.ToDate
-            Dim FechaFin As Date = TxtFechaF.Text
+            Dim FechaFin As Date = TxtFechaF.Text.ToDate
             Dim CveMarca As Integer = DdlMarca.SelectedValue.ToEntero
             Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero
             Dim URL As String = String.Format("/Ventas/RepVentasMensualesDetalle.aspx?CveCliente={0}&CveSubProyecto={1}&FechaInicio={2}&FechaFin={3}&CveMarca={4}&CveVendedor={5}",

Ventas/RepVentasMensualesDetalle.aspx.vb

@@ -24,12 +24,12 @@ Partial Class RepVentasMensualesDetalle
     Private Sub CargaDatos()
         'URL DE PRUEBA
         '/Ventas/RepVentasMensualesDetalle.aspx?CveCliente=270821&CveSubProyecto=-1&FechaInicio=2020-02-15&FechaFin=2020-02-20&CveMarca=-1&CveVendedor=-1
-        Dim FechaInicio As Date = Request.QueryString("FechaInicio")
+        Dim FechaInicio As Date = Request.QueryString("FechaInicio").ToDate
-        Dim FechaFin As Date = Request.QueryString("FechaFin")
+        Dim FechaFin As Date = Request.QueryString("FechaFin").ToDate
-        Dim CveCliente As Integer = Request.QueryString("CveCliente")
+        Dim CveCliente As Integer = Request.QueryString("CveCliente").ToEntero
-        Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto")
+        Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto").ToEntero
-        Dim CveMarca As Integer = Request.QueryString("CveMarca")
+        Dim CveMarca As Integer = Request.QueryString("CveMarca").ToEntero
-        Dim CveVendedor As Integer = Request.QueryString("CveVendedor")
+        Dim CveVendedor As Integer = Request.QueryString("CveVendedor").ToEntero
 
         Dim ObjVentas As New ClsVentas
         If ObjVentas.GetRepVentasMensualesDetalle(UsuarioActual.CveEmpresa, CveCliente, FechaInicio, FechaFin, CveSubProyecto, CveVendedor, CveMarca) Then
@@ -48,8 +48,8 @@ Partial Class RepVentasMensualesDetalle
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
-        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString))
-        params.Add(New ReportParameter("Modalidad", 2))
+        params.Add(New ReportParameter("Modalidad", "2"))
 
         ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensualesDetalle.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "PDF", RDSName:="DataSet1")
     End Sub

Ventas/RepVentasResumen.aspx.vb

@@ -84,7 +84,7 @@ Partial Class Ventas_RepVentasResumen
         Dim ObjVentas As New ClsVentas
         Dim ObjMovtos As New ClsMovimientos()
 
-        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.ToDate, TxtFechaF.Text.ToDate, MinFecha, MaxFecha, -1,
                                               -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then
             VxP = ObjVentas.DtResultados
             GvVxP.DataSource = VxP
@@ -93,7 +93,7 @@ Partial Class Ventas_RepVentasResumen
             VxP = Nothing
         End If
 
-        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.ToDate(), TxtFechaF.Text.ToDate(), MinFecha, MaxFecha, -1,
                                               -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 10, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then
             VxC = ObjVentas.DtResultados
             GvVxC.DataSource = VxC
@@ -103,7 +103,7 @@ Partial Class Ventas_RepVentasResumen
             VxC = Nothing
         End If
 
-        If ObjMovtos.GetRepRecuperacion(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, -1, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+        If ObjMovtos.GetRepRecuperacion(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
             Datos = ObjVentas.DtResultados
             GvPxC.DataSource = Datos
         Else