diff --git a/Contratos/RepPresupuestos.aspx b/Contratos/RepPresupuestos.aspx index 97e5c3c95..19a32224c 100644 --- a/Contratos/RepPresupuestos.aspx +++ b/Contratos/RepPresupuestos.aspx @@ -329,11 +329,10 @@ - - + - +
AgrupadorAutorizadoEn proceso de compraAutorizado Por EjercerPagadoPagado
@@ -342,13 +341,12 @@ <%-- - - + - +
diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index 88b7becb7..ef6cf4e23 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -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))) diff --git a/Contratos/RepPresupuestosDetalle.aspx b/Contratos/RepPresupuestosDetalle.aspx index 799be4123..138d9b664 100644 --- a/Contratos/RepPresupuestosDetalle.aspx +++ b/Contratos/RepPresupuestosDetalle.aspx @@ -246,12 +246,11 @@
- - - - + + + - +
AgrupadorAutorizadoComprometidoEjercidoAgrupadorAutorizado Por EjercerPagadoPagado
@@ -259,14 +258,13 @@ <%-- - - - + + - +
diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index 5788852bb..d91a3059e 100644 --- a/Contratos/RepPresupuestosDetalle.aspx.vb +++ b/Contratos/RepPresupuestosDetalle.aspx.vb @@ -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 = "" + e.Row.Cells(0).Text + "" + '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 = "" + e.Row.Cells(0).Text + "" - 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 = "" + e.Row.Cells(2).Text + "" + 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 = "" + e.Row.Cells(2).Text + "" End If End If End Sub