Corregir errores de compilación

2023-02-11 11:05:09 -07:00
parent f1495d6ad4
commit f8447845b8
5 changed files with 29 additions and 80 deletions
--- a/AF/CatClasificacionesCaracteristicas.aspx.vb
+++ b/AF/CatClasificacionesCaracteristicas.aspx.vb
@@ -53,8 +53,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
            'Carga Globals para DT
            CargaTiposActivosFijos()
            CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
-            CargaCaracteristicas()
+            ''CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicas()
        End If
    End Sub

@@ -77,30 +77,6 @@ Partial Class AF_CatClasificacionesCaracteristicas

        ObjAF.Dispose()
    End Sub
-    Private Sub CargaCaracteristicasClasificaciones()
-        Dim ObjAF As New ClsAF
-
-        If ObjAF.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
-            GlobalDTAFCaracteristicasClasificaciones = ObjAF.DtResultados
-            ViewState("DTCaracteristicaClasificacion") = ObjAF.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-        Else
-            Alert("Ocurrio un error al obtener las caracteristicas clasificaciones de Activos Fijos", TipoMensaje.MsgError)
-        End If
-
-        ObjAF.Dispose()
-    End Sub
-    Private Sub CargaCaracteristicas()
-        Dim ObjAF As New ClsAF
-
-        If ObjAF.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
-            GlobalDTAFCaracteristicas = ObjAF.DtResultados
-        Else
-            Alert("Ocurrio un error al obtener las caracteristicas de Activos Fijos", TipoMensaje.MsgError)
-        End If
-
-        ObjAF.Dispose()
-    End Sub
-
 #Region "CLASIFICACIONES"
    Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click
        Dim ObjCaracteristicaClasificacion As New ClsAF
@@ -111,7 +87,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
            UpTitulosCL.Update()

            CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()

            If ViewState("OrdenCL").ToString() <> String.Empty Then
                CargaGrid(ViewState("OrdenCL").ToString(), 0)
@@ -126,16 +101,6 @@ Partial Class AF_CatClasificacionesCaracteristicas

 #Region "CARGA DATOS"
    Public Sub CargaDatosCL()
-        Dim ObjCaracteristicaClasificacion As New ClsAF
-        If ObjCaracteristicaClasificacion.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
-            ViewState("DTCaracteristicaClasificacion") = ObjCaracteristicaClasificacion.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-            GlobalDTAFCaracteristicasClasificaciones = ObjCaracteristicaClasificacion.DtResultados
-        Else
-            Me.GvDatosCL.DataSource = Nothing
-        End If
-
-        ObjCaracteristicaClasificacion.Dispose()
-
        If ViewState("OrdenCL").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenCL").ToString(), 0)
        Else
@@ -184,7 +149,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
            GvDatosCL.EditIndex = -1

            CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicasClasificaciones()

            Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If
@@ -219,7 +184,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
            GvDatosCL.EditIndex = -1

            CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicasClasificaciones()

            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
        End If
@@ -263,12 +228,11 @@ Partial Class AF_CatClasificacionesCaracteristicas
            TxtLongitudCA.Text = ""
            Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion)
            UpTitulosCA.Update()
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-
+            GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing

            CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
-            CargaCaracteristicas()
+            ''CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicas()

            If ViewState("OrdenCA").ToString() <> String.Empty Then
                CargaGrid(ViewState("OrdenCA").ToString(), 1)
@@ -281,16 +245,6 @@ Partial Class AF_CatClasificacionesCaracteristicas

 #Region " CARGA DATOS"
    Public Sub CargaDatosCA()
-        Dim ObjCaracteristicas As New ClsAF
-        If ObjCaracteristicas.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados
-        Else
-            Me.GvDatosCA.DataSource = Nothing
-        End If
-
-        ObjCaracteristicas.Dispose()
-
        If ViewState("OrdenCA").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenCA").ToString(), 1)
        Else
@@ -301,7 +255,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
    End Sub
    Private Sub CargaClasificacionesCA()
        DdlClasificacionesCA.Items.Clear()
-        DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero))
+        DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero))
        DdlClasificacionesCA.DataBind()
        UpdatePanel1.Update()
    End Sub
@@ -374,8 +328,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
        Dim ObjCaracteristicas As New ClsAF
        If ObjCaracteristicas.RemoveCaracteristica(GvDatosCA.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
            GvDatosCA.EditIndex = -1
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados
+            GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
            Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

@@ -412,7 +365,7 @@ Partial Class AF_CatClasificacionesCaracteristicas

        If ObjCaracteristicas.UpdateCaracteristica(CveCaracteristicaClasificacion, Caracteristica, CveTipoActivoFijo, CveSubTipoActivoFijo, TipoCampo, Longitud, CBool(Requerida), Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristica) Then
            GvDatosCA.EditIndex = -1
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing

            CargaSubTiposActivosFijos()

@@ -521,7 +474,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
        DdlCaracteristicaOpciones.Items.Clear()
        'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero)
        Dim Filtro = If(DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", DdlTiposActivosFijosOpciones.SelectedValue.ToEntero))
-        DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro)
+        DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro)
        DdlCaracteristicaOpciones.DataBind()
        DdlCaracteristicaOpciones.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub
@@ -581,7 +534,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
                e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").Items.Insert(0, New ListItem("Todos", "-1"))
                e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo")

-                e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas
+                e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
                e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataBind()
                FiltraCaracteristicas1(e.Row.FCDropDownList("DdlTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlCaracteristicasOpciones"))
                e.Row.FCDropDownList("DdlCaracteristicasOpciones").SelectedValue = e.Row.DBCampo("CveCaracteristica")
@@ -691,7 +644,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
        ddlC.Items.Clear()
        'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero)
        Dim Filtro = If(ddlST.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", ddlST.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", ddlT.SelectedValue.ToEntero))
-        ddlC.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro)
+        ddlC.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro)
        ddlC.DataBind()
        ddlC.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub
@@ -742,21 +695,17 @@ Partial Class AF_CatClasificacionesCaracteristicas
    Private Sub CargaGrid(Orden As String, gvi As Integer)
        If gvi = 0 Then
            If Orden <> String.Empty Then
-                Dim DV As New DataView(CType(ViewState("DTCaracteristicaClasificacion"), DataTable), "", Orden, DataViewRowState.CurrentRows)
-                GvDatosCL.DataSource = DV.ToTable()
-                DV.Dispose()
+                GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
            Else
-                GvDatosCL.DataSource = CType(ViewState("DTCaracteristicaClasificacion"), DataTable)
+                GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
            End If
            GvDatosCL.DataBind()
            UpDatosCL.Update()
        ElseIf gvi = 1 Then
            If Orden <> String.Empty Then
-                Dim DV As New DataView(CType(ViewState("DTCatacteristica"), DataTable), "", Orden, DataViewRowState.CurrentRows)
-                GvDatosCA.DataSource = DV.ToTable()
-                DV.Dispose()
+                GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
            Else
-                GvDatosCA.DataSource = CType(ViewState("DTCatacteristica"), DataTable)
+                GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
            End If
            GvDatosCA.DataBind()
            UpDatosCA.Update()
--- a/Bancos/ConciliacionesBancarias.aspx.vb
+++ b/Bancos/ConciliacionesBancarias.aspx.vb
@@ -638,14 +638,14 @@ Partial Class Bancos_ConciliacionesBancariasaspx
                End If
            End If
            If CveCuenta > 0 Then
-                If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuenta, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then
+                If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuenta, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, -1, -1, UsuarioActual.CveEmpresa, "1") Then
                    If ObjConta.DtResultados.Rows.Count > 1 Then
                        SaldoFinalContabilidad = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
                    End If
                End If
            End If
            If CveCuentaComplementaria > 0 Then
-                If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then
+                If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, -1, -1, UsuarioActual.CveEmpresa, "1") Then
                    If ObjConta.DtResultados.Rows.Count > 1 Then
                        SaldoFinalContabilidadComplementaria = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
                    End If
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -313,7 +313,7 @@ Partial Class Bancos_FluctuacionCambiaria
                Dim Total As Decimal = 0
                Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero
                If CveCuentaExtranjera > 0 Then
-                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, "-1", UsuarioActual.CveEmpresa, "1") Then
+                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then
                        If Conta.DtResultados.Rows.Count > 1 Then
                            Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
                        End If
@@ -324,7 +324,7 @@ Partial Class Bancos_FluctuacionCambiaria
                Dim SaldoActualContabilidad As Decimal = 0
                Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero
                If CveCuentaComplementaria > 0 Then
-                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, "-1", UsuarioActual.CveEmpresa, "1") Then
+                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then
                        If Conta.DtResultados.Rows.Count > 1 Then
                            SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
                        End If
--- a/Contabilidad2/MovimientosconProveedores.aspx.vb
+++ b/Contabilidad2/MovimientosconProveedores.aspx.vb
@@ -52,11 +52,11 @@ Partial Class MovimientosconProveedores
            ViewState("DTCuentas") = value
        End Set
    End Property
-    Private Property CveSubProyecto As String
+    Private Property CveSubProyecto As Integer
        Get
-            CveSubProyecto = ViewState("CveSubProyecto").ToString
+            CveSubProyecto = CType(ViewState("CveSubProyecto"), Integer)
        End Get
-        Set(value As String)
+        Set(value As Integer)
            ViewState("CveSubProyecto") = value
        End Set
    End Property
@@ -108,7 +108,7 @@ Partial Class MovimientosconProveedores
                    End If

                    If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
-                        CveSubProyecto = Request("CveSubProyecto").ToString
+                        CveSubProyecto = Request("CveSubProyecto").ToEntero
                    End If


@@ -184,9 +184,9 @@ Partial Class MovimientosconProveedores
        End If
        'Dim CveSubProyecto As String
        If Request("CveSubProyecto") IsNot Nothing Then
-            CveSubProyecto = Request("CveSubProyecto").ToString
+            CveSubProyecto = Request("CveSubProyecto").ToEntero
        Else
-            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
+            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
        End If

        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, 1) Then
--- a/Contabilidad2/RepEstadoResultados.aspx.vb
+++ b/Contabilidad2/RepEstadoResultados.aspx.vb
@@ -177,10 +177,10 @@ Partial Class Contabilidad2_RepEstadoResultados
        TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)

        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero

        Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, -1, CveSubProyecto, UsuarioActual.CveEmpresa) Then
            DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
        Else
            DtDatos = Nothing