Limpieza ClsPaginas

-Simplificar concatenación de CveEmpresa en AppNombre

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