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()