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 01:50:55 -07:00
parent 32d05052ae
commit 4faf9604b3
2 changed files with 61 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
General/RepPaqueteriasGuias.aspx.cs
View File

@@ -927,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>();
@@ -935,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))
@@ -1074,4 +1080,32 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
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;
}
}

45
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2682,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
@@ -3178,8 +3180,7 @@ Partial Class Inventarios_EntregaAlmacen
Private Sub MandaCorreoEntrega(tCveVenta As Integer)
Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoEntrega(tCveVenta, UsuarioActual))
Hilo.Start()
EnviarCorreoEntrega(tCveVenta, UsuarioActual)
End Sub
Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario)
@@ -3190,7 +3191,7 @@ 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("")
@@ -3204,25 +3205,33 @@ Partial Class Inventarios_EntregaAlmacen
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 ArchivoAdjunto As New ClsSisMail.ArchivoMail()
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"})
'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()