From 9628605637d38e9b91e7a65f55dc05043630cbb3 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 6 Jun 2024 19:11:42 -0700
Subject: [PATCH] - mejora

---
 Contabilidad/ContabilidadElectronica.aspx.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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