Subir archivo Adjunto

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

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

Ventas/Ventas.aspx

@@ -3657,88 +3657,136 @@
         </div>
 
         <div class="col-md-4" align="right">
-            <asp:UpdatePanel ID="UpFacturar" runat="server" class="portlet light xspadding bordered " style="width: 300px;" align="right" UpdateMode="Conditional">
-                <Triggers>
-                    <asp:PostBackTrigger ControlID="BtnVistaPrevia" />
-                </Triggers>
-                <ContentTemplate>
+            <div class="row"> 
+                <div class="col-md-12" align="right" style="padding-bottom: 15px;">
+                    <asp:UpdatePanel ID="UpFacturar" runat="server" class="portlet light xspadding bordered " style="width: 300px;" align="right" UpdateMode="Conditional">
+                        <Triggers>
+                            <asp:PostBackTrigger ControlID="BtnVistaPrevia" />
+                        </Triggers>
+                        <ContentTemplate>
 
-                    <div class="portlet-title">
-                        <div class="caption font-green">
-                            <i class="icon-pin font-green"></i>
-                            <span class="caption-subject bold uppercase">Acciones </span>
-                        </div>
-                        <div class="actions">
-                            <div class="btn-group">
-                            </div>
-                        </div>
-                        <div class="tools">
-                            <a href="javascript:;" class="collapse"></a>
-                        </div>
-                    </div>
-                    <div class="portlet-body  formnombottom">
-                        <div class="row" style="text-align: center;">
-                            <asp:Label ID="LblMensaje" runat="server" Text="" CssClass="alert alert-warning" Style="padding: 5px; margin-bottom: 5px; padding-right: 25px;" Visible="false"></asp:Label>
-                        </div>
-                        <table border="0" style="text-align: center; width: 100%;">
-                            <tr id="TrVistaPrevia" runat="server">
-                                <td>
-                                    <asp:LinkButton ID="BtnVistaPrevia" runat="server" Text="Vista Previa  <i class='fa-search-plus fa' style=' color: white;'></i>" CssClass="btn myventasbutton btn-primary" />
-                                </td>
-                            </tr>
-                            <tr id="TrEmitir" runat="server" visible="false">
-                                <td>
-                                    <asp:Button ID="BtnEmitir" runat="server" Text="Emitir" Width="170px" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" />
-                                </td>
-                            </tr>
-
-                            <tr runat="server" id="TrBotones">
-                                <td align="center">
-                                    <asp:LinkButton ID="BtnEmitirImprimir" runat="server" Text="Emitir e Imprimir" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" />
-
-                                    <div id="BtnsFacturar" class="btn-group myventasbutton" runat="server" visible="false">
-                                        <button class="btn myventasbutton btn-primary dropdown-toggle" data-toggle="dropdown" aria-expanded="false">
-                                            Facturar <i class="fa fa-angle-down"></i>
-                                        </button>
-                                        <ul class="dropdown-menu">
-                                            <li>
-                                                <asp:LinkButton ID="LBFacturarIngreso" Text="Ingreso" OnClick="LBFacturarIngreso_Click" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea facturar como tipo ingreso?" data-btn-ok-label="si" />
-                                            </li>
-                                            <li>
-                                                <asp:LinkButton ID="LBFacturarAnticipo" Text="Anticipo" OnClick="LBFacturarAnticipo_Click" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea facturar como tipo anticipo?" data-btn-ok-label="si" />
-                                            </li>
-                                            <%--<li>
-                                                <asp:Button ID="BtnFacturarIngreso" runat="server" Text="Ingreso" Visible="true" CssClass="btn myventasbutton" />
-                                            </li>
-                                            <li>
-                                                <asp:Button ID="BtnFacturarAnticipo" runat="server" Text="Ingreso" Visible="true" CssClass="btn myventasbutton" />
-                                            </li>--%>
-                                        </ul>
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="icon-pin font-green"></i>
+                                    <span class="caption-subject bold uppercase">Acciones </span>
+                                </div>
+                                <div class="actions">
+                                    <div class="btn-group">
                                     </div>
-                                    <asp:Button ID="BtnGenerarRemision" runat="server" Text="Generar Remisión" Visible="false" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea generar la remisión?" data-btn-ok-label="si" />
-                                    <asp:Button ID="BtnGeneraAutorizacion" runat="server" Text="Generar Autorización" OnClick="BtnGeneraAutorizacion_Click" Visible="false" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea generar la autorización?" data-btn-ok-label="si" />
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse"></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body  formnombottom">
+                                <div class="row" style="text-align: center;">
+                                    <asp:Label ID="LblMensaje" runat="server" Text="" CssClass="alert alert-warning" Style="padding: 5px; margin-bottom: 5px; padding-right: 25px;" Visible="false"></asp:Label>
+                                </div>
+                                <table border="0" style="text-align: center; width: 100%;">
+                                    <tr id="TrVistaPrevia" runat="server">
+                                        <td>
+                                            <asp:LinkButton ID="BtnVistaPrevia" runat="server" Text="Vista Previa  <i class='fa-search-plus fa' style=' color: white;'></i>" CssClass="btn myventasbutton btn-primary" />
+                                        </td>
+                                    </tr>
+                                    <tr id="TrEmitir" runat="server" visible="false">
+                                        <td>
+                                            <asp:Button ID="BtnEmitir" runat="server" Text="Emitir" Width="170px" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" />
+                                        </td>
+                                    </tr>
 
-                                    <%--<asp:Button ID="Button2" runat="server" Text="Button" />--%>
-                                    <asp:Button ID="BtnGenerarPoliza" runat="server" Text="GenerarPoliza" Visible="false" CssClass="btn myventasbutton btn-primary" />
-                                    <asp:Button ID="BtnGenerarOS" runat="server" Text="Generar OS" Visible="false" CssClass="btn myventasbutton btn-primary" />
+                                    <tr runat="server" id="TrBotones">
+                                        <td align="center">
+                                            <asp:LinkButton ID="BtnEmitirImprimir" runat="server" Text="Emitir e Imprimir" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" />
 
-                                    <asp:Button ID="BtnEditarCotizacion" runat="server" Text="Actualizar" Visible="false" CssClass="btn myventasbutton btn-primary" />
-                                    <asp:Button ID="BtnPermisoEditarCotizacion" runat="server" Text="Editar" Visible="false" CssClass="btn myventasbutton btn-primary" />
+                                            <div id="BtnsFacturar" class="btn-group myventasbutton" runat="server" visible="false">
+                                                <button class="btn myventasbutton btn-primary dropdown-toggle" data-toggle="dropdown" aria-expanded="false">
+                                                    Facturar <i class="fa fa-angle-down"></i>
+                                                </button>
+                                                <ul class="dropdown-menu">
+                                                    <li>
+                                                        <asp:LinkButton ID="LBFacturarIngreso" Text="Ingreso" OnClick="LBFacturarIngreso_Click" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea facturar como tipo ingreso?" data-btn-ok-label="si" />
+                                                    </li>
+                                                    <li>
+                                                        <asp:LinkButton ID="LBFacturarAnticipo" Text="Anticipo" OnClick="LBFacturarAnticipo_Click" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea facturar como tipo anticipo?" data-btn-ok-label="si" />
+                                                    </li>
+                                                    <%--<li>
+                                                        <asp:Button ID="BtnFacturarIngreso" runat="server" Text="Ingreso" Visible="true" CssClass="btn myventasbutton" />
+                                                    </li>
+                                                    <li>
+                                                        <asp:Button ID="BtnFacturarAnticipo" runat="server" Text="Ingreso" Visible="true" CssClass="btn myventasbutton" />
+                                                    </li>--%>
+                                                </ul>
+                                            </div>
+                                            <asp:Button ID="BtnGenerarRemision" runat="server" Text="Generar Remisión" Visible="false" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea generar la remisión?" data-btn-ok-label="si" />
+                                            <asp:Button ID="BtnGeneraAutorizacion" runat="server" Text="Generar Autorización" OnClick="BtnGeneraAutorizacion_Click" Visible="false" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea generar la autorización?" data-btn-ok-label="si" />
 
-                                    <asp:Button ID="BtnEditarRemision" runat="server" Text="Actualizar Remisión" CssClass="btn myventasbutton btn-primary" Visible="false" />
-                                    <asp:Button ID="BtnPermisoEditarRemision" runat="server" Text="Editar Remisión" CssClass="btn myventasbutton btn-primary" Visible="false" />
+                                            <%--<asp:Button ID="Button2" runat="server" Text="Button" />--%>
+                                            <asp:Button ID="BtnGenerarPoliza" runat="server" Text="GenerarPoliza" Visible="false" CssClass="btn myventasbutton btn-primary" />
+                                            <asp:Button ID="BtnGenerarOS" runat="server" Text="Generar OS" Visible="false" CssClass="btn myventasbutton btn-primary" />
 
-                                    <asp:Button ID="BtnMandaMail" runat="server" Text="MandaMail" CssClass="btn myventasbutton btn-primary" Visible="false" />
-                                    <asp:Button ID="BtnCrearApartirDe" runat="server" Text="Crear a partir de" CssClass="btn myventasbutton btn-primary" Visible="false" />
+                                            <asp:Button ID="BtnEditarCotizacion" runat="server" Text="Actualizar" Visible="false" CssClass="btn myventasbutton btn-primary" />
+                                            <asp:Button ID="BtnPermisoEditarCotizacion" runat="server" Text="Editar" Visible="false" CssClass="btn myventasbutton btn-primary" />
 
-                                    <asp:Button ID="BtnEditar" runat="server" Text="Editar" CssClass="btn myventasbutton btn-primary" Visible="false" />
+                                            <asp:Button ID="BtnEditarRemision" runat="server" Text="Actualizar Remisión" CssClass="btn myventasbutton btn-primary" Visible="false" />
+                                            <asp:Button ID="BtnPermisoEditarRemision" runat="server" Text="Editar Remisión" CssClass="btn myventasbutton btn-primary" Visible="false" />
 
-                                </td>
-                            </tr>
-                        </table>
-                    </div>
-                </ContentTemplate>
-            </asp:UpdatePanel>
+                                            <asp:Button ID="BtnMandaMail" runat="server" Text="MandaMail" CssClass="btn myventasbutton btn-primary" Visible="false" />
+                                            <asp:Button ID="BtnCrearApartirDe" runat="server" Text="Crear a partir de" CssClass="btn myventasbutton btn-primary" Visible="false" />
+
+                                            <asp:Button ID="BtnEditar" runat="server" Text="Editar" CssClass="btn myventasbutton btn-primary" Visible="false" />
+
+                                        </td>
+                                    </tr>
+                                </table>
+                            </div>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                <br />
+                <div class="col-md-12" align="right" runat="server" id="DivAdjuntar">
+                    <asp:UpdatePanel ID="UpAdjuntar" runat="server" class="portlet light xspadding bordered " style="width: 300px;" align="right" UpdateMode="Conditional">
+                        <ContentTemplate>
+
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="icon-pin font-green"></i>
+                                    <span class="caption-subject bold uppercase">Adjuntos </span>
+                                </div>
+                                <div class="actions">
+                                    <div class="btn-group">
+                                    </div>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse"></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body  formnombottom">
+                                <table border="0" style="text-align: center; width: 100%;">
+
+                                    <tr runat="server" id="Tr3">
+                                        <td align="center" style="" runat="server" id="tdAdjuntar">
+                                            <asp:LinkButton ID="BtnAdjuntar" runat="server" Text="Adjuntar" data-toggle="modal" data-target="#ModalAdjuntar" CssClass="btn myventasbutton btn-primary"  />
+                                        </td>
+                                        <td align="left" style="display: none;" runat="server" id="tdAdjunto">
+                                            <div class="col-md-6">
+                                                <asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Text="" Font-Size="14px" />
+                                            </div>
+                                            <div class="col-md-6" style="text-align: right;">
+                                                <asp:LinkButton ID="BtnEliminarAdjunto" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" Visible="false"/>
+                                            </div>
+                                        </td>
+                                    </tr>
+                                </table>
+                            </div>
+                        </ContentTemplate>
+                              <Triggers>
+                                <asp:PostBackTrigger ControlID="BtnArchivoAdjunto" />
+                              </Triggers>
+
+                    </asp:UpdatePanel>
+                </div>
+
+            </div>
         </div>
     </div>
 
@@ -7443,6 +7491,31 @@
             </asp:UpdatePanel>
         </div>
     </div>
+
+    <%--MODAL ADJUNTAR--%>
+    <div id="ModalAdjuntar" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <!-- Modal content-->
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Adjuntar</h4>
+                </div>
+                <div class="modal-body">
+                    <div class="row">
+                        <div class="col-md-12">
+                            <asp:TextBox ID="txtAdjuntar" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
+                        </div>
+                    </div>
+                </div>
+                <div class="modal-footer">
+                    <asp:Button ID="btnGuardarAdjunto" runat="server" Text="Guardar" CssClass="btn btn-primary" />
+                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                </div>
+            </div>
+        </div>
+    </div>
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script src="/Metronic/assets/global/scripts/jquery-sortable.js"></script>

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.<br />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