-- comparativo de xml, en base a acreedor

-- kardex. filtrar por los subproyectos de almacen.
-- oc. quitar  parametro estemporal

Inventarios/Kardex.aspx.vb

@@ -245,14 +245,10 @@ Partial Class Inventarios_Kardex
 
     Private Sub CargaDatos()
 
+        Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
 
-        Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero
-
-
-        If CveProducto > 0 Then
-            Dim DtTemp = CargarKardex(CveProducto)
-
-
+        If CvePS > 0 Then
+            Dim DtTemp = CargarKardex(CvePS)
             If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
 
                 Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie, AplicaAlmacenDestino As Boolean
@@ -271,8 +267,7 @@ Partial Class Inventarios_Kardex
                 If AplicaCaducidad Then GvM.Columns(12).Visible = True
                 If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(12).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
 
-
-                Dim Drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimero("")
+                Dim Drp As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
                 Dim AuxAplicaSerie As Boolean
                 Dim AuxAplicaCad As Boolean
                 If Drp IsNot Nothing Then
@@ -335,8 +330,13 @@ Partial Class Inventarios_Kardex
     End Sub
 
     Private Sub CargarOCPendientesCompra()
+        Dim tCveSubProyectos As String = "-1"
+        If ddlAlmacen.SelectedValue <> "" Then
+            Dim tt As String = ddlAlmacen.GetSelectedValues()
+            tCveSubProyectos = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen IN ({tt})").DataColumnToString("CveSubProyecto")
+        End If
         Dim ObjOC As New ClsOC
-        If ObjOC.PendientesCompra(ddlProducto2.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If ObjOC.PendientesCompra(ddlProducto2.SelectedValue.ToEntero, tCveSubProyectos, UsuarioActual.CveEmpresa) Then
             GvOC.DataSource = ObjOC.DtResultados.Copy
             LnkIndicador_OC.Text = ObjOC.DtResultados.Copy.SUM("CantidadPendienteVincular").ToString()
         End If
@@ -383,6 +383,7 @@ Partial Class Inventarios_Kardex
                                     ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then
             dt = ObjInventarios.DtResultados.Copy
         End If
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then dt = dt.FiltraParametros("", "FechaMovto DESC") ' ordenamiento descendente
         ObjInventarios.Dispose()
 
         Return dt