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

Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-03-31 12:19:08 -07:00
parent c976b0d0d8 5d9854557b
commit 1aca84191a
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Ashx/SIGWeb.ashx
View File

@@ -190,7 +190,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Else Else
CveEmpresa = usuario.CveEmpresa CveEmpresa = usuario.CveEmpresa
Dim Name = IfNull(context.Request("Name"), "-1").ToString 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 'sino existe, recarga los datos
If context.Application(AppNombre) Is Nothing Then If context.Application(AppNombre) Is Nothing Then
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
@@ -239,7 +239,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Else Else
CveEmpresa = usuario.CveEmpresa CveEmpresa = usuario.CveEmpresa
Dim Name = IfNull(context.Request("Name"), "-1").ToString 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 'sino existe, recarga los datos
If context.Application(AppNombre) Is Nothing Then If context.Application(AppNombre) Is Nothing Then
Dim ObjProveedores As New ClsCompProveedores Dim ObjProveedores As New ClsCompProveedores
@@ -391,8 +391,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
If UsaGlobal Then If UsaGlobal Then
'se recarga el global, y el clspaginas, son los unicos 2 lugares 'se recarga el global, y el clspaginas, son los unicos 2 lugares
Dim AppNombre As String = String.Format("GlobalDTPSSimplificado{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
If context.Application(String.Format("GlobalDTPSSimplificado{0}", CveEmpresa)) Is Nothing Then If context.Application(String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)) Is Nothing Then
Dim ObjPS As New ClsProductosServicios Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPSSimplificado(CveEmpresa) Then context.Application(AppNombre) = ObjPS.DtResultados.AsEnumerable() If ObjPS.GetPSSimplificado(CveEmpresa) Then context.Application(AppNombre) = ObjPS.DtResultados.AsEnumerable()
ObjPS.Dispose() ObjPS.Dispose()
@@ -639,7 +639,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
If UsaGlobal Then 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 If DTPS IsNot Nothing Then
@@ -715,7 +715,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Else Else
CveEmpresa = usuario.CveEmpresa CveEmpresa = usuario.CveEmpresa
Dim Name = IfNull(context.Request("Name"), "-1").ToString 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 'sino existe, recarga los datos
If context.Application(AppNombre) Is Nothing Then If context.Application(AppNombre) Is Nothing Then
Dim ObjPersonal As New ClsRH Dim ObjPersonal As New ClsRH