diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb
index e59728d33..a33545fc8 100644
--- a/Contabilidad/ContabilidadElectronica.aspx.vb
+++ b/Contabilidad/ContabilidadElectronica.aspx.vb
@@ -185,7 +185,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, UsuarioActual.CveEmpresa) Then
+            If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, "-1", UsuarioActual.CveEmpresa, 0) Then
                 DtCuentas = objconta.DtResultados
             End If
             objconta.Dispose()
@@ -218,11 +218,20 @@ Partial Class Contabilidad_ContabilidadElectronica
             'DETALLES
             For Each Dr As DataRow In DtCuentas.Rows
                 Str.Append("<BCE:Ctas ")
-                Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
-                Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoIni").ToString)
-                Str.AppendFormat("Debe=""{0}"" ", Dr("Debe").ToString)
-                Str.AppendFormat("Haber=""{0}"" ", Dr("Haber").ToString)
-                Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoFin").ToString)
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                    Str.AppendFormat("NumCta=""{0}"" ", Dr("Codigo").ToString)
+                    Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoInicial").ToString)
+                    Str.AppendFormat("Debe=""{0}"" ", Dr("Cargos").ToString)
+                    Str.AppendFormat("Haber=""{0}"" ", Dr("Abonos").ToString)
+                    Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoActual").ToString)
+                Else
+                    Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
+                    Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoIni").ToString)
+                    Str.AppendFormat("Debe=""{0}"" ", Dr("Debe").ToString)
+                    Str.AppendFormat("Haber=""{0}"" ", Dr("Haber").ToString)
+                    Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoFin").ToString)
+                End If
+
                 Str.Append("/>")
             Next