- mejora visual columnas
This commit is contained in:
@@ -329,11 +329,10 @@
|
||||
<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: 10%; border-right: 3px solid white;">Autorizado</td>
|
||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 20%; border-right: 3px solid white;" runat="server" id="thComprometido" visible="false">En proceso de compra</td>
|
||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 12.5%; border-right: 3px solid white;">Autorizado</td>
|
||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 20%; border-right: 3px solid white;"><asp:Literal ID="LtlthEjercido" runat="server" Text="Ejercido"></asp:Literal></td>
|
||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 20%; 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>
|
||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 12.5%; border-right: 3px solid white;">Pagado</td>
|
||||
</tr>
|
||||
</table>
|
||||
<div class="row">
|
||||
@@ -342,13 +341,12 @@
|
||||
<Columns>
|
||||
<%--<asp:HyperLinkField HeaderText="Descripcion" DataTextField="Agrupador" ItemStyle-Width="20%"--%>
|
||||
<asp:BoundField HeaderText="Descripción" DataField="Agrupador" ItemStyle-Width="20%" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="Autorizado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="Comprometido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="20%" Visible="false" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="Autorizado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="12.5%" />
|
||||
<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="Right" ItemStyle-Width="5%" ItemStyle-Font-Size="7pt" ItemStyle-Font-Italic="true" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="PorEjercer" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
|
||||
<asp:BoundField HeaderText="%" DataField="PorEjercerPorcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" ItemStyle-Font-Size="7pt" ItemStyle-Font-Italic="true" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="Pagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="Pagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="12.5%" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
|
||||
@@ -62,7 +62,7 @@ Partial Class Contratos_RepPresupuestos
|
||||
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlProyecto.DataBind()
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then UsaComprometido = True
|
||||
If UsuarioActual.Empresa.Funcionalidad(532) = "2" Then UsaComprometido = True
|
||||
|
||||
CargaSubProyecto()
|
||||
UpFiltros.Update()
|
||||
@@ -92,9 +92,7 @@ Partial Class Contratos_RepPresupuestos
|
||||
Dim TieneDatos As Boolean = False
|
||||
|
||||
If UsaComprometido Then
|
||||
thComprometido.Visible = True
|
||||
GvDatos.Columns(2).Visible = True
|
||||
LtlthEjercido.Text = "Facturado"
|
||||
LtlthEjercido.Text = "En proceso de compra"
|
||||
End If
|
||||
|
||||
If Not EsMensual Then
|
||||
@@ -104,10 +102,14 @@ Partial Class Contratos_RepPresupuestos
|
||||
If ObjPresupuestos.DtResultados IsNot Nothing AndAlso ObjPresupuestos.DtResultados.Rows.Count > 0 Then
|
||||
TieneDatos = True
|
||||
End If
|
||||
|
||||
DtPresupuestos = ObjPresupuestos.DtResultados
|
||||
DtPresupuestos = ObjPresupuestos.DtResultados
|
||||
If UsaComprometido Then
|
||||
DtPresupuestos.Columns.Remove("ejercido") : DtPresupuestos.Columns("comprometido").ColumnName = "ejercido"
|
||||
DtPresupuestos.Columns.Remove("EjercidoPorcentaje") : DtPresupuestos.Columns("comprometidoPorcentaje").ColumnName = "EjercidoPorcentaje"
|
||||
DtPresupuestos.Columns.Remove("PorEjercer") : DtPresupuestos.Columns("PorEjercercomprometido").ColumnName = "PorEjercer"
|
||||
DtPresupuestos.Columns.Remove("PorEjercerPorcentaje") : DtPresupuestos.Columns("PorEjercerPorcentajecomprometido").ColumnName = "PorEjercerPorcentaje"
|
||||
End If
|
||||
GvDatos.DataSource = DtPresupuestos
|
||||
|
||||
End If
|
||||
|
||||
ObjPresupuestos.Dispose()
|
||||
@@ -131,8 +133,6 @@ Partial Class Contratos_RepPresupuestos
|
||||
If ObjPresupuestos.DtResultados IsNot Nothing AndAlso ObjPresupuestos.DtResultados.Rows.Count > 0 Then
|
||||
TieneDatos = True
|
||||
End If
|
||||
|
||||
DtPresupuestos = ObjPresupuestos.DtResultados
|
||||
GvDatosMensual.DataSource = DtPresupuestos
|
||||
End If
|
||||
ObjPresupuestos.Dispose()
|
||||
@@ -329,12 +329,10 @@ Partial Class Contratos_RepPresupuestos
|
||||
Dim PorEjercerPorcentaje = DrPresupuesto("PorEjercerPorcentaje").ToString.ToDecimal
|
||||
|
||||
If UsaComprometido Then
|
||||
Ejercido = DrPresupuesto("Comprometido").ToString.ToDecimal
|
||||
' Ejercido = DrPresupuesto("Comprometido").ToString.ToDecimal
|
||||
PorEjercer = Autorizado - Ejercido
|
||||
EjercidoPorcentaje = If(Autorizado > 0, Ejercido / Autorizado * 100, 0)
|
||||
PorEjercerPorcentaje = If(Autorizado > 0, PorEjercer / Autorizado * 100, 0)
|
||||
thComprometido.Visible = True
|
||||
GvDatos.Columns(2).Visible = True
|
||||
End If
|
||||
|
||||
LtlAutorizado.Text = Autorizado.FormatoNumero
|
||||
@@ -342,15 +340,15 @@ Partial Class Contratos_RepPresupuestos
|
||||
LtlPorEjercer.Text = PorEjercer.FormatoNumero
|
||||
|
||||
PBEjercido.Style.Remove("width")
|
||||
PBEjercido.Style.Add("width", $"{EjercidoPorcentaje.ToString}%")
|
||||
PBEjercido.Style.Add("width", $"{EjercidoPorcentaje.ToString}%")
|
||||
|
||||
PBPorEjercer.Style.Remove("width")
|
||||
PBPorEjercer.Style.Add("width", $"{PorEjercerPorcentaje.ToString}%")
|
||||
PBPorEjercer.Style.Remove("width")
|
||||
PBPorEjercer.Style.Add("width", $"{PorEjercerPorcentaje.ToString}%")
|
||||
|
||||
LtlPorcentajeEjercido.Text = EjercidoPorcentaje.FormatoNumero + " %"
|
||||
LtlPorcentajePorEjercer.Text = PorEjercerPorcentaje.FormatoNumero + " %"
|
||||
LtlPorcentajeEjercido.Text = EjercidoPorcentaje.FormatoNumero + " %"
|
||||
LtlPorcentajePorEjercer.Text = PorEjercerPorcentaje.FormatoNumero + " %"
|
||||
|
||||
Dim json = New JArray(
|
||||
Dim json = New JArray(
|
||||
From dr In DtDatos
|
||||
Select New JObject(
|
||||
New JProperty("Agrupador", dr("Agrupador").ToString()),
|
||||
@@ -362,11 +360,11 @@ Partial Class Contratos_RepPresupuestos
|
||||
New JProperty("PorEjercerProporcion", dr("PorEjercerPorcentaje").ToString().ToDecimal()))
|
||||
)
|
||||
|
||||
HdnJsonProyecto.Value = json.ToString
|
||||
End If
|
||||
HdnJsonProyecto.Value = json.ToString
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
Else
|
||||
LtlAutorizado.Text = ""
|
||||
LtlEjercido.Text = ""
|
||||
LtlPorEjercer.Text = ""
|
||||
@@ -385,24 +383,21 @@ Partial Class Contratos_RepPresupuestos
|
||||
End Select
|
||||
If e.Row.DBCampo("Autorizado").ToDecimal = 0 Then
|
||||
e.Row.Cells(1).Text = "-"
|
||||
End If
|
||||
If e.Row.DBCampo("Comprometido").ToDecimal = 0 Then
|
||||
End If
|
||||
If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then
|
||||
e.Row.Cells(2).Text = "-"
|
||||
End If
|
||||
If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then
|
||||
If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then
|
||||
e.Row.Cells(3).Text = "-"
|
||||
End If
|
||||
If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then
|
||||
If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then
|
||||
e.Row.Cells(4).Text = "-"
|
||||
End If
|
||||
If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then
|
||||
If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then
|
||||
e.Row.Cells(5).Text = "-"
|
||||
End If
|
||||
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 = "-"
|
||||
e.Row.Cells(6).Text = "-"
|
||||
End If
|
||||
|
||||
If e.Row.RowIndex > 0 Then
|
||||
@@ -607,16 +602,13 @@ Partial Class Contratos_RepPresupuestos
|
||||
params.Add(New ReportParameter("PorEjercer", LtlPorEjercer.Text.FormatoNumero()))
|
||||
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(532) = "2" Then
|
||||
Dim DrPresupuesto = DtPresupuestos.FiltroPrimero("Tipo = 0 AND CveAgrupador IS NULL")
|
||||
Dim Comprometido = DrPresupuesto("Comprometido").ToString.ToDecimal
|
||||
params.Add(New ReportParameter("Ejercido", Comprometido.ToString.FormatoNumero()))
|
||||
Else
|
||||
params.Add(New ReportParameter("Ejercido", LtlEjercido.Text.FormatoNumero()))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'If UsuarioActual.Empresa.Funcionalidad(532) = "2" Then
|
||||
' Dim DrPresupuesto = DtPresupuestos.FiltroPrimero("Tipo = 0 AND CveAgrupador IS NULL")
|
||||
' 'Dim Comprometido = DrPresupuesto("Comprometido").ToString.ToDecimal
|
||||
' params.Add(New ReportParameter("Ejercido", Comprometido.ToString.FormatoNumero()))
|
||||
'Else
|
||||
params.Add(New ReportParameter("Ejercido", LtlEjercido.Text.FormatoNumero()))
|
||||
'End If
|
||||
|
||||
params.Add(New ReportParameter("PresupuestoRestrictivo", UsuarioActual.Empresa.Funcionalidad(532)))
|
||||
|
||||
|
||||
@@ -246,12 +246,11 @@
|
||||
<div id="DivRepDatos" runat="server" visible="false">
|
||||
<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: 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;">Agrupador</td>
|
||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 12.5%; border-right: 3px solid white;">Autorizado</td>
|
||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 25%; border-right: 3px solid white;"><asp:Literal ID="LtlthEjercido" runat="server" Text="Ejercido"></asp:Literal></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>
|
||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 12.5%; border-right: 3px solid white;">Pagado</td>
|
||||
</tr>
|
||||
</table>
|
||||
<div class="row">
|
||||
@@ -259,14 +258,13 @@
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="Sin resultados" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall ScrollAD" GridLines="None" data-sort="true">
|
||||
<Columns>
|
||||
<%--<asp:HyperLinkField HeaderText="Descripcion" DataTextField="Agrupador" ItemStyle-Width="20%"--%>
|
||||
<asp:BoundField HeaderText="Descripción" DataField="Agrupador" ItemStyle-Width="20%" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="Autorizado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="Comprometido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
|
||||
<asp:BoundField HeaderText="Descripción" DataField="Agrupador" ItemStyle-Width="25%" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="Autorizado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="12.5%" />
|
||||
<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%" />
|
||||
<asp:BoundField HeaderText="%" DataField="PorEjercerPorcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="Pagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="Pagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="12.5%" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
|
||||
@@ -25,10 +25,18 @@ Partial Class Contratos_RepPresupuestosDetalle
|
||||
Set(ByVal value As DataTable)
|
||||
ViewState("DtPresupuestos") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Property
|
||||
Public Property UsaComprometido() As Boolean
|
||||
Get
|
||||
Return DirectCast(ViewState("UsaComprometido"), Boolean)
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
ViewState("UsaComprometido") = 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
|
||||
|
||||
@@ -37,10 +45,12 @@ Partial Class Contratos_RepPresupuestosDetalle
|
||||
CargaDatos()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region " INICIALIZA VALORES "
|
||||
Private Sub InicializaValores()
|
||||
Private Sub InicializaValores()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(532) = "2" Then UsaComprometido = True Else UsaComprometido = False
|
||||
|
||||
TxtFiltrosFechaInicio.Text = $"01/09/{NowADS().Year - 1}"
|
||||
TxtFiltrosFechaFin.Text = $"31/08/{NowADS().Year}"
|
||||
@@ -61,8 +71,9 @@ Partial Class Contratos_RepPresupuestosDetalle
|
||||
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlProyecto.DataBind()
|
||||
|
||||
CargaSubProyecto()
|
||||
|
||||
CargaSubProyecto()
|
||||
|
||||
|
||||
UpFiltros.Update()
|
||||
|
||||
End Sub
|
||||
@@ -110,10 +121,10 @@ Partial Class Contratos_RepPresupuestosDetalle
|
||||
TxtFiltrosFechaInicio.Text = FechaInicio
|
||||
TxtFiltrosFechaFin.Text = FechaFin
|
||||
ChkMensual.Checked = Mensual
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " CARGA DATOS "
|
||||
Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs)
|
||||
CargaDatos()
|
||||
@@ -131,9 +142,17 @@ Partial Class Contratos_RepPresupuestosDetalle
|
||||
GvDatosMensual.DataBind()
|
||||
Else
|
||||
Dim ObjPresupuestos As New ClsContratos
|
||||
If ObjPresupuestos.GetPresupuestosRep(-1, DdlTipoGasto.SelectedValue.ToEntero, DdlAgrupador.SelectedValue.ToEntero, TxtFiltrosFechaInicio.Text.ToDate, TxtFiltrosFechaFin.Text.ToDate, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then
|
||||
GvDatos.DataSource = ObjPresupuestos.DtResultados
|
||||
DtPresupuestos = ObjPresupuestos.DtResultados
|
||||
If ObjPresupuestos.GetPresupuestosRep(-1, DdlTipoGasto.SelectedValue.ToEntero, DdlAgrupador.SelectedValue.ToEntero, TxtFiltrosFechaInicio.Text.ToDate, TxtFiltrosFechaFin.Text.ToDate, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then
|
||||
|
||||
DtPresupuestos = ObjPresupuestos.DtResultados
|
||||
If UsaComprometido Then
|
||||
LtlthEjercido.Text = "En proceso de compra"
|
||||
DtPresupuestos.Columns.Remove("ejercido") : DtPresupuestos.Columns("comprometido").ColumnName = "ejercido"
|
||||
DtPresupuestos.Columns.Remove("EjercidoPorcentaje") : DtPresupuestos.Columns("comprometidoPorcentaje").ColumnName = "EjercidoPorcentaje"
|
||||
DtPresupuestos.Columns.Remove("PorEjercer") : DtPresupuestos.Columns("PorEjercercomprometido").ColumnName = "PorEjercer"
|
||||
DtPresupuestos.Columns.Remove("PorEjercerPorcentaje") : DtPresupuestos.Columns("PorEjercerPorcentajecomprometido").ColumnName = "PorEjercerPorcentaje"
|
||||
End If
|
||||
GvDatos.DataSource = ObjPresupuestos.DtResultados
|
||||
End If
|
||||
ObjPresupuestos.Dispose()
|
||||
DivDatosMensual.Visible = False
|
||||
@@ -142,10 +161,10 @@ Partial Class Contratos_RepPresupuestosDetalle
|
||||
End If
|
||||
UpDatos.Update()
|
||||
UpDatosMensual.Update()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
@@ -159,19 +178,19 @@ Partial Class Contratos_RepPresupuestosDetalle
|
||||
e.Row.Cells(1).Text = "-"
|
||||
End If
|
||||
If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then
|
||||
e.Row.Cells(3).Text = "-"
|
||||
e.Row.Cells(2).Text = "-"
|
||||
End If
|
||||
If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then
|
||||
e.Row.Cells(4).Text = "-"
|
||||
e.Row.Cells(3).Text = "-"
|
||||
End If
|
||||
If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then
|
||||
e.Row.Cells(5).Text = "-"
|
||||
e.Row.Cells(4).Text = "-"
|
||||
End If
|
||||
If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then
|
||||
e.Row.Cells(6).Text = "-"
|
||||
e.Row.Cells(5).Text = "-"
|
||||
End If
|
||||
If e.Row.DBCampo("Pagado").ToDecimal = 0 Then
|
||||
e.Row.Cells(7).Text = "-"
|
||||
e.Row.Cells(6).Text = "-"
|
||||
End If
|
||||
If e.Row.RowIndex > 0 Then
|
||||
Dim CveAgrupador = e.Row.DBCampo("CveAgrupador").ToEntero
|
||||
@@ -188,11 +207,11 @@ Partial Class Contratos_RepPresupuestosDetalle
|
||||
End If
|
||||
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 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>"
|
||||
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}&Comprometido={If(UsaComprometido, "1", "0")}"
|
||||
e.Row.Cells(2).Text = "<a class=" + "" + Css + "" + " href=" + "" + Liga + "" + ">" + e.Row.Cells(2).Text + "</a>"
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user