diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb
index 637c36959..e63a0d6b2 100644
--- a/Contabilidad/ContabilidadElectronica.aspx.vb
+++ b/Contabilidad/ContabilidadElectronica.aspx.vb
@@ -109,12 +109,11 @@ Partial Class Contabilidad_ContabilidadElectronica
DtCuentas = ObjConpaq.DtResultados
End If
ObjConpaq.Dispose()
-
End If
If DtCuentas IsNot Nothing AndAlso DtCuentas.Rows.Count > 0 Then
- Dim Str As New StringBuilder
+ Dim Str As New StringBuilder
'CABECERA
Str.Append("")
Str.Append("
0 Then
- Dim Str As New StringBuilder
+ If UsuarioActual.CveEmpresa = 119 Then
+ DtCuentas = DtCuentas.FiltraParametros("Nivel IN (1,2) ")
+ End If
+ Dim Str As New StringBuilder
'CABECERA
Str.Append("")
Str.Append("