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

Cambios en tipos de contrato

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-11-13 20:51:04 -07:00
parent 6b6dd2763c
commit dfd0d7ffe0
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsPaginas.vb
View File

@@ -1758,12 +1758,12 @@ Public Class ClsPaginas
End Property End Property
Property GlobalDTContratosTipos(CveEmpresa As Integer) As DataTable Property GlobalDTContratosTipos(CveEmpresa As Integer) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTContratosTipos-{0}", CveEmpresa) Dim AppNombre As String = "GlobalDTContratosTipos"
'sino existe, recarga los datos 'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratosTipos(CveEmpresa) Then Application(AppNombre) = ObjContratos.DtResultados If ObjContratos.GetContratosTipos(-1) Then Application(AppNombre) = ObjContratos.DtResultados
ObjContratos.Dispose() ObjContratos.Dispose()
End If End If
@@ -1771,7 +1771,7 @@ Public Class ClsPaginas
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTContratosTipos-{0}", CveEmpresa) Dim AppNombre As String = "GlobalDTContratosTipos"
Application(AppNombre) = value Application(AppNombre) = value
End Set End Set
End Property End Property