From 7e0b2243d50150429d83316447d2322463fc8f59 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Jul 2025 12:56:02 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejora=20la=20conversi=C3=B3n=20de=20moned?= =?UTF-8?q?as=20en=20el=20indicador?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/RepOC.aspx.vb | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index 0136764eb..9d82d6360 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -402,15 +402,16 @@ Partial Class RepOC Dim Cantidad As Integer = DtOC.COUNT("CveOrdenCompra") Dim TotalPesos As Double = DtOC.SUM("Total", "CveMoneda = 1") Dim TotalDolares As Double = DtOC.SUM("Total", "CveMoneda = 2") - Dim Total As Double = TotalPesos + (TotalDolares * GlobalTipoCambio) + 'Dim Total As Double = TotalPesos + (TotalDolares * GlobalTipoCambio) + Dim TotalMN As Decimal = DtOC.AsEnumerable() _ + .Sum(Function(row) Math.Round(Convert.ToDecimal(row.Field(Of Decimal)("Total")) * Convert.ToDecimal(row.Field(Of Decimal)("TipoCambio")), 2)) - MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + Total.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares") + + MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + TotalMN.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares") UPPIndicador.Update() - DivIndicadoresCompradoRecibido.Visible = True DivIndicadoresCompradoRecibido.InnerHtml = String.Empty - Dim Recibidos As Decimal = DtOC.SUM("Comprado") Dim Comprados As Decimal = DtOC.SUM("Recibido")