BDH. Devoluciones de efectivo que resten el total

2021-03-05 16:29:13 -07:00
parent 75e4762fdb
commit 2b473850ff
2 changed files with 9 additions and 1 deletions
--- 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