From 6f35283e9490607c49df69be135aaffcebde83de Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 7 Jul 2021 06:54:58 -0700 Subject: [PATCH] =?UTF-8?q?visualizaci=C3=B3n=20de=20existencia,=20con=20m?= =?UTF-8?q?ultiples=20decimales=20y=20costo=20promedio=20que=20tome=20solo?= =?UTF-8?q?=204=20decimales?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/Kardex.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index 233091039..64b3c1c10 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -238,12 +238,12 @@ Partial Class Inventarios_Kardex Dim Dr = DtTemp.FiltroUltimo("") Dim TC = If(GlobalTipoCambio(Now) > 0, GlobalTipoCambio(Now), 1) - LtIndicador_Existencia.Text = Dr("Existencias").ToString.FormatoNumero() + LtIndicador_Existencia.Text = Dr("Existencias").ToString.ToDecimal.ToString("#,##0.####") LtIndicador_ValorPesos.Text = Dr("ValorInventario").ToString.FormatoNumero() LtIndicador_ValorDolares.Text = (Dr("ValorInventario").ToString.ToDouble / TC).FormatoNumero() - Dim CostoPromedio = If(Dr("Existencias").ToString.ToDouble > 0, Dr("ValorInventario").ToString.ToDouble / Dr("Existencias").ToString.ToDouble, 0) + Dim CostoPromedio As Decimal = If(Dr("Existencias").ToString.ToDecimal.RoundSQL(4) > 0, Dr("ValorInventario").ToString.ToDecimal.RoundSQL(4) / Dr("Existencias").ToString.ToDecimal.RoundSQL(4), 0) LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero() LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero()