From a2d85f728337bea49bd92e793688abccbb6e7037 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Oct 2021 16:15:38 -0700 Subject: [PATCH] porcentaje iva columna --- Contabilidad2/CatCuentasAsignaciones.aspx | 3 ++- Contabilidad2/CatCuentasAsignaciones.aspx.vb | 11 ++++++++--- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 730aca935..c48771d03 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -76,7 +76,8 @@ - + + diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index a4bcacc73..8acd80a65 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -39,16 +39,21 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Dim ObjConta As New ClsContabilidad If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjConta.DtResultados - End If + End If + GvDatos.Columns(4).Visible = ObjConta.DtResultados.MAX("CveSubProyecto").ToEntero > 0 + GvDatos.Columns(5).Visible = ObjConta.DtResultados.MAX("PorcentajeIVA").ToDecimal > 0 If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa) Then GvGlobal.DataSource = ObjConta.DtResultados - End If - + End If + + ObjConta.Dispose() GvDatos.DataBind() GvGlobal.DataBind() UpDatos.Update() + + End Sub