Envio de correo clientes cotización

2023-08-26 14:47:37 -07:00
parent ff7e4ddae6
commit f66ea586b5
6 changed files with 127 additions and 51 deletions
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2096,7 +2096,7 @@ Partial Class Clientes
                Dim ObjMail As New ClsSisMail()
                Dim Ruta As String = UsuarioActual.Empresa.Ruta

-                Dim Cuerpo As String = TxtBody.Text
+                Dim Cuerpo As String = TxtBody.Text
                Dim Asunto As String = ""
                Dim TipoComprobante = ""
                Dim Adjunto As String = ""
@@ -2132,6 +2132,10 @@ Partial Class Clientes
                            Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
                            Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
                            Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
+
+                            Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
+                            Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
+
                        End If
                    End If

@@ -2154,6 +2158,8 @@ Partial Class Clientes
                            Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
                            Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
                            Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
+                            Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
+                            Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
                        End If
                    End If

@@ -5516,29 +5522,65 @@ Partial Class Clientes
                        Dr = ObjVenta.DtResultados.Rows(0)
                    End If
                End If
-                ObjVenta.Dispose()
-
-                If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
-                    Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
-                    Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
-                    Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
-                    Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
-                    Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString())
-                    If Dr IsNot Nothing Then
-                        Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
-                        Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
-                        Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
-                    End If
-                End If
-
-
-                If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
-                    Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
-                    Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
-                    Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto2.Value.ToString())
-                    Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString())
-                End If
-
+                ObjVenta.Dispose()
+
+
+                If HdnTipoDocto2.Value.ToString() = "Cot" Then
+
+                    If UsuarioActual.Empresa.PlantillaMailVentaCotizacion.Trim.Length > 0 Then
+                        Cuerpo = UsuarioActual.Empresa.PlantillaMailVentaCotizacion
+                        Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                        Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
+                        Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
+                        Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString())
+                        If Dr IsNot Nothing Then
+                            Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
+                            Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
+                            Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
+
+                            Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
+                            Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
+
+
+                        End If
+                    End If
+
+
+                    If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
+                        Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion
+                        Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
+                        Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto2.Value.ToString())
+                        Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString())
+                    End If
+
+                Else
+                    If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
+                        Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
+                        Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                        Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
+                        Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
+                        Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString())
+                        If Dr IsNot Nothing Then
+                            Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
+                            Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
+                            Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
+                            Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
+                            Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
+                        End If
+                    End If
+
+
+                    If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
+                        Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
+                        Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
+                        Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto2.Value.ToString())
+                        Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString())
+                    End If
+
+                End If
+
+
+
                If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto2.Value.Contiene("Ing", "Egs") Then
                    If File.Exists($"{Ruta}PDF\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.pdf") AndAlso File.Exists($"{Ruta}XML\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.xml") Then
                        Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.pdf"
--- a/Ventas/RepVentaDetalle.aspx
+++ b/Ventas/RepVentaDetalle.aspx
@@ -556,7 +556,7 @@


                    <%-- 36--%>
-                    <asp:TemplateField HeaderText="Metodo de Pago" Visible="false">
+                    <asp:TemplateField HeaderText="Método de Pago" Visible="false">
                        <ItemTemplate>
                            <asp:Literal ID="LtlMetodoPago" runat="server" Text='<%# Eval("MetodoPago") %>'></asp:Literal>
                        </ItemTemplate>
@@ -702,7 +702,7 @@
                                    <tr>
                                        
                                        <td style="text-align: left;"><asp:CheckBox ID="ChkMoneda" runat="server" Text="&nbsp;*Moneda" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkMetodoPago" runat="server" Text="&nbsp;Metodo de Pago" Checked="false" /></td>
+                                        <td style="text-align: left;"><asp:CheckBox ID="ChkMetodoPago" runat="server" Text="&nbsp;Método de Pago" Checked="false" /></td>
                                        <td style="text-align: left;"><asp:CheckBox ID="ChkAmortizacion" runat="server" Text="&nbsp;Amortización"  /></td>                                                        
                                    </tr>
                                     <tr>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10372,14 +10372,16 @@ Partial Class Ventas
                                'EN EMPRESA DE ACUMULADORES NO DESCARGAR EL PDF
                                If UsuarioActual.Empresa.Funcionalidad(531) <> "1" Then
                                    If CveVenta > 0 Then MensajeAlert = New StringBuilder
+
                                    Dim ArchivoCotizacion As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.rdlc", UsuarioActual.Empresa.Ruta))
+                                    Dim ArchivoCotizacionMrt As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.mrt", UsuarioActual.Empresa.Ruta))

                                    If Opcion = "Cot" And UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                                        MensajeAlert.AppendFormat("<b><a class='Texto' href=""Ventas.aspx?CveVenta={0}"">Facturar</a></b><br/><br/>", CveVenta)
                                    End If

-                                    If ArchivoCotizacion.Exists Then
-                                        MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=0", CveVenta)))
+                                    If ArchivoCotizacion.Exists Or ArchivoCotizacionMrt.Exists Then
+                                        MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=0&GUARDAR=1", CveVenta)))
                                    Else
                                        MensajeAlert.Append("Ocurrió un error al generar el PDF. Por favor vuelva a entrar a la factura para imprimir el PDF. ")
                                    End If
@@ -20821,23 +20823,51 @@ Partial Class Ventas
            If TipoDocto = "Cot" Then TipoComprobante = "Cotización"
            If TipoDocto = "Ant" Then TipoComprobante = "Anticipo"

-            If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
-                Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
-                Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
-                Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
-                Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
-                Cuerpo = Cuerpo.Replace("{""Fecha""}", TxtFecha.Text)
-                Cuerpo = Cuerpo.Replace("{""Total""}", TxtTotal.Text)
-                Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", TxtFechaPago.Text)
-                Cuerpo = Cuerpo.Replace("{""SerieFolio""}", SerieFolio)
+
+            If TipoDocto = "Cot" Then
+                If UsuarioActual.Empresa.PlantillaMailVentaCotizacion.Trim.Length > 0 Then
+                    Cuerpo = UsuarioActual.Empresa.PlantillaMailVentaCotizacion
+                    Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                    Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
+                    Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
+                    Cuerpo = Cuerpo.Replace("{""Fecha""}", TxtFecha.Text)
+                    Cuerpo = Cuerpo.Replace("{""Total""}", TxtTotal.Text)
+                    Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", TxtFechaPago.Text)
+                    Cuerpo = Cuerpo.Replace("{""SerieFolio""}", SerieFolio)
+                    Cuerpo = Cuerpo.Replace("{""Vigencia""}", TxtFechaVencimientoCotizacion.Text)
+                    Cuerpo = Cuerpo.Replace("{""AtencionA""}", TxtAtencionA.Text)
+                End If
+
+                If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
+                    Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion
+                    Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
+                    Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
+                    Asunto = Asunto.Replace("{""SerieFolio""}", SerieFolio)
+                End If
+
+            Else
+                If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
+                    Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
+                    Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                    Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
+                    Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
+                    Cuerpo = Cuerpo.Replace("{""Fecha""}", TxtFecha.Text)
+                    Cuerpo = Cuerpo.Replace("{""Total""}", TxtTotal.Text)
+                    Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", TxtFechaPago.Text)
+                    Cuerpo = Cuerpo.Replace("{""SerieFolio""}", SerieFolio)
+                    'Cuerpo = Cuerpo.Replace("{""Vigencia""}", TxtFechaVencimientoCotizacion.Text)
+                    Cuerpo = Cuerpo.Replace("{""AtencionA""}", TxtAtencionA.Text)
+                End If
+
+                If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
+                    Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
+                    Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
+                    Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
+                    Asunto = Asunto.Replace("{""SerieFolio""}", SerieFolio)
+                End If
            End If

-            If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
-                Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
-                Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
-                Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
-                Asunto = Asunto.Replace("{""SerieFolio""}", SerieFolio)
-            End If
+

            If Not EnviarFactura Then
                ResultadoMail = 0