From a2fb63718fbc6eb3b4f9416f346acce2d09b5f76 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Wed, 17 Aug 2022 10:01:59 -0700 Subject: [PATCH] E140.ashx, Clscontabilidad --- App_Code/ClsContabilidad.vb | 1 + Ashx/E140.ashx | 263 ++++++++++++++++++++++++++++++++++++ 2 files changed, 264 insertions(+) create mode 100644 Ashx/E140.ashx diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 0a37fc57f..2e545adf1 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -4384,6 +4384,7 @@ Public Class ClsContabilidad End With Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(DSet) Retorno = True Catch ex As Exception diff --git a/Ashx/E140.ashx b/Ashx/E140.ashx new file mode 100644 index 000000000..b1e309b3d --- /dev/null +++ b/Ashx/E140.ashx @@ -0,0 +1,263 @@ +<%@ 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.RutaArchivos.Trim.Length > 0 Then + RutaEmpresa = ObjEmpresa.Empresa.RutaArchivos.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() + + + 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(DateTime.Now, 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", DateTime.Now.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 {Now.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 \ No newline at end of file