-- cambio para mostrar el último costo

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 <b> $ {TC.FormatoNumero(4)} </b>"
 
@@ -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