-

Inventarios/EntregaAlmacen.aspx.vb

@@ -3222,14 +3222,17 @@ Partial Class Inventarios_EntregaAlmacen
         Dim Destinatario As String = ""
         Dim MensajeEnviado = False
         Dim tCvecliente As Integer
+        Dim tCveVendedor As Integer
         Dim bytes() As Byte = Nothing
         Dim ObjVentas As New ClsVentas()
 
         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"))
-
+            tCveVendedor = dr("CveVendedor").ToString.ToEntero
+            Dim CorreoVendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo", String.Format("CveVendedor = {0}", tCveVendedor))
+            Dim CorreoAsistente As String = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=3).FiltroPrimeroValor("Correo", String.Format("CveSuperior = {0}", CveVendedor))
+            Destinatario = String.Format("{0};{1};{2}", dr("CorreoNotificacion"), CorreoVendedor, CorreoAsistente)
             tCvecliente = dr("CveCliente").ToString.ToEntero
 
             Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")