diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb
index 05310e147..961b19ad8 100644
--- a/Contabilidad/ContabilidadElectronica.aspx.vb
+++ b/Contabilidad/ContabilidadElectronica.aspx.vb
@@ -183,20 +183,26 @@ Partial Class Contabilidad_ContabilidadElectronica
         Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), DdlEjercicio.SelectedValue).ToDate
         Dim FechaF = FechaI.LastDayOfMonth
         Dim DtCuentas As New DataTable
-
-        Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
-        If ObjConpaq.GetBalanzaElectronica(FechaI, FechaF) Then
-            DtCuentas = ObjConpaq.DtResultados
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+            Dim objconta As New ClsContabilidad
+            If objconta.GetBalanzaComprobacion(FechaI, FechaF, UsuarioActual.CveEmpresa) Then
+                DtCuentas = objconta.DtResultados
+            End If
+            objconta.Dispose()
+        Else
+            Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
+            If ObjConpaq.GetBalanzaElectronica(FechaI, FechaF) Then
+                DtCuentas = ObjConpaq.DtResultados
+            End If
+            ObjConpaq.Dispose()
         End If
-        ObjConpaq.Dispose()
-
 
         If DtCuentas IsNot Nothing AndAlso DtCuentas.Rows.Count > 0 Then
             Dim Str As New StringBuilder
 
             'CABECERA
             Str.Append("<?xml version=""1.0"" encoding=""UTF-8""?>")
-            Str.Append("<BCE:Balanza xsi:schemaLocation=""www.sat.gob.mx/esquemas/ContabilidadE/1_1/BalanzaComprobacion BalanzaComprobacion_1_1.xsd"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" Version=""1.1"" ")
+            Str.Append("<BCE:Balanza xsi:schemaLocation=""www.sat.gob.mx/esquemas/ContabilidadE/1_1/BalanzaComprobacion/BalanzaComprobacion_1_1.xsd"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" Version=""1.1"" ")
             Str.AppendFormat("RFC=""{0}"" ", UsuarioActual.Empresa.RFC)
             Str.AppendFormat("Mes=""{0}"" ", DdlPeriodo.SelectedValue)
             Str.AppendFormat("Anio=""{0}"" ", DdlEjercicio.SelectedValue)
@@ -212,11 +218,11 @@ Partial Class Contabilidad_ContabilidadElectronica
             'DETALLES
             For Each Dr As DataRow In DtCuentas.Rows
                 Str.Append("<BCE:Ctas ")
-                Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta"))
-                Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoIni"))
-                Str.AppendFormat("Debe=""{0}"" ", Dr("Debe"))
-                Str.AppendFormat("Haber=""{0}"" ", Dr("Haber"))
-                Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoFin"))
+                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)
                 Str.Append("/>")
             Next
 
@@ -225,7 +231,6 @@ Partial Class Contabilidad_ContabilidadElectronica
             'FIN
             Str.Append("</BCE:Balanza>")
 
-
             'GUARDA ARHIVO
             ArchivoBalanza = Server.MapPath(String.Format("~/Empresas/{0}/ContabilidadElectronica/{1}{2}{3}BN.xml", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.RFC, DdlEjercicio.SelectedValue, DdlPeriodo.SelectedValue.PadLeft(2, "0"c)))