From 2b473850ff1713b48d069b260c93c22bf2c93acd Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 5 Mar 2021 16:29:13 -0700
Subject: [PATCH] BDH. Devoluciones de efectivo que resten el total

---
 Bancos/RepCortes.aspx    | 7 ++++++-
 Bancos/RepCortes.aspx.vb | 3 +++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx
index 2f90c1b90..3ccba8aaf 100644
--- a/Bancos/RepCortes.aspx
+++ b/Bancos/RepCortes.aspx
@@ -323,7 +323,12 @@
                             </ItemTemplate>
                         </asp:TemplateField>
                         <asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
-                        <asp:BoundField HeaderText="Total" DataField="ImportePagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                        <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
+                            <ItemTemplate>
+                               <asp:Label ID="LblTotal" Text='<%# Eval("ImportePagado", "{0:N2}") %>' runat="server"></asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <%--<asp:BoundField HeaderText="Total" DataField="ImportePagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />--%>
                         <asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" ItemStyle-HorizontalAlign="Left" />
                     </Columns>
                     <HeaderStyle CssClass="Titulos" />
diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index df363cc2c..3109668a4 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -100,6 +100,9 @@ Partial Class Bancos_RepCortes
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CveVenta").ToString = "" Then
                 e.Row.CssClass = "Totales"
+            End If
+            If e.Row.DBCampo("ImportePagado").ToDecimal() < 0 Then
+                e.Row.FCLabel("LblTotal").CssClass = "badge badge-danger"
             End If
         End If
     End Sub