AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambio para mostrar el último costo

Browse Source
This commit is contained in:
rrene
2024-12-18 07:25:47 -07:00
parent 0b31afa4f4
commit 72441332c3
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Inventarios/Kardex.aspx.vb
View File

@@ -124,18 +124,14 @@ Partial Class Inventarios_Kardex
End If End If
Next Next
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
CargarMarcas() CargarMarcas()
End If End If
DdlProveedores.setEsWebService(True) DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores") DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Todos" DdlProveedores.SelectedText = "Todos"
DdlProveedores.SelectedValue = "-1" DdlProveedores.SelectedValue = "-1"
End Sub End Sub
Protected Sub CargarMarcas() Protected Sub CargarMarcas()
@@ -307,8 +303,8 @@ Partial Class Inventarios_Kardex
LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero() LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero()
LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero() LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero()
LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero() 'LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero()
LtIndicador_UCDolares.Text = Dr("UltimoCostoUSD").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>" 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 If dr IsNot Nothing Then
ddlProducto2.SelectedText = dr("PSCodigo").ToString ddlProducto2.SelectedText = dr("PSCodigo").ToString
ddlProducto2.SelectedValue = CvePS.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
End If End If