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/CGame/CatHuerta.aspx
+++ b/CGame/CatHuerta.aspx
@@ -71,7 +71,7 @@
                    <asp:GridView ID="GVHuerta" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD GVCGame_TipoMaduracion mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
                        DataKeyNames="CveHuerta,Huerta,CveOrigen,NombreRegistro,NumeroRegistro,CveProveedor,RazonSocial,FechaIng,Estatus,CveUsuario,Usuario,CveEmpresa,Empresa,TipoCobro,Importe,CostoXTonelada" OnRowDataBound="GvHuerta_RowDataBound">
                        <Columns>
-                            <asp:TemplateField HeaderText="Huerta" ItemStyle-HorizontalAlign="Left">
+                            <asp:TemplateField HeaderText="Huerta" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px">
                                <ItemTemplate>
                                    <asp:Label ID="lblhuerta" runat="server" Text='<%# Eval("Huerta")%>'> </asp:Label>
                                </ItemTemplate>
@@ -81,7 +81,7 @@
                                    <asp:Label ID="lblOrigen" runat="server" Text='<%# Eval("Origen")%>'> </asp:Label>
                                </ItemTemplate>
                            </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Nombre de Registro" ItemStyle-HorizontalAlign="Left">
+                            <asp:TemplateField HeaderText="Nombre de Registro" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="20%" >
                                <ItemTemplate>
                                    <asp:Label ID="lblhuerta2" runat="server" Text='<%# Eval("NombreRegistro")%>'> </asp:Label>
                                </ItemTemplate>
@@ -91,7 +91,7 @@
                                    <asp:Label ID="lblhuerta3" runat="server" Text='<%# Eval("NumeroRegistro")%>'> </asp:Label>
                                </ItemTemplate>
                            </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left" Visible="false">
+                            <asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left" Visible="true" ItemStyle-Width="30%">
                                <ItemTemplate>
                                    <asp:Label ID="lblrazonsocial" runat="server" Text='<%# Eval("RazonSocial")%>'> </asp:Label>
                                </ItemTemplate>
@@ -116,13 +116,13 @@
                                    <asp:Label ID="lblestatus" runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
                                </ItemTemplate>
                            </asp:TemplateField>
-                            <asp:BoundField DataField="FechaIng" ItemStyle-Width="15%" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Left"  DataFormatString="{0:d}" />
-                            <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Left">
+                            <asp:BoundField DataField="FechaIng" ItemStyle-Width="150px" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Left"  DataFormatString="{0:d}"   />
+                            <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Left"   ItemStyle-Width="150px">
                                <ItemTemplate>
-                                    <asp:Label ID="lblusuario" runat="server" Text='<%# Eval("Usuario")%>'> </asp:Label>
+                                    <asp:Label ID="lblusuario"  Width="150px" CssClass="truncate" runat="server" Text='<%# Eval("Usuario")%>'> </asp:Label>
                                </ItemTemplate>
                            </asp:TemplateField>
-                            <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
+                            <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px" HeaderText="Comandos">
                                <ItemTemplate>
                                    <asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarHuer_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
                                    <asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminarHuer_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el Huerta?" data-btn-ok-label="si" />
@@ -162,7 +162,7 @@
                            <asp:TextBox ID="TxtNumeroRegistro" CssClass="form-control" runat="server"></asp:TextBox>
                            <label for="<%= TxtNumeroRegistro.ClientID.ToString()%>">Número de Registro:</label>
                        </div>
-                        <div class="form-group form-md-line-input input-iconright ocultar">
+                        <div class="form-group form-md-line-input input-iconright">
                            <asp:DropDownList ID="DdlProveedor" CssClass="form-control  select2me " runat="server" DataTextField="RazonSocial" AppendDataBoundItems="true" DataValueField="CveProveedor" Style="width: 100%"></asp:DropDownList>
                            <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor:</label>
                        </div>
--- a/Sistemas/DefinicionEmpresa.aspx
+++ b/Sistemas/DefinicionEmpresa.aspx
@@ -1017,6 +1017,8 @@
                        <li>{"FechaVencimiento"}</li>
                        <li>{"RazonSocialEmisor"}</li>
                        <li>{"RazonSocialReceptor"}</li>
+                        <li>{"Vigencia"}</li>
+                        <li>{"AtencionA"}</li>
                    </ul>
                </div>
                <br />
--- a/Sistemas/Empresa.aspx
+++ b/Sistemas/Empresa.aspx
@@ -1418,6 +1418,8 @@
                        <li>{"FechaVencimiento"}</li>
                        <li>{"RazonSocialEmisor"}</li>
                        <li>{"RazonSocialReceptor"}</li>
+                         <li>{"Vigencia"}</li>
+                        <li>{"AtencionA"}</li>
                    </ul>
                </div>
                <br />
--- 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