diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb
index a5899031b..3c0f7b656 100644
--- a/App_Code/ClsContratos.vb
+++ b/App_Code/ClsContratos.vb
@@ -3246,7 +3246,7 @@ Public Class ClsContratos
 
         Return Retorno
     End Function
-    Public Function GetPresupuestosRepDetalleCompras(CveProyecto As Integer, CveSubProyecto As Integer, CveAgrupador As Integer, CveTipoGasto As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
+    Public Function GetPresupuestosRepDetalleCompras(CveProyecto As Integer, CveSubProyecto As Integer, CveAgrupador As Integer, CveTipoGasto As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveUsuario As Integer, Optional Comprometido As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_PresupuestosRepDetalleCompra")
@@ -3259,6 +3259,7 @@ Public Class ClsContratos
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuario
+            .Add("@Comprometido", SqlDbType.Bit).Value = Comprometido
         End With
 
         Try
diff --git a/Contratos/RepPresupuestosDetalleCompras.aspx.vb b/Contratos/RepPresupuestosDetalleCompras.aspx.vb
index 08d386d3f..f1dafa0e4 100644
--- a/Contratos/RepPresupuestosDetalleCompras.aspx.vb
+++ b/Contratos/RepPresupuestosDetalleCompras.aspx.vb
@@ -2,11 +2,14 @@
 Option Strict On
 Imports System.Data
 Imports Extensiones
+Imports Org.BouncyCastle.Asn1.Ocsp
 Partial Class Contratos_RepPresupuestosDetalleCompras
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
+
+
 #Region "P R O P I E D A D E S"
-
+
     Public Property Gpo() As Integer
         Get
             Return DirectCast(ViewState("Gpo"), Integer)
@@ -14,8 +17,20 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
         Set(ByVal value As Integer)
             ViewState("Gpo") = value
         End Set
-    End Property
-
+    End Property
+
+    Public Property Comprometido As Boolean
+        Get
+            If ViewState("Comprometido") Is Nothing Then
+                ViewState("Comprometido") = False
+            End If
+            Return Boolean.Parse(ViewState("Comprometido").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("Comprometido") = value
+        End Set
+    End Property
+
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
@@ -25,8 +40,8 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
             CargaDatos()
 
         End If
-    End Sub
-
+    End Sub
+
 #Region "  INICIALIZA VALORES  "
     Private Sub InicializaValores()
 
@@ -71,7 +86,11 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
         Dim CveProyecto = IfNull(Request("CveProyecto"), -1).ToString.ToEntero
         Dim CveSubProyecto = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
         Dim CveTipoGasto = IfNull(Request("CveTipoGasto"), -1).ToString.ToEntero
-        Dim Agrupador = IfNull(Request("Agrupador"), -1).ToString.ToEntero
+        Dim Agrupador = IfNull(Request("Agrupador"), -1).ToString.ToEntero
+
+        Comprometido = If(Request("Comprometido") IsNot Nothing AndAlso Request("Comprometido").ToEntero = 1, True, False)
+
+
         Gpo = IfNull(Request("CveAgrupador"), -1).ToString.ToEntero
         Dim EsProyecto = CBool(IfNull(Request("EsProyecto"), False))
         If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1
@@ -106,7 +125,8 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
     End Sub
     Private Sub CargaDatos()
         Dim ObjPresupuestos As New ClsContratos
-        If ObjPresupuestos.GetPresupuestosRepDetalleCompras(DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlTipoGasto.SelectedValue.ToEntero, TxtFiltrosFechaInicio.Text.ToDate, TxtFiltrosFechaFin.Text.ToDate, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If ObjPresupuestos.GetPresupuestosRepDetalleCompras(DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlTipoGasto.SelectedValue.ToEntero, TxtFiltrosFechaInicio.Text.ToDate,
+                                                            TxtFiltrosFechaFin.Text.ToDate, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Comprometido:=Comprometido) Then
             GvDatos.DataSource = ObjPresupuestos.DtResultados
         End If
         ObjPresupuestos.Dispose()
@@ -131,15 +151,21 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
                 Dim Liga = ""
                 Dim Css = "Texto"
 
-                Dim TipoAgrupador As Integer = e.Row.DBCampo("TipoAgrupador").ToEntero()
-                Select Case TipoAgrupador
-                    Case 1
-                        Liga = $"/Compras/Compras.aspx?&CveCompra={e.Row.DBCampo("CveCompra")}"
-                    Case 2
-                        Liga = $"/Contabilidad/RegPrePoliza.aspx?&CvePrePoliza={e.Row.DBCampo("CveCompra")}"
-                    Case Else
+
+                If Comprometido Then
+                    Liga = $"/OC/OC.aspx?OC={e.Row.DBCampo("CveOrdenCompra")}"
+                Else
+                    Dim TipoAgrupador As Integer = e.Row.DBCampo("TipoAgrupador").ToEntero()
+                    Select Case TipoAgrupador
+                        Case 1
+                            Liga = $"/Compras/Compras.aspx?&CveCompra={e.Row.DBCampo("CveCompra")}"
+                        Case 2
+                            Liga = $"/Contabilidad/RegPrePoliza.aspx?&CvePrePoliza={e.Row.DBCampo("CveCompra")}"
+                        Case Else
+
+                    End Select
+                End If
 
-                End Select
                 e.Row.Cells(0).Text = "<a target=""_blank"" class=" + "" + Css + "" + " href=" + "" + Liga + "" + ">" + e.Row.Cells(0).Text + "</a>"
             End If
         End If