porcentaje iva columna

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