-- cambios SMS

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