From e915ede5750b7e72c37fb096e1919a2869e70b4a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 1 Jun 2024 11:10:51 -0700
Subject: [PATCH] -- colorea en rojo la dif, en poriva vs el total vendido

---
 Bancos/RepCortes.aspx.vb | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index 0ab594189..a735475e7 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -230,6 +230,13 @@ Partial Class Bancos_RepCortes
                 If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
                     DivIVA.Visible = True
                     GvPorIVA.DataSource = DsDatos.Tables(2)
+                    Dim tsum As Decimal = DsDatos.Tables(2).SUMD("IVA16") + DsDatos.Tables(2).SUMD("IVA0")
+                    If Math.Abs(tsum - DtCortesVentasResumen.MAX("Importe").ToDecimal) > 1 Then
+                        GvPorIVA.ForeColor = Drawing.Color.Red
+                        GvPorIVA.ToolTip = (tsum - DtCortesVentasResumen.MAX("Importe").ToDecimal).ToString
+                    Else
+                        GvPorIVA.ForeColor = Drawing.Color.Black
+                    End If
                 End If
 
             End If