From 70da4a3c44b3d47764951c337189dd6df07b1497 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 8 Jan 2025 11:22:37 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20para=20tomar=20la=20?=
 =?UTF-8?q?=C3=BAltima=20existencia?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/Kardex.aspx.vb | 78 +++++++++++++++++++-------------------
 1 file changed, 40 insertions(+), 38 deletions(-)

diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 79c0cf97a..ce49c1b67 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -281,45 +281,7 @@ Partial Class Inventarios_Kardex
                 If UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1 Then
                     LnkExistenciasPorCapas.Visible = True
                 End If
-                'CARGA INDICADORES
 
-                If UsuarioActual.TienePermisoProceso(201) Then
-                    DivIndicadores.Visible = True
-
-                    Dim Dr = DtTemp.FiltroUltimo("")
-                    Dim TC = If(GlobalTipoCambio(NowADS()) > 0, GlobalTipoCambio(NowADS()), 1)
-
-                    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 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()
-
-                    '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>"
-
-                    If TxtSerie.Text <> "" Then
-                        LtIndicador_MensajeSerie.Text = $"* Existencia y costos calculada por número de serie: <b> {TxtSerie.Text} </b>"
-                    Else
-                        LtIndicador_MensajeSerie.Text = ""
-                    End If
-
-                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-                        CargarOCPendientesCompra()
-                        DivIndicadorOC.Visible = True
-                    End If
-
-                    UpIndicadores.Update()
-
-                    GvM.Attributes.Add("data-heighterror", "430")
-                Else
-                    GvM.Attributes.Add("data-heighterror", "270")
-                End If
                 GvM.DataSource = DtTemp
                 GvM.DataBind()
                 UpAcciones.Update()
@@ -382,6 +344,46 @@ Partial Class Inventarios_Kardex
         If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                     ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then
             dt = ObjInventarios.DtResultados.Copy
+
+            'CARGA INDICADORES
+
+            If UsuarioActual.TienePermisoProceso(201) Then
+                DivIndicadores.Visible = True
+
+                Dim Dr = dt.FiltroUltimo("")
+                Dim TC = If(GlobalTipoCambio(NowADS()) > 0, GlobalTipoCambio(NowADS()), 1)
+
+                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 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()
+
+                '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>"
+
+                If TxtSerie.Text <> "" Then
+                    LtIndicador_MensajeSerie.Text = $"* Existencia y costos calculada por número de serie: <b> {TxtSerie.Text} </b>"
+                Else
+                    LtIndicador_MensajeSerie.Text = ""
+                End If
+
+                If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                    CargarOCPendientesCompra()
+                    DivIndicadorOC.Visible = True
+                End If
+
+                UpIndicadores.Update()
+
+                GvM.Attributes.Add("data-heighterror", "430")
+            Else
+                GvM.Attributes.Add("data-heighterror", "270")
+            End If
         End If
         If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then dt = dt.FiltraParametros("", "FechaMovto DESC") ' ordenamiento descendente
         ObjInventarios.Dispose()