GDiaz Pendientes de implementación 2025-01-10

Inventarios/Kardex.aspx.vb

@@ -315,7 +315,7 @@ Partial Class Inventarios_Kardex
         End If
         Dim ObjOC As New ClsOC
         If ObjOC.PendientesCompra(ddlProducto2.SelectedValue.ToEntero, tCveSubProyectos, UsuarioActual.CveEmpresa) Then
-            GvOC.DataSource = ObjOC.DtResultados.Copy
+            GvOC.DataSource = ObjOC.DtResultados.Copy.FiltraParametros("", "Fecha Desc")
             LnkIndicador_OC.Text = ObjOC.DtResultados.Copy.SUM("CantidadPendienteVincular").ToString()
         End If
         ObjOC.Dispose()

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -9,9 +9,23 @@ Imports Telerik.Web.UI
 Partial Class Inventarios_KardexAlmacenHorizontal
     Inherits ClsPaginas
 
+    Private Property TienePermisoKardex As Boolean
+        Get
+            If ViewState("TienePermisoKardex") Is Nothing Then
+                ViewState("TienePermisoKardex") = False
+            End If
+
+            Return Boolean.Parse(ViewState("TienePermisoKardex").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("TienePermisoKardex") = value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             'TxtFechaI.Text =  NowADS().AddMonths(-1).ToShortDateString
+            TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
             TxtFechaF.Text = NowADS().ToShortDateString
             CargaCombos()
             ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -241,7 +255,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
                 Dim Celda As String = Cells.Text
                 If IsNumeric(Celda) Then
                     Dim CveAlmacen2 As Integer = -1
-                    If Index >= 5 Then
+                    If Index >= 4 Then
                         Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c)
                         If Array.Length > 1 Then
                             CveAlmacen2 = Array(1).ToEntero
@@ -270,7 +284,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
                             Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
                         Else
                             Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
-                            If Not e.Row.RowIndex = 0 And Ddlgrupo.SelectedValue.ToEntero = 1 Then
+                            If Not e.Row.RowIndex = 0 And Ddlgrupo.SelectedValue.ToEntero = 1 AndAlso TienePermisoKardex Then
                                 Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={txtFechaI.Text}&FechaF={TxtFechaF.Text}")
                                 Cells.Text = String.Format("<a target='_blank' href=""{1}"">{0}</a>", Celda.FormatoNumero(), Liga2)
                             End If