-

Contabilidad/LibroDiario.aspx.vb

@@ -51,11 +51,12 @@ Partial Class Contabilidad_LibroDiario
 
             InicializaValores()
 
-            If UsuarioActual.Empresa.UsaAC Then
-                BtnConsultar.Enabled = True
-            Else
-                Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
-            End If
+            BtnConsultar.Enabled = True
+            'If UsuarioActual.Empresa.UsaAC Then
+            '    BtnConsultar.Enabled = True
+            'Else
+            '    Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
+            'End If
 
         End If
     End Sub
@@ -212,7 +213,6 @@ Partial Class Contabilidad_LibroDiario
 
 #Region "  IMPRIMIR  "
 
-#End Region
     Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
         'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
         'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
@@ -245,5 +245,6 @@ Partial Class Contabilidad_LibroDiario
 
         ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato)
     End Sub
+#End Region
 
 End Class