-actualizacion

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
 
 

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.cs

@@ -163,6 +163,18 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             ViewState["CvePaqueteriaGuiaReasignar"] = value;
         }
     }
+
+    private String Folio
+    {
+        get
+        {
+            return ViewState["Folio"].ToString();
+        }
+        set
+        {
+            ViewState["Folio"] = value;
+        }
+    }
     #endregion
 
 
@@ -915,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>();
 
@@ -923,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))
@@ -959,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;
@@ -996,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))
                     {
@@ -1034,6 +1061,8 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
         this.RegistraScript("$('#ModalMotivoReasignacion').modal('show')", "hidemodal3");
         GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
         CvePaqueteriaGuiaReasignar = GvRow.DataKey("CvePaqueteriaGuia").ToEntero();
+        CveVenta = GvRow.DataKey("CveAgrupador").ToString().ToEntero();
+        Folio = GvRow.DataKey("Folio").ToString();
     }
     
     protected void BtnReasignar_Click(object sender, EventArgs e)
@@ -1047,6 +1076,36 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
         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;
     }
 
 }

General/SaldosIniciales.aspx.vb

@@ -18,7 +18,9 @@ Partial Class General_SaldosIniciales
     Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
         If TxtExcel.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
-            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
+
+            Dim Directorio As String = Server.MapPath("~") & file.patch
+
             Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
             CargarArchivo(Directorio, file.filename, Tipo)
         Else

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,12 +2651,12 @@ 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(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
 
                 If CveSubProyecto > 0 Then
@@ -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,12 +3123,12 @@ 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(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

@@ -44,19 +44,28 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
                         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;
                     }
                 }
             }
@@ -99,5 +108,68 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         DdlUsuario.DataBind();
         DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1"));
     }
- 
+
+    protected void LnkImprimir_Click(object sender, EventArgs e)
+    {
+        List<ReportParameter> RepParams = new List<ReportParameter>();
+        string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos";
+        RepParams.Add(new ReportParameter("Fecha", DateTime.Today.ToString()));
+        RepParams.Add(new ReportParameter("AsignadoA", Usuario));
+        RepParams.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
+
+        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()