-- option strict on

2023-08-25 07:35:45 -07:00
parent 7789b60482
commit 6ac06a9649
21 changed files with 76 additions and 76 deletions
--- a/Sistemas/CatDistribuidores.aspx.vb
+++ b/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)
--- a/Sistemas/CatModulos.aspx.vb
+++ b/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(),
-                                   TxtOrden.Text.Trim().ToEntero(), TxtEstilo.Text.Trim(), CboIncluye.SelectedValue, CboAgrupacion.SelectedValue, UsuarioActual.CveUsuario, HdnID.Value, DdlPlataforma.SelectedValue.ToEntero) Then
+            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.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
--- a/Sistemas/CatParametros.aspx.vb
+++ b/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)

--- a/Sistemas/CatSesiones.aspx.vb
+++ b/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
--- a/Sistemas/CatTareasProgramadas.aspx.vb
+++ b/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
-        CveTareaProgramada = GvRow.DataKey("CveTareaProgramada")
-        CveEmpresa = GvRow.DataKey("CveEmpresa")
+        Dim activo As Boolean = False
+        CveTareaProgramada = GvRow.DataKey("CveTareaProgramada").ToEntero
+        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")
-        CveEmpresa = GvRow.DataKey("CveEmpresa")
+        CveTareaProgramada = GvRow.DataKey("CveTareaProgramada").ToEntero
+        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

--- a/Sistemas/PopUpAddUsuario.aspx.vb
+++ b/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
--- a/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
+++ b/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
--- a/Sistemas/Registro.aspx.vb
+++ b/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
--- a/Sistemas/SessionesActivas.aspx.vb
+++ b/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}")