diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs
index ba858b386..75a951155 100644
--- a/General/RepPaqueteriasGuias.aspx.cs
+++ b/General/RepPaqueteriasGuias.aspx.cs
@@ -235,7 +235,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
     {
         DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa);
         DdlUsuarios.DataBind();
-        DdlUsuarios.Items.Insert(0, new ListItem("Seleccione ", "-1"));
+        DdlUsuarios.Items.Insert(0, new ListItem("Todos ", "-1"));
     }
 
     protected void InicializaFechas()
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 61757410e..376ee22cf 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -605,12 +605,12 @@
                                             <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
                                         </div>
 
-                                        <div class="form-group form-md-line-input input-iconright">
+                                        <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false" >
                                             <asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control"/>
                                             <label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label>
                                         </div>
 
-                                        <div class="form-group form-md-line-input input-iconright">
+                                        <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaAlmacen" runat="server" visible="false">
                                             <asp:TextBox runat="server" ID="TxtCorreoEntregaAlmacen" CssClass="form-control"/>
                                             <label for="<%= TxtCorreoEntregaAlmacen.ClientID.ToString()%>">Correo de Entrega de Almacén:</label>
                                         </div>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index ec449551d..ff52d9a63 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -5622,6 +5622,11 @@ Partial Class Clientes
         CobranzaTelefono = ""
         CodigoCliente = ""
 
+        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
+            divCorreoEntregaCompras.Visible = True
+            divCorreoEntregaAlmacen.Visible = True
+        End If
+
     End Sub
 
     Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index ff7dd77d3..3b1188c59 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3260,10 +3260,10 @@
                                 <td>
                                     <asp:TextBox ID="TxtObsFact" runat="server" Rows="3" TextMode="MultiLine" Width="250px" MaxLength="800" CssClass="form-control input-sm"></asp:TextBox></td>
                             </tr>
-                            <tr align="left">
+                            <tr align="left" id="trCorreoNotif1" runat="server" visible="false">
                                 <td id="Td1" runat="server">Correo Notificaciones:&nbsp;</td>
                             </tr>
-                            <tr align="left">
+                            <tr align="left" id="trCorreoNotif2" runat="server" visible="false">
                                 <td>
                                     <asp:TextBox ID="TxtCorreoNotificaciones" runat="server" Width="100%" CssClass="form-control"></asp:TextBox></td>
                             </tr>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9d78fa1fd..296643417 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -1854,8 +1854,10 @@ Partial Class Ventas
                 thPredial2.Visible = True
             End If
 
-            If UsuarioActual.CveEmpresa.Contiene(72, 80) Then ' PARA BUSCAR FOLIO DE OC, YA FACTURADA EN EL CAMPO ORDEN DE COMPRA
+            If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then ' PARA BUSCAR FOLIO DE OC, YA FACTURADA EN EL CAMPO ORDEN DE COMPRA
                 TxtOrdenCompra.Attributes.Add("onblur", "BuscarOCRegistrada();")
+                trCorreoNotif1.Visible = True
+                trCorreoNotif2.Visible = True
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(561).ToString() = "1" Then