AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios en el reporte de presupuestos

Browse Source
This commit is contained in:
Raul Pimienta
2019-12-28 22:41:41 -07:00
parent ed568cf7b4
commit 0159bd4609
4 changed files with 220 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
Contratos/RepPresupuestos.aspx.vb
View File

@@ -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