diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index ccdc66d0c..50e8adb81 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1357,6 +1357,7 @@
                                                         </span>
                                                         <br />
                                                         <asp:Label ID="LblPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Label>
+                                                        <asp:Hyperlink ID="HLPS" runat="server" Visible="false" Target="_blank" Text='<%# Eval("CodigoPS") %>'></asp:Hyperlink>
                                                     </ItemTemplate>
                                                     <EditItemTemplate>
                                                         <asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" OnSelectedIndexChanged="DdlClasificacion_SelectedIndexChanged1" CssClass="select2me">
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5801685e7..5a370980a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9084,6 +9084,16 @@ Partial Class Ventas
                         End If
                     End If
 
+
+                    If DdlTipoComprobante.SelectedValue.Contiene("Cot") Then
+                        e.Row.FCHyperLink("HLPS").Visible = True
+                        e.Row.FCLabel("LblPS").Visible = False
+                        e.Row.FCHyperLink("HLPS").NavigateUrl = String.Format("/Inventarios/Kardex.aspx?CveSubProyecto={0}", DdlSubProyectoDatos.SelectedValue.ToEntero())
+                    Else
+                        e.Row.FCHyperLink("HLPS").Visible = False
+                        e.Row.FCLabel("LblPS").Visible = True
+                    End If
+
                 End If
 
                 If CveVenta <= 0 Then