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 @@
                      <asp:BoundField DataField="Referencia" HeaderText="Referencia" ItemStyle-HorizontalAlign="Left"/>   
                      <asp:BoundField DataField="CuentaCodigo" ItemStyle-Width="100px"  HeaderText="Código Cuenta" ItemStyle-HorizontalAlign="Left"/>      
                      <asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" ItemStyle-HorizontalAlign="Left"/>    
-                     <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-HorizontalAlign="Left"/>    
+                     <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-HorizontalAlign="Left"/>
+                     <asp:BoundField DataField="PorcentajeIVA" HeaderText="PorcentajeIVA" ItemStyle-HorizontalAlign="Left"/>
                                    
                     <asp:TemplateField ItemStyle-Width="49px">
                         <ItemTemplate>
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