From 1f44fd5f03bb60fdad094d768397c7ea0c36b3b4 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Fri, 28 May 2021 10:42:51 -0700
Subject: [PATCH] Cambio en incio ventas correo no enviado

---
 App_Code/ClsVentas.vb | 15 +++++++++++++++
 Inicio.aspx           | 41 +++++++++++++++++++++++++++++++++++++++++
 Inicio.aspx.vb        | 17 +++++++++++++++++
 3 files changed, 73 insertions(+)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index ffb068e14..d783cee22 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -4703,6 +4703,21 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
+
+    Public Function GetVentasNoEnviadas(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_VentasNoEnviadas")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las ventas no enviadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
 #Region "Conciliación emitidas SAT"
 
     Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean
diff --git a/Inicio.aspx b/Inicio.aspx
index 7a2d2a2f7..5b092c8e2 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -1255,6 +1255,47 @@
             </asp:UpdatePanel>
         </div>
     </div>
+
+        <div id="DvCorreoSinEnviar" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <asp:UpdatePanel ID="UpdatePanel1" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="H2" runat="server">Ventas sin correo enviado</h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-6">
+                                <label># No Enviadas: </label>    
+                                <asp:Label runat="server" ID="lblVentasSinEnviar" Text="0" Font-Bold="true"></asp:Label>
+                            </div>
+
+                            <div class="col-md-6" style="text-align: right">
+                            <input type="text" id="TxtBusquedaVenta" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaVenta','{0}')", GvVentasEmail.ClientID) %>" style="display: inline-block; width: 150px;" />
+                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaCentroCosto','{0}')", GvVentasEmail.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                            </div>
+                        </div>
+                        <asp:GridView ID="GvVentasEmail" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" data-heighterror="800" EmptyDataText="No se encontraron registros">
+                            <Columns>
+                                <asp:HyperLinkField HeaderText="Serie-Folio" ItemStyle-Width="15%" DataNavigateUrlFields="CveVenta" DataTextField="SerieFolio" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" Target="_blank" />
+                                <asp:BoundField DataField="Fecha" ItemStyle-Width="15%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}"/>                                
+                                
+                                <asp:BoundField DataField="NombreComercial" ItemStyle-Width="60%" HeaderText="Nombre"  ItemStyle-HorizontalAlign="left" />
+
+                            </Columns>
+                        </asp:GridView>
+                    </div>
+                    <div class="modal-footer">
+                        <button data-dismiss="modal" class="btn btn-default">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
 
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index 664fb6489..e9826cf74 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -192,6 +192,9 @@ Partial Class Inicio
                 RegistraScript("$( document ).ready(function() { AbrirVentana('/Compras/PopUpFacturasPendientesAutorizar.aspx');});", "repFacturas")
             End If
 
+            'Ventas sin correo enviado
+            If UsuarioActual.TienePermisoProceso(319) Then MuestraVentasNoEnviadas()
+
             If UsuarioActual.TienePermisoProceso(271) Then MuestraVentasPUE()
             If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE()
 
@@ -301,6 +304,20 @@ Partial Class Inicio
         GvNoTimbradasCentroCosto.DataBind()
     End Sub
 
+    Private Sub MuestraVentasNoEnviadas()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetVentasNoEnviadas(UsuarioActual.CveEmpresa) Then
+            If ObjVentas.DtResultados.Rows.Count > 0 Then
+                lblVentasSinEnviar.Text = ObjVentas.DtResultados.Rows.Count
+                GvVentasEmail.DataSource = ObjVentas.DtResultados
+
+                RegistraScript("$('#DvCorreoSinEnviar').modal('show');", "showmodal2Incons")
+            End If
+        End If
+        ObjVentas.Dispose()
+        GvVentasEmail.DataBind()
+    End Sub
+
     Private Sub CargaSubProyectos()
         DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubproyectos.DataBind()