AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Limpieza ClsPaginas

Browse Source 
-Simplificar concatenación de CveEmpresa en AppNombre
This commit is contained in:
MLopez
2023-02-02 16:41:40 -07:00
parent 58c92e5be5
commit 2edb2c1e20
1 changed files with 82 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

164
App_Code/ClsPaginas.vb
View File

@@ -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