ver el reporte

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()