From 02715fc408f6453436fbb28e9d629dbd474df4b6 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 13 Jul 2021 16:24:26 -0700
Subject: [PATCH] ver el reporte

---
 Contabilidad/ContabilidadElectronica.aspx.vb | 35 +++++++++++++-------
 1 file changed, 23 insertions(+), 12 deletions(-)

diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb
index 7f1ebb345..a90f7b512 100644
--- a/Contabilidad/ContabilidadElectronica.aspx.vb
+++ b/Contabilidad/ContabilidadElectronica.aspx.vb
@@ -37,19 +37,30 @@ Partial Class Contabilidad_ContabilidadElectronica
         'TxtFechaI.Text = String.Format("01/01/{0}", Now.Year)
         'TxtFechaI.Text = Now.ToShortDateString
 
-        If Not UsuarioActual.Empresa.UsaContabilidad Then
-            BtnGenerar.Enabled = False
-            Alert("Este módulo requiere el uso de contabilidad", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+        'If Not UsuarioActual.Empresa.UsaContabilidad Then
+        '    BtnGenerar.Enabled = False
+        '    Alert("Este módulo requiere el uso de contabilidad", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If
 
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        If ObjConta.GetEjercicios() Then
-            DdlEjercicio.DataSource = ObjConta.DtResultados
-        Else
-            DdlEjercicio.DataSource = Nothing
-        End If
-        ObjConta.Dispose()
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        'If ObjConta.GetEjercicios() Then
+        '    DdlEjercicio.DataSource = ObjConta.DtResultados
+        'Else
+
+        Dim ClsConta As New ClsContabilidad
+
+            If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
+                DdlEjercicio.DataSource = ClsConta.DtResultados
+            Else
+                DdlEjercicio.DataSource = Nothing
+            End If
+
+            ClsConta.Dispose()
+
+            DdlEjercicio.DataBind()
+        'End If
+        'ObjConta.Dispose()
 
         DdlEjercicio.DataBind()