From 09760f2f54e2ef4a09c6d3f7037fae7ab44b67a1 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 23 Jun 2020 15:44:58 -0700 Subject: [PATCH 01/12] avance de la entrega de guias --- App_Code/ClsGenerales.vb | 3 +- General/RepPaqueteriasGuias.aspx | 47 ++++++++++++++++++++++++++--- General/RepPaqueteriasGuias.aspx.cs | 38 ++++++++++++++++++++--- 3 files changed, 79 insertions(+), 9 deletions(-) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 520d80af3..60c7eac66 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2836,13 +2836,14 @@ Public Class ClsGenerales Return Retorno End Function - Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveTick As Long = -1) As Boolean + Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveTick As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_AsignarEntregasPorRealizar") With SqlAdapter.SelectCommand.Parameters .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CvePersonal .Add("@CveTick", SqlDbType.BigInt).Value = CveTick + .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria End With Try SqlAdapter.Fill(Data) diff --git a/General/RepPaqueteriasGuias.aspx b/General/RepPaqueteriasGuias.aspx index 637293558..b77e74312 100644 --- a/General/RepPaqueteriasGuias.aspx +++ b/General/RepPaqueteriasGuias.aspx @@ -10,7 +10,7 @@ - Reporte de Paqueterías Guías + Reporte de Envíos @@ -174,7 +174,7 @@
-     +    
@@ -195,7 +195,7 @@ EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound"> - + @@ -217,7 +217,7 @@ - + @@ -463,6 +463,45 @@ + + diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index c4a71b507..3c48da0b4 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -150,6 +150,19 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas ViewState["DTMovimientos"] = value; } } + + private int CvePaqueteriaGuiaReasignar + { + get + { + return ViewState["CvePaqueteriaGuiaReasignar"].ToString().ToEntero(); + } + + set + { + ViewState["CvePaqueteriaGuiaReasignar"] = value; + } + } #endregion @@ -163,6 +176,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas CargaPaqueteriasGuiasTipo(); InicializaFechas(); CargaUsuarios(); + CargaMotivosRechazo(); UPFiltros.Update(); if (!UsuarioActual.TienePermisoProceso(219)) @@ -196,7 +210,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas { if (UsuarioActual.CveRol == 1339) { - DdlPaqueterias.DataSource = GlobalDTPaqueterias.FiltraParametros("TipoPaqueteria = 0"); + DdlPaqueterias.DataSource = GlobalDTPaqueterias.FiltraParametros(String.Format("TipoPaqueteria = 0 AND CveEmpresa = {0}",UsuarioActual.CveEmpresa)); }else { DdlPaqueterias.DataSource = GlobalDTPaqueterias; @@ -264,6 +278,17 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas } } + private void CargaMotivosRechazo() + { + ClsGenerales ObjGeneral = new ClsGenerales(); + if (ObjGeneral.GetMotivoRechazoPaqueteria(-1, UsuarioActual.CveEmpresa)) + { + DdlMotivoRechazoGuia.DataSource = ObjGeneral.DtResultados; + DdlMotivoRechazoGuia.DataBind(); + } + ObjGeneral.Dispose(); + } + protected void InicializaFechas() { DateTime FI = new DateTime(DateTime.Now.Year, 1, 1); @@ -1003,17 +1028,22 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas protected void Reasignar_Click(object sender, EventArgs e) { + this.RegistraScript("$('#ModalMotivoReasignacion').modal('show')", "hidemodal3"); GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); - int CvePaqueteriaGuia = GvRow.DataKey("CvePaqueteriaGuia").ToEntero(); - + CvePaqueteriaGuiaReasignar = GvRow.DataKey("CvePaqueteriaGuia").ToEntero(); + } + + protected void BtnReasignar_Click(object sender, EventArgs e) + { ClsGenerales ObjGeneral = new ClsGenerales(); - if (ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriaGuia, -1)) + if (ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriaGuiaReasignar, -1, CveMotivoRechazoPaqueteria:DdlMotivoRechazoGuia.SelectedValue.ToEntero())) { Alert("La guía está lista para volver a ser asignada, disponible en el reporte Entregas Por Realizar"); } ObjGeneral.Dispose(); CargaDatos(); UPDatos.Update(); + CvePaqueteriaGuiaReasignar = -1; } } \ No newline at end of file From 48726e6a70257df4915a71ce68fb9a9edd87ed1a Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 23 Jun 2020 16:55:39 -0700 Subject: [PATCH 02/12] - cambios en globaldtpaqueterias y cveasignacionentrega --- App_Code/ClsGenerales.vb | 5 ++++- App_Code/ClsPaginas.vb | 20 +++++++++++++++++--- Compras/PopUpVerFactura.aspx.vb | 14 ++++++++++---- General/RepPaqueteriasGuias.aspx.cs | 17 ++++++++++------- Inventarios/EntregaAlmacen.aspx.vb | 4 ++-- 5 files changed, 43 insertions(+), 17 deletions(-) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 84ffbc970..72329f707 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -324,6 +324,9 @@ Public Class ClsGenerales Public Function GetGralPaqueterias(Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_PaqueteriasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) Retorno = True @@ -2824,7 +2827,7 @@ Public Class ClsGenerales DataAdapter("PA_Gral_EntregasPorRealizarGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveTick", SqlDbType.BigInt).Value = CveTick + .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveTick End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index ea4c411ed..66e6e4384 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3351,12 +3351,26 @@ Public Class ClsPaginas Application("GlobalDTClasificacionPorcentaje") = value End Set End Property - Property GlobalDTPaqueterias() As DataTable + Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaquteria As Integer = -1) As DataTable Get - GlobalDTPaqueterias = DirectCast(Application("GlobalDTPaqueterias"), DataTable) + Dim AppNombre As String = String.Format("GlobalDTPaqueterias-{0}", CveEmpresa) + If Application(AppNombre) Is Nothing Then + Dim ObjGenerales As New ClsGenerales + If ObjGenerales.GetGralPaqueterias(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados Else Application(AppNombre) = Nothing + ObjGenerales.Dispose() + End If + + Dim Str As StringBuilder = New StringBuilder() + If TipoPaquteria <> -1 Then Str.AppendFormat("TipoPaqueteria = {0}", TipoPaquteria) + + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTPaqueterias = Dv.ToTable + Dv.Dispose() + Str.Clear() End Get Set(value As DataTable) - Application("GlobalDTPaqueterias") = value + Dim AppNombre As String = String.Format("GlobalDTPaqueterias-{0}", CveEmpresa) + Application(AppNombre) = value End Set End Property Property GlobalDTAcumTiposDefecto() As DataTable diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 2a74c593d..653f7621b 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -4173,11 +4173,16 @@ Partial Class PopUpVerFactura #End Region #Region "OP = ENTREGAS - Entregas por realizar" - Public Sub ImprimeEntregasPorRealziar(pCveTick As String, pUsuarioEntregar As String) - Dim CveTick As Long = pCveTick.ToLong() + Public Sub ImprimeEntregasPorRealziar(CveAsignacionEntrega As Long, pUsuarioEntregar As String) + Dim Correcto As Boolean = False + Dim DtPaqueteriasGuias As DataTable = Nothing Dim ObjGeneral As New ClsGenerales - If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveTick) Then - Dim DtPaqueteriasGuias As DataTable = ObjGeneral.DtResultados + If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveAsignacionEntrega) Then + DtPaqueteriasGuias = ObjGeneral.DtResultados + Correcto = True + End If + ObjGeneral.Dispose() + If Correcto Then Dim RepParams As New List(Of ReportParameter) RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString())) RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar)) @@ -4185,6 +4190,7 @@ Partial Class PopUpVerFactura ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios") End If + End Sub #End Region diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index 3c48da0b4..f946bcb53 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -210,15 +210,18 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas { if (UsuarioActual.CveRol == 1339) { - DdlPaqueterias.DataSource = GlobalDTPaqueterias.FiltraParametros(String.Format("TipoPaqueteria = 0 AND CveEmpresa = {0}",UsuarioActual.CveEmpresa)); - }else - { - DdlPaqueterias.DataSource = GlobalDTPaqueterias; + DdlPaqueterias.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0); + DdlPaqueterias.DataBind(); } - DdlPaqueterias.DataBind(); - DdlPaqueterias.Items.Insert(0, new ListItem("Todos ", "-1")); + else + { + DdlPaqueterias.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa); + DdlPaqueterias.DataBind(); + DdlPaqueterias.Items.Insert(0, new ListItem("Todos ", "-1")); + } + - DdlPaqueteriaEditar.DataSource = GlobalDTPaqueterias; + DdlPaqueteriaEditar.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa); DdlPaqueteriaEditar.DataBind(); DdlPaqueteriaEditar.Items.Insert(0, new ListItem("Seleccione ", "-1")); } diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 0190cc9f0..c1860efcf 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2653,7 +2653,7 @@ Partial Class Inventarios_EntregaAlmacen Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero() Dim Observaciones As String = TxtObservacionesPaqInterna.Text - Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero + Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero If CveSubProyecto > 0 Then Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True) @@ -3123,7 +3123,7 @@ Partial Class Inventarios_EntregaAlmacen Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero() Dim Observaciones As String = TxtObservacionesPaqInterna.Text - Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero + Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True) From 49f1bb231668989554ab111b028e7007d461fedb Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 23 Jun 2020 17:30:26 -0700 Subject: [PATCH 03/12] -- cambio de columna de tick a CveAsignacionEntrega --- App_Code/ClsGenerales.vb | 10 +++++----- Compras/PopUpVerFactura.aspx.vb | 6 +++--- Inventarios/EntregasPorRealizar.aspx.cs | 6 +++--- 3 files changed, 11 insertions(+), 11 deletions(-) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 72329f707..30171da5f 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2822,12 +2822,12 @@ Public Class ClsGenerales Return Retorno End Function - Public Function GetEntregasPorRealizar(CveEmpresa As Integer, Optional CveTick As Long = -1) As Boolean + Public Function GetEntregasPorRealizar(CveEmpresa As Integer, Optional CveAsignacionEntrega As Long = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_EntregasPorRealizarGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveTick + .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega End With Try SqlAdapter.Fill(Data) @@ -2839,20 +2839,20 @@ Public Class ClsGenerales Return Retorno End Function - Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveTick As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean + Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_AsignarEntregasPorRealizar") With SqlAdapter.SelectCommand.Parameters .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CvePersonal - .Add("@CveTick", SqlDbType.BigInt).Value = CveTick + .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria End With Try SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al obtener entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al asignar entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 653f7621b..eaf8dacca 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -474,8 +474,8 @@ Partial Class PopUpVerFactura 'IMPRIME ENTREGAS POR REALIZAR If UrlParametros("OP").ToString = "ENTREGAS" Then - If UrlParametros("CVETICK") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then - ImprimeEntregasPorRealziar(UrlParametros("CVETICK").ToString, UrlParametros("USUARIOENTREGA").ToString) + If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then + ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString) End If End If @@ -4173,7 +4173,7 @@ Partial Class PopUpVerFactura #End Region #Region "OP = ENTREGAS - Entregas por realizar" - Public Sub ImprimeEntregasPorRealziar(CveAsignacionEntrega As Long, pUsuarioEntregar As String) + Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String) Dim Correcto As Boolean = False Dim DtPaqueteriasGuias As DataTable = Nothing Dim ObjGeneral As New ClsGenerales diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs index 9b590c741..1895e37b9 100644 --- a/Inventarios/EntregasPorRealizar.aspx.cs +++ b/Inventarios/EntregasPorRealizar.aspx.cs @@ -41,17 +41,17 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas GridViewRowCollection Grid = GvPaqueteriasGuias.Rows; int CvePersonal = DdlUsuario.SelectedValue.ToEntero(); - long CveTick = DateTime.Now.Ticks; + long CveAsignacionEntrega = DateTime.Now.Ticks; string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos"; - string LigaPopUpVerFactura = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", ModExtensiones.Encripta(String.Format("OP=ENTREGAS&CVETICK={0}&USUARIOENTREGA={1}", CveTick, Usuario))); + string LigaPopUpVerFactura = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", ModExtensiones.Encripta(String.Format("OP=ENTREGAS&CVEASIGNACIONENTREGA={0}&USUARIOENTREGA={1}", CveAsignacionEntrega, Usuario))); foreach (GridViewRow row in Grid) { if (row.FCCheckBox("ChkAsigna").Checked) { int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero(); - if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal, CveTick)){ + if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal, CveAsignacionEntrega)){ TieneError = true; }else { From 46976d07c42db2500b992e2d9c5487fe5b9fb86c Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 23 Jun 2020 17:30:48 -0700 Subject: [PATCH 04/12] -cambio en recarga de globaldtpaqueterias --- Global.asax | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Global.asax b/Global.asax index d2a87c94f..47d5ed410 100644 --- a/Global.asax +++ b/Global.asax @@ -222,8 +222,8 @@ If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing - If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTObjGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTObjGralColectivas") = Nothing - If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing + If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTObjGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTObjGralColectivas") = Nothing + 'If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing From 6391cb8a02c6fc6b0e094b1ead0e92010c06c2e5 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 23 Jun 2020 17:34:37 -0700 Subject: [PATCH 05/12] =?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 06/12] 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 07/12] 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 08/12] - --- 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 09/12] 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 10/12] 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 +