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("<span style='color:red;'>{0}</span>", 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("<span style='color:red;'>{0}</span>", e.Row.DBCampo("Abono").FormatoNumero())
+
 
             Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero