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

-cleanup

Browse Source
This commit is contained in:
rrene
2022-06-18 11:55:01 -07:00
parent 0ff9295efe
commit a3be267309
2 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Ashx/SIGWeb.ashx
View File

@@ -1,12 +1,10 @@
<%@ WebHandler Language="VB" Class="SIGWeb" %> <%@ WebHandler Language="VB" Class="SIGWeb" %>
Imports System
Imports System.Web
Imports System.Data Imports System.Data
Imports Newtonsoft.Json
Imports Extensiones
Imports System.IO Imports System.IO
Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports Newtonsoft.Json
Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
'TEMPORAL, DEBE SER REEMPLAZADO POR EL MODELO DE LA LIBRERIA 'TEMPORAL, DEBE SER REEMPLAZADO POR EL MODELO DE LA LIBRERIA

8
Ashx/TareasProgramadas.ashx
View File

@@ -906,19 +906,19 @@ Public Class TareasProgramadas : Implements IHttpHandler
Using ObjVentas As New ClsVentas Using ObjVentas As New ClsVentas
'VENDEDORES 'VENDEDORES
If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1, If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1,
-1, -1, -1, -1, -1, -1,-1,
-1, -1, GrupoSuperior:=0) Then -1, -1, GrupoSuperior:=0) Then
DtGrupoVendedores = ObjVentas.DtResultados.Copy DtGrupoVendedores = ObjVentas.DtResultados.Copy
End If End If
'SUCURSAL 'SUCURSAL
If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1, If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1,
-1, -1, -1, -1, -1, -1, -1,
-1, -1, GrupoSuperior:=1) Then -1, -1, GrupoSuperior:=1) Then
DtGrupoSucursales = ObjVentas.DtResultados.Copy DtGrupoSucursales = ObjVentas.DtResultados.Copy
End If End If
'EMPRESA 'EMPRESA
If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1, If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1,
-1, -1, -1, -1, -1, -1, -1,
-1, -1, GrupoSuperior:=2) Then -1, -1, GrupoSuperior:=2) Then
DtGrupoEmpresa = ObjVentas.DtResultados.Copy DtGrupoEmpresa = ObjVentas.DtResultados.Copy
End If End If
@@ -1036,7 +1036,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
Using ObjVentas As New ClsVentas Using ObjVentas As New ClsVentas
If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, UsuarioEnviar.CveVendedor, -1, If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, UsuarioEnviar.CveVendedor, -1,
-1, -1, -1, UsuarioEnviar.CveSubProyecto, -1, GrupoSuperior:=1) Then -1, -1, -1, UsuarioEnviar.CveSubProyecto, -1, -1, GrupoSuperior:=1) Then
DtReporteVendedor = ObjVentas.DtResultados.Copy DtReporteVendedor = ObjVentas.DtResultados.Copy
End If End If
End Using End Using