diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index b8eeeb2b6..704ef64f1 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -144,7 +144,7 @@
                                              <td>
                                                  <asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />                                                                                                  
                                                  <div class="row" id="divUsuarioRegistra" runat="server" visible="false">
-                                                     <div class="col-md-2">Registró:</div>
+                                                     <div class="col-md-2" > <asp:Literal ID="LtlRegistro" runat="server" Text="Registró:"></asp:Literal></div>
                                                      <div class="col-md-6">
                                                          <asp:Literal ID="LtlRegistra" runat="server"></asp:Literal></div>
                                                  </div>
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 249f4d0c8..dcb6e6ec1 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/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"