From 2edb2c1e20dd04a54d59ba2eccd2c076650f3db1 Mon Sep 17 00:00:00 2001 From: MLopez Date: Thu, 2 Feb 2023 16:41:40 -0700 Subject: [PATCH] =?UTF-8?q?Limpieza=20ClsPaginas=20-Simplificar=20concaten?= =?UTF-8?q?aci=C3=B3n=20de=20CveEmpresa=20en=20AppNombre?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 164 ++++++++++++++++++++--------------------- 1 file changed, 82 insertions(+), 82 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 19dd4304d..2c69a5669 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -198,7 +198,7 @@ Public Class ClsPaginas Property GlobalDTUsuarios(Optional CveUsuario As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTUsuarios-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTUsuarios-{CveEmpresa}" If Application(AppNombre) Is Nothing Then Using ObjUsuarios As New ClsSisUsuarios If ObjUsuarios.GetUsuariosEmpresas(-1, CveEmpresa) Then Application(AppNombre) = ObjUsuarios.DtResultados @@ -221,13 +221,13 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTUsuarios-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTUsuarios-{CveEmpresa}" Application(AppNombre) = value End Set End Property Property GlobalDTNomConceptos(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTNomConceptos-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTNomConceptos-{CveEmpresa}" If Application("GlobalDTNomConceptos") Is Nothing Then Dim ObjNom As New ClsNominas If ObjNom.GetConceptos(CveEmpresa) Then Application(AppNombre) = ObjNom.DtResultados @@ -238,13 +238,13 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTNomConceptos-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTNomConceptos-{CveEmpresa}" Application(AppNombre) = value End Set End Property Property GlobalDTTiposGastos(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTTiposGastos-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTTiposGastos-{CveEmpresa}" If Application(AppNombre) Is Nothing Then Dim ObjCompra As New ClsCompras() If ObjCompra.GetTipoGasto(-1, -1) Then Application(AppNombre) = ObjCompra.DtResultados Else Application(AppNombre) = Nothing @@ -265,7 +265,7 @@ Public Class ClsPaginas End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTTiposGastos-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTTiposGastos-{CveEmpresa}" Application(AppNombre) = value End Set @@ -632,7 +632,7 @@ Public Class ClsPaginas End Property Property GlobalDTUsuarioResponsable(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTUsuarioResponsable-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTUsuarioResponsable-{CveEmpresa}" If Application(AppNombre) Is Nothing Then Using ObjUsuarios As New ClsSisUsuarios If ObjUsuarios.GetUsuariosEmpresas(-1, CveEmpresa) Then Application(AppNombre) = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") @@ -654,7 +654,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTUsuarioResponsable-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTUsuarioResponsable-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -669,7 +669,7 @@ Public Class ClsPaginas Property GlobalDTCuentasDepositosClientes(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional Estatus As Boolean = True) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTCuentasDepositosClientes-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTCuentasDepositosClientes-{CveEmpresa}" 'sino existe, recarga los datos If DirectCast(Application(AppNombre), DataTable) Is Nothing Then Dim P As New ClsGenerales @@ -690,13 +690,13 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTCuentasDepositosClientes-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTCuentasDepositosClientes-{CveEmpresa}" Application(AppNombre) = value End Set End Property Property GlobalDTProveedorClasificacion(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTProveedorClasificacion-{CveEmpresa}" 'sino existe, recarga los datos If DirectCast(Application(AppNombre), DataTable) Is Nothing Then Dim P As New ClsCompProveedores @@ -714,14 +714,14 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTProveedorClasificacion-{CveEmpresa}" Application(AppNombre) = value End Set End Property Property GlobalDTProveedorSucursales(CveProveedor As Integer, CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTProveedorSucursales-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTProveedorSucursales-{CveEmpresa}" 'sino existe, recarga los datos If DirectCast(Application(AppNombre), DataTable) Is Nothing Then Dim P As New ClsCompProveedores @@ -739,7 +739,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTProveedorSucursales-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTProveedorSucursales-{CveEmpresa}" Application(AppNombre) = value End Set @@ -918,7 +918,7 @@ Public Class ClsPaginas Public Shared Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTClasificaciones-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTClasificaciones-{CveEmpresa}" 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjClasificaciones As New ClsClasificaciones @@ -940,14 +940,14 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTClasificaciones-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTClasificaciones-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set End Property Property GlobalDTRHActividades(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTRHActividades-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTRHActividades-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then @@ -971,14 +971,14 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTRHActividades-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTRHActividades-{CveEmpresa}" Application(AppNombre) = value End Set End Property Property GlobalDTClasificaciones2(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTClasificaciones2-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTClasificaciones2-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjClasificaciones As New ClsClasificaciones @@ -999,7 +999,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTClasificaciones2-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTClasificaciones2-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -1114,7 +1114,7 @@ Public Class ClsPaginas Property GlobalDTChoferes(CveEmpresa As Integer, Optional CveChofer As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTChoferes-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTChoferes-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjAcar As New ClsAcarreos() @@ -1132,7 +1132,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTChoferes-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTChoferes-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -1239,7 +1239,7 @@ Public Class ClsPaginas End Property Public Shared Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTUnidadesMedida-{CveEmpresa}" 'sino existe, recarga los datos If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0) Then Dim ObjUnidadesMedida As New ClsUnidadesMedida() @@ -1256,13 +1256,13 @@ Public Class ClsPaginas End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTUnidadesMedida-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set End Property Property GlobalDTUnidadesMedidaAlias(Optional CveEmpresa As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTUnidadesMedidaAlias-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTUnidadesMedidaAlias-{CveEmpresa}" 'sino existe, recarga los datos If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then Dim ObjUnidadesMedida As New ClsUnidadesMedida() @@ -1278,7 +1278,7 @@ Public Class ClsPaginas End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTUnidadesMedidaAlias-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTUnidadesMedidaAlias-{CveEmpresa}" Application(AppNombre) = value 'Dim ObjUnidadesMedida As New ClsUnidadesMedida() 'If ObjUnidadesMedida.GetUnidadesMedidaAlias(CveEmpresa, -1) Then Application(AppNombre) = ObjUnidadesMedida.DtResultados @@ -1336,7 +1336,7 @@ Public Class ClsPaginas Public Shared Property GlobalDTMotivosCancelacionEmpresa(CveEmpresa As Integer, Optional CveMotivoCancelacion As Integer = -1, Optional CveSATMotivoCancelacion As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTMotivosCancelacionEmpresa-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTMotivosCancelacionEmpresa-{CveEmpresa}" 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjGral As New ClsGenerales() @@ -1370,7 +1370,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTMotivosCancelacionEmpresa-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTMotivosCancelacionEmpresa-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set End Property @@ -1452,7 +1452,7 @@ Public Class ClsPaginas End Property Public Shared Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTSubProyectos-{CveEmpresa}" 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Or (DirectCast(HttpContext.Current.Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0) Then Dim P As New ClsSubProyectos @@ -1475,13 +1475,13 @@ Public Class ClsPaginas End Get Set(ByVal value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTSubProyectos-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set End Property Public Shared Property GlobalDTSubProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEstatus As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTSubProyectosUsuarios-{CveEmpresa}" If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjSubProyectos As New ClsSubProyectos() If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados @@ -1506,13 +1506,13 @@ Public Class ClsPaginas End Get Set(ByVal value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTSubProyectosUsuarios-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set End Property Public Shared Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTProyectosUsuarios-{CveEmpresa}" If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjSubProyectos As New ClsSubProyectos() If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) @@ -1536,7 +1536,7 @@ Public Class ClsPaginas End Get Set(ByVal value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTProyectosUsuarios-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set End Property @@ -1719,7 +1719,7 @@ Public Class ClsPaginas Public Property GlobalDTPSSimplificado(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional PSCodigo As String = "-1", Optional Estatus As Integer = 1, Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1, Optional Codigo As String = "-1", Optional CodigoSATPS As String = "-1") As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTPSSimplificado-{CveEmpresa}" If CveEmpresa <> -1 Then 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then @@ -1753,13 +1753,13 @@ Public Class ClsPaginas End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTPSSimplificado-{CveEmpresa}" Application(AppNombre) = value End Set End Property Property GlobalDTProductosServiciosAlias(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTProductosServiciosAlias-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTProductosServiciosAlias-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjPS As New ClsProductosServicios @@ -1782,13 +1782,13 @@ Public Class ClsPaginas End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTProductosServiciosAlias-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTProductosServiciosAlias-{CveEmpresa}" Application(AppNombre) = value End Set End Property Public Shared Property GlobalDTProductosServiciosEquivalencias(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTProductosServiciosEquivalencias-{CveEmpresa}" If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjPS As New ClsProductosServicios @@ -1810,7 +1810,7 @@ Public Class ClsPaginas End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTProductosServiciosEquivalencias-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set @@ -1833,7 +1833,7 @@ Public Class ClsPaginas Property GlobalDTPSAdicionales(CvePS As Integer, CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTPSAdicionales-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTPSAdicionales-{CveEmpresa}" If CveEmpresa <> -1 Then 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then @@ -1856,7 +1856,7 @@ Public Class ClsPaginas End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTPSAdicionales-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTPSAdicionales-{CveEmpresa}" Application(AppNombre) = value End Set @@ -1887,7 +1887,7 @@ Public Class ClsPaginas Property GlobalDTInvCamiones(CveEmpresa As Integer, Optional CveCamion As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTInvCamiones-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTInvCamiones-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjInventarios As New ClsInventarios @@ -1905,7 +1905,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTInvCamiones-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTInvCamiones-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -1935,7 +1935,7 @@ Public Class ClsPaginas End Property Property GlobalDTImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTImpuestosLocales-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTImpuestosLocales-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjPS As New ClsProductosServicios @@ -1956,7 +1956,7 @@ Public Class ClsPaginas End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTImpuestosLocales-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTImpuestosLocales-{CveEmpresa}" Application(AppNombre) = value 'Dim ObjPS As New ClsProductosServicios 'If ObjPS.GetPSImpuestosLocales(-1, CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados @@ -1995,7 +1995,7 @@ Public Class ClsPaginas 'End Property Public Shared Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1, Optional CveTipoCuenta As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTBancosCuentas-{CveEmpresa}" 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Using ObjBancos As New ClsBancos @@ -2019,7 +2019,7 @@ Public Class ClsPaginas 'GlobalDTBancosCuentas = DirectCast(Application("GlobalDTBancosCuentas"), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTBancosCuentas-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set End Property @@ -2117,7 +2117,7 @@ Public Class ClsPaginas 'Cliente Property GlobalDTCliente(CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional CveCliente As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTCliente-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjClientes As New ClsClientes @@ -2141,13 +2141,13 @@ Public Class ClsPaginas End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTCliente-{CveEmpresa}" Application(AppNombre) = value End Set End Property Property GlobalDTClienteClasificaciones(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTClienteClasificaciones-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjClientes As New ClsClientes @@ -2164,7 +2164,7 @@ Public Class ClsPaginas End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTClienteClasificaciones-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -2185,7 +2185,7 @@ Public Class ClsPaginas 'Variables para Ventas Property GlobalDTVendedores(CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional VendedorTipo As Integer = 1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTVendedores-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTVendedores-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjVendedores As New ClsVtaVendedores @@ -2208,7 +2208,7 @@ Public Class ClsPaginas End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTVendedores-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTVendedores-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -2228,7 +2228,7 @@ Public Class ClsPaginas End Property Property GlobalDTCompProveedores(CveEmpresa As Integer, Optional CveProveedor As Integer = -1, Optional RFC As String = "-1") As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTCompProveedores-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTCompProveedores-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjProveedores As New ClsCompProveedores @@ -2251,7 +2251,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTCompProveedores-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTCompProveedores-{CveEmpresa}" Application(AppNombre) = value 'Dim ObjProveedores As New ClsCompProveedores 'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then Application(AppNombre) = ObjProveedores.DtResultados @@ -2277,7 +2277,7 @@ Public Class ClsPaginas End Property Property GlobalDTContratos(CveEmpresa As Integer, Optional CveContrato As Integer = -1, Optional CveSubProyecto As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTContratos-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTContratos-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Using ObjContratos As New ClsContratos @@ -2296,7 +2296,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTContratos-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTContratos-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -2352,7 +2352,7 @@ Public Class ClsPaginas End Property Public Shared Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1, Optional CveAlmacen As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTAlmacen-{CveEmpresa}" 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjUsr As New ClsInventarios @@ -2372,14 +2372,14 @@ Public Class ClsPaginas Dv.Dispose() End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTAlmacen-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set End Property Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1, Optional CveEstatus As Integer = 1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTAlmacenUsuarios-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjUsr As New ClsSisUsuarios @@ -2397,7 +2397,7 @@ Public Class ClsPaginas Dv.Dispose() End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTAlmacenUsuarios-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -2432,7 +2432,7 @@ Public Class ClsPaginas If ObjInv.GetProductosServiciosAlmacenSeccionClasificacion(CvePS, CveAlmacen, CveEmpresa) Then dtt = ObjInv.DtResultados ObjInv.Dispose() GlobalDTInvPSSeccionesAlmacen = dtt - 'Dim AppNombre As String = String.Format("GlobalDTInvPSSeccionesAlmacen-{0}", CveEmpresa) + 'Dim AppNombre As String = $"GlobalDTInvPSSeccionesAlmacen-{CveEmpresa}" ''sino existe, recarga los datos 'If Application(AppNombre) Is Nothing Then ' Dim ObjInv As New ClsInventarios @@ -2466,7 +2466,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTInvPSSeccionesAlmacen-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTInvPSSeccionesAlmacen-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -2738,7 +2738,7 @@ Public Class ClsPaginas Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer, Optional CveTipoActivoFijo As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTSubTipoActivoFijo-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjSubTipos As New ClsAF @@ -2756,7 +2756,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTSubTipoActivoFijo-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}" Application(AppNombre) = value End Set @@ -3544,7 +3544,7 @@ Public Class ClsPaginas Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTOCEstatusUsuarios-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTOCEstatusUsuarios-{CveEmpresa}" 'sino existe, recarga los datos If DirectCast(Application(AppNombre), DataTable) Is Nothing Then @@ -3579,7 +3579,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTOCEstatusUsuarios-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTOCEstatusUsuarios-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -4221,7 +4221,7 @@ Public Class ClsPaginas End Property Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaqueteria As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTPaqueterias-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTPaqueterias-{CveEmpresa}" If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetGralPaqueterias(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados Else Application(AppNombre) = Nothing @@ -4237,13 +4237,13 @@ Public Class ClsPaginas Str.Clear() End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTPaqueterias-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTPaqueterias-{CveEmpresa}" Application(AppNombre) = value End Set End Property Public Shared Property GlobalDTAcumTiposDefecto(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTAcumTiposDefecto-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTAcumTiposDefecto-{CveEmpresa}" If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjAcumuladores As New ClsAcumuladores() If ObjAcumuladores.TiposDefectoGet(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjAcumuladores.DtResultados @@ -4253,13 +4253,13 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTAcumTiposDefecto-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTAcumTiposDefecto-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set End Property Public Shared Property GlobalDTAcumTiposUso(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTAcumTiposUso-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTAcumTiposUso-{CveEmpresa}" If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjAcumuladores As New ClsAcumuladores() If ObjAcumuladores.TiposUsoGet(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjAcumuladores.DtResultados @@ -4269,14 +4269,14 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTAcumTiposUso-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTAcumTiposUso-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set End Property Property GlobalDTAcumGarantiasMesesTipoUso(CveEmpresa As Integer, CveMarca As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTAcumGarantiasMesesTipoUso-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTAcumGarantiasMesesTipoUso-{CveEmpresa}" If Application(AppNombre) Is Nothing Then Dim ObjAcumuladores As New ClsAcumuladores() If ObjAcumuladores.GarantiasMesesGet(-1, CveEmpresa) Then Application(AppNombre) = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"}) @@ -4296,7 +4296,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTAcumGarantiasMesesTipoUso-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTAcumGarantiasMesesTipoUso-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -4305,7 +4305,7 @@ Public Class ClsPaginas Property GlobalDTCultivosCuadro(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTCultivosCuadro-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTCultivosCuadro-{CveEmpresa}" If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales() @@ -4318,14 +4318,14 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTCultivosCuadro-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTCultivosCuadro-{CveEmpresa}" Application(AppNombre) = value End Set End Property Public Shared Property GlobalDTAcumTamaños(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTAcumTamaños-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTAcumTamaños-{CveEmpresa}" If HttpContext.Current.Application(AppNombre) Is Nothing Then Using ObjAcumuladores As New ClsAcumuladores() @@ -4335,7 +4335,7 @@ Public Class ClsPaginas GlobalDTAcumTamaños = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTAcumTamaños-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTAcumTamaños-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set End Property @@ -4343,7 +4343,7 @@ Public Class ClsPaginas Property GlobalDTClientesVendedoresSubProyectos(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveSubProyecto As Integer = -1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTClientesVendedoresSubProyectos-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTClientesVendedoresSubProyectos-{CveEmpresa}" If Application(AppNombre) Is Nothing Then Dim ObjInv As New ClsVentas @@ -4359,7 +4359,7 @@ Public Class ClsPaginas GlobalDTClientesVendedoresSubProyectos = Dv.ToTable End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTClientesVendedoresSubProyectos-{0}", CveEmpresa) + Dim AppNombre As String = $"GlobalDTClientesVendedoresSubProyectos-{CveEmpresa}" Application(AppNombre) = value End Set End Property