diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb
index e63a0d6b2..b20d47dcd 100644
--- a/Contabilidad/ContabilidadElectronica.aspx.vb
+++ b/Contabilidad/ContabilidadElectronica.aspx.vb
@@ -186,7 +186,7 @@ Partial Class Contabilidad_ContabilidadElectronica
         Dim Archivopfx As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.FielPFX }"
         Dim Clavepfx As String = UsuarioActual.Empresa.FielPassword
 
-        Dim xsltPath As String
+        Dim xsltPath As String = ""
         Select Case Opcion
             Case 1
                 xsltPath = $"{AppDomain.CurrentDomain.BaseDirectory}Temp\CatalogoCuentas_1_3.xslt"
@@ -265,7 +265,7 @@ Partial Class Contabilidad_ContabilidadElectronica
         Dim DtCuentas As New DataTable
         If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             Dim objconta As New ClsContabilidad
-            If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then
+            If objconta.GetBalanzaComprobacion(FechaI, FechaF, 5, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then
                 DtCuentas = objconta.DtResultados
             End If
             objconta.Dispose()