Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

App_Code/ClsGenerales.vb

@@ -324,6 +324,9 @@ Public Class ClsGenerales
     Public Function GetGralPaqueterias(Optional CveEmpresa As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_PaqueteriasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -2819,12 +2822,12 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function GetEntregasPorRealizar(CveEmpresa As Integer, Optional CveTick As Long = -1) As Boolean
+    Public Function GetEntregasPorRealizar(CveEmpresa As Integer, Optional CveAsignacionEntrega As Long = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_EntregasPorRealizarGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveTick", SqlDbType.BigInt).Value = CveTick
+            .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -2836,19 +2839,20 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveTick As Long = -1) As Boolean
+    Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_AsignarEntregasPorRealizar")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
             .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CvePersonal
-            .Add("@CveTick", SqlDbType.BigInt).Value = CveTick
+            .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega
+            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
         End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al asignar entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Retorno

App_Code/ClsPaginas.vb

@@ -3351,12 +3351,26 @@ Public Class ClsPaginas
             Application("GlobalDTClasificacionPorcentaje") = value
         End Set
     End Property
-    Property GlobalDTPaqueterias() As DataTable
+    Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaquteria As Integer = -1) As DataTable
         Get
-            GlobalDTPaqueterias = DirectCast(Application("GlobalDTPaqueterias"), DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTPaqueterias-{0}", CveEmpresa)
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjGenerales As New ClsGenerales
+                If ObjGenerales.GetGralPaqueterias(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados Else Application(AppNombre) = Nothing
+                ObjGenerales.Dispose()
+            End If
+
+            Dim Str As StringBuilder = New StringBuilder()
+            If TipoPaquteria <> -1 Then Str.AppendFormat("TipoPaqueteria = {0}", TipoPaquteria)
+
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            GlobalDTPaqueterias = Dv.ToTable
+            Dv.Dispose()
+            Str.Clear()
         End Get
         Set(value As DataTable)
-            Application("GlobalDTPaqueterias") = value
+            Dim AppNombre As String = String.Format("GlobalDTPaqueterias-{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTAcumTiposDefecto() As DataTable

App_Code/Modelos.vb

@@ -4233,6 +4233,15 @@ Namespace Modelos
                 Return Retorno
             End If
 
+            'VALIDACION DE PEDIDOS: SI ESTA ENTEGADO NO SE PUEDA CANCELAR
+            If UsuarioActual.CveEmpresa = 72 AndAlso ObjFactura.TipoDocto = "Ped" AndAlso TieneAlmacen AndAlso ObjFactura.SaldoAlmacen <> 0 Then
+                Retorno.Mensaje = "El pedido no se puede cancelar debido ha que ya fue entregado."
+                Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
+
+                Return Retorno
+            End If
+
+
             Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
 
             Dim CancelacionFecha As Date

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -3344,39 +3344,43 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Sub
 
     Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte())
+        Try
+            Dim Mail As New ClsSisMail()
+            Para = If(Para IsNot Nothing, Para, "")
+            Asunto = If(Asunto IsNot Nothing, Asunto, "")
+            Body = If(Body IsNot Nothing, Body, "")
 
-        Dim Mail As New ClsSisMail()
+            Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
-        Para = If(Para IsNot Nothing, Para, "")
+            If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then
-        Asunto = If(Asunto IsNot Nothing, Asunto, "")
+                ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante})
-        Body = If(Body IsNot Nothing, Body, "")
-
-        Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
-        If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then
-            ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante})
-        End If
-
-        If File IsNot Nothing Then
-            ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"})
-        End If
-
-        Dim separador As Char() = {";"c, ","c}
-        Dim strArray As String() = Para.Split(separador)
-
-        Para = ""
-
-        For Each sCorreo As String In strArray
-            If ClsSisMail.IsMailShared(sCorreo) And sCorreo.Trim.Length > 0 Then
-                Para = $"{Para}{sCorreo};"
             End If
-        Next
 
-        Para = Para.Substring(0, Para.Length - 1)
+            If File IsNot Nothing Then
+                ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"})
+            End If
+
+            Dim separador As Char() = {";"c, ","c}
+            Dim strArray As String() = Para.Split(separador)
+
+            Para = ""
+
+            For Each sCorreo As String In strArray
+                If ClsSisMail.IsMailShared(sCorreo) And sCorreo.Trim.Length > 0 Then
+                    Para = $"{Para}{sCorreo};"
+                End If
+            Next
+
+            Para = Para.Substring(0, Para.Length - 1)
+
+            If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos, Displayname:=$"SIG Notificaciones: Pago de {UsuarioActual.Empresa.Empresa}") Then
+                Dim objIE As New ClsBancos
+                objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
+                objIE.Dispose()
+            End If
+        Catch ex As Exception
+            OnError("Ocurrio un error al enviar el correo", ex)
+        End Try
 
-        If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos, Displayname:=$"SIG Notificaciones: Pago de {UsuarioActual.Empresa.Empresa}") Then
-            Dim objIE As New ClsBancos
-            objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
-            objIE.Dispose()
-        End If
     End Sub
 
 

Compras/PopUpVerFactura.aspx.vb

@@ -474,8 +474,8 @@ Partial Class PopUpVerFactura
 
         'IMPRIME ENTREGAS POR REALIZAR
         If UrlParametros("OP").ToString = "ENTREGAS" Then
-            If UrlParametros("CVETICK") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
+            If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
-                ImprimeEntregasPorRealziar(UrlParametros("CVETICK").ToString, UrlParametros("USUARIOENTREGA").ToString)
+                ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString)
             End If
         End If
 
@@ -4173,11 +4173,16 @@ Partial Class PopUpVerFactura
 #End Region
 
 #Region "OP = ENTREGAS - Entregas por realizar"
-    Public Sub ImprimeEntregasPorRealziar(pCveTick As String, pUsuarioEntregar As String)
+    Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
-        Dim CveTick As Long = pCveTick.ToLong()
+        Dim Correcto As Boolean = False
+        Dim DtPaqueteriasGuias As DataTable = Nothing
         Dim ObjGeneral As New ClsGenerales
-        If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveTick) Then
+        If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveAsignacionEntrega) Then
-            Dim DtPaqueteriasGuias As DataTable = ObjGeneral.DtResultados
+            DtPaqueteriasGuias = ObjGeneral.DtResultados
+            Correcto = True
+        End If
+        ObjGeneral.Dispose()
+        If Correcto Then
             Dim RepParams As New List(Of ReportParameter)
             RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString()))
             RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
@@ -4185,6 +4190,7 @@ Partial Class PopUpVerFactura
 
             ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
         End If
+
     End Sub
 #End Region
 

General/PopUpPaqueteriasGuias.aspx.cs

@@ -7,6 +7,7 @@ using System.Web.UI.WebControls;
 using Extensiones;
 using System.Data;
 using System.Text;
+using Microsoft.Reporting.WebForms;
 
 public partial class General_PopUpPaqueteriasGuias : ClsPaginas
 {
@@ -255,7 +256,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
     protected void CargaPaqueterias()
     {
         DdlPaqueterias.Items.Clear();
-        DdlPaqueterias.DataSource = GlobalDTPaqueterias;
+        DdlPaqueterias.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa);
         DdlPaqueterias.DataBind();
         DdlPaqueterias.Items.Insert(0, new ListItem("Seleccione ", "-1"));
         UPGuiasPorVincular.Update();
@@ -729,6 +730,38 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
         }
     }
 
+    private byte[] DocumentoEntregaInterna()
+    {
+        ClsVentas ObjVentas = new ClsVentas();
+        if (ObjVentas.GetVenta(this.CveVenta, UsuarioActual.CveEmpresa))
+        {
+            string ClienteNombre = ObjVentas.DtResultados.Rows[0]["ClienteNombre"].ToString();
+            string FolioVenta = ObjVentas.DtResultados.Rows[0]["SerieFolio"].ToString();
+            string Pedido = ObjVentas.DtResultados.Rows[0]["PedidoContrato"].ToString();
+            string OrdenCompra = ObjVentas.DtResultados.Rows[0]["OrdenCompra"].ToString();
+            string Guia = TxtGuia.Text;
+            string Rastreo = TxtRastreo.Text;
+            string Paqueteria = DdlPaqueterias.SelectedItem.Text;
+            DataTable DtDetalle = new DataTable();
+            if (ObjVentas.GetVentaDetalle(CveVenta))
+            {
+                DtDetalle = ObjVentas.DtResultados;
+            }
+
+            List<ReportParameter> RepParams = new List<ReportParameter>();
+            RepParams.Add(new ReportParameter("Cliente", ClienteNombre));
+            RepParams.Add(new ReportParameter("FolioVenta", FolioVenta));
+            RepParams.Add(new ReportParameter("Pedido", Pedido));
+            RepParams.Add(new ReportParameter("OrdenCompra", OrdenCompra));
+            RepParams.Add(new ReportParameter("Guia", Guia));
+            RepParams.Add(new ReportParameter("Rastreo", Rastreo));
+            RepParams.Add(new ReportParameter("Paqueteria", Paqueteria));
+            return StreamPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/GuiaExternaAsignada.rdlc", DtDetalle, RepParams, "Notificacion de Envio", "PDF", RDSName: "DsInventarios");
+        }
+        ObjVentas.Dispose();
+        return null;
+    }
+
     private string getCorreoString()
     {
         ClsVentas ObjVentas = new ClsVentas();
@@ -739,7 +772,13 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
             DataRow Vendedor = get_GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveVendedor = {0}",CveVendedor));
             DataRow Cliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveCliente = {0}",CveCliente));
 
-            string CorreosConcat = "{0};{1};{2};{3};{4}";
+            string CobranzaCorreo = Cliente["CobranzaCorreo"].ToString();
+            string CorreoEntregaAlmacen = Cliente["CorreoEntregaAlmacen"].ToString();
+            string CorreoEntregaCompras = Cliente["CorreoEntregaCompras"].ToString();
+            string CorreoVendedor = Vendedor["Correo"].ToString();
+            string CorreoAdicionalNotificacionesVendedor = Vendedor["CorreoAdicionalNotificaciones"].ToString();
+
+            string CorreosConcat = String.Format("{0};{1};{2};{3};{4}", CobranzaCorreo, CorreoEntregaAlmacen, CorreoEntregaCompras, CorreoVendedor, CorreoAdicionalNotificacionesVendedor);
             return CorreosConcat;
         }
         ObjVentas.Dispose();
@@ -750,8 +789,19 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
     {
         Correos.GuardaLog();
 
+        byte[] ArchivoBinario = DocumentoEntregaInterna();
+
         ClsSisMail MailCls = new ClsSisMail();
-        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, "Se enviara la compra a su dirección", "Pendiente", Correos);
+        List<ClsSisMail.ArchivoMail> LSRutasMail = new List<ClsSisMail.ArchivoMail>();
+        ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail();
+
+        {
+            var withBlock = itemMail;
+            itemMail.ArchivoBinario = ArchivoBinario;
+            itemMail.NombreArchivo = "Notificacion de Envio";
+        }
+        LSRutasMail.Add(itemMail);
+        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, "Se enviara la compra a su dirección", "Pendiente", Correos, LSRutasMail);
         MailCls = null;
     }
     #endregion

General/RepPaqueteriasGuias.aspx

@@ -10,7 +10,7 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    Reporte de Paqueterías Guías
+    Reporte de Envíos
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
@@ -174,7 +174,7 @@
                         </div>
                         <div runat="server" id="DivEstatusEntrega" visible="false">
                             <div class="col-md-2">
-                                <label>Entregas Directas</label>&nbsp;&nbsp;&nbsp;<asp:CheckBox ID="ChkLote" data-size="small" runat="server"/>
+                                <label>Entregas Directas</label>&nbsp;&nbsp;&nbsp;<asp:CheckBox ID="ChkLote" data-size="small" runat="server" />
                             </div>
                         </div>
                     </div>
@@ -195,7 +195,7 @@
                 EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound">
                 <Columns>
                     <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="PaqueteriaGuiaTipo" HeaderText="Guía Tipo" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="PaqueteriaGuiaTipo" HeaderText="Documento" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="4%">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" ID="HLFolio" Text='<%# Eval("Folio")%>' ToolTip='<%# "Ir a " + Eval("TipoAgrupador")%>' Target="_blank" />
@@ -217,7 +217,7 @@
                             <asp:LinkButton ID="imgEditar" runat="server" OnClick="imgEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CommandArgument='<%# Eval("CvePaqueteriaGuia")%>' CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                             <asp:HyperLink ID="BtnLiga" runat="server" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-external-link' aria-hidden='true'></i>" ToolTip="Ir a Paquetería" Target="_blank"></asp:HyperLink>
                             <asp:LinkButton ID="SubirArchivo" runat="server" OnClick="SubirArchivo_Click" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Subir Documento' class='fa fa-upload' title='Subir Documento' ></i>" />
-                            <asp:LinkButton ID="LnkReasignar" runat="server" OnClick="Reasignar_Click" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i title='Reasignar' class='fa fa-user' title='Reasignar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"/>
+                            <asp:LinkButton ID="LnkReasignar" runat="server" OnClick="Reasignar_Click" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i title='Reasignar' class='fa fa-user' title='Reasignar' ></i>" />
                         </ItemTemplate>
                     </asp:TemplateField>
 
@@ -463,6 +463,45 @@
             </div>
         </div>
     </div>
+
+    <div id="ModalMotivoReasignacion" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">
+                        <asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <asp:Literal ID="Literal1" runat="server">Motivo de Rechazo de Guía </asp:Literal>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </h4>
+                </div>
+
+                <div class="modal-body">
+                    <asp:UpdatePanel runat="server" ID="UpdatePanel2" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="row">
+                                <div class="col-md-12">
+                                    <asp:DropDownList ID="DdlMotivoRechazoGuia" runat="server" Width="100%" DataTextField="Descripcion" DataValueField="CveMotivoRechazoPaqueteria" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me">
+                                    </asp:DropDownList>
+                                </div>
+                            </div>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <asp:Button ID="BtnReasignar" runat="server" ClientIDMode="Static" Text="Reasignar" CssClass="btn btn-primary" OnClick="BtnReasignar_Click" />
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+
+            </div>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 

General/RepPaqueteriasGuias.aspx.cs

@@ -150,6 +150,31 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             ViewState["DTMovimientos"] = value;
         }
     }
+
+    private int CvePaqueteriaGuiaReasignar
+    {
+        get
+        {
+            return ViewState["CvePaqueteriaGuiaReasignar"].ToString().ToEntero();
+        }
+
+        set
+        {
+            ViewState["CvePaqueteriaGuiaReasignar"] = value;
+        }
+    }
+
+    private String Folio
+    {
+        get
+        {
+            return ViewState["Folio"].ToString();
+        }
+        set
+        {
+            ViewState["Folio"] = value;
+        }
+    }
     #endregion
 
 
@@ -163,6 +188,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             CargaPaqueteriasGuiasTipo();
             InicializaFechas();
             CargaUsuarios();
+            CargaMotivosRechazo();
             UPFiltros.Update();
 
             if (!UsuarioActual.TienePermisoProceso(219))
@@ -196,15 +222,18 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
     {
         if (UsuarioActual.CveRol == 1339)
         {
-            DdlPaqueterias.DataSource = GlobalDTPaqueterias.FiltraParametros("TipoPaqueteria = 0");
+            DdlPaqueterias.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0);
-        }else
+            DdlPaqueterias.DataBind();
-        {
-            DdlPaqueterias.DataSource = GlobalDTPaqueterias;
         }
-        DdlPaqueterias.DataBind();
+        else
-        DdlPaqueterias.Items.Insert(0, new ListItem("Todos ", "-1"));
+        {
+            DdlPaqueterias.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa);
+            DdlPaqueterias.DataBind();
+            DdlPaqueterias.Items.Insert(0, new ListItem("Todos ", "-1"));
+        }
+       
 
-        DdlPaqueteriaEditar.DataSource = GlobalDTPaqueterias;
+        DdlPaqueteriaEditar.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa);
         DdlPaqueteriaEditar.DataBind();
         DdlPaqueteriaEditar.Items.Insert(0, new ListItem("Seleccione ", "-1"));
     }
@@ -264,6 +293,17 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
         }
     }
 
+    private void CargaMotivosRechazo()
+    {
+        ClsGenerales ObjGeneral = new ClsGenerales();
+        if (ObjGeneral.GetMotivoRechazoPaqueteria(-1, UsuarioActual.CveEmpresa))
+        {
+            DdlMotivoRechazoGuia.DataSource = ObjGeneral.DtResultados;
+            DdlMotivoRechazoGuia.DataBind();
+        }
+        ObjGeneral.Dispose();
+    }
+
     protected void InicializaFechas()
     {
         DateTime FI = new DateTime(DateTime.Now.Year, 1, 1);
@@ -887,6 +927,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
 
                 //Adjunta Archivo al Correo
                 ClsSisMail.ArchivoMail ArchivoAdjunto = new ClsSisMail.ArchivoMail();
+                ClsSisMail.ArchivoMail ArchivoAdjunto2 = new ClsSisMail.ArchivoMail();
 
                 List<ClsSisMail.ArchivoMail> ListaAdjuntos = new List<ClsSisMail.ArchivoMail>();
 
@@ -895,7 +936,12 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
                     ArchivoAdjunto.ArchivoBinario = File.ReadAllBytes(RutaArchivoAdjunto);
                     ArchivoAdjunto.Ruta = RutaArchivoAdjunto;
                     ArchivoAdjunto.NombreArchivo = new FileInfo(RutaArchivoAdjunto).Name;
+
+                    ArchivoAdjunto2.ArchivoBinario = DocumentoEntregaInterna(this.CveVenta);
+                    ArchivoAdjunto2.NombreArchivo = "Entrega Realizada";
+
                     ListaAdjuntos.Add(ArchivoAdjunto);
+                    ListaAdjuntos.Add(ArchivoAdjunto2);
                 }
 
                 if ((ListaAdjuntos.Count > 0))
@@ -931,6 +977,15 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
                     MensajeEnviado = true;
                 }
 
+                break;
+            case 3:
+                //Tipo 3 Guia reasignada
+                Cuerpo.AppendLine(String.Format("Motivo:{0}. Tu envío fue reprogramado para el siguiente día hábil.", DdlMotivoRechazoGuia.SelectedItem.Text));
+                CargaDatosCorreo(this.CveVenta);
+                if (Correo.SendMail(UsuarioActual.Empresa, this.Destinatario, Asunto, Cuerpo.ToString()))
+                {
+                    MensajeEnviado = true;
+                }
                 break;
         }
         return MensajeEnviado;
@@ -968,11 +1023,11 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
                         Destinatario = DbRowVenta["Mail"].ToString();
                     }
 
-                    // Destinatario = "sig.buzon02@gmail.com"; // CORREO PRUEBA
+                    Destinatario = "sig.buzon02@gmail.com"; // CORREO PRUEBA
-                    //if (UsuarioActual.Empresa.Funcionalidad(280) == "1" && CveCliente > 0 && CveVendedor > 0)
+                    if (UsuarioActual.Empresa.Funcionalidad(280) == "1" && CveCliente > 0 && CveVendedor > 0)
-                    //{
+                    {
-                    //    Destinatario = getCorreoNotificacion(CveCliente,CveVendedor);
+                        Destinatario = getCorreoNotificacion(CveCliente, CveVendedor);
-                    //}
+                    }
 
                     if (ObjVentas.GetVentaDetalle(CveVenta))
                     {
@@ -1003,17 +1058,54 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
 
     protected void Reasignar_Click(object sender, EventArgs e)
     {
+        this.RegistraScript("$('#ModalMotivoReasignacion').modal('show')", "hidemodal3");
         GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
-        int CvePaqueteriaGuia = GvRow.DataKey("CvePaqueteriaGuia").ToEntero();
+        CvePaqueteriaGuiaReasignar = GvRow.DataKey("CvePaqueteriaGuia").ToEntero();
-
+        CveVenta = GvRow.DataKey("CveAgrupador").ToString().ToEntero();
+        Folio = GvRow.DataKey("Folio").ToString();
+    }
+    
+    protected void BtnReasignar_Click(object sender, EventArgs e)
+    {
         ClsGenerales ObjGeneral = new ClsGenerales();
-        if (ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriaGuia, -1))
+        if (ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriaGuiaReasignar, -1, CveMotivoRechazoPaqueteria:DdlMotivoRechazoGuia.SelectedValue.ToEntero()))
         {
             Alert("La guía está lista para volver a ser asignada, disponible en el reporte <a style='color:#23527c' href='/Inventarios/EntregasPorRealizar.aspx'>Entregas Por Realizar</a>");
         }
         ObjGeneral.Dispose();
         CargaDatos();
         UPDatos.Update();
+        CvePaqueteriaGuiaReasignar = -1;
+        EnviarCorreoNotificacionEntrega(3, SerieFolio, "","","","","",-1,null);
+        this.RegistraScript("$('#ModalMotivoReasignacion').modal('hide')", "hidemodal3");
+    }
+
+    private byte[] DocumentoEntregaInterna(int CveVenta)
+    {
+        ClsVentas ObjVentas = new ClsVentas();
+
+        if (ObjVentas.GetVenta(CveVenta,UsuarioActual.CveEmpresa))
+        {
+            DataRow row = ObjVentas.DtResultados.Rows[0];
+            string ClienteNombre = row["ClienteNombre"].ToString();
+            string FolioVenta = row["SerieFolio"].ToString();
+            string Pedido = row["PedidoContrato"].ToString();
+            string OrdenCompra = row["OrdenCompra"].ToString();
+            DataTable DtDetalle = new DataTable();
+            if (ObjVentas.GetVentaDetalle(CveVenta))
+            {
+                DtDetalle = ObjVentas.DtResultados;
+            }
+
+            List<ReportParameter> RepParams = new List<ReportParameter>();
+            RepParams.Add(new ReportParameter("Cliente", ClienteNombre));
+            RepParams.Add(new ReportParameter("FolioVenta", FolioVenta));
+            RepParams.Add(new ReportParameter("Pedido", Pedido));
+            RepParams.Add(new ReportParameter("OrdenCompra", OrdenCompra));
+            return StreamPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/GuiaEntregaTerminada.rdlc", DtDetalle, RepParams, "Notificacion de Envio", "PDF", RDSName: "DsInventarios");
+        }
+        ObjVentas.Dispose();
+        return null;
     }
 
 }

Global.asax

@@ -222,8 +222,8 @@
         If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing
         If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing
         If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing
-        If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTObjGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTObjGralColectivas") = Nothing
+        If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTObjGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTObjGralColectivas") = Nothing
-        If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing
+        'If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing
         If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing
         If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
 

Inventarios/EntregaAlmacen.aspx.vb

@@ -625,9 +625,13 @@ Partial Class Inventarios_EntregaAlmacen
                     If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
                         FormaPaqueteria = DtDatos.Rows(0)("FormaPaqueteria").ToString.ToEntero
                         Dim FormaPaq As Integer = FormaPaqueteria
+                        RbSinEntrega.Checked = False
+                        RbEntregaInterna.Checked = False
+                        RbEntregaExterna.Checked = False
                         Select Case FormaPaq
                             Case 1
                                 RbSinEntrega.Checked = True
+                                LnkPaqueteriaDetalle.Visible = False
                             Case 2
                                 RbEntregaInterna.Checked = True
                                 LnkPaqueteriaDetalle.Visible = True
@@ -2647,13 +2651,13 @@ Partial Class Inventarios_EntregaAlmacen
             End If
 
             'Paqueterias guias
-            If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
+            If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
-                Dim CveEstatus As Integer = DdlEstatus.SelectedValue.ToEntero()
+                Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero()
-                Dim Fecha As String = TxtFechaPaqInterna.Text
+                Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
-                Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
+                Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
-                Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero()
+                Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
-                Dim Observaciones As String = TxtObservacionesPaqInterna.Text
+                Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
-                Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero
+                Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
 
                 If CveSubProyecto > 0 Then
                     Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
@@ -2661,7 +2665,7 @@ Partial Class Inventarios_EntregaAlmacen
                     If CvePaqueteriaGuia > 0 Then
 
                         If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then
-                            If ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1) Then
+                            If ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimientoSalida, -1) Then
                                 ''manda correo
                                 MandaCorreoEntrega(CveVentaSurtir)
                             Else
@@ -2678,7 +2682,9 @@ Partial Class Inventarios_EntregaAlmacen
                 Else
                     Alert("Hace falta indicar un Sub Proyecto", TipoMensaje.MsgAdvertencia)
                     ErrorMovInv = True
-                End If
+                End If
+            ElseIf RbSinEntrega.Checked AndAlso Not ErrorMovInv Then
+                MandaCorreoEntrega(CveVentaSurtir)
             End If
         Catch ex As Exception
             ErrorMovInv = True
@@ -3117,13 +3123,13 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         'Paqueterias Guias
-        If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
+        If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
-            Dim CveEstatus As Integer = DdlEstatus.SelectedValue.ToEntero()
+            Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero()
-            Dim Fecha As String = TxtFechaPaqInterna.Text
+            Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
-            Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
+            Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
-            Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero()
+            Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
-            Dim Observaciones As String = TxtObservacionesPaqInterna.Text
+            Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
-            Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero
+            Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
 
             Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
 
@@ -3174,6 +3180,10 @@ Partial Class Inventarios_EntregaAlmacen
 
 
     Private Sub MandaCorreoEntrega(tCveVenta As Integer)
+        EnviarCorreoEntrega(tCveVenta, UsuarioActual)
+    End Sub
+
+    Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario)
         Dim Correo As New ClsSisMail()
         Dim SerieFolio As String = ""
         Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
@@ -3181,44 +3191,49 @@ Partial Class Inventarios_EntregaAlmacen
         Dim Destinatario As String = ""
         Dim MensajeEnviado = False
         Dim tCvecliente As Integer
+        Dim bytes() As Byte = Nothing
+        Using ObjVentas As New ClsVentas()
+            If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then
+                Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
+                Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta"))
+
+                tCvecliente = dr("CveCliente").ToString.ToEntero
+
+                Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
+                Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
+
+                Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1}  han sido enviados a entrega. <br><br>", dr("ClienteNombre"), dr("SerieFolio")))
+                Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.")
+
+                Dim ClienteNombre As String = dr("ClienteNombre").ToString()
+                Dim FolioVenta As String = dr("SerieFolio").ToString()
+                Dim Pedido As String = dr("PedidoContrato").ToString()
+                Dim OrdenCompra As String = dr("OrdenCompra").ToString()
+                Dim CveVenta As Integer = dr("CveVenta").ToString().ToEntero()
+
+                Dim dtDetalle As New DataTable
+                If ObjVentas.GetVentaDetalle(CveVenta) Then
+                    dtDetalle = ObjVentas.DtResultados
+                End If
+
+                Dim RepParams As New List(Of ReportParameter)
+                RepParams.Add(New ReportParameter("Cliente", ClienteNombre))
+                RepParams.Add(New ReportParameter("FolioVenta", FolioVenta))
+                RepParams.Add(New ReportParameter("Pedido", Pedido))
+                RepParams.Add(New ReportParameter("OrdenCompra", OrdenCompra))
+                bytes = StreamPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/GuiaEntregaMostrador.rdlc", dtDetalle, RepParams, "Notificacion de Envio", "PDF", RDSName:="DsInventarios")
+            End If
+        End Using
 
 
-        Dim ObjVentas As New ClsVentas()
+        Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
-
+        Dim itemMail As New ClsSisMail.ArchivoMail()
-        If (ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa)) Then
+
-            Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
+        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Notificacion de Envio"})
-            Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta"))
-
-            tCvecliente = dr("CveCliente").ToString.ToEntero
-
-            Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
-            Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
-
-            Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1}  han sido enviados a entrega. <br><br>", dr("ClienteNombre"), dr("SerieFolio")))
-            Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.")
-
-        End If
-        ObjVentas.Dispose()
-
-
-        ' Dim ArchivoAdjunto As New ClsSisMail.ArchivoMail()
-
-        'Dim ListaAdjuntos As New List(ClsSisMail.ArchivoMail)
-
-
-        'If (File.Exists(RutaArchivoAdjunto))Then
-        '        {
-        '            ArchivoAdjunto.ArchivoBinario = File.ReadAllBytes(RutaArchivoAdjunto);
-        '            ArchivoAdjunto.Ruta = RutaArchivoAdjunto;
-        '            ArchivoAdjunto.NombreArchivo = new FileInfo(RutaArchivoAdjunto).Name;
-        '            ListaAdjuntos.Add(ArchivoAdjunto);
-        '        }
-
-
-        MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString())
-
 
+        MensajeEnviado = Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, Asunto, Cuerpo.ToString(), Destinatario, Archivos:=LSRutasMail)
     End Sub
+
     Private Sub Limpia()
 
         'DATOS DE LA VENTA
@@ -3638,9 +3653,9 @@ Partial Class Inventarios_EntregaAlmacen
 
     Protected Sub EntregaRadioGroup_Click(sender As Object, e As EventArgs)
         If RbEntregaExterna.Checked Then
-            RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')")
+            RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveVenta={CveVentaSurtir}',800,547,'N')")
         ElseIf RbEntregaInterna.Checked Then
-            RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
+            'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
             'RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuiasInternas.aspx?CveVenta={CveVentaSurtir}&CveSubProyecto={CveSubProyecto}',800,547,'N')")
             'CveVentaSurtir
         ElseIf RbSinEntrega.Checked Then
@@ -3658,9 +3673,9 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
     Protected Sub PaqueteriaDetalle_Click(sender As Object, e As EventArgs)
         If RbEntregaExterna.Checked Then
-            RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')")
+            RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveVenta={CveVentaSurtir}',800,547,'N')")
         ElseIf RbEntregaInterna.Checked Then
-            RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
+            'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
         End If
     End Sub
 #End Region

Inventarios/EntregasPorRealizar.aspx

@@ -70,7 +70,7 @@
                 </div>
                 <div class="portlet-body rowpadding">
                     <asp:GridView ID="GvPaqueteriasGuias" runat="server" AutoGenerateColumns="False"
-                        DataKeyNames="CvePaqueteriaGuia,Folio,FechaIng,Nombre,Contacto,Estatus,CobranzaCorreo,CorreoEntregaAlmacen,CorreoEntregaCompras,Correo,CorreoAdicionalNotificaciones"
+                        DataKeyNames="CvePaqueteriaGuia,Folio,SerieFolio,FechaIng,Nombre,Contacto,Estatus,CobranzaCorreo,CorreoEntregaAlmacen,CorreoEntregaCompras,Correo,CorreoAdicionalNotificaciones,CveVenta,PedidoContrato,OrdenCompra,NombreComercial"
                         EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
                         CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                         data-sort="true"

Inventarios/EntregasPorRealizar.aspx.cs

@@ -41,33 +41,42 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
             GridViewRowCollection Grid = GvPaqueteriasGuias.Rows;
 
             int CvePersonal = DdlUsuario.SelectedValue.ToEntero();
-            long CveTick = DateTime.Now.Ticks;
+            long CveAsignacionEntrega = DateTime.Now.Ticks;
             string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos";
 
-            string LigaPopUpVerFactura = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", ModExtensiones.Encripta(String.Format("OP=ENTREGAS&CVETICK={0}&USUARIOENTREGA={1}", CveTick, Usuario)));
+            string LigaPopUpVerFactura = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", ModExtensiones.Encripta(String.Format("OP=ENTREGAS&CVEASIGNACIONENTREGA={0}&USUARIOENTREGA={1}", CveAsignacionEntrega, Usuario)));
             foreach (GridViewRow row in Grid)
             {
                 if (row.FCCheckBox("ChkAsigna").Checked)
                 {
                     int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero();
 
-                    if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal, CveTick)){
+                    if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal, CveAsignacionEntrega)){
                         TieneError = true;
                     }else
                     {
-                        string CobranzaCorreo = row.DataKey("CobranzaCorreo");
+                        try
-                        string CorreoEntregaAlmacen = row.DataKey("CorreoEntregaAlmacen");
+                        {
-                        string CorreoEntregaCompras = row.DataKey("CorreoEntregaCompras");
+                            MandarNotificacionCorreo(row);
-                        string CorreoVendedor = row.DataKey("Correo");
+                        }
-                        string CorreoAdicionalNotificacionesVendedor = row.DataKey("CorreoAdicionalNotificaciones");
+                        catch (Exception ex)
+                        {
+                            TieneError = true;
+                            ModExtensiones.GuardaLog(ex.Message);
+                        }
+                        //string CobranzaCorreo = row.DataKey("CobranzaCorreo");
+                        //string CorreoEntregaAlmacen = row.DataKey("CorreoEntregaAlmacen");
+                        //string CorreoEntregaCompras = row.DataKey("CorreoEntregaCompras");
+                        //string CorreoVendedor = row.DataKey("Correo");
+                        //string CorreoAdicionalNotificacionesVendedor = row.DataKey("CorreoAdicionalNotificaciones");
 
-                        string CorreosCC = string.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoAdicionalNotificacionesVendedor, CobranzaCorreo, CorreoEntregaCompras);
+                        //string CorreosCC = string.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoAdicionalNotificacionesVendedor, CobranzaCorreo, CorreoEntregaCompras);
-                        string LogCorreo = string.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoEntregaAlmacen, CorreosCC);
+                        //string LogCorreo = string.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoEntregaAlmacen, CorreosCC);
-                        LogCorreo.GuardaLog();
+                        //LogCorreo.GuardaLog();
 
-                        ClsSisMail MailCls = new ClsSisMail();
+                        //ClsSisMail MailCls = new ClsSisMail();
-                        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Se enviara la compra a su dirección", "Pendiente", CorreosCC);
+                        //MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Se enviara la compra a su dirección", "Pendiente", CorreosCC);
-                        MailCls = null;
+                        //MailCls = null;
                     }
                 }
             }
@@ -121,4 +130,57 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
 
         ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF",RDSName:"DsInventarios");
     }
+
+    private byte[] DocumentoEntregaInterna(GridViewRow row)
+    {
+        string ClienteNombre = row.DataKey("NombreComercial");
+        string FolioVenta = row.DataKey("SerieFolio");
+        string Pedido = row.DataKey("PedidoContrato");
+        string OrdenCompra = row.DataKey("OrdenCompra");
+        int CveVenta = row.DataKey("CveVenta").ToEntero();
+
+        DataTable DtDetalle = new DataTable();
+        ClsVentas ObjVentas = new ClsVentas();
+        if (ObjVentas.GetVentaDetalle(CveVenta))
+        {
+            DtDetalle = ObjVentas.DtResultados;
+        }
+        ObjVentas.Dispose();
+
+        List<ReportParameter> RepParams = new List<ReportParameter>();
+        RepParams.Add(new ReportParameter("Cliente", ClienteNombre));
+        RepParams.Add(new ReportParameter("FolioVenta", FolioVenta));
+        RepParams.Add(new ReportParameter("Pedido", Pedido));
+        RepParams.Add(new ReportParameter("OrdenCompra", OrdenCompra));
+        return StreamPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/GuiaInternaAsignada.rdlc", DtDetalle, RepParams, "Notificacion de Envio", "PDF", RDSName: "DsInventarios");
+    }
+
+    private void MandarNotificacionCorreo(GridViewRow row)
+    {
+        string CobranzaCorreo = row.DataKey("CobranzaCorreo");
+        string CorreoEntregaAlmacen = row.DataKey("CorreoEntregaAlmacen");
+        string CorreoEntregaCompras = row.DataKey("CorreoEntregaCompras");
+        string CorreoVendedor = row.DataKey("Correo");
+        string CorreoAdicionalNotificacionesVendedor = row.DataKey("CorreoAdicionalNotificaciones");
+
+        string Para = string.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoAdicionalNotificacionesVendedor, CobranzaCorreo, CorreoEntregaCompras);
+        string LogCorreo = string.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoEntregaAlmacen, Para);
+        LogCorreo.GuardaLog();
+
+        byte[] ArchivoBinario = DocumentoEntregaInterna(row);
+
+        ClsSisMail MailCls = new ClsSisMail();
+        List<ClsSisMail.ArchivoMail> LSRutasMail = new List<ClsSisMail.ArchivoMail>();
+        ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail();
+
+        {
+            var withBlock = itemMail;
+            itemMail.ArchivoBinario = ArchivoBinario;
+            itemMail.NombreArchivo = "Notificacion de Envio";
+        }
+
+        LSRutasMail.Add(itemMail);
+        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Para, "Entrega en camino", "Pendiente", Para, LSRutasMail);
+        MailCls = null;
+    }
 }

Ventas/Ventas.aspx

@@ -3319,6 +3319,9 @@
                                     </asp:RadioButtonList>
                                 </td>
                             </tr>
+                            <tr align="left" id="trPaqueteriaDirectaLabel" runat="server" visible="false">
+                                <td id="Td4" runat="server">Tipo de Entrega:&nbsp;<b>Entrega Directa</b></td>
+                            </tr>
                         </table>
                     </div>
                 </ContentTemplate>

Ventas/Ventas.aspx.vb

@@ -6949,6 +6949,8 @@ Partial Class Ventas
                 Dim ObjEventos As New ClsOIEventos(ObjVentas.IniciaTransacSQL())
                 Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL())
                 Dim ObjDocCliente As New ClsEdocumentacion(ObjVentas.IniciaTransacSQL())
+                Dim ObjGeneral As New ClsGenerales(ObjVentas.IniciaTransacSQL())
+
                 Dim ObjContPaq As ClsContPAQi = Nothing
                 'Dim ObjFolios As New ClsGralFolios(ObjVentas.IniciaTransacSQL())
                 ErrorList = New List(Of String)
@@ -7033,6 +7035,14 @@ Partial Class Ventas
                             Exit For
                         End If
                     Next
+
+                    'REGISTRAR UNA ENTREGA DIRECTA
+                    If TmpDT.COUNT("EntregaDirecta", "EntregaDirecta = 1") > 0 Then
+                        If Not RegistrarPaqueteriaGuia(ObjGeneral, ObjFactura.CveVenta) Then
+                            ErrorList.Add("Ocurrió un error al registrar la guia")
+                        End If
+                    End If
+
                 End If
 
                 If Not String.IsNullOrEmpty(TipoDoctoViejo) Then
@@ -9359,6 +9369,14 @@ Partial Class Ventas
                 End If
 
                 ObjClientes.Dispose()
+
+                'REGISTRAR UNA ENTREGA DIRECTA
+                If TmpDT.COUNT("EntregaDirecta", "EntregaDirecta = 1") > 0 Then
+                    trPaqueteriaOpciones.Visible = False
+                    trPaqueteriOpcionesLabel.Visible = False
+                    trPaqueteriaDirectaLabel.Visible = True
+                End If
+
                 BtnEmitirImprimir.Text = "Facturar"
                 DdlTipoComprobante.SelectedValue = "Ing"
                 DdlTipoComprobante.Enabled = False
@@ -9366,7 +9384,7 @@ Partial Class Ventas
                 Tab.ActiveTab = TabGenerales
                 TabGenerales.Enabled = True
                 Updatetabs.Update()
-
+                UPObservaciones.Update()
 
                 'Else
                 '    If TieneContrato Then
@@ -22082,6 +22100,38 @@ Partial Class Ventas
 
         ObjEventos.Dispose()
     End Sub
+
+    Private Function RegistrarPaqueteriaGuia(ByRef ObjGeneral As ClsGenerales, CveVenta As Integer) As Boolean
+        Dim ErrorMovInv As Boolean = False
+
+        Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
+
+        Dim CveEstatus As Integer = 1
+        Dim Fecha As String = Now.ToString("dd/MM/yyyy")
+        Dim FechaEstimada As String = "-1"
+        Dim NoCajas As Integer = 0
+        Dim Observaciones As String = ""
+        Dim CvePaqueteria As Integer = -1 ' GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
+
+        If CveSubProyecto > 0 Then
+            Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ImplicaCosto:=False)
+
+            If CvePaqueteriaGuia > 0 Then
+
+                If CveVenta > 0 OrElse CveSubProyecto > 0 Then
+                    If Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVenta, -1, -1, -1) Then
+                        ErrorMovInv = True
+                    End If
+                End If
+            Else
+                ErrorMovInv = True
+            End If
+        Else
+            ErrorMovInv = True
+        End If
+
+        Return Not ErrorMovInv
+    End Function
 #End Region
 
 #Region "  APLICAR NOTA DE CREDITO  "
@@ -25832,6 +25882,7 @@ Partial Class Ventas
         Dim mostrarOpcionesPaq As Boolean = DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped") And UsuarioActual.Empresa.Funcionalidad(280) = "1"
         trPaqueteriaOpciones.Visible = mostrarOpcionesPaq
         trPaqueteriOpcionesLabel.Visible = mostrarOpcionesPaq
+        trPaqueteriaDirectaLabel.Visible = False
     End Sub
 
     Private Sub NotificarPaqueteria()