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

-

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-06-24 21:07:11 -07:00
parent 4faf9604b3
commit 0a62a95a62
4 changed files with 47 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
General/PopUpPaqueteriasGuias.aspx
View File

@@ -30,7 +30,7 @@
<ContentTemplate> <ContentTemplate>
<table class="Widthall"> <table class="Widthall">
<tr> <tr>
<td class="Titulos"><%--Guías Vinculadas--%> Entrega Local</td> <td class="Titulos"><%--Guías Vinculadas--%> Entrega Externa</td>
</tr> </tr>
<tr> <tr>
<td> <td>
@@ -202,7 +202,7 @@
</tr> </tr>
<tr runat="server" id="TrTipo" align="left" visible="false"> <tr runat="server" id="TrTipo" align="left" visible="false">
<td class="text-right" align="left" valign="top" style="width: 140px; padding-top: 4px;"><b>Tipo:</b></td> <td class="text-right" align="left" valign="top" style="width: 140px; padding-top: 4px;"><b>Documento:</b></td>
<td align="left" valign="top" style="width: 200px;"> <td align="left" valign="top" style="width: 200px;">
<asp:DropDownList ID="DdlPaqueteriaGuiaTipo" runat="server" AppendDataBoundItems="true" DataTextField="PaqueteriaGuiaTipo" DataValueField="CvePaqueteriaGuiaTipo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList> <asp:DropDownList ID="DdlPaqueteriaGuiaTipo" runat="server" AppendDataBoundItems="true" DataTextField="PaqueteriaGuiaTipo" DataValueField="CvePaqueteriaGuiaTipo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList>
</td> </td>

2
General/RepPaqueteriasGuias.aspx.cs
View File

@@ -1076,7 +1076,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
CargaDatos(); CargaDatos();
UPDatos.Update(); UPDatos.Update();
CvePaqueteriaGuiaReasignar = -1; CvePaqueteriaGuiaReasignar = -1;
EnviarCorreoNotificacionEntrega(3, SerieFolio, "","","","","",-1,null); EnviarCorreoNotificacionEntrega(3, Folio, "","","","","",-1,null);
this.RegistraScript("$('#ModalMotivoReasignacion').modal('hide')", "hidemodal3"); this.RegistraScript("$('#ModalMotivoReasignacion').modal('hide')", "hidemodal3");
} }

62
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -634,7 +634,7 @@ Partial Class Inventarios_EntregaAlmacen
LnkPaqueteriaDetalle.Visible = False LnkPaqueteriaDetalle.Visible = False
Case 2 Case 2
RbEntregaInterna.Checked = True RbEntregaInterna.Checked = True
LnkPaqueteriaDetalle.Visible = True 'LnkPaqueteriaDetalle.Visible = True
DdlEstatus.SelectedValue = "5" DdlEstatus.SelectedValue = "5"
Case 3 Case 3
RbEntregaExterna.Checked = True RbEntregaExterna.Checked = True
@@ -2652,7 +2652,7 @@ Partial Class Inventarios_EntregaAlmacen
'Paqueterias guias 'Paqueterias guias
If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero() Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero()
Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero() Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
@@ -3184,7 +3184,7 @@ Partial Class Inventarios_EntregaAlmacen
End Sub End Sub
Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario) Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario)
Dim Correo As New ClsSisMail() Dim Correo As New ClsSisMail
Dim SerieFolio As String = "" Dim SerieFolio As String = ""
Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio) Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
Dim Cuerpo As New StringBuilder() Dim Cuerpo As New StringBuilder()
@@ -3192,46 +3192,48 @@ Partial Class Inventarios_EntregaAlmacen
Dim MensajeEnviado = False Dim MensajeEnviado = False
Dim tCvecliente As Integer Dim tCvecliente As Integer
Dim bytes() As Byte = Nothing Dim bytes() As Byte = Nothing
Using ObjVentas As New ClsVentas() 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 If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then
Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta"))
Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("") tCvecliente = dr("CveCliente").ToString.ToEntero
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"))) Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.") Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
Dim ClienteNombre As String = dr("ClienteNombre").ToString() 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")))
Dim FolioVenta As String = dr("SerieFolio").ToString() Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.")
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 Dim ClienteNombre As String = dr("ClienteNombre").ToString()
If ObjVentas.GetVentaDetalle(CveVenta) Then Dim FolioVenta As String = dr("SerieFolio").ToString()
dtDetalle = ObjVentas.DtResultados Dim Pedido As String = dr("PedidoContrato").ToString()
End If Dim OrdenCompra As String = dr("OrdenCompra").ToString()
Dim CveVenta As Integer = dr("CveVenta").ToString().ToEntero()
Dim RepParams As New List(Of ReportParameter) Dim dtDetalle As New DataTable
RepParams.Add(New ReportParameter("Cliente", ClienteNombre)) If ObjVentas.GetVentaDetalle(CveVenta) Then
RepParams.Add(New ReportParameter("FolioVenta", FolioVenta)) dtDetalle = ObjVentas.DtResultados
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 If
End Using
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
ObjVentas.Dispose()
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
Dim itemMail As New ClsSisMail.ArchivoMail() Dim itemMail As New ClsSisMail.ArchivoMail()
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Notificacion de Envio"}) LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Notificacion de Envio"})
MensajeEnviado = Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, Asunto, Cuerpo.ToString(), Destinatario, Archivos:=LSRutasMail) Correo.SendMail(EmpresaNotificaciones, Destinatario, Asunto, Cuerpo.ToString(), Destinatario)
Correo = Nothing
End Sub End Sub
Private Sub Limpia() Private Sub Limpia()

24
Ventas/Ventas.aspx.vb
View File

@@ -25886,21 +25886,21 @@ Partial Class Ventas
End Sub End Sub
Private Sub NotificarPaqueteria() Private Sub NotificarPaqueteria()
Dim DtVendedores As DataTable = GlobalDTVendedores(UsuarioActual.CveEmpresa) 'Dim DtVendedores As DataTable = GlobalDTVendedores(UsuarioActual.CveEmpresa)
Dim CorreoVendedor As String = DtVendedores.FiltroPrimeroValor("Correo", String.Format("CveVendedor = {0}", DdlVendedor.SelectedValue)) '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 CorreoVendedorAdicional As String = DtVendedores.FiltroPrimeroValor("CorreoAdicionalNotificaciones", String.Format("CveVendedor = {0}", DdlVendedor.SelectedValue))
Dim CorreoCliente As String = Mail 'Dim CorreoCliente As String = Mail
Dim CorreoClienteAlmacen As String = CorreoEntregaAlmacen 'Dim CorreoClienteAlmacen As String = CorreoEntregaAlmacen
Dim CorreoNotificacionCliente As String = MailCC 'Dim CorreoNotificacionCliente As String = MailCC
Dim CorreosCC As String = String.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoVendedorAdicional, CorreoCliente, CorreoNotificacionCliente) '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) 'Dim LogCorreo As String = String.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoClienteAlmacen, CorreosCC)
LogCorreo.GuardaLog 'LogCorreo.GuardaLog
Dim MailCls As New ClsSisMail 'Dim MailCls As New ClsSisMail
MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC) 'MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC)
MailCls = Nothing 'MailCls = Nothing
End Sub End Sub
Private Sub CargarOCRelacionadas() Private Sub CargarOCRelacionadas()