--Liga a kardex en cotizaciones

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