From 2ce5b067883fdb1bfff660f10fe7a2a380f039b1 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 15 Aug 2023 08:27:50 -0700 Subject: [PATCH] -- colorear en rojo negativos --- Contabilidad/RegPrePolizaS.aspx.vb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index a0c34f7f0..89f724e8c 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -562,8 +562,12 @@ Partial Class ContabilidadC_RegPrePolizaS End If End If - TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + e.Row.FCLiteral("TxtCargo").Text.ToDecimal).ToString.FormatoNumero - TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + e.Row.FCLiteral("TxtAbono").Text.ToDecimal).ToString.FormatoNumero + TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + e.Row.DBCampo("Cargo").ToDecimal).ToString.FormatoNumero + TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + e.Row.DBCampo("Abono").ToDecimal).ToString.FormatoNumero + + If e.Row.DBCampo("Cargo").ToDouble < 0 AndAlso e.Row.FCLiteral("TxtCargo") IsNot Nothing Then e.Row.FCLiteral("TxtCargo").Text = String.Format("{0}", e.Row.DBCampo("Cargo").FormatoNumero()) + If e.Row.DBCampo("Abono").ToDouble < 0 AndAlso e.Row.FCLiteral("TxtAbono") IsNot Nothing Then e.Row.FCLiteral("TxtAbono").Text = String.Format("{0}", e.Row.DBCampo("Abono").FormatoNumero()) + Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero