-- visualización mensaje de comparativo

2024-10-04 16:28:18 -07:00
parent 697358047d
commit 67bb092a95
1 changed files with 2 additions and 2 deletions
--- 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