-- mejora para el ordenamiento DESC

Inventarios/Kardex.aspx.vb

@@ -432,7 +432,7 @@ Partial Class Inventarios_Kardex
             If UsuarioActual.TienePermisoProceso(201) Then
                 DivIndicadores.Visible = True
 
-                Dim Dr = dt.FiltroUltimo("")
+                Dim Dr = dt.FiltroUltimo("", "FechaMovto , CveMovimiento , CveMovimientoDetalle ")
                 Dim TC = If(GlobalTipoCambio(NowADS()) > 0, GlobalTipoCambio(NowADS()), 1)
 
                 LtIndicador_Existencia.Text = Dr("Existencias").ToString.ToDecimal.ToString("#,##0.####")
@@ -470,7 +470,7 @@ Partial Class Inventarios_Kardex
                 GvM.Attributes.Add("data-heighterror", "270")
             End If
         End If
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then dt = dt.FiltraParametros("", "FechaMovto DESC") ' ordenamiento descendente
+        'If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then dt = dt.FiltraParametros("", "FechaMovto DESC") ' ordenamiento descendente
         ObjInventarios.Dispose()
 
         Return dt
@@ -728,9 +728,6 @@ Partial Class Inventarios_Kardex
 #End Region
 
 
-
-
-
     Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
         NavegacionPS(Siguiente:=False)
     End Sub