AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-06-24 10:16:20 -07:00
parent f8b7cdaa59 4faf9604b3
commit f5a1051082
15 changed files with 1726 additions and 1383 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
App_Code/ClsGenerales.vb
View File

@@ -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

20
App_Code/ClsPaginas.vb
View File

@@ -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

9
App_Code/Modelos.vb
View File

@@ -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

62
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -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()
Para = If(Para IsNot Nothing, Para, "")
Asunto = If(Asunto IsNot Nothing, Asunto, "")
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};"
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
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

18
Compras/PopUpVerFactura.aspx.vb
View File

@@ -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
ImprimeEntregasPorRealziar(UrlParametros("CVETICK").ToString, UrlParametros("USUARIOENTREGA").ToString)
If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
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)
Dim CveTick As Long = pCveTick.ToLong()
Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
Dim Correcto As Boolean = False
Dim DtPaqueteriasGuias As DataTable = Nothing
Dim ObjGeneral As New ClsGenerales
If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveTick) Then
Dim DtPaqueteriasGuias As DataTable = ObjGeneral.DtResultados
If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveAsignacionEntrega) Then
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

2486
Empresas/72/Formatos/EntregasPorRealizar.rdlc
View File

File diff suppressed because it is too large Load Diff

56
General/PopUpPaqueteriasGuias.aspx.cs
View File

@@ -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

47
General/RepPaqueteriasGuias.aspx
View File

@@ -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">

122
General/RepPaqueteriasGuias.aspx.cs
View File

@@ -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");
}else
{
DdlPaqueterias.DataSource = GlobalDTPaqueterias;
DdlPaqueterias.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0);
DdlPaqueterias.DataBind();
}
DdlPaqueterias.DataBind();
DdlPaqueterias.Items.Insert(0, new ListItem("Todos ", "-1"));
else
{
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
//if (UsuarioActual.Empresa.Funcionalidad(280) == "1" && CveCliente > 0 && CveVendedor > 0)
//{
// Destinatario = getCorreoNotificacion(CveCliente,CveVendedor);
//}
Destinatario = "sig.buzon02@gmail.com"; // CORREO PRUEBA
if (UsuarioActual.Empresa.Funcionalidad(280) == "1" && CveCliente > 0 && CveVendedor > 0)
{
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;
}
}

4
Global.asax
View File

@@ -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.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = 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.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

123
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -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
Dim CveEstatus As Integer = DdlEstatus.SelectedValue.ToEntero()
Dim Fecha As String = TxtFechaPaqInterna.Text
Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero()
Dim Observaciones As String = TxtObservacionesPaqInterna.Text
Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero
If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero()
Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
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
Dim CveEstatus As Integer = DdlEstatus.SelectedValue.ToEntero()
Dim Fecha As String = TxtFechaPaqInterna.Text
Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero()
Dim Observaciones As String = TxtObservacionesPaqInterna.Text
Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero
If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero()
Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
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()
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.")
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())
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
Dim itemMail As New ClsSisMail.ArchivoMail()
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Notificacion de Envio"})
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

2
Inventarios/EntregasPorRealizar.aspx
View File

@@ -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"

90
Inventarios/EntregasPorRealizar.aspx.cs
View File

@@ -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");
string CorreoEntregaAlmacen = row.DataKey("CorreoEntregaAlmacen");
string CorreoEntregaCompras = row.DataKey("CorreoEntregaCompras");
string CorreoVendedor = row.DataKey("Correo");
string CorreoAdicionalNotificacionesVendedor = row.DataKey("CorreoAdicionalNotificaciones");
try
{
MandarNotificacionCorreo(row);
}
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 LogCorreo = string.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoEntregaAlmacen, CorreosCC);
LogCorreo.GuardaLog();
//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;
//ClsSisMail MailCls = new ClsSisMail();
//MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Se enviara la compra a su dirección", "Pendiente", CorreosCC);
//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;
}
}

3
Ventas/Ventas.aspx
View File

@@ -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>

53
Ventas/Ventas.aspx.vb
View File

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