Libro diario, mayor,

Contabilidad/LibroDiario.aspx.vb

@@ -80,13 +80,29 @@ Partial Class Contabilidad_LibroDiario
         'FechaInicio = New Date(2016, 1, 1)
         'FechaFin = New Date(2016, 1, 31)
 
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        If ObjConta.GetLibroDiario(FechaInicio, FechaFin) Then
-            DtDatos = ObjConta.DtResultados
+
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
+            Dim ObjConta As New ClsContabilidad
+            If ObjConta.GetLibroDiarioSIG(FechaInicio, FechaFin, 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.GetLibroDiario(FechaInicio, FechaFin) Then
+                DtDatos = ObjConta.DtResultados
+            Else
+                DtDatos = Nothing
+            End If
+            ObjConta.Dispose()
         End If
-        ObjConta.Dispose()
+
+
+
 
         If DtDatos IsNot Nothing Then
             ImgExcel.Visible = True