From ac83d42bf73b53598ed7b310521ccea577795856 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 30 Jan 2023 14:10:15 -0700
Subject: [PATCH] Filtro de subproyecto en folios de garantia

---
 Inventarios/RecepcionUsados.aspx.vb | 6 ++++--
 Ventas/PV.aspx.vb                   | 9 +--------
 2 files changed, 5 insertions(+), 10 deletions(-)

diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 02167a020..40bf87dc4 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -3133,13 +3133,15 @@ Partial Class Inventarios_RecepcionUsados
 
     Private Sub CargaFolioAjuste()
         DdlFolioGarantia.Items.Clear()
+        Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero()
         Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=2) Then
+        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, CveSubProyecto:=CveSubProyecto, Area:=2) Then
             DdlFolioGarantia.DataSource = ObjAcum.DtResultados
-            DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
         ObjAcum.Dispose()
         DdlFolioGarantia.DataBind()
+        DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
     End Sub
 
     Protected Sub DdlFolioGarantia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFolioGarantia.SelectedIndexChanged
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 818a55fb5..dece79162 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -7038,14 +7038,7 @@ Partial Class PV
     End Sub
 
     Private Sub CargaAjuste()
-        Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=1) Then
-            DdlFolioGarantia.DataSource = ObjAcum.DtResultados.Copy().FiltraParametros($"CveSubProyecto={DdlSubProyectoDatos.SelectedValue}")
-        End If
-        ObjAcum.Dispose()
-        DdlFolioGarantia.DataBind()
-        DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
+        CargaFoliosGarantia()
 
         DdlFacturas.Items.Insert(0, New ListItem("Sin Factura", "-1"))