From dfd0d7ffe099304536076e4ec03e0f0e657d4c91 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 13 Nov 2020 20:51:04 -0700 Subject: [PATCH] Cambios en tipos de contrato --- App_Code/ClsPaginas.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 38ccbc84f..d82bbdd16 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1758,12 +1758,12 @@ Public Class ClsPaginas End Property Property GlobalDTContratosTipos(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTContratosTipos-{0}", CveEmpresa) + Dim AppNombre As String = "GlobalDTContratosTipos" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then 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() End If @@ -1771,7 +1771,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTContratosTipos-{0}", CveEmpresa) + Dim AppNombre As String = "GlobalDTContratosTipos" Application(AppNombre) = value End Set End Property