From 6391cb8a02c6fc6b0e094b1ead0e92010c06c2e5 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 23 Jun 2020 17:34:37 -0700 Subject: [PATCH 1/9] =?UTF-8?q?notificaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntregasPorRealizar.aspx | 2 +- Inventarios/EntregasPorRealizar.aspx.cs | 76 +++++++++++++++++++++---- 2 files changed, 66 insertions(+), 12 deletions(-) diff --git a/Inventarios/EntregasPorRealizar.aspx b/Inventarios/EntregasPorRealizar.aspx index 2ba548486..91b94b07a 100644 --- a/Inventarios/EntregasPorRealizar.aspx +++ b/Inventarios/EntregasPorRealizar.aspx @@ -70,7 +70,7 @@
RepParams = new List(); + RepParams.Add(new ReportParameter("Cliente", ClienteNombre)); + RepParams.Add(new ReportParameter("FolioVenta", FolioVenta)); + RepParams.Add(new ReportParameter("Pedido", Pedido)); + RepParams.Add(new ReportParameter("OrdenCompra", OrdenCompra)); + return StreamPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/GuiaInternaAsignada.rdlc", DtDetalle, RepParams, "Notificacion de Envio", "PDF", RDSName: "DsInventarios"); + } + + private void MandarNotificacionCorreo(GridViewRow row) + { + string CobranzaCorreo = row.DataKey("CobranzaCorreo"); + string CorreoEntregaAlmacen = row.DataKey("CorreoEntregaAlmacen"); + string CorreoEntregaCompras = row.DataKey("CorreoEntregaCompras"); + string CorreoVendedor = row.DataKey("Correo"); + string CorreoAdicionalNotificacionesVendedor = row.DataKey("CorreoAdicionalNotificaciones"); + + string Para = string.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoAdicionalNotificacionesVendedor, CobranzaCorreo, CorreoEntregaCompras); + string LogCorreo = string.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoEntregaAlmacen, Para); + LogCorreo.GuardaLog(); + + byte[] ArchivoBinario = DocumentoEntregaInterna(row); + + ClsSisMail MailCls = new ClsSisMail(); + List LSRutasMail = new List(); + ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail(); + + { + var withBlock = itemMail; + itemMail.ArchivoBinario = ArchivoBinario; + itemMail.NombreArchivo = "Notificacion de Envio"; + } + + LSRutasMail.Add(itemMail); + MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Para, "Se enviara la compra a su dirección", "Pendiente", Para); + MailCls = null; + } } \ No newline at end of file From 0c5fcc1e8337fcb2423133d0f00f09827cf8a4fd Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 23 Jun 2020 17:37:57 -0700 Subject: [PATCH 2/9] Error al mandar correo --- Bancos/PagoElectronicoGrupos.aspx.vb | 62 +++++++++++++++------------- 1 file changed, 33 insertions(+), 29 deletions(-) diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index 625754b4d..d8e72ec53 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -3344,39 +3344,43 @@ Partial Class Bancos_PagoElectronicoGrupos End Sub Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte()) + Try + Dim Mail As New ClsSisMail() + Para = If(Para IsNot Nothing, Para, "") + Asunto = If(Asunto IsNot Nothing, Asunto, "") + Body = If(Body IsNot Nothing, Body, "") - Dim Mail As New ClsSisMail() - Para = If(Para IsNot Nothing, Para, "") - Asunto = If(Asunto IsNot Nothing, Asunto, "") - Body = If(Body IsNot Nothing, Body, "") - - Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) - If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then - ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante}) - End If - - If File IsNot Nothing Then - ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"}) - End If - - Dim separador As Char() = {";"c, ","c} - Dim strArray As String() = Para.Split(separador) - - Para = "" - - For Each sCorreo As String In strArray - If ClsSisMail.IsMailShared(sCorreo) And sCorreo.Trim.Length > 0 Then - Para = $"{Para}{sCorreo};" + Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) + If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then + ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante}) End If - Next - Para = Para.Substring(0, Para.Length - 1) + If File IsNot Nothing Then + ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"}) + End If + + Dim separador As Char() = {";"c, ","c} + Dim strArray As String() = Para.Split(separador) + + Para = "" + + For Each sCorreo As String In strArray + If ClsSisMail.IsMailShared(sCorreo) And sCorreo.Trim.Length > 0 Then + Para = $"{Para}{sCorreo};" + End If + Next + + Para = Para.Substring(0, Para.Length - 1) + + If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos, Displayname:=$"SIG Notificaciones: Pago de {UsuarioActual.Empresa.Empresa}") Then + Dim objIE As New ClsBancos + objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE) + objIE.Dispose() + End If + Catch ex As Exception + OnError("Ocurrio un error al enviar el correo", ex) + End Try - If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos, Displayname:=$"SIG Notificaciones: Pago de {UsuarioActual.Empresa.Empresa}") Then - Dim objIE As New ClsBancos - objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE) - objIE.Dispose() - End If End Sub From 5166e6df4a2b04f690fdb901a5e62250287c0667 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 23 Jun 2020 17:38:11 -0700 Subject: [PATCH 3/9] Validar almacen en pedidos de la E72 --- App_Code/Modelos.vb | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index a09a7d7e1..dd42bdcb9 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4233,6 +4233,15 @@ Namespace Modelos Return Retorno End If + 'VALIDACION DE PEDIDOS: SI ESTA ENTEGADO NO SE PUEDA CANCELAR + If UsuarioActual.CveEmpresa = 72 AndAlso ObjFactura.TipoDocto = "Ped" AndAlso TieneAlmacen AndAlso ObjFactura.SaldoAlmacen <> 0 Then + Retorno.Mensaje = "El pedido no se puede cancelar debido ha que ya fue entregado." + Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia + + Return Retorno + End If + + Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion) Dim CancelacionFecha As Date From 82a08e38b8eac7688578735bfc4187738290be68 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 23 Jun 2020 18:36:54 -0700 Subject: [PATCH 4/9] - --- Inventarios/EntregasPorRealizar.aspx | 2 +- Inventarios/EntregasPorRealizar.aspx.cs | 14 +++++++++++--- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/Inventarios/EntregasPorRealizar.aspx b/Inventarios/EntregasPorRealizar.aspx index 91b94b07a..639fe893f 100644 --- a/Inventarios/EntregasPorRealizar.aspx +++ b/Inventarios/EntregasPorRealizar.aspx @@ -70,7 +70,7 @@
Date: Tue, 23 Jun 2020 20:01:45 -0700 Subject: [PATCH 5/9] notificaciones al terminar --- General/RepPaqueteriasGuias.aspx.cs | 35 ++++++++++++++++++++++++----- 1 file changed, 30 insertions(+), 5 deletions(-) diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index f946bcb53..0f86915ad 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -163,6 +163,18 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas ViewState["CvePaqueteriaGuiaReasignar"] = value; } } + + private String Folio + { + get + { + return ViewState["Folio"].ToString(); + } + set + { + ViewState["Folio"] = value; + } + } #endregion @@ -959,6 +971,15 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas MensajeEnviado = true; } + break; + case 3: + //Tipo 3 Guia reasignada + Cuerpo.AppendLine(String.Format("Motivo:{0}. Tu envío fue reprogramado para el siguiente día hábil.", DdlMotivoRechazoGuia.SelectedItem.Text)); + CargaDatosCorreo(this.CveVenta); + if (Correo.SendMail(UsuarioActual.Empresa, this.Destinatario, Asunto, Cuerpo.ToString())) + { + MensajeEnviado = true; + } break; } return MensajeEnviado; @@ -996,11 +1017,11 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas Destinatario = DbRowVenta["Mail"].ToString(); } - // Destinatario = "sig.buzon02@gmail.com"; // CORREO PRUEBA - //if (UsuarioActual.Empresa.Funcionalidad(280) == "1" && CveCliente > 0 && CveVendedor > 0) - //{ - // Destinatario = getCorreoNotificacion(CveCliente,CveVendedor); - //} + Destinatario = "sig.buzon02@gmail.com"; // CORREO PRUEBA + if (UsuarioActual.Empresa.Funcionalidad(280) == "1" && CveCliente > 0 && CveVendedor > 0) + { + Destinatario = getCorreoNotificacion(CveCliente, CveVendedor); + } if (ObjVentas.GetVentaDetalle(CveVenta)) { @@ -1034,6 +1055,8 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas this.RegistraScript("$('#ModalMotivoReasignacion').modal('show')", "hidemodal3"); GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); CvePaqueteriaGuiaReasignar = GvRow.DataKey("CvePaqueteriaGuia").ToEntero(); + CveVenta = GvRow.DataKey("CveAgrupador").ToString().ToEntero(); + Folio = GvRow.DataKey("Folio").ToString(); } protected void BtnReasignar_Click(object sender, EventArgs e) @@ -1047,6 +1070,8 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas CargaDatos(); UPDatos.Update(); CvePaqueteriaGuiaReasignar = -1; + EnviarCorreoNotificacionEntrega(3, SerieFolio, "","","","","",-1,null); + this.RegistraScript("$('#ModalMotivoReasignacion').modal('hide')", "hidemodal3"); } } \ No newline at end of file From bf72739e45b4d9db3d5c8828b58cd06bae6de0ca Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 23 Jun 2020 20:56:14 -0700 Subject: [PATCH 6/9] Cambios en paqueria --- Empresas/72/Formatos/EntregasPorRealizar.rdlc | 2486 ++++++++--------- Inventarios/EntregaAlmacen.aspx.vb | 72 +- Ventas/Ventas.aspx | 3 + Ventas/Ventas.aspx.vb | 53 +- 4 files changed, 1332 insertions(+), 1282 deletions(-) diff --git a/Empresas/72/Formatos/EntregasPorRealizar.rdlc b/Empresas/72/Formatos/EntregasPorRealizar.rdlc index 2515ccda8..a653d19fb 100644 --- a/Empresas/72/Formatos/EntregasPorRealizar.rdlc +++ b/Empresas/72/Formatos/EntregasPorRealizar.rdlc @@ -1,1247 +1,1241 @@ - - - - - - - - - 1.7517cm - - - 2.58124cm - - - 4.16973cm - - - 6.00193cm - - - 5.79019cm - - - - - 0.51314cm - - - - - true - true - - - - - Numero - - - - - - - Textbox8 - - - - - - - - - #bbd915 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Folio - - - - - - - Textbox1 - - - - - - - - - #bbd915 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Fecha - - - - - - - Textbox3 - - - - Black - - 1pt - - - Black - - 1pt - - #bbd915 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Nombre - - - - - - - - - - - - - - - - Textbox7 - - - - Black - - 1pt - - - Black - - 1pt - - #bbd915 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Contacto - - - - - - - Textbox5 - - - - Black - - 1pt - - - Black - - 1pt - - #bbd915 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.4095cm - - - - - true - true - - - - - =Fields!Num.Value - - - - - - - Num - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - - - - - =Fields!serieFolio.Value - - - - - - - serieFolio - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - - - - - =Fields!fecha.Value - - - - - - - fecha - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - - - - - =Fields!nombre.Value - - - - - - - nombre - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - true - - - - - =Fields!contacto.Value - - - - - - - contacto - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsInventarios - 0.07056cm - 0.03488cm - 0.92264cm - 20.29479cm - - - - - - true - true - - - - - Recibido por: - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 1.22221in - - - - - - - Textbox2 - 0.19477cm - 2.55499cm - 1.1027cm - 15.46868cm - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo1 - FitProportional - 0.07668in - 0cm - 0.86392in - 1.0059in - 1 - - - - - - true - true - - - - - ENTREGAS POR REALIZAR - - - - - - - Textbox4 - 1.40331cm - 7.12631cm - 0.98582cm - 6.32604cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha: - - - - - - - - =Parameters!Fecha.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Asignado a: - - - - - - - - =Parameters!AsignadoA.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 0.87489cm - true - true - - - true - true - - - - - Usuario: - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - =Now - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 0.24341cm - 17.71971cm - 0.41981cm - 2.5cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - 0.06702cm - 0.05952cm - 0cm - 20.27015cm - 3 - - - - - - - - - - 25cm - 21.59cm - 0.5cm - 0.5cm - 0.5cm - 0.5cm - 0.13cm - + + + + + + Textbox8 + + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Folio + + + + + + + Textbox1 + + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Fecha + + + + + + + Textbox3 + + + + Black + + 1pt + + + Black + + 1pt + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Nombre + + + + + + + + + + + + + + + + Textbox7 + + + + Black + + 1pt + + + Black + + 1pt + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Contacto + + + + + + + Textbox5 + + + + Black + + 1pt + + + Black + + 1pt + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.4095cm + + + + + true + true + + + + + =Fields!Num.Value + + + + + + + Num + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!serieFolio.Value + + + + + + + serieFolio + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!fecha.Value + + + + + + + fecha + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!nombre.Value + + + + + + + nombre + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + true + + + + + =Fields!contacto.Value + + + + + + + contacto + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsInventarios + 0.07056cm + 0.03488cm + 0.92264cm + 20.29479cm + + + + + + true + true + + + + + Recibido por: + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 1.22221in + + + + + + + Textbox2 + 0.19477cm + 2.55499cm + 1.1027cm + 15.46868cm + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo1 + FitProportional + 0.07668in + 0cm + 0.86392in + 1.0059in + 1 + + + + + + true + true + + + + + ENTREGAS POR REALIZAR + + + + + + + Textbox4 + 1.40331cm + 7.12631cm + 0.98582cm + 6.32604cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha: + + + + + + + + =Parameters!Fecha.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Asignado a: + + + + + + + + =Parameters!AsignadoA.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.87489cm + true + true + + + true + true + + + + + Usuario: + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + =Now + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 0.24341cm + 17.71971cm + 0.41981cm + 2.5cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.06702cm + 0.05952cm + 0cm + 20.27015cm + 3 + + + + + + + + + + 25cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm +