diff --git a/Contratos/RepPresupuestosDetalle.aspx b/Contratos/RepPresupuestosDetalle.aspx
index 35ed80fe3..b30af087b 100644
--- a/Contratos/RepPresupuestosDetalle.aspx
+++ b/Contratos/RepPresupuestosDetalle.aspx
@@ -247,7 +247,8 @@
                 <table class="table  Widthall ">
                     <tr>
                         <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 20%; border-right: 3px solid white;">Agrupador</td>
-                        <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 15%; border-right: 3px solid white;">Autorizado</td>
+                        <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 10%; border-right: 3px solid white;">Autorizado</td>
+                        <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 10%; border-right: 3px solid white;">Comprometido</td>
                         <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 25%; border-right: 3px solid white;">Ejercido</td>
                         <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 25%; border-right: 3px solid white;">Por Ejercer</td>
                         <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 15%; border-right: 3px solid white;">Pagado</td>
@@ -259,7 +260,8 @@
                             <Columns>
                                 <%--<asp:HyperLinkField HeaderText="Descripcion" DataTextField="Agrupador" ItemStyle-Width="20%"--%>
                                  <asp:BoundField HeaderText="Descripcion" DataField="Agrupador" ItemStyle-Width="20%" />
-                                <asp:BoundField HeaderText="Importe" DataField="Autorizado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
+                                <asp:BoundField HeaderText="Importe" DataField="Autorizado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
+                                <asp:BoundField HeaderText="Comprometido" DataField="Comprometido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
                                 <asp:BoundField HeaderText="Importe" DataField="Ejercido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
                                 <asp:BoundField HeaderText="%" DataField="EjercidoPorcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
                                 <asp:BoundField HeaderText="Importe" DataField="PorEjercer" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb
index 06966b86a..5788852bb 100644
--- a/Contratos/RepPresupuestosDetalle.aspx.vb
+++ b/Contratos/RepPresupuestosDetalle.aspx.vb
@@ -87,14 +87,15 @@ Partial Class Contratos_RepPresupuestosDetalle
         Gpo = IfNull(Request("CveAgrupador"), -1).ToString.ToEntero
         Dim Mensual = CBool(IfNull(Request("Mensual"), False))
         Dim EsProyecto = CBool(IfNull(Request("EsProyecto"), False))
-        If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1
+        'If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1
         DdlAgrupador.SelectedValueExist(Agrupador)
-        DdlClasificacion.SelectedValueExist(CveClasificacion)
-        If DdlAgrupador.SelectedValue.ToEntero = 2 Then
+        DdlClasificacion.SelectedValueExist(CveClasificacion)
+
+        If DdlAgrupador.SelectedValue.ToEntero = 1 Then
             DdlClasificacion.SelectedValueExist(Gpo)
             DdlProyecto.SelectedValueExist(CveProyecto)
             DdlSubProyecto.SelectedValueExist(CveSubProyecto)
-        ElseIf DdlAgrupador.SelectedValue.ToEntero = 1 Then
+        ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then
             If Not EsProyecto Then
                 Dim Dr As DataRow = GlobalDTSubProyectos(-1, Gpo)(0)
                 DdlProyecto.SelectedValueExist(Dr("CveProyecto"))
@@ -158,20 +159,20 @@ Partial Class Contratos_RepPresupuestosDetalle
                 e.Row.Cells(1).Text = "-"
             End If
             If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then
-                e.Row.Cells(2).Text = "-"
-            End If
-            If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then
                 e.Row.Cells(3).Text = "-"
             End If
-            If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then
+            If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then
                 e.Row.Cells(4).Text = "-"
             End If
-            If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then
+            If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then
                 e.Row.Cells(5).Text = "-"
             End If
-            If e.Row.DBCampo("Pagado").ToDecimal = 0 Then
+            If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then
                 e.Row.Cells(6).Text = "-"
             End If
+            If e.Row.DBCampo("Pagado").ToDecimal = 0 Then
+                e.Row.Cells(7).Text = "-"
+            End If
             If e.Row.RowIndex > 0 Then
                 Dim CveAgrupador = e.Row.DBCampo("CveAgrupador").ToEntero
                 Dim EsProyecto = False
@@ -185,9 +186,13 @@ Partial Class Contratos_RepPresupuestosDetalle
                     End If
                     EsProyecto = True
                 End If
-                Dim Css = "Texto"
+                Dim Css = "Texto"
+
                 Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}"
                 e.Row.Cells(0).Text = "<a class=" + "" + Css + "" + " href=" + "" + Liga + "" + ">" + e.Row.Cells(0).Text + "</a>"
+
+                Dim LigaComprometido = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}&Comprometido=1"
+                e.Row.Cells(2).Text = "<a class=" + "" + Css + "" + " href=" + "" + LigaComprometido + "" + ">" + e.Row.Cells(2).Text + "</a>"
             End If
         End If
     End Sub