diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index f1af82c39..8216a9c36 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -124,18 +124,14 @@ Partial Class Inventarios_Kardex End If Next - If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then CargarMarcas() End If - DdlProveedores.setEsWebService(True) DdlProveedores.Attributes.Add("data-metodo", "getproveedores") DdlProveedores.SelectedText = "Todos" DdlProveedores.SelectedValue = "-1" - - End Sub Protected Sub CargarMarcas() @@ -307,8 +303,8 @@ Partial Class Inventarios_Kardex LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero() LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero() - LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero() - LtIndicador_UCDolares.Text = Dr("UltimoCostoUSD").ToString.FormatoNumero() + 'LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero() + 'LtIndicador_UCDolares.Text = Dr("UltimoCostoUSD").ToString.FormatoNumero() LtIndicador_Mensaje.Text = $"* Importes calculados con el tipo de cambio del día $ {TC.FormatoNumero(4)} " @@ -367,6 +363,10 @@ Partial Class Inventarios_Kardex If dr IsNot Nothing Then ddlProducto2.SelectedText = dr("PSCodigo").ToString ddlProducto2.SelectedValue = CvePS.ToString + Dim TC = If(GlobalTipoCambio(NowADS()) > 0, GlobalTipoCambio(NowADS()), 1) + + LtIndicador_UCPesos.Text = dr("UltimoCosto").ToString.FormatoNumero() + LtIndicador_UCDolares.Text = (dr("UltimoCosto").ToString.ToDecimal / TC).FormatoNumero End If End If