From e5e25a32e6fbd96c32976533b91eadb7aec67309 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Mon, 13 Jul 2020 09:37:47 -0700 Subject: [PATCH 1/2] Tarea119 adjuntar archivos a correo --- TareasProgramadas/Tareas119.ashx | 65 +++++++++++++++++++++++++------- vwd.webinfo | 2 + 2 files changed, 54 insertions(+), 13 deletions(-) diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx index 1f560654a..afd3762fe 100644 --- a/TareasProgramadas/Tareas119.ashx +++ b/TareasProgramadas/Tareas119.ashx @@ -10,6 +10,7 @@ using System.Web.Services.Protocols; using GemBox.Spreadsheet; using System.Data; using System.Text; +using System.Collections.Generic; public class TareasJam : IHttpHandler { @@ -57,9 +58,21 @@ public class TareasJam : IHttpHandler DataTable DTClientes = new DataTable(); DataTable DTAlmacenes = new DataTable(); - string FTPServer = "ftp://127.0.0.1/"; - string TFPUsr = "Toor"; - string FTPPass = "agj-3500"; + string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; + string RutaVentas = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Ventas{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; + string RutaClientes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Clientes{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; + string RutaAlmacenes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Almacenes{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; + + + //"ftp://us2.hostedftp.com/", "agrojam", "A12345678"; + //string FTPServer = "ftp://127.0.0.1/"; + //string TFPUsr = "Toor"; + //string FTPPass = "agj-3500"; + + + string FTPServer = "ftp://us2.hostedftp.com"; + string TFPUsr = "agrojam"; + string FTPPass = "A12345678"; bool ErrorProceso = false; @@ -179,8 +192,8 @@ public class TareasJam : IHttpHandler string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd"); dRow[3] = tmpString; } - DTAlmacenes.AcceptChanges(); - + DTAlmacenes.AcceptChanges(); + } @@ -197,10 +210,7 @@ public class TareasJam : IHttpHandler if (!ErrorProceso) { - string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; - string RutaVentas = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Ventas{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; - string RutaClientes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Clientes{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; - string RutaAlmacenes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Almacenes{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; + SpreadsheetInfo.SetLicense(Extensiones.ModExtensiones.SerialGemBoxSpreadsheet()); @@ -344,24 +354,53 @@ public class TareasJam : IHttpHandler string Cuerpo = Respuesta ? $"Correcto
Tarea de carga de archios Corteva realizada correctamente
{SBLog.ToString()}" : $"Error
Error tarea de carga de archios Corteva
{SBLog.ToString()}" ; - MandaCorreo(Cuerpo, Respuesta); + + + + MandaCorreo(Cuerpo, Respuesta, RutaProductos, RutaVentas, RutaClientes, RutaAlmacenes); return Respuesta; } - private void MandaCorreo(string Cuerpo, bool ErrorProceso) + private void MandaCorreo(string Cuerpo, bool ErrorProceso, string RutaProductos, string RutaVentas, string RutaClientes, string RutaAlmacenes) { try { + + List ListaArchivos = new List(); + + ClsSisMail.ArchivoMail Productos = new ClsSisMail.ArchivoMail(); + ClsSisMail.ArchivoMail Ventas = new ClsSisMail.ArchivoMail(); + ClsSisMail.ArchivoMail Clientes = new ClsSisMail.ArchivoMail(); + ClsSisMail.ArchivoMail Almacenes = new ClsSisMail.ArchivoMail(); + + Productos.Ruta = RutaProductos; + Ventas.Ruta = RutaVentas; + Clientes.Ruta = RutaClientes; + Almacenes.Ruta = RutaAlmacenes; + + //FileInfo FIp = new FileInfo(RutaProductos); + //FileInfo FIv = new FileInfo(RutaVentas); + //FileInfo FIc = new FileInfo(RutaClientes); + //FileInfo FIa = new FileInfo(RutaAlmacenes); + + + + ListaArchivos.Add(Productos); + ListaArchivos.Add(Ventas); + ListaArchivos.Add(Clientes); + ListaArchivos.Add(Almacenes); + + ClsSisMail Correo = new ClsSisMail(); string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx"; - // string Para = "oscar.irigoyen@adssistemas.mx"; + // string Para = "oscar.irigoyen@adssistemas.mx"; string Asunto = ErrorProceso ? $"Carga Layout Corteva {DateTime.Now.ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {DateTime.Now.ToString("yyyy-MM-dd")}"; - Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo); + Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos); }catch(Exception ex) { diff --git a/vwd.webinfo b/vwd.webinfo index 65b4102ee..6a84ef014 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -80,6 +80,8 @@ + + From 18d4924998675d7848a70ad8aba9d9828e0f7a18 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 14 Jul 2020 10:14:16 -0700 Subject: [PATCH 2/2] --Globalalmacenusuarios --- Sistemas/CatSesiones.aspx.vb | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index 0b2111830..8e3985724 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -153,9 +153,10 @@ Partial Class Sistemas_CatSesiones Private Sub CargaAlmacenUsuarios() - Dim Obj As New ClsSisUsuarios - If Obj.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = Obj.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing - Obj.Dispose() + GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing + 'Dim Obj As New ClsSisUsuarios + 'If Obj.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = Obj.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing + 'Obj.Dispose() End Sub Private Sub CargaClientes() @@ -267,8 +268,9 @@ Partial Class Sistemas_CatSesiones Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados Else Application("GlobalDTUsuarios") = Nothing - End If - If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing + End If + GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing + 'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing ObjUsuarios.Dispose() 'Fin Carga Usuarios End Sub