261 lines
10 KiB
Plaintext
261 lines
10 KiB
Plaintext
<%@ WebHandler Language="VB" Class="E140" %>
|
|
|
|
Imports System
|
|
Imports System.Web
|
|
Imports System.Data
|
|
Imports Newtonsoft.Json
|
|
Imports Extensiones
|
|
Imports System.IO
|
|
Imports Microsoft.Reporting.WebForms
|
|
|
|
Public Class E140 : Implements IHttpHandler, IRequiresSessionState
|
|
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
|
|
Get
|
|
Return False
|
|
End Get
|
|
End Property
|
|
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
|
|
|
|
Try
|
|
Select Case context.Request("metodo")
|
|
Case "MetasVendedores"
|
|
MetasVendedores(context)
|
|
End Select
|
|
Catch ex As Exception
|
|
ex.GuardaLog(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Shared Sub MetasVendedores(ByVal context As HttpContext)
|
|
|
|
Dim CveEmpresa = 140
|
|
Dim RutaEmpresa As String = String.Format("{0}Empresas\{1}\", DirectorioBaseEmpresas, CveEmpresa)
|
|
|
|
Dim ObjEmpresa As New ClsSisEmpresas()
|
|
If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
End If
|
|
|
|
If ObjEmpresa.Empresa.Ruta.Trim.Length > 0 Then
|
|
RutaEmpresa = ObjEmpresa.Empresa.Ruta.Trim
|
|
End If
|
|
|
|
ObjEmpresa.Dispose()
|
|
|
|
Dim DTVendedores As System.Data.DataTable = New System.Data.DataTable()
|
|
Dim Temporal As String = ""
|
|
|
|
Temporal = String.Format("{0}\Temp\", RutaEmpresa, CveEmpresa)
|
|
Dim Empresa As String = "BDH BATERIAS DISTRIBUCIONES DE HERMOSILLO SA DE CV"
|
|
|
|
DTVendedores.Columns.Add("CveSubProyecto", GetType(Integer))
|
|
DTVendedores.Columns.Add("Sucursal")
|
|
DTVendedores.Columns.Add("Nombre")
|
|
DTVendedores.Columns.Add("Correo")
|
|
|
|
Dim Row_11791 As DataRow = DTVendedores.NewRow
|
|
Dim Row_11993 As DataRow = DTVendedores.NewRow
|
|
Dim Row_11796 As DataRow = DTVendedores.NewRow
|
|
Dim Row_11797 As DataRow = DTVendedores.NewRow
|
|
Dim Row_11793 As DataRow = DTVendedores.NewRow
|
|
Dim Row_12010 As DataRow = DTVendedores.NewRow
|
|
Dim Row_12011 As DataRow = DTVendedores.NewRow
|
|
Dim Row_11790 As DataRow = DTVendedores.NewRow
|
|
Dim Row_11795 As DataRow = DTVendedores.NewRow
|
|
Dim Row_11794 As DataRow = DTVendedores.NewRow
|
|
|
|
Row_11791("CveSubProyecto") = 11791
|
|
Row_11791("Sucursal") = "SOLIDARIDAD"
|
|
Row_11791("Nombre") = "Fernando grijalva López"
|
|
Row_11791("Correo") = "hmo.martirezdecananea@bdhbaterias.com.mx"
|
|
|
|
Row_11993("CveSubProyecto") = 11993
|
|
Row_11993("Sucursal") = "PROGRESO"
|
|
Row_11993("Nombre") = "Brayam Uriel Corrales Soto"
|
|
Row_11993("Correo") = "cajaprogreso.hmo@bdhbaterias.com"
|
|
|
|
Row_11796("CveSubProyecto") = 11796
|
|
Row_11796("Sucursal") = "OBREGON"
|
|
Row_11796("Nombre") = "Brayam Uriel Corrales Soto"
|
|
Row_11796("Correo") = "cen.pisocentro@bdhbaterias.mx"
|
|
|
|
Row_11797("CveSubProyecto") = 11797
|
|
Row_11797("Sucursal") = "NAVOJOA"
|
|
Row_11797("Nombre") = "Orlando Lagarda Cantú"
|
|
Row_11797("Correo") = "almacen.nvj@bdhbaterias.mx"
|
|
|
|
Row_11793("CveSubProyecto") = 11793
|
|
Row_11793("Sucursal") = "LOMA LINDA"
|
|
Row_11793("Nombre") = "Adrian fernando murrieta Rodríguez"
|
|
Row_11793("Correo") = "adrian.murrieta@bdhbaterias.com"
|
|
|
|
Row_12010("CveSubProyecto") = 12010
|
|
Row_12010("Sucursal") = "LOS NOGALES"
|
|
Row_12010("Nombre") = "GERMAN LUNA CASTRO"
|
|
Row_12010("Correo") = ""
|
|
|
|
Row_12011("CveSubProyecto") = 12011
|
|
Row_12011("Sucursal") = "NOGALES CENTRO"
|
|
Row_12011("Nombre") = "GERMAN LUNA CASTRO"
|
|
Row_12011("Correo") = "german.luna@bdhbaterias.com"
|
|
|
|
Row_11790("CveSubProyecto") = 11790
|
|
Row_11790("Sucursal") = "MATRIZ"
|
|
Row_11790("Nombre") = "Luis Fernando grijalva cota"
|
|
Row_11790("Correo") = "luis.grijalva@bdhbaterias.com"
|
|
|
|
|
|
Row_11795("CveSubProyecto") = 11795
|
|
Row_11795("Sucursal") = "GUAYMAS CENTRO"
|
|
Row_11795("Nombre") = "Gastelum Hurtado Juan Daniel"
|
|
Row_11795("Correo") = "daniel.gastelum@bdhbaterias.com"
|
|
|
|
Row_11794("CveSubProyecto") = 11794
|
|
Row_11794("Sucursal") = "GUAYMAS AURORA"
|
|
Row_11794("Nombre") = "Gastelum Hurtado Juan Daniel"
|
|
Row_11794("Correo") = "daniel.gastelum@bdhbaterias.com"
|
|
|
|
DTVendedores.Rows.Add(Row_11791)
|
|
DTVendedores.Rows.Add(Row_11993)
|
|
DTVendedores.Rows.Add(Row_11796)
|
|
DTVendedores.Rows.Add(Row_11797)
|
|
DTVendedores.Rows.Add(Row_11793)
|
|
DTVendedores.Rows.Add(Row_12010)
|
|
DTVendedores.Rows.Add(Row_12011)
|
|
DTVendedores.Rows.Add(Row_11790)
|
|
DTVendedores.Rows.Add(Row_11795)
|
|
DTVendedores.Rows.Add(Row_11794)
|
|
|
|
For Each dRow As System.Data.DataRow In DTVendedores.Rows
|
|
|
|
|
|
Dim CorreoSupervisor As String = dRow("Correo").ToString()
|
|
Dim Sucursal As String = dRow("Sucursal").ToString
|
|
Dim Vendedor As String = dRow("Nombre").ToString()
|
|
Dim CveSubProyecto As Integer = dRow("CveSubProyecto").ToString.ToEntero
|
|
CorreoSupervisor = "oscar.irigoyen@adssistemas.mx;rene.molina@adssistemas.mx"
|
|
|
|
Dim ObjGen = New ClsVentas
|
|
|
|
Dim RutaRDLC As String = If(File.Exists($"{RutaEmpresa}\Formatos\MetasVendedores.rdlc"), $"{RutaEmpresa}\Formatos\MetasVendedores.rdlc", $"{DirectorioBaseEmpresas}\Empresas\Grales\Formatos\MetasVendedores.rdlc")
|
|
|
|
If ObjGen.GetRepMetasVendedores(ClsPaginas.NowADS(), CveEmpresa, -1, -1, -1, -1, -1, CveSubProyecto, -1, -1, 0) Then
|
|
|
|
|
|
Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", RutaEmpresa))
|
|
Dim parametros As List(Of ReportParameter) = New List(Of ReportParameter)()
|
|
parametros.Add(New ReportParameter("pEmp", Empresa))
|
|
|
|
If Imagen.Exists Then
|
|
parametros.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}"))
|
|
Else
|
|
parametros.Add(New ReportParameter("pImg", ""))
|
|
End If
|
|
|
|
parametros.Add(New ReportParameter("UsuarioImprimio", "Sistema"))
|
|
parametros.Add(New ReportParameter("FechaImpresion", ClsPaginas.NowADS().ToString("dd/MM/yyyy")))
|
|
parametros.Add(New ReportParameter("SubProyecto", Sucursal))
|
|
parametros.Add(New ReportParameter("Agente", Vendedor))
|
|
|
|
Dim bytes As Byte() = Nothing
|
|
|
|
Dim rds1 As ReportDataSource = New ReportDataSource()
|
|
rds1.Name = "DataSet1"
|
|
rds1.Value = ObjGen.DtResultados
|
|
|
|
If EsProduccion Then
|
|
|
|
Dim wsreport As New WSRDLC2.WebServiceSoapClient
|
|
Dim params As New List(Of WSRDLC2.ReportParameter)
|
|
Dim reportobjects As New List(Of WSRDLC2.ReportObjects)
|
|
|
|
Dim jsonData As String = Nothing
|
|
Dim ds As New DataSet
|
|
|
|
Dim dt As DataTable = DirectCast(rds1.Value, Data.DataTable)
|
|
dt = dt.Copy()
|
|
dt.TableName = rds1.Name
|
|
ds.Tables.Add(dt)
|
|
|
|
For Each rpds As ReportParameter In parametros
|
|
Dim param As New WSRDLC2.ReportParameter
|
|
param.Name = rpds.Name
|
|
'SI ES TEXTO, QUITAR TABS Y OTROS ESPACIOS QUE DEN PROBLEMAS AL MANDAR LA PETICION
|
|
If rpds IsNot Nothing AndAlso rpds.Values IsNot Nothing AndAlso rpds.Values.Count > 0 AndAlso rpds.Values(0) IsNot Nothing AndAlso rpds.Values(0).GetType() = GetType(String) Then
|
|
param.Values = {rpds.Values(0).Replace(vbVerticalTab, "")}
|
|
Else
|
|
param.Values = {rpds.Values(0)}
|
|
End If
|
|
params.Add(param)
|
|
Next
|
|
|
|
bytes = wsreport.StreamNEWPDFBytes(RutaRDLC, ds, reportobjects.ToArray(), params.ToArray(), "MetasVendedores", "PDF", CveEmpresa, 100, jsonData)
|
|
wsreport = Nothing
|
|
params = Nothing
|
|
ds.Dispose() : ds = Nothing
|
|
|
|
Else
|
|
|
|
Using MR As ReportViewer = New ReportViewer()
|
|
|
|
MR.LocalReport.DataSources.Add(rds1)
|
|
MR.LocalReport.ReportPath = RutaRDLC
|
|
MR.ProcessingMode = ProcessingMode.Local
|
|
MR.LocalReport.EnableExternalImages = True
|
|
MR.LocalReport.SetParameters(parametros)
|
|
MR.LocalReport.Refresh()
|
|
Dim warnings As Warning() = Nothing
|
|
Dim streamids As String() = Nothing
|
|
Dim mimeType As String = Nothing
|
|
Dim encoding As String = Nothing
|
|
Dim extension As String = Nothing
|
|
|
|
bytes = MR.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
|
|
|
|
End Using
|
|
|
|
End If
|
|
|
|
MandaCorreo(CorreoSupervisor, $"Envió de estado de scorecard sucursal {Sucursal} a {ClsPaginas.NowADS().ToString("dd/MM/yyyy")}", bytes)
|
|
bytes = Nothing
|
|
|
|
End If
|
|
|
|
ObjGen.Dispose()
|
|
|
|
Next
|
|
|
|
End Sub
|
|
|
|
Private Shared Sub MandaCorreo(Para As String, Cuerpo As String, bytes As Byte())
|
|
Try
|
|
Dim ListaArchivos As List(Of ClsSisMail.ArchivoMail) = New List(Of ClsSisMail.ArchivoMail)()
|
|
|
|
Dim AdjuntoReporte As ClsSisMail.ArchivoMail = New ClsSisMail.ArchivoMail()
|
|
|
|
AdjuntoReporte.NombreArchivo = "MetasVendedores.Pdf"
|
|
AdjuntoReporte.ArchivoBinario = bytes
|
|
ListaArchivos.Add(AdjuntoReporte)
|
|
|
|
Dim Correo As ClsSisMail = New ClsSisMail()
|
|
|
|
Dim Asunto As String = Cuerpo
|
|
Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:=ListaArchivos)
|
|
|
|
Catch ex As Exception
|
|
Extensiones.ModExtensiones.GuardaLog(Nothing, $"Error Tareas Programadas 140 error enviar mail --> {ex.Message} ")
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Public Shared ReadOnly Property EsProduccion As Boolean
|
|
Get
|
|
If IsNothing(System.Configuration.ConfigurationManager.AppSettings("EsProduccion")) Then
|
|
Return False
|
|
Else
|
|
Return (System.Configuration.ConfigurationManager.AppSettings("EsProduccion").ToString() = "1")
|
|
End If
|
|
End Get
|
|
End Property
|
|
|
|
End Class |