From a3be26730927cc63e102b5dc92df2e03001a0162 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 18 Jun 2022 11:55:01 -0700 Subject: [PATCH] -cleanup --- Ashx/SIGWeb.ashx | 6 ++---- Ashx/TareasProgramadas.ashx | 8 ++++---- 2 files changed, 6 insertions(+), 8 deletions(-) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index c5ba7c563..fb2ff5d71 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -1,12 +1,10 @@ <%@ WebHandler Language="VB" Class="SIGWeb" %> -Imports System -Imports System.Web Imports System.Data -Imports Newtonsoft.Json -Imports Extensiones Imports System.IO +Imports Extensiones Imports Microsoft.Reporting.WebForms +Imports Newtonsoft.Json Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState 'TEMPORAL, DEBE SER REEMPLAZADO POR EL MODELO DE LA LIBRERIA diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx index 4b2861f5b..b8c6648dc 100644 --- a/Ashx/TareasProgramadas.ashx +++ b/Ashx/TareasProgramadas.ashx @@ -906,19 +906,19 @@ Public Class TareasProgramadas : Implements IHttpHandler Using ObjVentas As New ClsVentas 'VENDEDORES If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1, - -1, -1, -1, + -1, -1, -1,-1, -1, -1, GrupoSuperior:=0) Then DtGrupoVendedores = ObjVentas.DtResultados.Copy End If 'SUCURSAL If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1, - -1, -1, -1, + -1, -1, -1, -1, -1, -1, GrupoSuperior:=1) Then DtGrupoSucursales = ObjVentas.DtResultados.Copy End If 'EMPRESA If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1, - -1, -1, -1, + -1, -1, -1, -1, -1, -1, GrupoSuperior:=2) Then DtGrupoEmpresa = ObjVentas.DtResultados.Copy End If @@ -1036,7 +1036,7 @@ Public Class TareasProgramadas : Implements IHttpHandler Using ObjVentas As New ClsVentas 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 End If End Using