- paqueterias

App_Code/ClsGenerales.vb

@@ -2726,7 +2726,8 @@ Public Class ClsGenerales
 
     Public Function GetPaqueteriasGuias(CvePaqueteriaGuia As Integer, CvePaqueteriaGuiaTipo As Integer, CvePaqueteria As Integer, CveEstatus As Integer, CveSubProyecto As Integer,
                                         CveEmpresa As Integer, Guia As String, FechaInicio As String, FechaFin As String, Optional FechaIngInicio As String = "-1",
-                                        Optional FechaIngFin As String = "-1", Optional Filtro As Integer = -1, Optional CveUsuarioEntrega As Integer = -1) As Boolean
+                                        Optional FechaIngFin As String = "-1", Optional Filtro As Integer = -1, Optional CveUsuarioEntrega As Integer = -1,
+                                        Optional EsEntregaInterna As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -2746,6 +2747,7 @@ Public Class ClsGenerales
             .Add("@FechaIngFin", SqlDbType.VarChar).Value = FechaIngFin
             .Add("@Filtro", SqlDbType.Int).Value = Filtro
             .Add("@CveUsuarioEntrega", SqlDbType.Int).Value = CveUsuarioEntrega
+            .Add("@EsEntregaInterna", SqlDbType.Bit).Value = EsEntregaInterna
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -2835,7 +2837,7 @@ Public Class ClsGenerales
         DataAdapter("PA_Gral_AsignarEntregasPorRealizar")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
-            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CvePersonal
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsVentas.vb

@@ -341,7 +341,7 @@ Public Class ClsVentas
                              Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0,
                              Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
                              Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0,
-                             Optional CorreoNotificacion As String = "") As Boolean
+                             Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasAdd")
@@ -431,6 +431,7 @@ Public Class ClsVentas
             .Add("@EsAmortizacion", SqlDbType.Bit).Value = EsAmortizacion
             .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion
             .Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion
+            .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With

General/PopUpPaqueteriasGuias.aspx.cs

@@ -400,6 +400,8 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
         else
         {
             ObjGeneral.Commit();
+            string notificacionCorreos = getCorreoString();
+            MandaCorreoNotificacionGuia(notificacionCorreos);
             if (Guia == "-1")
             {
                 if (CveVenta > 0 || CveOC > 0 || CveMovimiento > 0 || CveCompra > 0) 
@@ -718,7 +720,6 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
                 }
 
                 Destinatario = $"{DbRowVenta["Mail"].ToString()};{DbRowVenta["CorreoVendedorVenta"].ToString()}{CorreoAsistente}";
-
                 if (ObjVentas.GetVentaDetalle(CveVenta))
                 {
                     DTMovimientos = ObjVentas.DtResultados;
@@ -727,6 +728,32 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
             }
         }
     }
+
+    private string getCorreoString()
+    {
+        ClsVentas ObjVentas = new ClsVentas();
+        if (ObjVentas.GetVenta(CveVenta,UsuarioActual.CveEmpresa))
+        {
+            int CveVendedor = ObjVentas.DtResultados.Rows[0]["CveVendedor"].ToEntero();
+            int CveCliente = ObjVentas.DtResultados.Rows[0]["CveCliente"].ToEntero();
+            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}";
+            return CorreosConcat;
+        }
+        ObjVentas.Dispose();
+        return "";
+    }
+
+    private void MandaCorreoNotificacionGuia(string Correos)
+    {
+        Correos.GuardaLog();
+
+        ClsSisMail MailCls = new ClsSisMail();
+        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, "Se enviara la compra a su dirección", "Pendiente", Correos);
+        MailCls = null;
+    }
     #endregion
 
 }

General/RepPaqueteriasGuias.aspx

@@ -172,6 +172,11 @@
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlUsuarios" DataTextField="Nombre" DataValueField="CveUsuario" runat="server" Width="100%" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" />
                         </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"/>
+                            </div>
+                        </div>
                     </div>
                 </div>
             </div>
@@ -185,13 +190,13 @@
                 <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
             </div>
-            <asp:GridView ID="GVDatos" runat="server" DataKeyNames="CvePaqueteriaGuia, CveSubProyecto, SubProyecto, CveAgrupador, TipoAgrupador, Folio, CvePaqueteria, Paqueteria, Liga, CveEstatus, Estatus, Rastreo, Guia, NumCajas, Peso, Dimensiones, Fecha, FechaEstimada, CveUsuario, CveEmpresa, FechaIng, Observaciones, ImplicaCosto, CvePaqueteriaGuiaTipo"
+            <asp:GridView ID="GVDatos" runat="server" DataKeyNames="CvePaqueteriaGuia, CveSubProyecto, SubProyecto, CveAgrupador, TipoAgrupador, Folio, CvePaqueteria, Paqueteria, Liga, CveEstatus, Estatus, Rastreo, Guia, NumCajas, Peso, Dimensiones, Fecha, FechaEstimada, CveUsuario, CveEmpresa, FechaIng, Observaciones, ImplicaCosto, CvePaqueteriaGuiaTipo,EsEntregaInterna"
                 AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros con los filtros especificados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" GridLines="None"
                 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:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="7%">
+                    <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" />
                         </ItemTemplate>
@@ -207,11 +212,12 @@
                     <asp:BoundField DataField="FechaEstimada" HeaderText="Fecha Est." ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField DataField="FechaIng" HeaderText="Fecha Ing" ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
 
-                    <asp:TemplateField ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" HeaderText="Editar/Liga/Subir">
+                    <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar/Liga/Subir/Reasignar">
                         <ItemTemplate>
                             <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"/>
                         </ItemTemplate>
                     </asp:TemplateField>
 

General/RepPaqueteriasGuias.aspx.cs

@@ -229,6 +229,11 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
         DdlEstatusEditar.Items.Insert(3, new ListItem("Entregado ", "3"));
         DdlEstatusEditar.Items.Insert(4, new ListItem("Confirmado por Cliente", "4"));
         DdlEstatusEditar.SelectedValue = "-1";
+
+        if(UsuarioActual.Empresa.Funcionalidad(280) == "1"){
+            DivEstatusEntrega.Visible = true;
+        }
+
     }
 
     private void CargaUsuarios()
@@ -270,7 +275,8 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
         String FechaIngInicio = TxtFechaInicialIngreso.Text == "" ? "-1" : TxtFechaInicialIngreso.Text;
         String FechaIngFin = TxtFechaFinalIngreso.Text == "" ? "-1" : TxtFechaFinalIngreso.Text;
 
-        if (ObjGeneral.GetPaqueteriasGuias(CvePaqueteriaGuia, CvePaqueteriaGuiaTipo, CvePaqueteria, CveEstatus, CveSubProyecto, CveEmpresa, Guia, FechaInicio, FechaFin, FechaIngInicio, FechaIngFin, Filtro: Filtro, CveUsuarioEntrega: CveUsuarioEntrega))
+        if (ObjGeneral.GetPaqueteriasGuias(CvePaqueteriaGuia, CvePaqueteriaGuiaTipo, CvePaqueteria, CveEstatus, CveSubProyecto, CveEmpresa, Guia, FechaInicio, FechaFin, 
+                                            FechaIngInicio, FechaIngFin, Filtro: Filtro, CveUsuarioEntrega: CveUsuarioEntrega, EsEntregaInterna: ChkLote.Checked))
         {
             DTDatos = ObjGeneral.DtResultados;
             GVDatos.DataSource = DTDatos;
@@ -532,7 +538,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             {
                 e.Row.FCLinkButton("SubirArchivo").Visible = false;
             }
-
+            e.Row.FCLinkButton("LnkReasignar").Visible = e.Row.DataKey("EsEntregaInterna").ToString() == "True";
         }
 
     }
@@ -953,6 +959,19 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
     }
     #endregion
 
+    protected void Reasignar_Click(object sender, EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int CvePaqueteriaGuia = GvRow.DataKey("CvePaqueteriaGuia").ToEntero();
 
+        ClsGenerales ObjGeneral = new ClsGenerales();
+        if (ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriaGuia, -1))
+        {
+            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();
+    }
 
 }

Inventarios/EntregaAlmacen.aspx

@@ -244,10 +244,11 @@
                                             <td colspan="2">
                                                
                                                     <asp:Panel ID="PnlEntrega" runat="server" Visible="false">
-                                                        <asp:RadioButton id="RbSinEntrega" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Sin Entrega" AutoPostBack="true"></asp:RadioButton>
+                                                        <asp:RadioButton id="RbSinEntrega" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Entrega en mostrador" AutoPostBack="true"></asp:RadioButton>
                                                         <asp:RadioButton id="RbEntregaInterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Entrega Interna" AutoPostBack="true"></asp:RadioButton>
                                                         <asp:RadioButton id="RbEntregaExterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Entrega Externa" AutoPostBack="true"></asp:RadioButton>
                                                     </asp:Panel>
+                                                    <asp:LinkButton ID="LnkPaqueteriaDetalle" runat="server" OnClick="PaqueteriaDetalle_Click" Visible="false">ver detalle de entrega</asp:LinkButton>  
                                                  
                                             </td>
                                         </tr>

Inventarios/EntregaAlmacen.aspx.vb

@@ -322,7 +322,6 @@ Partial Class Inventarios_EntregaAlmacen
         CreaDtDetalleLote()
         CargaPendientes()
 
-
         LimpiaCampos()
     End Sub
 
@@ -614,6 +613,21 @@ Partial Class Inventarios_EntregaAlmacen
                         DtDatos.Columns.Add("CantidadSeleccionada", GetType(Double))
                     End If
 
+                    If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
+                        FormaPaqueteria = DtDatos.Rows(0)("FormaPaqueteria").ToString.ToEntero
+                        Dim FormaPaq As Integer = FormaPaqueteria
+                        Select Case FormaPaq
+                            Case 1
+                                RbSinEntrega.Checked = True
+                            Case 2
+                                RbEntregaInterna.Checked = True
+                                LnkPaqueteriaDetalle.Visible = True
+                                DdlEstatus.SelectedValue = "5"
+                            Case 3
+                                RbEntregaExterna.Checked = True
+                                LnkPaqueteriaDetalle.Visible = True
+                        End Select
+                    End If
 
                     'TxtFecha.Text = If(EsDevolucionVenta = 1, Now.ToShortDateString, DtDatos.Rows(0)("Fecha").ToString)
                 End If
@@ -2413,7 +2427,50 @@ Partial Class Inventarios_EntregaAlmacen
                         End If
 
                     Else  'REGISTRO LA PREPOLIZA DE COSTO VS ALMACEN - SALIDA ALMACEN
-                        ErrorMovInv = Not GenerarPrePoliza(ObjInventario, ObjVentas, ObjConta, CveMovimiento, TextoError)
+                        Dim DtCostos As DataTable = Nothing
+                        Dim ValorInventario As Decimal = 0
+                        If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                            DtCostos = ObjInventario.DtResultados
+
+                            Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
+                            Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+                            Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+                            Dim IdCtaContable As Integer = 0
+                            Dim CveCuenta As Integer = 0
+                            If tmpCostos.Rows.Count > 0 Then
+
+
+                                If ObjVentas.GetVenta(CveVentaSurtir, UsuarioActual.CveEmpresa) Then
+                                    Dim Fecha As Date = TxtFecha.Text.ToDate ' If(TipoMovimiento <> 1, TxtFecha.Text.ToDate, ObjVentas.DtResultados(0)("Fecha").ToString.ToDate)
+                                    Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero
+                                    Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString
+                                    Dim Serie As String = ObjVentas.DtResultados(0)("Serie").ToString
+                                    Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL()
+                                    Dim TotalCostoAcumulado As Decimal = 0
+                                    Dim cont As Integer = 1
+
+                                    Dim ValorMultiplicador = 1
+
+                                    If TipoMovimiento = 1 Then
+                                        ValorMultiplicador = 1
+                                    ElseIf TipoMovimiento = 2 Then
+                                        ValorMultiplicador = -1
+                                    ElseIf TipoMovimiento = 2 AndAlso TipoDocto.Contiene({"Dev"}) And (EsDevolucionVenta = 1) Then
+                                        ValorMultiplicador = 1
+                                    End If
+
+                                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                    'Se agrega movimiento separado por la cuenta de ventas (ER)
+
+                                    If CvePrePoliza > 0 Then
+
+                                        For Each RowInv As DataRow In tmpCostos.Rows
+                                            ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL()
+                                            TotalCostoAcumulado += ValorInventario
+
+                                            'cuando es el último movimiento y hay diferencias en los importes
+                                            If cont = DtCostos.FiltraParametros("", "", {"CveClasificacion"}).Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
+                                                ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
                                             End If
 
                 End If
@@ -3614,12 +3671,13 @@ 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')")
+            LnkPaqueteriaDetalle.Visible = False
         ElseIf RbEntregaInterna.Checked Then
-            RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
+            LnkPaqueteriaDetalle.Visible = True
-            'RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuiasInternas.aspx?CveVenta={CveVentaSurtir}&CveSubProyecto={CveSubProyecto}',800,547,'N')")
+            'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
-            'CveVentaSurtir
         ElseIf RbSinEntrega.Checked Then
             LimpiaCampos()
+            LnkPaqueteriaDetalle.Visible = False
         End If
     End Sub
 

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"
+                        DataKeyNames="CvePaqueteriaGuia,Folio,FechaIng,Nombre,Contacto,Estatus,CobranzaCorreo,CorreoEntregaAlmacen,CorreoEntregaCompras,Correo,CorreoAdicionalNotificaciones"
                         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

@@ -40,15 +40,30 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
             ObjGeneral.IniciaTransacSQL();
             GridViewRowCollection Grid = GvPaqueteriasGuias.Rows;
 
+            int CvePersonal = DdlUsuario.SelectedValue.ToEntero();
             foreach (GridViewRow row in Grid)
             {
                 if (row.FCCheckBox("ChkAsigna").Checked)
                 {
                     int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero();
-                    int CvePersonal = DdlUsuario.SelectedValue.ToEntero();
 
                     if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal)){
                         TieneError = true;
+                    }else
+                    {
+                        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 LogCorreo = string.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoEntregaAlmacen, CorreosCC);
+                        LogCorreo.GuardaLog();
+
+                        ClsSisMail MailCls = new ClsSisMail();
+                        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Se enviara la compra a su dirección", "Pendiente", CorreosCC);
+                        MailCls = null;
                     }
                 }
             }

Ventas/Ventas.aspx

@@ -10,8 +10,7 @@
             padding: 0px 5px;
         }
 
-        .nolineheight TxtNombreCliente
+        .nolineheight TxtNombreCliente line-height: 1;
-            line-height: 1;
         }
 
         .claseesconder {
@@ -1599,7 +1598,8 @@
                                 <div class="portlet box purpleAlmacen" id="DivSalidaAlmacen" runat="server">
                                     <div class="portlet-title">
                                         <div class="caption">
-                                            <i class="fa fa-dropbox"></i><asp:Literal ID="LltSalidaAlmacen" runat="server" Text="Salida Almacen"></asp:Literal> 
+                                            <i class="fa fa-dropbox"></i>
+                                            <asp:Literal ID="LltSalidaAlmacen" runat="server" Text="Salida Almacen"></asp:Literal>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
@@ -3294,6 +3294,18 @@
                                 <td>
                                     <asp:TextBox ID="TxtCorreoNotificaciones" runat="server" Width="100%" CssClass="form-control"></asp:TextBox></td>
                             </tr>
+                            <tr align="left" id="trPaqueteriOpcionesLabel" runat="server" visible="false">
+                                <td id="Td2" runat="server">Tipo de Entrega:&nbsp;</td>
+                            </tr>
+                            <tr align="left" id="trPaqueteriaOpciones" runat="server" visible="false">
+                                <td colspan="2">
+                                    <asp:RadioButtonList runat="server" ID="RblPaqueteria">
+                                        <asp:ListItem Value="1" Text="Entrega En Mostrador" />
+                                        <asp:ListItem Value="2" Text="Entrega Interna" />
+                                        <asp:ListItem Value="3" Text="Entrega Externa" />
+                                    </asp:RadioButtonList>
+                                </td>
+                            </tr>
                         </table>
                     </div>
                 </ContentTemplate>

Ventas/Ventas.aspx.vb

@@ -1206,6 +1206,15 @@ Partial Class Ventas
             ViewState("SaldoAnticipo") = value
         End Set
     End Property
+    Private Property CorreoEntregaAlmacen As String
+        Get
+            Return If(IsNothing(ViewState("CorreoEntregaAlmacen")), "", ViewState("CorreoEntregaAlmacen").ToString())
+        End Get
+
+        Set(value As String)
+            ViewState("CorreoEntregaAlmacen") = value
+        End Set
+    End Property
 
 #End Region
 
@@ -2634,6 +2643,7 @@ Partial Class Ventas
         If UsuarioActual.CveEmpresa = 141 Then
             BtnModalAddPS.Enabled = False
         End If
+        MostrarOpcioensPaqueteria()
     End Sub
     Private Sub BloqueaClasificaciones()
         If UsuarioActual.CveEmpresa = 141 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
@@ -4847,6 +4857,7 @@ Partial Class Ventas
 
                 ViewState("Mail") = If(DdlTipoComprobante.SelectedValue = "Cot", ObjCliente.MailCotizacion, ObjCliente.Mail)
                 ViewState("MailCC") = ObjCliente.NotificarA
+                CorreoEntregaAlmacen = ObjCliente.DtResultados(0)("CorreoEntregaAlmacen").ToString
                 LblDireccion.Text = ObjCliente.Direccion
                 LblColonia.Text = ObjCliente.Colonia
                 LblCiudad.Text = ObjCliente.Ciudad
@@ -5157,8 +5168,8 @@ Partial Class Ventas
                 CargarAlmacenes()
 
                 If UsuarioActual.Empresa.FacturaProduccion Then
-                    CargaDocumentacionCliente()
                 End If
+                CargaDocumentacionCliente()
 
                 If UsuarioActual.CveEmpresa.Contiene(72, 80, 1, 119) Then
                     BtnEmitirImprimir.OnClientClick = $"ValidaGuardar({ If(ImprimeNombreSucursal = True, 1, 0)});"
@@ -7470,7 +7481,7 @@ Partial Class Ventas
                     ObjContr.Dispose()
                     ObjDocCliente.Dispose()
                     'ObjFolios.Dispose()
-                    ErrorList.Clear
+                    ErrorList.Clear()
                     ErrorList = Nothing
                     MensajeAlert = Nothing
                     If ObjContPaq IsNot Nothing Then ObjContPaq.Dispose()
@@ -9502,7 +9513,7 @@ Partial Class Ventas
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
-                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text) Then
+                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
             If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then
@@ -9523,6 +9534,10 @@ Partial Class Ventas
                 End If
 
             End If
+
+            If UsuarioActual.Empresa.Funcionalidad(280) = "1" And RblPaqueteria.SelectedValue = "1" Then
+                NotificarPaqueteria()
+            End If
         End If
 
         If Not GuardarUsados(ObjVentas.IniciaTransacSQL, ObjVentas.CveVenta) Then
@@ -14055,7 +14070,7 @@ Partial Class Ventas
             TrVistaPrevia.Visible = EstatusCliente
         End If
 
-
+        MostrarOpcioensPaqueteria()
 
         TrAtencionA.Visible = True
         tdVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot")
@@ -14066,6 +14081,7 @@ Partial Class Ventas
         UPCondicionesPago.Update()
         UpCliente.Update()
         UpPS.Update()
+        UPObservaciones.Update()
     End Sub
     Protected Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged
         CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero())
@@ -25660,6 +25676,27 @@ Partial Class Ventas
         CargaEventoBitacora()
     End Sub
 
+    Private Sub MostrarOpcioensPaqueteria()
+        Dim mostrarOpcionesPaq As Boolean = DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped")
+        trPaqueteriaOpciones.Visible = mostrarOpcionesPaq
+        trPaqueteriOpcionesLabel.Visible = mostrarOpcionesPaq
+    End Sub
 
+    Private Sub NotificarPaqueteria()
+        Dim DtVendedores As DataTable = GlobalDTVendedores(UsuarioActual.CveEmpresa)
 
+        Dim CorreoVendedor As String = DtVendedores.FiltroPrimeroValor("Correo", String.Format("CveVendedor = {0}", DdlVendedor.SelectedValue))
+        Dim CorreoVendedorAdicional As String = DtVendedores.FiltroPrimeroValor("CorreoAdicionalNotificaciones", String.Format("CveVendedor = {0}", DdlVendedor.SelectedValue))
+        Dim CorreoCliente As String = Mail
+        Dim CorreoClienteAlmacen As String = CorreoEntregaAlmacen
+        Dim CorreoNotificacionCliente As String = MailCC
+
+        Dim CorreosCC As String = String.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoVendedorAdicional, CorreoCliente, CorreoNotificacionCliente)
+        Dim LogCorreo As String = String.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoClienteAlmacen, CorreosCC)
+        LogCorreo.GuardaLog
+
+        Dim MailCls As New ClsSisMail
+        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC)
+        MailCls = Nothing
+    End Sub
 End Class