ajustes rep OC 13, cuentas 119

Contabilidad/RepBalanceGeneral.aspx.vb

@@ -554,6 +554,7 @@ Partial Class Contabilidad_RepBalanceGeneral
     End Sub
 
     Protected Sub GvPatrimonio_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
                 TotalPatrimonioActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble
@@ -585,6 +586,7 @@ Partial Class Contabilidad_RepBalanceGeneral
             End If
 
         End If
+
     End Sub
 
 #End Region

Contabilidad/RepEstadoActividades.aspx.vb

@@ -165,8 +165,8 @@ Partial Class AC_RepEstadoActividades
 
     End Sub
     Private Sub CargaGrids()
-        DtIngresos = DtDatos.FiltraParametros("Tipo ='H' ")
-        DtGastos = DtDatos.FiltraParametros("Tipo ='G' ")
+        DtIngresos = DtDatos.FiltraParametros("(Tipo ='H' OR Codigo like '4020%') AND NOT(Codigo like '5030%' OR Codigo like '7020%') ")
+        DtGastos = DtDatos.FiltraParametros("(Tipo ='G' AND Codigo NOT like '4020%')  OR (Codigo like '5030%' OR Codigo like '7020%')   ")
         Dim Row As DataRow = DtIngresos.NewRow
 
 

Contabilidad/RepEstadoResultados.aspx.vb

@@ -2,7 +2,6 @@
 Option Strict On
 
 Imports System.Data
-Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Partial Class Contabilidad2_RepEstadoResultados
     Inherits ClsPaginas
@@ -192,8 +191,8 @@ Partial Class Contabilidad2_RepEstadoResultados
 
     End Sub
     Private Sub CargaGrids()
-        DtIngresos = DtDatos.FiltraParametros("Orden Like '0004%' OR Tipo = 'H'")
-        DtGastos = DtDatos.FiltraParametros("Orden Like '0005%' OR Tipo = 'G'")
+        DtIngresos = DtDatos.FiltraParametros("Orden Like '0004%' OR Tipo = 'H' OR Codigo like '4020%' ")
+        DtGastos = DtDatos.FiltraParametros("Orden Like '0005%' OR Tipo = 'G' OR (Codigo like '5030%' OR Codigo like '7020%') ")
         Dim Row As DataRow = DtIngresos.NewRow