From 687e1560dd69d41bd31d43e3c55f8e5b0a3d49da Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 21 Jun 2025 13:40:33 -0700 Subject: [PATCH] -- JAM. solo niveles 1y2 --- Contabilidad/ContabilidadElectronica.aspx | 12 ++++++++++-- Contabilidad/ContabilidadElectronica.aspx.vb | 11 ++++++++--- 2 files changed, 18 insertions(+), 5 deletions(-) diff --git a/Contabilidad/ContabilidadElectronica.aspx b/Contabilidad/ContabilidadElectronica.aspx index bae52ac34..a07808b12 100644 --- a/Contabilidad/ContabilidadElectronica.aspx +++ b/Contabilidad/ContabilidadElectronica.aspx @@ -18,7 +18,7 @@
-
+
@@ -81,7 +81,15 @@
- +
+
+
+ + Información: + +
+
+
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("