Cambio en incio ventas correo no enviado

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()