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-26 16:01:15 -07:00
parent 2aa2e33cc9 d225f06ff9
commit 70db83eaa5
11 changed files with 330 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsOC.vb
View File

@@ -2532,12 +2532,12 @@ Public Class ClsOC
End Function
#End Region
Public Function GetVentasRelacionadas(CveOCDetalle As String) As Boolean
Public Function GetVentasRelacionadas(CveOrdenCompra As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OC_VentaRelacionada")
DataAdapter("PA_OC_VentasRelacionadas")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveOCDetalles", SqlDbType.NVarChar).Value = CveOCDetalle
.Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
End With
Try

25
Bancos/IE.aspx.vb
View File

@@ -436,6 +436,14 @@ Partial Class Bancos_IE
End Set
End Property
Private Property CveCorte As Integer
Get
Return IfNull(ViewState("CveCorte"), -1, ViewState("CveCorte").ToString().ToString()).ToString().ToEntero()
End Get
Set(value As Integer)
ViewState("CveCorte") = value
End Set
End Property
#Region "CANCELACIÓN COMPLEMENTO MODAL V2"
@@ -1180,6 +1188,16 @@ Partial Class Bancos_IE
GvRH.DataBind()
UpGvRH.Update()
End Sub
Private Sub CargaCorteCaja()
'Checar si hay un Turno Abierto
Dim ObjPVenta As New ClsPuntoVenta
If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
If ObjPVenta.DtResultados.Rows.Count > 0 Then
CveCorte = ObjPVenta.CveCorte
End If
End If
ObjPVenta.Dispose()
End Sub
#Region " CARGA PROVEEDOR "
Protected Sub DdlProveedores_selectedindexchange(sender As Object, e As EventArgs)
@@ -1459,6 +1477,11 @@ Partial Class Bancos_IE
DivCheques.Visible = False
End If
End If
'PAGAR NC CON C.CH DEBE DESCONTAR EN EL CORTE
If UsuarioActual.TienePermisoProceso(160) AndAlso Opcion IsNot Nothing AndAlso Opcion = "DevDinV" AndAlso dr("CveTipoCuenta").ToString.ToEntero = 1 Then
CargaCorteCaja()
End If
If dr("UsaTarjeta").ToString = "True" Then
@@ -2506,7 +2529,7 @@ Partial Class Bancos_IE
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero,
TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1),
ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"))
ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte)
If CveIE > 0 Then

4
General/PopUpPaqueteriasGuias.aspx
View File

@@ -30,7 +30,7 @@
<ContentTemplate>
<table class="Widthall">
<tr>
<td class="Titulos"><%--Guías Vinculadas--%> Entrega Local</td>
<td class="Titulos"><%--Guías Vinculadas--%> Entrega Externa</td>
</tr>
<tr>
<td>
@@ -202,7 +202,7 @@
</tr>
<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;">
<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>

74
General/PopUpPaqueteriasGuias.aspx.cs
View File

@@ -730,7 +730,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
}
}
private byte[] DocumentoEntregaInterna()
private string DocumentoEntregaInterna()
{
ClsVentas ObjVentas = new ClsVentas();
if (ObjVentas.GetVenta(this.CveVenta, UsuarioActual.CveEmpresa))
@@ -742,24 +742,62 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
string Guia = TxtGuia.Text;
string Rastreo = TxtRastreo.Text;
string Paqueteria = DdlPaqueterias.SelectedItem.Text;
string TipoDocto = ObjVentas.DtResultados.Rows[0]["TipoDocto"].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));
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");
string DetalleTable = "";
foreach (DataRow dRow in DtDetalle.Rows)
{
string detalle = string.Format("<tr><td style='width:25%'>{0}</td><td style='width:25%'>{1}</td><td style='width:50%'>{2}</td></tr>", dRow["Codigo"], dRow["Cantidad"], dRow["PS"]);
DetalleTable += detalle;
}
StringBuilder strBody = new StringBuilder();
strBody.Append("<html>");
strBody.Append(" <body>");
strBody.Append("<div>");
strBody.Append($"<img src='{Request.Url.Scheme}://{Request.Url.Host}:{ Request.Url.Port}/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
strBody.Append("</div>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append($" Apreciable {ClienteNombre}, su pedido ya se encuentra en camino con el número de guía {Guia} y rastreo {Rastreo} de {Paqueteria}. Le confirmamos los productos que recibirá conforme a la {TipoDocto}:");
strBody.Append(" </p>");
strBody.Append($" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
strBody.Append(" <div style='width:100%;text-align:center'>");
strBody.Append(" <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
strBody.Append(DetalleTable);
strBody.Append(" </table>");
strBody.Append(" </div>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append(" Solicitamos su apoyo en la verificación del pedido que está próximo a recibir y en caso de presentarse alguno de los siguientes inconvenientes favor de rechazar el paquete y comunicarse de inmediato con su Ejecutivo Comercial:");
strBody.Append(" </p>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append(" • Empaque violado.<br/>");
strBody.Append("• Daño físico en la caja.<br/>");
strBody.Append("• Producto incompleto o distinto al solicitado.<br/>");
strBody.Append("• Alguna otra situación que se considere que compromete la integridad de la mercancía.");
strBody.Append("");
strBody.Append(" </p>");
strBody.Append(" <br/>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append(" Gracias por realizar pedido <br/>");
strBody.Append(" Compuproveedores");
strBody.Append(" </p>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>");
strBody.Append(" Sigue disfrutando de nuestros productos y servicios<br/>");
strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>");
strBody.Append("");
strBody.Append(" </p>");
strBody.Append(" </body>");
strBody.Append("</html>");
return strBody.ToString();
}
ObjVentas.Dispose();
return null;
return "";
}
private string getCorreoString()
@@ -789,19 +827,11 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
{
Correos.GuardaLog();
byte[] ArchivoBinario = DocumentoEntregaInterna();
string body = DocumentoEntregaInterna();
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, Correos, "Se enviara la compra a su dirección", "Pendiente", Correos, LSRutasMail);
MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, "Se enviara la compra a su dirección", body, Correos);
MailCls = null;
}
#endregion

59
General/RepPaqueteriasGuias.aspx.cs
View File

@@ -925,9 +925,9 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.");
string body = DocumentoEntregaInterna(this.CveVenta);
//Adjunta Archivo al Correo
ClsSisMail.ArchivoMail ArchivoAdjunto = new ClsSisMail.ArchivoMail();
ClsSisMail.ArchivoMail ArchivoAdjunto2 = new ClsSisMail.ArchivoMail();
List<ClsSisMail.ArchivoMail> ListaAdjuntos = new List<ClsSisMail.ArchivoMail>();
@@ -937,20 +937,16 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
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))
{
MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString(), Archivos: ListaAdjuntos);
MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, body.ToString(), Archivos: ListaAdjuntos);
}
else
{
MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString());
MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, body.ToString());
}
break;
@@ -1076,11 +1072,11 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
CargaDatos();
UPDatos.Update();
CvePaqueteriaGuiaReasignar = -1;
EnviarCorreoNotificacionEntrega(3, SerieFolio, "","","","","",-1,null);
EnviarCorreoNotificacionEntrega(3, Folio, "","","","","",-1,null);
this.RegistraScript("$('#ModalMotivoReasignacion').modal('hide')", "hidemodal3");
}
private byte[] DocumentoEntregaInterna(int CveVenta)
private string DocumentoEntregaInterna(int CveVenta)
{
ClsVentas ObjVentas = new ClsVentas();
@@ -1091,21 +1087,52 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
string FolioVenta = row["SerieFolio"].ToString();
string Pedido = row["PedidoContrato"].ToString();
string OrdenCompra = row["OrdenCompra"].ToString();
string tipoDocto = row["TipoDocto"].ToString();
DataTable DtDetalle = new DataTable();
if (ObjVentas.GetVentaDetalle(CveVenta))
{
DtDetalle = ObjVentas.DtResultados;
}
string DetalleTable = "";
foreach (DataRow dRow in DtDetalle.Rows)
{
string detalle = string.Format("<tr><td style='width:25%'>{0}</td><td style='width:25%'>{1}</td><td style='width:50%'>{2}</td></tr>", dRow["Codigo"], dRow["Cantidad"], dRow["PS"]);
DetalleTable += detalle;
}
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");
StringBuilder strBody = new StringBuilder();
strBody.Append("<html>");
strBody.Append(" <body>");
strBody.Append("<div>");
strBody.Append($"<img src='{Request.Url.Scheme}://{Request.Url.Host}:{ Request.Url.Port}/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
strBody.Append("</div>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append($" Apreciable {ClienteNombre}, su pedido correspondiente a la {tipoDocto}:");
strBody.Append(" </p>");
strBody.Append($" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>Su Pedido:</p>");
strBody.Append(" <div style='width:100%;text-align:center'>");
strBody.Append(" <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
strBody.Append(DetalleTable);
strBody.Append(" </table>");
strBody.Append(" </div>");
strBody.Append(" <br/>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append(" Agradecemos su preferencia. <br/>");
strBody.Append(" Compuproveedores");
strBody.Append(" </p>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>");
strBody.Append(" Sigue disfrutando de nuestros productos y servicios<br/>");
strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>");
strBody.Append("");
strBody.Append(" </p>");
strBody.Append(" </body>");
strBody.Append("</html>");
return strBody.ToString();
}
ObjVentas.Dispose();
return null;
return "";
}
}

125
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -634,7 +634,7 @@ Partial Class Inventarios_EntregaAlmacen
LnkPaqueteriaDetalle.Visible = False
Case 2
RbEntregaInterna.Checked = True
LnkPaqueteriaDetalle.Visible = True
'LnkPaqueteriaDetalle.Visible = True
DdlEstatus.SelectedValue = "5"
Case 3
RbEntregaExterna.Checked = True
@@ -2652,7 +2652,7 @@ Partial Class Inventarios_EntregaAlmacen
'Paqueterias guias
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 FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
@@ -3184,54 +3184,97 @@ Partial Class Inventarios_EntregaAlmacen
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)
Dim Cuerpo As New StringBuilder()
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"))
'Dim Correo As New ClsSisMail
Dim SerieFolio As String = ""
Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
Dim Cuerpo As New StringBuilder()
Dim Destinatario As String = ""
Dim MensajeEnviado = False
Dim tCvecliente As Integer
Dim bytes() As Byte = Nothing
Dim ObjVentas As New ClsVentas()
tCvecliente = dr("CveCliente").ToString.ToEntero
Dim strBody As New StringBuilder
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("")
Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
tCvecliente = dr("CveCliente").ToString.ToEntero
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 drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
Destinatario += String.Format(";{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
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 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 TipoDocto As String = dr("TipoDocto").ToString()
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")
Dim dtDetalle As New DataTable
If ObjVentas.GetVentaDetalle(CveVenta) Then
dtDetalle = ObjVentas.DtResultados
End If
End Using
Dim DetalleTable As String = ""
For Each dRow As DataRow In dtDetalle.Rows
Dim detalle As String = String.Format("<tr><td style='width:25%'>{0}</td><td style='width:25%'>{1}</td><td style='width:50%'>{2}</td></tr>", dRow("Codigo"), dRow("Cantidad"), dRow("PS"))
DetalleTable += detalle
Next
strBody.Append("<html>")
strBody.Append(" <body>")
strBody.Append("<div>")
strBody.Append($"<img src='{Request.Url.Scheme}://{Request.Url.Host}:{ Request.Url.Port}/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>")
strBody.Append("</div>")
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
strBody.Append($" Apreciable {ClienteNombre}, le confirmamos los")
strBody.Append(" productos surtidos y entregados en mostrador conforme a la")
strBody.Append($" {TipoDocto}:")
strBody.Append(" </p>")
strBody.Append($" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>")
strBody.Append(" <div style='width:100%;text-align:center'>")
strBody.Append(" <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>")
strBody.Append(DetalleTable)
strBody.Append(" ")
strBody.Append(" </table>")
strBody.Append(" </div>")
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
strBody.Append(" Se entregaron los productos conforme a las especificaciones de su pedido y verificamos que no se presentara alguno de los siguientes inconvenientes:")
strBody.Append(" </p>")
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
strBody.Append(" • Empaque violado.<br/>")
strBody.Append("• Daño físico en la caja.<br/>")
strBody.Append("• Producto incompleto o distinto al solicitado.<br/>")
strBody.Append("• Alguna otra situación que se considere que compromete la integridad de la mercancía.<br/>")
strBody.Append("")
strBody.Append(" </p>")
strBody.Append(" <br/>")
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
strBody.Append($" Aceptando a entera satisfacción a las {Today.Hour}:{Today.Minute} hrs del {Today.ToString}")
strBody.Append(" </p>")
strBody.Append(" <br/>")
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
strBody.Append(" Gracias por su compra <br/>")
strBody.Append(" Compuproveedores")
strBody.Append(" </p>")
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>")
strBody.Append(" Sigue disfrutando de nuestros productos y servicios<br/>")
strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>")
strBody.Append("")
strBody.Append(" </p>")
strBody.Append(" </body>")
strBody.Append("</html>")
End If
ObjVentas.Dispose()
Dim MailCls As New ClsSisMail
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
Dim itemMail As New ClsSisMail.ArchivoMail()
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Entrega en mostrador"})
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Notificacion de Envio"})
MensajeEnviado = Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, Asunto, Cuerpo.ToString(), Destinatario, Archivos:=LSRutasMail)
MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, "Enviado desde Entrega Almacen", strBody.ToString, Destinatario)
MailCls = Nothing
End Sub
Private Sub Limpia()

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,SerieFolio,FechaIng,Nombre,Contacto,Estatus,CobranzaCorreo,CorreoEntregaAlmacen,CorreoEntregaCompras,Correo,CorreoAdicionalNotificaciones,CveVenta,PedidoContrato,OrdenCompra,NombreComercial"
DataKeyNames="CvePaqueteriaGuia,Folio,SerieFolio,FechaIng,Nombre,Contacto,Estatus,CobranzaCorreo,CorreoEntregaAlmacen,CorreoEntregaCompras,Correo,CorreoAdicionalNotificaciones,CveVenta,PedidoContrato,OrdenCompra,NombreComercial,TipoDocto"
EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
data-sort="true"

103
Inventarios/EntregasPorRealizar.aspx.cs
View File

@@ -7,6 +7,7 @@ using System.Web.UI.WebControls;
using System.Data;
using Extensiones;
using Microsoft.Reporting.WebForms;
using System.Text;
public partial class Inventarios_EntregasPorRealizar : ClsPaginas
{
@@ -109,24 +110,25 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
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));
//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");
}
// ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF",RDSName:"DsInventarios");
//}
private byte[] DocumentoEntregaInterna(GridViewRow row)
private string 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();
string TipoDocto = row.DataKey("TipoDocto");
DataTable DtDetalle = new DataTable();
ClsVentas ObjVentas = new ClsVentas();
@@ -136,12 +138,60 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
}
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");
string DetalleTable = "";
foreach (DataRow dRow in DtDetalle.Rows)
{
string detalle = string.Format("<tr><td style='width:25%'>{0}</td><td style='width:25%'>{1}</td><td style='width:50%'>{2}</td></tr>", dRow["Codigo"], dRow["Cantidad"], dRow["PS"]);
DetalleTable += detalle;
}
StringBuilder strBody = new StringBuilder();
strBody.Append("<html>");
strBody.Append(" <body>");
strBody.Append("<div>");
strBody.Append($"<img src='{Request.Url.Scheme}://{Request.Url.Host}:{ Request.Url.Port}/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
strBody.Append("</div>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append($" Apreciable {ClienteNombre}, su pedido ya se encuentra en camino. Le confirmamos los productos que recibirá conforme a la ");
strBody.Append($" {TipoDocto}:");
strBody.Append(" </p>");
strBody.Append($" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
strBody.Append(" <div style='width:100%;text-align:center'>");
strBody.Append(" <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
strBody.Append(DetalleTable);
strBody.Append(" </table>");
strBody.Append(" </div>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append(" Solicitamos su apoyo en la verificación del pedido que está próximo a recibir y en caso de presentarse alguno de los siguientes inconvenientes favor de rechazar el paquete y comunicarse de inmediato con su Ejecutivo Comercial:");
strBody.Append(" </p>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append(" • Empaque violado.<br/>");
strBody.Append("• Daño físico en la caja.<br/>");
strBody.Append("• Producto incompleto o distinto al solicitado.<br/>");
strBody.Append("• Alguna otra situación que se considere que compromete la integridad de la mercancía.");
strBody.Append("");
strBody.Append(" </p>");
strBody.Append(" <br/>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
strBody.Append(" Gracias por realizar su pedido <br/>");
strBody.Append(" Compuproveedores");
strBody.Append(" </p>");
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>");
strBody.Append(" Sigue disfrutando de nuestros productos y servicios<br/>");
strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>");
strBody.Append("");
strBody.Append(" </p>");
strBody.Append(" </body>");
strBody.Append("</html>");
//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");
return strBody.ToString();
}
private void MandarNotificacionCorreo(GridViewRow row)
@@ -156,20 +206,21 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
string LogCorreo = string.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoEntregaAlmacen, Para);
LogCorreo.GuardaLog();
byte[] ArchivoBinario = DocumentoEntregaInterna(row);
//byte[] ArchivoBinario = DocumentoEntregaInterna(row);
string body = DocumentoEntregaInterna(row);
ClsSisMail MailCls = new ClsSisMail();
List<ClsSisMail.ArchivoMail> LSRutasMail = new List<ClsSisMail.ArchivoMail>();
ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail();
//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";
}
//{
// 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);
//LSRutasMail.Add(itemMail);
MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Para, "Entrega en camino", body, Para);
MailCls = null;
}
}

6
OC/OC.aspx
View File

@@ -1503,7 +1503,7 @@
</div>
</div>
<div class="col-md-3" runat="server" id="DivVentaRelacionada">
<div class="col-md-3" runat="server" id="DivVentaRelacionada" visible="false">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
@@ -1514,10 +1514,10 @@
<a href="javascript;" class="expand" data-original-title="" title=""></a>
</div>
</div>
<asp:GridView runat="server" ID="GvVentaRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveVenta,Folio"
<asp:GridView runat="server" ID="GvVentaRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveVenta,SerieFolio"
CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" GridLines="None" ShowHeader="False">
<Columns>
<asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
<asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
</Columns>
</asp:GridView>
</div>

49
OC/OC.aspx.vb
View File

@@ -518,8 +518,7 @@ Partial Class OC
End If
CargaDatos(CveOrdenCompra)
'CARGA VENTA RELACIONADA
CargaVentaRelacionada()
Else
EsNuevo = True
InicializarValores()
@@ -1388,6 +1387,15 @@ Partial Class OC
LblUsuarioAsignado.Text = objOC.UsuarioAsignado
End If
'CARGA VENTA RELACIONADA
If objOC.GetVentasRelacionadas(pCveOrdenCompra) Then
If objOC.DtResultados.Rows.Count > 0 Then
DivVentaRelacionada.Visible = True
GvVentaRelacionadas.DataSource = objOC.DtResultados
End If
End If
Case "REQ"
ViewState("TipoOC") = objOC.Tipo
@@ -1651,6 +1659,7 @@ Partial Class OC
End If
objOC.Dispose()
GvVentaRelacionadas.DataBind()
'CARGA MOVTOS DE ALMACEN
InicializaMovtosAlmacen()
@@ -7914,22 +7923,22 @@ Partial Class OC
'End If
End Sub
Private Sub CargaVentaRelacionada()
Dim GridViewPSAux As GridView = GvD
Dim CveOCDetalle As New StringBuilder()
For Each vd As GridViewRow In GridViewPSAux.Rows
Dim CveVentaDetalle As String = vd.DataKey("CveOrdenCompraDetalle")
CveOCDetalle.AppendFormat("{0},", CveVentaDetalle)
Next
Dim ObjVentas As New ClsOC()
If ObjVentas.GetVentasRelacionadas(CveOCDetalle.ToString) Then
Dim V As DataTable = ObjVentas.DtResultados
If V.Rows.Count > 0 Then
DivVentaRelacionada.Visible = True
GvVentaRelacionadas.DataSource = V
GvVentaRelacionadas.DataBind()
End If
End If
ObjVentas.Dispose()
End Sub
'Private Sub CargaVentaRelacionada()
' Dim GridViewPSAux As GridView = GvD
' Dim CveOCDetalle As New StringBuilder()
' For Each vd As GridViewRow In GridViewPSAux.Rows
' Dim CveVentaDetalle As String = vd.DataKey("CveOrdenCompraDetalle")
' CveOCDetalle.AppendFormat("{0},", CveVentaDetalle)
' Next
' Dim ObjVentas As New ClsOC()
' If ObjVentas.GetVentasRelacionadas(CveOCDetalle.ToString) Then
' Dim V As DataTable = ObjVentas.DtResultados
' If V.Rows.Count > 0 Then
' DivVentaRelacionada.Visible = True
' GvVentaRelacionadas.DataSource = V
' GvVentaRelacionadas.DataBind()
' End If
' End If
' ObjVentas.Dispose()
'End Sub
End Class

24
Ventas/Ventas.aspx.vb
View File

@@ -25886,21 +25886,21 @@ Partial Class Ventas
End Sub
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 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 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 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
'Dim MailCls As New ClsSisMail
'MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC)
'MailCls = Nothing
End Sub
Private Sub CargarOCRelacionadas()