From d3f25b84d94fe0f80b28b74d62d6cf63419cad49 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 12 Nov 2024 15:56:01 -0700
Subject: [PATCH] --FIX agregar ps con descuento en OC

---
 OC/OC.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index b2e62328e..2b6d48e9c 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -4071,7 +4071,7 @@ Partial Class OC_OC
                 End If
                 If e.Row.DBCampo("Descuento").ToDecimal > 0 Then
                     Dim Desc As Decimal = e.Row.DBCampo("Descuento").ToDecimal
-                    e.Row.FCLiteral("LtlDescuento").Text = String.Format("{0}<br/><p style ='font-style: italic; font-size: 10px;'>{1}%</p>", Desc.FormatoNumero, (Desc / (e.Row.DBCampo("Cantidad").ToDecimal * e.Row.DBCampo("PU").ToDecimal) * 100.0).FormatoNumero)
+                    e.Row.FCLiteral("LtlDescuento").Text = String.Format("{0}<br/><p style ='font-style: italic; font-size: 10px;'>{1}%</p>", Desc.FormatoNumero, (Desc / (e.Row.DBCampo("Cantidad").ToDecimal * e.Row.DBCampo("Importe").ToDecimal) * 100.0).FormatoNumero)
                 End If
 
                 e.Row.Cells(0).ToolTip = e.Row.DBCampo("CvePresupuestoEgreso")