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

OC/OC.aspx

@@ -998,6 +998,7 @@
                                                     </span>
                                                     <br />
                                                     <asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS") %>'></asp:Label>
+                                                    <asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("PS") %>' Visible="false" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
                                                 <EditItemTemplate>
                                                     <asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="form-control input-sm select2me" Style="width: 100%; max-width: 600px;" OnSelectedIndexChanged="DdlClasificacion_SelectedIndexChanged1">

OC/OC.aspx.vb

@@ -671,6 +671,19 @@ Partial Class OC_OC
         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
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -684,6 +697,8 @@ Partial Class OC_OC
                 EsGrupoDiaz = True
             End If
 
+            TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
+
             CargaDatosAgregarPS()
             CveProveedorOriginal = -1
             InventarioPrePoliza176 = 0
@@ -4096,6 +4111,12 @@ Partial Class OC_OC
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
+            If TienePermisoKardex AndAlso e.Row.RowState = DataControlRowState.Normal Then
+                e.Row.FCLabel("LblPS").Visible = False
+                e.Row.FCHyperLink("HlPS").Visible = True
+                e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DBCampo("CvePS").ToString}"
+            End If
+
             Try
                 If e.Row.FCLabel("LtlCantidad") IsNot Nothing Then
                     e.Row.FCLabel("LtlCantidad").Attributes.Add("data-toggle", "tooltip")
@@ -4316,6 +4337,7 @@ Partial Class OC_OC
             End If
 
 
+
         End If
     End Sub
     Protected Sub GvD_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvD.RowDeleting