Libro diario, mayor,

Contabilidad/LibroMayor.aspx.vb

@@ -44,9 +44,17 @@ Partial Class Contabilidad_LibroMayor
             If UsuarioActual.Empresa.UsaAC Then
                 BtnConsultar.Enabled = True
             Else
-                Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
+
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                    BtnConsultar.Enabled = True
+                Else
+                    Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
+                End If
+
             End If
 
+
+
         End If
     End Sub
 
@@ -70,13 +78,32 @@ Partial Class Contabilidad_LibroMayor
         FechaInicio = If(IsDate(TxtFechaDel.Text), TxtFechaDel.Text.ToDate, MinFecha)
         FechaFin = If(IsDate(TxtFechaAl.Text), TxtFechaAl.Text.ToDate, MaxFecha)
 
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        If ObjConta.GetLibroMayor(1, FechaInicio, FechaFin, 1) Then
-            DtDatos = ObjConta.DtResultados
+        '140
+        Dim CvecuentaPadre As Integer = 57416 '140
+
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
+
+            Dim ObjConta As New ClsContabilidad
+            If ObjConta.GetLibroMayorSIG(CvecuentaPadre, FechaInicio, FechaFin, 1, UsuarioActual.CveEmpresa) Then
+                DtDatos = ObjConta.DtResultados
+            Else
+                DtDatos = Nothing
+            End If
+            ObjConta.Dispose()
+
+
         Else
-            DtDatos = Nothing
+            Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+            If ObjConta.GetLibroMayor(1, FechaInicio, FechaFin, 1) Then
+                DtDatos = ObjConta.DtResultados
+            Else
+                DtDatos = Nothing
+            End If
+            ObjConta.Dispose()
         End If
-        ObjConta.Dispose()
+
+
 
         If DtDatos IsNot Nothing Then
             ImgExcel.Visible = True
@@ -159,6 +186,7 @@ Partial Class Contabilidad_LibroMayor
 #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)