Reporte de Pedidos liga a venta si tiene permiso, RepAlmacen obs grupo medico, KArdex Almacen horizontal fix segunda consulta

Ventas/RepPedidosSTF.aspx.vb

@@ -150,6 +150,11 @@ Partial Class Ventas_RepPedidosSTF
 
             If e.Row.DBCampo("TipoRenglon") = "1" Then e.Row.CssClass = "SubTotales"
 
+            If UsuarioActual.TienePermisoPagina(6) Then
+                e.Row.Cells(1).Text = $"<a href='./Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}' target='_blank' class ='Texto' >{e.Row.DataKey("SerieFolio")}</a>"
+            End If
+
+
         End If
 
         If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
@@ -444,4 +449,16 @@ Partial Class Ventas_RepPedidosSTF
         UpBodyHorariosPedidos.Update()
         RegistraScript("$('#divHorariosPedidos').modal({ backdrop: 'static',  keyboard: false});")
     End Sub
+
+    Protected Sub GvE_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If UsuarioActual.TienePermisoPagina(6) Then
+                e.Row.Cells(1).Text = $"<a href='./Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}' target='_blank' class ='Texto' >{e.Row.DataKey("SerieFolio")}</a>"
+            End If
+        End If
+
+
+
+    End Sub
 End Class