-- columnas de SMS

Ventas/RepRemisiones.aspx.vb

@@ -97,10 +97,10 @@ Partial Class RepRemisiones
         End If
 
         If DtVentas IsNot Nothing Then
-            GvDatos.Columns(7).Visible = DtVentas.SUMD("Descuento") > 0
+            GvDatos.Columns(10).Visible = DtVentas.SUMD("Descuento") > 0
         End If
 
-        GvDatos.Columns(10).Visible = chkInv.Checked 'solo se visualiza si está selccionada
+        GvDatos.Columns(13).Visible = chkInv.Checked 'solo se visualiza si está selccionada
         ObjVentas.Dispose()
 
         GvDatos.DataBind()
@@ -118,16 +118,12 @@ Partial Class RepRemisiones
                 e.Row.CssClass = "SubTotales2"
                 e.Row.Font.Bold = True
                 e.Row.Attributes.Add("style", "background:#CCCCCC !important")
-            Else
-                e.Row.FCLiteral("LtlFolio").Text = "<a class=""Texto"" target=""_blank"" href=""/Ventas/RepRemisionesDetalle.aspx?CveVenta=" & e.Row.DBCampo("CveVenta") & """>" & e.Row.FCLiteral("LtlFolio").Text & "</a>"
-                e.Row.FCLiteral("LtlFecha").Text = "<a class=""Texto"" target=""_blank"" href=""/Ventas/Ventas.aspx?CveVenta=" & e.Row.DBCampo("CveVenta") & """>" & e.Row.FCLiteral("LtlFecha").Text & "</a>"
-
+            Else
                 If e.Row.DBCampo("FechaVencimiento").ToDate < NowADS() Then
                     ' e.Row.Cells(2).CssClass = "danger"
                     e.Row.Cells(2).ForeColor = Drawing.Color.Red
-                End If
-
-                e.Row.Cells(5).Text = e.Row.Cells(5).Text + "%"
+                End If
+
             End If
             e.Row.FCLiteral("LtlTotal").Text = "<a class=""Texto"" target=""_blank"" href=""/Ventas/RepRemisionesDetalle.aspx?CveVenta=" & e.Row.DBCampo("CveVenta") & "&FechaI=" & FechaI & "&FechaF=" & FechaF & "&FechaV=" & FechaV & "&CveCliente=" & If(e.Row.DBCampo("CveCliente").ToString().ToEntero() > 0, e.Row.DBCampo("CveCliente").ToString(), DdlClientes.SelectedValue) & "&CveContrato=" & CveContrato & "&CveSubProyecto=" & Sucursales & "&CveMoneda=" & e.Row.DBCampo("CveMoneda") & """>" & e.Row.FCLiteral("LtlTotal").Text & "</a>"
 
@@ -137,28 +133,28 @@ Partial Class RepRemisiones
 
 #Region "CARGA COMBOS FILTRO"
     Private Sub CargaCliente()
-        'CargaClientes
-        'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
-        'If EsWS Then
+
         DdlClientes.setEsWebService(True)
-        ' Else
-        'DdlClientes.setEsWebService(False)
-        'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-        'DdlClientes.DataBind()
-        'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-        'End If
-
         If UsuarioActual.TienePermisoProceso(201) Then
             divVerInv.Visible = True
+        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then ' es empresa hospitalaria
+            GvDatos.Columns(3).HeaderText = "Hospital"
+            GvDatos.Columns(5).Visible = True
+            GvDatos.Columns(6).Visible = True
+            'columna de fecha
+            GvDatos.Columns(1).HeaderText = "Fecha Cirugía"
+            CType(GvDatos.Columns(1), HyperLinkField).DataTextFormatString = "{0:dd/MM/yyyy HH:mm}"
+            CType(GvDatos.Columns(1), HyperLinkField).ItemStyle.Width = Unit.Pixel(120)
         End If
 
-
     End Sub
     Private Sub CargaSucursales()
 
         DdlSubProyectos.DataSource() = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyectos.DataBind()
-        'DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSubProyectos.DataBind()
+
     End Sub
 
     Private Sub CargaContrato()