From f8447845b8c48a1ed8885d2f3e103c6d85fc8055 Mon Sep 17 00:00:00 2001 From: MLopez Date: Sat, 11 Feb 2023 11:05:09 -0700 Subject: [PATCH] =?UTF-8?q?Corregir=20errores=20de=20compilaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- AF/CatClasificacionesCaracteristicas.aspx.vb | 85 ++++--------------- Bancos/ConciliacionesBancarias.aspx.vb | 4 +- Bancos/FluctuacionCambiaria.aspx.vb | 4 +- .../MovimientosconProveedores.aspx.vb | 12 +-- Contabilidad2/RepEstadoResultados.aspx.vb | 4 +- 5 files changed, 29 insertions(+), 80 deletions(-) diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb index 96243065a..ce40b87ea 100644 --- 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() diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index 9c9dc72d7..a04dc3bc3 100644 --- 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 diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index d93124cd0..0257fb67f 100644 --- 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 diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb index 8c2a8b97a..1787296bb 100644 --- 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 diff --git a/Contabilidad2/RepEstadoResultados.aspx.vb b/Contabilidad2/RepEstadoResultados.aspx.vb index 87b1df7e3..03ad46471 100644 --- 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