diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb
index 6774efaa5..b6fca602a 100644
--- a/Contabilidad/ContabilidadElectronica.aspx.vb
+++ b/Contabilidad/ContabilidadElectronica.aspx.vb
@@ -178,16 +178,16 @@ 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, 1, 1, -1, -1, UsuarioActual.CveEmpresa, 0) Then
                 DtCuentas = objconta.DtResultados
             End If
             objconta.Dispose()
 
             If DtCuentas IsNot Nothing Then
-                Dim Deudor As Decimal = DtCuentas.SUM("SaldoAD")
-                Dim Acreedor As Decimal = DtCuentas.SUM("SaldoAA")
+                Dim Deudor As Decimal = DtCuentas.SUM("SaldoAD", "Id is null")
+                Dim Acreedor As Decimal = DtCuentas.SUM("SaldoAA", "Id is null")
                 If Deudor <> Acreedor Then
-                    Alert("los Saldos Actuales no cuadran.", TipoMensaje.MsgError)
+                    Alert("los Saldos Actuales no cuadran. " & Deudor - Acreedor, TipoMensaje.MsgError)
                     Exit Sub
                 End If
             End If