-- ver el vendedor.

Inventarios/EntregaAlmacen.aspx.vb

@@ -689,6 +689,15 @@ Partial Class Inventarios_EntregaAlmacen
                         HLFolio.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={CveVenta}"
                     End If
 
+                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then '' pendiente de mejorar
+                        LtlRegistro.Text = "Vendedor:"
+                        Dim objV As New ClsVentas
+                        If objV.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
+                            LtlRegistra.Text = objV.DtResultados.FiltroPrimeroValor("VendedorNombre")
+                        End If
+                        objV.Dispose()
+                    End If
+
                     'filtra los Almacenes de domicilio
                     If DtDatos.Rows(0)("ServicioDomicilio").ToString() = "True" Then
                         StrAlmacenes = "CveTipoAlmacen = 29"