From 67bb092a957320f617d40871a280b1f8734d50c4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 4 Oct 2024 16:28:18 -0700
Subject: [PATCH] =?UTF-8?q?--=20visualizaci=C3=B3n=20mensaje=20de=20compar?=
 =?UTF-8?q?ativo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/ConciliacionesBancarias.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb
index 8394d6218..d7655d6e1 100644
--- a/Bancos/ConciliacionesBancarias.aspx.vb
+++ b/Bancos/ConciliacionesBancarias.aspx.vb
@@ -279,8 +279,8 @@ Partial Class Bancos_ConciliacionesBancariasaspx
                 End If
             End If
         Next
-        If SumaSIGAbono <> SumaExcelAbono Or SumaSIGCargo <> SumaExcelCargo Then
-            Alert("La suma de los importes no cuadran", TipoMensaje.MsgAdvertencia)
+        If SumaSIGCargo <> SumaExcelCargo OrElse SumaSIGAbono <> SumaExcelAbono Then
+            Alert($"La suma de los importes no cuadran ({SumaSIGCargo}-{SumaExcelCargo}**{SumaSIGAbono}-{SumaExcelAbono})", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
         Dim ObjBancos As New ClsBancos