diff --git a/Contratos/RepPresupuestos.aspx b/Contratos/RepPresupuestos.aspx index 8353386b1..ba7cfd71f 100644 --- a/Contratos/RepPresupuestos.aspx +++ b/Contratos/RepPresupuestos.aspx @@ -329,9 +329,10 @@ - - - + + + +
AgrupadorAutorizadoEjercidoPor EjercerAutorizadoEjercidoPor EjercerPagado
@@ -340,11 +341,12 @@ <%-- - - + + - + +
@@ -359,85 +361,113 @@ - - - - - - - - - - - - - + + + + + + + + + + + + + +
AgrupadorAutorizadoEneroFebreroMarzoAbrilMayoJunioJulioAgostoSeptiembreOctubreNoviembreDiciembreAutorizadoEneroFebreroMarzoAbrilMayoJunioJulioAgostoSeptiembreOctubreNoviembreDiciembreTotal
- + + + <%-- --%> + + <%-- --%> + + <%-- --%> - + + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + + diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index 52e95a10b..c49216d9b 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -344,6 +344,9 @@ Partial Class Contratos_RepPresupuestos If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then e.Row.Cells(5).Text = "-" End If + If e.Row.DBCampo("Pagado").ToDecimal = 0 Then + e.Row.Cells(6).Text = "-" + End If If e.Row.RowIndex > 0 Then Dim CveAgrupador = e.Row.DBCampo("CveAgrupador").ToEntero @@ -387,50 +390,94 @@ Partial Class Contratos_RepPresupuestos End Select If e.Row.DBCampo("EneroEjercido").ToDecimal = 0 Then - e.Row.Cells(2).Text = "-" + e.Row.Cells(3).Text = "-" + End If + If e.Row.DBCampo("EneroPagado").ToDecimal = 0 Then + e.Row.Cells(5).Text = "-" End If If e.Row.DBCampo("FebreroEjercido").ToDecimal = 0 Then - e.Row.Cells(4).Text = "-" + e.Row.Cells(7).Text = "-" + End If + If e.Row.DBCampo("FebreroPagado").ToDecimal = 0 Then + e.Row.Cells(9).Text = "-" End If If e.Row.DBCampo("MarzoEjercido").ToDecimal = 0 Then - e.Row.Cells(6).Text = "-" + e.Row.Cells(11).Text = "-" + End If + If e.Row.DBCampo("MarzoPagado").ToDecimal = 0 Then + e.Row.Cells(13).Text = "-" End If If e.Row.DBCampo("AbrilEjercido").ToDecimal = 0 Then - e.Row.Cells(8).Text = "-" + e.Row.Cells(15).Text = "-" + End If + If e.Row.DBCampo("AbrilPagado").ToDecimal = 0 Then + e.Row.Cells(17).Text = "-" End If If e.Row.DBCampo("MayoEjercido").ToDecimal = 0 Then - e.Row.Cells(10).Text = "-" + e.Row.Cells(19).Text = "-" + End If + If e.Row.DBCampo("MayoPagado").ToDecimal = 0 Then + e.Row.Cells(21).Text = "-" End If If e.Row.DBCampo("JunioEjercido").ToDecimal = 0 Then - e.Row.Cells(12).Text = "-" + e.Row.Cells(23).Text = "-" + End If + If e.Row.DBCampo("JunioPagado").ToDecimal = 0 Then + e.Row.Cells(25).Text = "-" End If If e.Row.DBCampo("JulioEjercido").ToDecimal = 0 Then - e.Row.Cells(14).Text = "-" + e.Row.Cells(27).Text = "-" + End If + If e.Row.DBCampo("JulioPagado").ToDecimal = 0 Then + e.Row.Cells(29).Text = "-" End If If e.Row.DBCampo("AgostoEjercido").ToDecimal = 0 Then - e.Row.Cells(16).Text = "-" + e.Row.Cells(31).Text = "-" + End If + If e.Row.DBCampo("AgostoPagado").ToDecimal = 0 Then + e.Row.Cells(33).Text = "-" End If If e.Row.DBCampo("SeptiembreEjercido").ToDecimal = 0 Then - e.Row.Cells(18).Text = "-" + e.Row.Cells(35).Text = "-" + End If + If e.Row.DBCampo("SeptiembrePagado").ToDecimal = 0 Then + e.Row.Cells(37).Text = "-" End If If e.Row.DBCampo("OctubreEjercido").ToDecimal = 0 Then - e.Row.Cells(20).Text = "-" + e.Row.Cells(39).Text = "-" + End If + If e.Row.DBCampo("OctubrePagado").ToDecimal = 0 Then + e.Row.Cells(41).Text = "-" End If If e.Row.DBCampo("NoviembreEjercido").ToDecimal = 0 Then - e.Row.Cells(22).Text = "-" + e.Row.Cells(43).Text = "-" + End If + If e.Row.DBCampo("NoviembrePagado").ToDecimal = 0 Then + e.Row.Cells(45).Text = "-" End If If e.Row.DBCampo("DiciembreEjercido").ToDecimal = 0 Then - e.Row.Cells(24).Text = "-" + e.Row.Cells(47).Text = "-" + End If + If e.Row.DBCampo("DiciembrePagado").ToDecimal = 0 Then + e.Row.Cells(49).Text = "-" + End If + + If e.Row.DBCampo("TotalEjercido").ToDecimal = 0 Then + e.Row.Cells(50).Text = "-" + End If + + If e.Row.DBCampo("TotalPagado").ToDecimal = 0 Then + e.Row.Cells(52).Text = "-" End If If e.Row.RowIndex > 0 Then diff --git a/Contratos/RepPresupuestosDetalle.aspx b/Contratos/RepPresupuestosDetalle.aspx index 7bf7d886b..05b3668d8 100644 --- a/Contratos/RepPresupuestosDetalle.aspx +++ b/Contratos/RepPresupuestosDetalle.aspx @@ -247,9 +247,10 @@ - - - + + + +
AgrupadorAutorizadoEjercidoPor EjercerAutorizadoEjercidoPor EjercerPagado
@@ -257,12 +258,13 @@ <%-- - - - + + + - + +
@@ -277,85 +279,113 @@ - - - - - - - - - - - - - + + + + + + + + + + + + + +
AgrupadorAutorizadoEneroFebreroMarzoAbrilMayoJunioJulioAgostoSeptiembreOctubreNoviembreDiciembreAutorizadoEneroFebreroMarzoAbrilMayoJunioJulioAgostoSeptiembreOctubreNoviembreDiciembreTotal
- + + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + + diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index 8c69e0060..c68bd35ff 100644 --- a/Contratos/RepPresupuestosDetalle.aspx.vb +++ b/Contratos/RepPresupuestosDetalle.aspx.vb @@ -164,6 +164,9 @@ Partial Class Contratos_RepPresupuestosDetalle If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then e.Row.Cells(5).Text = "-" End If + If e.Row.DBCampo("Pagado").ToDecimal = 0 Then + e.Row.Cells(6).Text = "-" + End If If e.Row.RowIndex > 0 Then Dim CveAgrupador = e.Row.DBCampo("CveAgrupador").ToEntero Dim EsProyecto = False @@ -195,50 +198,94 @@ Partial Class Contratos_RepPresupuestosDetalle End Select If e.Row.DBCampo("EneroEjercido").ToDecimal = 0 Then - e.Row.Cells(2).Text = "-" + e.Row.Cells(3).Text = "-" + End If + If e.Row.DBCampo("EneroPagado").ToDecimal = 0 Then + e.Row.Cells(5).Text = "-" End If If e.Row.DBCampo("FebreroEjercido").ToDecimal = 0 Then - e.Row.Cells(4).Text = "-" + e.Row.Cells(7).Text = "-" + End If + If e.Row.DBCampo("FebreroPagado").ToDecimal = 0 Then + e.Row.Cells(9).Text = "-" End If If e.Row.DBCampo("MarzoEjercido").ToDecimal = 0 Then - e.Row.Cells(6).Text = "-" + e.Row.Cells(11).Text = "-" + End If + If e.Row.DBCampo("MarzoPagado").ToDecimal = 0 Then + e.Row.Cells(13).Text = "-" End If If e.Row.DBCampo("AbrilEjercido").ToDecimal = 0 Then - e.Row.Cells(8).Text = "-" + e.Row.Cells(15).Text = "-" + End If + If e.Row.DBCampo("AbrilPagado").ToDecimal = 0 Then + e.Row.Cells(17).Text = "-" End If If e.Row.DBCampo("MayoEjercido").ToDecimal = 0 Then - e.Row.Cells(10).Text = "-" + e.Row.Cells(19).Text = "-" + End If + If e.Row.DBCampo("MayoPagado").ToDecimal = 0 Then + e.Row.Cells(21).Text = "-" End If If e.Row.DBCampo("JunioEjercido").ToDecimal = 0 Then - e.Row.Cells(12).Text = "-" + e.Row.Cells(23).Text = "-" + End If + If e.Row.DBCampo("JunioPagado").ToDecimal = 0 Then + e.Row.Cells(25).Text = "-" End If If e.Row.DBCampo("JulioEjercido").ToDecimal = 0 Then - e.Row.Cells(14).Text = "-" + e.Row.Cells(27).Text = "-" + End If + If e.Row.DBCampo("JulioPagado").ToDecimal = 0 Then + e.Row.Cells(29).Text = "-" End If If e.Row.DBCampo("AgostoEjercido").ToDecimal = 0 Then - e.Row.Cells(16).Text = "-" + e.Row.Cells(31).Text = "-" + End If + If e.Row.DBCampo("AgostoPagado").ToDecimal = 0 Then + e.Row.Cells(33).Text = "-" End If If e.Row.DBCampo("SeptiembreEjercido").ToDecimal = 0 Then - e.Row.Cells(18).Text = "-" + e.Row.Cells(35).Text = "-" + End If + If e.Row.DBCampo("SeptiembrePagado").ToDecimal = 0 Then + e.Row.Cells(37).Text = "-" End If If e.Row.DBCampo("OctubreEjercido").ToDecimal = 0 Then - e.Row.Cells(20).Text = "-" + e.Row.Cells(39).Text = "-" + End If + If e.Row.DBCampo("OctubrePagado").ToDecimal = 0 Then + e.Row.Cells(41).Text = "-" End If If e.Row.DBCampo("NoviembreEjercido").ToDecimal = 0 Then - e.Row.Cells(22).Text = "-" + e.Row.Cells(43).Text = "-" + End If + If e.Row.DBCampo("NoviembrePagado").ToDecimal = 0 Then + e.Row.Cells(45).Text = "-" End If If e.Row.DBCampo("DiciembreEjercido").ToDecimal = 0 Then - e.Row.Cells(24).Text = "-" + e.Row.Cells(47).Text = "-" + End If + If e.Row.DBCampo("DiciembrePagado").ToDecimal = 0 Then + e.Row.Cells(49).Text = "-" + End If + + If e.Row.DBCampo("TotalEjercido").ToDecimal = 0 Then + e.Row.Cells(50).Text = "-" + End If + + If e.Row.DBCampo("TotalPagado").ToDecimal = 0 Then + e.Row.Cells(52).Text = "-" End If If e.Row.RowIndex > 0 Then