option strict on

2023-08-24 00:38:39 -07:00
parent 85d1bcd386
commit 4c6f8bbaef
15 changed files with 96 additions and 103 deletions
--- a/Inventarios/InventarioFisico.aspx.vb
+++ b/Inventarios/InventarioFisico.aspx.vb
@@ -116,7 +116,7 @@ Partial Class Inventarios_InventarioFisico
    End Sub
    Private Sub CargaGvAlmacen()
        Dim ObjInventario As New ClsInventarios()
-        If ObjInventario.GetInventarioFisicoDetallesAlmacen(HdnID.Value, UsuarioActual.CveEmpresa) Then
+        If ObjInventario.GetInventarioFisicoDetallesAlmacen(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa) Then
            GvAlmacen.DataSource = ObjInventario.DtResultados
            GvAlmacen.DataBind()
        End If
@@ -125,7 +125,7 @@ Partial Class Inventarios_InventarioFisico
    End Sub
    Private Sub CargaGvClasificacion()
        Dim ObjInventario As New ClsInventarios()
-        If ObjInventario.GetInventarioFisicoDetallesClasificacion(HdnID.Value, UsuarioActual.CveEmpresa) Then
+        If ObjInventario.GetInventarioFisicoDetallesClasificacion(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa) Then
            GvClasificacion.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
            GvClasificacionExcluida.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 0")
        End If
@@ -137,7 +137,7 @@ Partial Class Inventarios_InventarioFisico
    End Sub
    Private Sub CargaGvProductosServicios()
        Dim ObjInventario As New ClsInventarios()
-        If ObjInventario.GetInventarioFisicoDetallesProductosServicios(HdnID.Value, UsuarioActual.CveEmpresa) Then
+        If ObjInventario.GetInventarioFisicoDetallesProductosServicios(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa) Then
            GvPS.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
            GvPSExcluye.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 0")
        End If
@@ -150,7 +150,7 @@ Partial Class Inventarios_InventarioFisico

    Private Sub CargaGvProveedores()
        Dim ObjInventario As New ClsInventarios()
-        If ObjInventario.GetInventarioFisicoDetallesProveedores(HdnID.Value, UsuarioActual.CveEmpresa) Then
+        If ObjInventario.GetInventarioFisicoDetallesProveedores(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa) Then
            GvProveedor.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
        End If
        ObjInventario.Dispose()
@@ -160,7 +160,7 @@ Partial Class Inventarios_InventarioFisico

    Private Sub CargaGvUsuarios()
        Dim ObjInventario As New ClsInventarios()
-        If ObjInventario.GetInventarioFisicoDetallesUsuarios(HdnID.Value, UsuarioActual.CveEmpresa) Then
+        If ObjInventario.GetInventarioFisicoDetallesUsuarios(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa) Then
            gvUsuarios.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
        End If
        ObjInventario.Dispose()
@@ -244,7 +244,7 @@ Partial Class Inventarios_InventarioFisico
    End Sub

    Private Sub BtnAgregarProductosServicios_Click(sender As Object, e As EventArgs) Handles BtnAgregarProductosServicios.Click
-        If DdlProductosServicios.SelectedValue = -1 Then
+        If DdlProductosServicios.SelectedValue = "-1" Then
            Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
            GvPS.DataSource = Nothing
            GvPS.DataBind()
@@ -262,7 +262,7 @@ Partial Class Inventarios_InventarioFisico
    End Sub

    Private Sub BtnAddPSExcluye_Click(sender As Object, e As EventArgs) Handles BtnAddPSExcluye.Click
-        If DdlPSExcluye.SelectedValue = -1 Then
+        If DdlPSExcluye.SelectedValue = "-1" Then
            Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
            GvPSExcluye.DataSource = Nothing
            GvPSExcluye.DataBind()
@@ -302,7 +302,7 @@ Partial Class Inventarios_InventarioFisico
    End Sub

    Private Sub BtnAgregarClasificaciones_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificaciones.Click
-        If DdlClasificacion.SelectedValue = -1 Then
+        If DdlClasificacion.SelectedValue = "-1" Then
            Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
            GvClasificacion.DataSource = Nothing
            GvClasificacion.DataBind()
@@ -331,7 +331,7 @@ Partial Class Inventarios_InventarioFisico
    End Sub

    Protected Sub BtnClasificacionExcluida_Click(sender As Object, e As EventArgs)
-        If DdlClasificacionExcluida.SelectedValue = -1 Then
+        If DdlClasificacionExcluida.SelectedValue = "-1" Then
            Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
            GvClasificacionExcluida.DataSource = Nothing
            GvClasificacionExcluida.DataBind()
@@ -359,7 +359,7 @@ Partial Class Inventarios_InventarioFisico

 #Region "PROVEEDORES"
    Private Sub BtnAgregarProveedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarProveedor.Click
-        If DdlProveedor.SelectedValue = -1 Then
+        If DdlProveedor.SelectedValue = "-1" Then
            Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
            GvPS.DataSource = Nothing
            GvPS.DataBind()
@@ -396,7 +396,7 @@ Partial Class Inventarios_InventarioFisico
 #Region "USUARIOS"

    Private Sub btnAddUsuarios_Click(sender As Object, e As EventArgs) Handles btnAddUsuarios.Click
-        If DdlUsuarios.SelectedValue = -1 Then
+        If DdlUsuarios.SelectedValue = "-1" Then
            Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
            GvPS.DataSource = Nothing
            GvPS.DataBind()
@@ -448,7 +448,7 @@ Partial Class Inventarios_InventarioFisico
        Dim Cerrado As Boolean = Convert.ToBoolean(tDTUsuario.Rows(GvRow.RowIndex.ToEntero).Item(3))
        Dim Bloqueado As Boolean = Convert.ToBoolean(tDTUsuario.Rows(GvRow.RowIndex.ToEntero).Item(4))

-        ObjInventario.UpdateInventarioFisicoUsuarios(HdnID.Value, CveUsuario, Cerrado, Bloqueado)
+        ObjInventario.UpdateInventarioFisicoUsuarios(HdnID.Value.ToEntero, CveUsuario, Cerrado, Bloqueado)
        gvUsuarios.DataSource = tDTUsuario
        gvUsuarios.DataBind()
        upUsuarios.Update()
@@ -462,7 +462,7 @@ Partial Class Inventarios_InventarioFisico
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        HdnID.Value = GvRow.DataKey("CveInventarioFisico")
        UppInventarioFisico.Update()
-        If ObjInventario.RemoveInventarioFisico(HdnID.Value) Then
+        If ObjInventario.RemoveInventarioFisico(HdnID.Value.ToEntero) Then
            CargaDatos(UsuarioActual.CveEmpresa)
            Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
        End If
@@ -503,8 +503,8 @@ Partial Class Inventarios_InventarioFisico
        myModalLabel.InnerText = "Actualizar Inventario Fisico"
        TxtTitulo.Text = GvRow.DataKey("InventarioFisico")
        TxtObservaciones.Text = GvRow.DataKey("Observaciones")
-        FechaInicio = GvRow.DataKey("FechaInicio").ToEntero
-        FechaFin = GvRow.DataKey("FechaFin").ToEntero
+        FechaInicio = GvRow.DataKey("FechaInicio")
+        FechaFin = GvRow.DataKey("FechaFin")
        DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
        chkUsarApp.Checked = Convert.ToBoolean(GvRow.DataKey("ConAplicacion").ToString)
        divUsuarios.Visible = chkUsarApp.Checked
@@ -513,13 +513,13 @@ Partial Class Inventarios_InventarioFisico
        CargaGvProductosServicios()
        CargaGvProveedores()
        CargaGvUsuarios()
-        tDTClasif = GvClasificacion.DataSource
-        tDTClasifExcluye = GvClasificacionExcluida.DataSource
-        tDTPS = GvPS.DataSource
-        tDTPSExcluye = GvPSExcluye.DataSource
-        tDTProv = GvProveedor.DataSource
-        tDTUsuario = gvUsuarios.DataSource
-        tALM = GvAlmacen.DataSource
+        tDTClasif = CType(GvClasificacion.DataSource, DataTable)
+        tDTClasifExcluye = CType(GvClasificacionExcluida.DataSource, DataTable)
+        tDTPS = CType(GvPS.DataSource, DataTable)
+        tDTPSExcluye = CType(GvPSExcluye.DataSource, DataTable)
+        tDTProv = CType(GvProveedor.DataSource, DataTable)
+        tDTUsuario = CType(gvUsuarios.DataSource, DataTable)
+        tALM = CType(GvAlmacen.DataSource, DataTable)
        UpAddInventarioFisico.Update()
        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddInventarioFisico"))
    End Sub
@@ -748,7 +748,7 @@ Partial Class Inventarios_InventarioFisico
                Else
                    ErrorClasif = False
                End If
-                If ErrorClasif = False And HdnID.Value > 0 Then
+                If ErrorClasif = False And HdnID.Value.ToEntero > 0 Then
                    ObjInventario.Commit()
                    Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
                    RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddInventarioFisico"))
@@ -823,7 +823,7 @@ Partial Class Inventarios_InventarioFisico

    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        Dim ObjInventario As New ClsInventarios
-        If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue, UsuarioActual.CveUsuario) Then
+        If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
            gvIF.DataSource = ObjInventario.DtResultados
            gvIF.DataBind()
            gvIF.Columns(1).HeaderText = LblSubProyecto.Text