diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index d783cee22..0aadffd24 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -341,7 +341,7 @@ Public Class ClsVentas Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0, Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0, - Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False, Optional RFCReceptor As String = "") As Boolean + Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False, Optional RFCReceptor As String = "", Optional Adjunto As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasAdd") @@ -436,6 +436,7 @@ Public Class ClsVentas .Add("@VentaDesglosaIEPS", SqlDbType.Bit).Value = VentaDesglosaIEPS .Add("@ServicioDomicilio", SqlDbType.Bit).Value = ServicioDomicilio .Add("@RFCReceptor", SqlDbType.VarChar).Value = RFCReceptor + .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 571e1b1b6..185575920 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -2126,6 +2126,7 @@ Partial Class Clientes Dim Cuerpo As String = TxtBody.Text Dim Asunto As String = "" Dim TipoComprobante = "" + Dim Adjunto As String = "" If HdnTipoDocto.Value.ToString() = "Ing" Then TipoComprobante = "Factura" If HdnTipoDocto.Value.ToString() = "Egs" Then TipoComprobante = "Nota de Crédito" @@ -2177,6 +2178,12 @@ Partial Class Clientes LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF}) LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = XML}) + + If Dr("Adjunto").ToString() <> "" Then + Adjunto = Dr("Adjunto").ToString() + Dim ArchivoAdjunto As String = $"{Ruta}Ventas\{Adjunto}" + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoAdjunto}) + End If 'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, Asunto, Cuerpo, TxtCC.Text.Trim, LSRutasMail, Displayname:=DisplayName) Then @@ -2204,8 +2211,12 @@ Partial Class Clientes Dim ResultadoMail As Integer = 0 Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) - LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF}) - + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF}) + If Dr("Adjunto").ToString() <> "" Then + Adjunto = Dr("Adjunto").ToString() + Dim ArchivoAdjunto As String = $"{Ruta}Ventas\{Adjunto}" + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoAdjunto}) + End If 'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, Asunto, Cuerpo, TxtCC.Text.Trim, LSRutasMail) Then @@ -2232,8 +2243,12 @@ Partial Class Clientes Dim ResultadoMail As Integer = 0 Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) - LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF}) - + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF}) + If Dr("Adjunto").ToString() <> "" Then + Adjunto = Dr("Adjunto").ToString() + Dim ArchivoAdjunto As String = $"{Ruta}Ventas\{Adjunto}" + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoAdjunto}) + End If 'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, Asunto, Cuerpo, TxtCC.Text.Trim, LSRutasMail) Then ResultadoMail = 1 diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 638985289..2cf89e88d 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -3657,88 +3657,136 @@
- - - - - +
+
+ + + + + -
-
- - Acciones -
-
-
-
-
-
- -
-
-
-
- -
- - - - - - - - - - + +
- -
- -
- - -
- -
    -
  • - -
    • -
  • - -
    • - <%--
  • - -
    • -
  • - -
    • --%> -
+
+
+ + Acciones +
+
+
- - +
+
+ +
+
+
+
+ +
+ + + + + + + - <%----%> - - + + - -
+ +
+ +
+ - - +
+ +
    +
  • + +
    • +
  • + +
    • + <%--
  • + +
    • +
  • + +
    • --%> +
+
+ + - - + <%----%> + + - - + + - + + -
-
- - + + + + + +
+
+ + +
+
+
+ + + +
+
+ + Adjuntos +
+
+
+
+
+
+ +
+
+
+ + + + + + +
+ +
+
+ + + + + + +
+ +
@@ -7443,6 +7491,31 @@ + + <%--MODAL ADJUNTAR--%> + + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 8df4b4fdf..49bedbb5d 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1308,6 +1308,15 @@ Partial Class Ventas ViewState("RFCReceptorVenta") = value End Set End Property + Private Property Adjunto As String + Get + Return If(IsNothing(ViewState("Adjunto")), "", ViewState("Adjunto").ToString()) + End Get + + Set(value As String) + ViewState("Adjunto") = value + End Set + End Property #End Region #Region "Propiedades PuntoVenta" @@ -3994,6 +4003,21 @@ Partial Class Ventas End If RFCReceptorVenta = DbRowVenta("RFCReceptor").ToString() + 'Adjuntar archivo + Adjunto = DbRowVenta("Adjunto").ToString() + If Adjunto <> "" Then + BtnArchivoAdjunto.Text = Adjunto + BtnArchivoAdjunto.Visible = True + BtnEliminarAdjunto.Visible = False + BtnAdjuntar.Visible = False + + tdAdjuntar.Style.Item("display") = "none" + tdAdjunto.Style.Item("display") = "block" + + Else + DivAdjuntar.Visible = False + + End If ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString().ToEntero() @@ -10980,7 +11004,7 @@ Partial Class Ventas CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM, DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False), Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, - FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor) Then + FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then @@ -13748,13 +13772,16 @@ Partial Class Ventas 'MANDA CORREO If EnviaCorreo Then - + Dim ArchivoAdjunto As String = "" Dim ArchivoXML = String.Format("{0}XML\{1}\{2}.xml", UsuarioActual.Empresa.Ruta, LocalTipoDocto, LocalSerieFolio) Dim ArchivoPDF = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, LocalTipoDocto, LocalSerieFolio) + If Adjunto <> "" Then + ArchivoAdjunto = String.Format("{0}Ventas\{1}", UsuarioActual.Empresa.Ruta, Adjunto) + End If Try ' BytesPdfCotizacion(CveVenta) - Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF)) + Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto)) Hilo.Start() Catch ex As Exception OnError("Ocurrió error al mandar Mail", ex) @@ -13792,13 +13819,16 @@ Partial Class Ventas 'MANDA CORREO If EnviaCorreo Then - + Dim ArchivoAdjunto As String = "" Dim ArchivoXML = "" Dim ArchivoPDF = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, LocalTipoDocto, LocalSerieFolio) + If Adjunto <> "" Then + ArchivoAdjunto = String.Format("{0}Ventas\{1}", UsuarioActual.Empresa.Ruta, Adjunto) + End If Try ' BytesPdfCotizacion(CveVenta) - Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF)) + Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto)) Hilo.Start() Catch ex As Exception OnError("Ocurrió error al mandar Mail", ex) @@ -13835,13 +13865,17 @@ Partial Class Ventas LocalSerieFolio = ObjFactura.SerieFolio LocalTipoDocto = ObjFactura.TipoDocto + Dim ArchivoAdjunto As String = "" Dim ArchivoXML = String.Format("{0}XML\{1}\{2}.xml", UsuarioActual.Empresa.Ruta, LocalTipoDocto, LocalSerieFolio) Dim ArchivoPDF = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, LocalTipoDocto, LocalSerieFolio) + If Adjunto <> "" Then + ArchivoAdjunto = String.Format("{0}Ventas\{1}", UsuarioActual.Empresa.Ruta, Adjunto) + End If Try ' BytesPdfCotizacion(CveVenta) - Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF)) + Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto)) Hilo.Start() Catch ex As Exception OnError("Ocurrió error al mandar Mail", ex) @@ -19464,7 +19498,7 @@ Partial Class Ventas #End Region #Region " MANDA CORREO " - Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String) + Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String, Adjunto As String) Dim ObjMail As New ClsSisMail() Dim ObjVentas As New ClsVentas @@ -19514,6 +19548,10 @@ Partial Class Ventas LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = XML}) End If + If Adjunto <> "" Then + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = Adjunto}) + End If + Dim DisplayName As String = "" If UsuarioActual.CveEmpresa = 119 Then DisplayName = "Facturación Agroquímicos JAM" @@ -31416,5 +31454,101 @@ Partial Class Ventas RegistraScript("$('#ModalAplicaRNCDevolucion').modal('hide');") End Sub + + Protected Sub btnGuardarAdjunto_Click(sender As Object, e As System.EventArgs) Handles btnGuardarAdjunto.Click + If Not txtAdjuntar.getfiles().Archivos.Count > 0 Then + Alert("Tiene que cargar un archivo.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If LblSerie.Text = "" Or TxtFolio.Text = "" Then + Alert("Debe asignar una serie un folio antes de subir el archivo.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Dim FileExtension As String = "-1" + Dim Filesgral As List(Of Archivo) = txtAdjuntar.getfiles().Archivos + Dim Filename As String = "" + Dim fileItem As Archivo = Filesgral(0) + Try + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") + Adjunto = String.Format("{0}-{1}.{2}", LblSerie.Text, TxtFolio.Text, FileExtension) + Dim objVentas As New ClsVentas + Dim Path As String + Path = Extensiones.DirectorioBaseEmpresas + Path += String.Format("Empresas/{0}/Ventas", UsuarioActual.CveEmpresa) + If Not Directory.Exists(Path) Then + Directory.CreateDirectory(Path) + End If + Path += $"/{Adjunto}" + If File.Exists(Path) Then + File.Delete(Path) + End If + My.Computer.FileSystem.MoveFile(fileItem.FileUrl, Path) + BtnAdjuntar.Visible = False + BtnArchivoAdjunto.Text = Adjunto + BtnArchivoAdjunto.Visible = True + BtnEliminarAdjunto.Visible = True + tdAdjuntar.Style.Item("display") = "none" + tdAdjunto.Style.Item("display") = "block" + UpAdjuntar.Update() + Alert("Documento cargado", TipoMensaje.MsgInformacion) + objVentas.Dispose() + + Catch ex As Exception + OnError("Error al cargar archivo", ex) + End Try + + End Sub + + Protected Sub BtnArchivoAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnArchivoAdjunto.Click + Dim ruta As String = HttpContext.Current.Request.ApplicationPath + ruta = Extensiones.DirectorioBaseEmpresas + ruta += String.Format("Empresas/{0}/Ventas", UsuarioActual.CveEmpresa) + ruta += $"/{Adjunto}" + + Dim Archivo As New System.IO.FileInfo(ruta) + + Try + If Archivo IsNot Nothing Then + If Archivo.Exists Then + + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = "application/octet-stream" + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(ruta) + Response.Flush() ' send it to the client to download + HttpContext.Current.Response.SuppressContent = True + HttpContext.Current.ApplicationInstance.CompleteRequest() + Response.End() + + Else + Alert("El archivo no existe", TipoMensaje.MsgAdvertencia) + End If + + End If + Catch ex As Exception + End Try + + + + End Sub + + Protected Sub BtnEliminarAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnEliminarAdjunto.Click + Dim objVentas As New ClsVentas + Dim Path As String + Path = String.Format("{0}Empresas/{1}/Ventas/{2}", Extensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Adjunto) + If File.Exists(Path) Then + File.Delete(Path) + End If + BtnAdjuntar.Visible = True + tdAdjuntar.Style.Item("display") = "block" + BtnArchivoAdjunto.Text = "" + BtnArchivoAdjunto.Visible = False + tdAdjunto.Style.Item("display") = "none" + BtnEliminarAdjunto.Visible = False + UpAdjuntar.Update() + End Sub End Class