diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index a3a8adcff..30171da5f 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 @@ -2819,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("@CveTick", SqlDbType.BigInt).Value = CveTick + .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega End With Try SqlAdapter.Fill(Data) @@ -2836,19 +2839,20 @@ 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 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/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/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 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 diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 2a74c593d..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,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 ImprimeEntregasPorRealizar(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/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 +