diff --git a/Inventarios/RepNotasSinAlmacen.aspx b/Inventarios/RepNotasSinAlmacen.aspx
index eeb3a3dbc..5fc8a751c 100644
--- a/Inventarios/RepNotasSinAlmacen.aspx
+++ b/Inventarios/RepNotasSinAlmacen.aspx
@@ -165,14 +165,16 @@
                         </div>
                         <asp:UpdatePanel ID="UpDatosGvVentas" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
-                                <asp:GridView ID="GvVentas" ClientIDMode="Static" Width="100%" runat="server" GridLines="None" BorderWidth="0" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
+                                <asp:GridView ID="GvVentas" ClientIDMode="Static" Width="100%" runat="server" GridLines="None" BorderWidth="0"  CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                                     <Columns>
-                                        <asp:BoundField HeaderText="Tipo Documento" DataField="TipoDocto" ItemStyle-Width="125px" />
-                                        <asp:HyperLinkField DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CveVenta={0}" Target="_blank" ItemStyle-Width="15%" HeaderText="SerieFolio" ControlStyle-CssClass="Texto" DataTextField="SerieFolio" />
-                                        <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
+                                        <asp:BoundField HeaderText="Tipo Docto" DataField="TipoDocto" ItemStyle-Width="55px" />
+                                        <asp:HyperLinkField DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CveVenta={0}" Target="_blank" ItemStyle-Width="80px" HeaderText="SerieFolio" ControlStyle-CssClass="Texto" DataTextField="SerieFolio" />
+                                        <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Center" />
                                         <asp:HyperLinkField DataNavigateUrlFields="CveCliente" DataNavigateUrlFormatString="~/Ventas/Clientes.aspx?CveCliente={0}" Target="_blank" HeaderText="Cliente" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="Nombre" />
                                         <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
-                                        <asp:BoundField HeaderText="Sucursal" DataField="SubProyecto" />
+                                        <asp:BoundField HeaderText="Sucursal" DataField="SubProyecto" ItemStyle-Width="100px" />
+                                        <asp:BoundField HeaderText="Médico" DataField="Medico" Visible="false" />
+                                        <asp:BoundField HeaderText="Procedimiento" DataField="Procedimiento"   Visible="false" />
                                     </Columns>
                                 </asp:GridView>
                             </ContentTemplate>
diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb
index fb5cdbac1..b267fc391 100644
--- a/Inventarios/RepNotasSinAlmacen.aspx.vb
+++ b/Inventarios/RepNotasSinAlmacen.aspx.vb
@@ -74,7 +74,16 @@ Partial Class RepNotasSinAlmacen
         Dim TienePermisoDesmarcar As Boolean = UsuarioActual.TienePermisoProceso(278)
         GvVentas.Columns(5).Visible = TienePermisoImportes
         GvCompras.Columns(4).Visible = TienePermisoImportes
-        GvCompras.Columns(5).Visible = TienePermisoDesmarcar
+        GvCompras.Columns(5).Visible = TienePermisoDesmarcar
+
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then ' es empresa hospitalaria
+            GvVentas.Columns(3).HeaderText = "Hospital"
+            GvVentas.Columns(6).Visible = True
+            GvVentas.Columns(7).Visible = True
+            CType(GvVentas.Columns(2), BoundField).DataFormatString = "{0:dd/MM/yyyy HH:mm}"
+            CType(GvVentas.Columns(2), BoundField).ItemStyle.Width = Unit.Pixel(120)
+        End If
+
     End Sub
     Private Sub CargaCombos()
         TxtFechaF.Text = NowADS().ToShortDateString
@@ -88,18 +97,10 @@ Partial Class RepNotasSinAlmacen
         DdlProveedor.setEsWebService(True)
         DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
         DdlProveedor.SelectedText = "Todos"
-        DdlProveedor.SelectedValue = "-1"
-
-        'DdlSucursal.DataSource = GlobalDTSucursales(UsuarioActual.CveEmpresa)
-        'DdlSucursal.DataBind()
-
-        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
-        'DdlSubProyecto.Items.Clear()
-        'DdlSubProyecto.SelectedValue = Nothing
-        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
-        'DdlSubProyecto.DataBind()
-
-        'DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
+        DdlProveedor.SelectedValue = "-1"
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
     End Sub
 
     Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
@@ -131,13 +132,8 @@ Partial Class RepNotasSinAlmacen
                 GvVentas.DataSource = Nothing
             End If
 
-            GvVentas.DataBind()
-
-            'If (GvVentas.Rows.Count > 0) Then
-            '    GvVentas.UseAccessibleHeader = True
-            '    GvVentas.HeaderRow.TableSection = TableRowSection.TableHeader
-            '    RegistraScript("OrdenarGvVentas();")
-            'End If
+            GvVentas.DataBind()
+
         Else
             'Compras
             If Not DdlProveedor.SelectedValue.ToEntero > 0 Then