Liga a Kardex en Gvs OC GVPS, Compras GvInv GvInvMovtos, Ventas GvInv

Compras/Compras.aspx.vb

@@ -1228,6 +1228,19 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    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
+
     Private Property CveCompraDRMC As Integer
         Get
             If ViewState("CveCompraDRMC") Is Nothing Then
@@ -1246,6 +1259,7 @@ Partial Class Compras_Compras
             'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
             'ImgBtnBuscarOC.Attributes.Add("data-placement", "top")
             EsGrupoDiaz = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False)
+            TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
 
             CargaDatosAgregarPS()
             TieneAnticiposXML = False
@@ -11252,6 +11266,14 @@ Partial Class Compras_Compras
     Protected Sub GVINV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound
 
         If e.Row.RowType = DataControlRowType.DataRow Then
+
+
+            If TienePermisoKardex Then
+                e.Row.FCLiteral("LtlPS").Visible = False
+                e.Row.FCHyperLink("HlPS").Visible = True
+                e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}"
+            End If
+
             Dim AplicaLote As Boolean = e.Row.DBCampo("AplicaLote").ToBool
             Dim AplicaCaducidad As Boolean = e.Row.DBCampo("AplicaCaducidad").ToBool
 
@@ -19619,6 +19641,13 @@ Partial Class Compras_Compras
                     e.Row.Font.Bold = True
                 End If
             Else
+
+                If TienePermisoKardex Then
+                    e.Row.FCLiteral("LtlPS").Visible = False
+                    e.Row.FCHyperLink("HlPS").Visible = True
+                    e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}"
+                End If
+
                 e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
             End If
         End If