diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 274fb8741..6b81beb8a 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -190,7 +190,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Else CveEmpresa = usuario.CveEmpresa Dim Name = IfNull(context.Request("Name"), "-1").ToString - Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa) 'sino existe, recarga los datos If context.Application(AppNombre) Is Nothing Then Dim ObjClientes As New ClsClientes @@ -239,7 +239,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Else CveEmpresa = usuario.CveEmpresa Dim Name = IfNull(context.Request("Name"), "-1").ToString - Dim AppNombre As String = String.Format("GlobalDTCompProveedores{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTCompProveedores-{0}", CveEmpresa) 'sino existe, recarga los datos If context.Application(AppNombre) Is Nothing Then Dim ObjProveedores As New ClsCompProveedores @@ -391,8 +391,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState If UsaGlobal Then 'se recarga el global, y el clspaginas, son los unicos 2 lugares - Dim AppNombre As String = String.Format("GlobalDTPSSimplificado{0}", CveEmpresa) - If context.Application(String.Format("GlobalDTPSSimplificado{0}", CveEmpresa)) Is Nothing Then + Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa) + If context.Application(String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)) Is Nothing Then Dim ObjPS As New ClsProductosServicios If ObjPS.GetPSSimplificado(CveEmpresa) Then context.Application(AppNombre) = ObjPS.DtResultados.AsEnumerable() ObjPS.Dispose() @@ -639,7 +639,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState If UsaGlobal Then - Dim DTPS = DirectCast(context.Application(String.Format("GlobalDTPSSimplificado{0}", CveEmpresa)), EnumerableRowCollection(Of DataRow)) + Dim DTPS = DirectCast(context.Application(String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)), EnumerableRowCollection(Of DataRow)) If DTPS IsNot Nothing Then @@ -715,7 +715,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Else CveEmpresa = usuario.CveEmpresa Dim Name = IfNull(context.Request("Name"), "-1").ToString - Dim AppNombre As String = String.Format("GlobalDTRHPersonal{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTRHPersonal-{0}", CveEmpresa) 'sino existe, recarga los datos If context.Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH