Filtro de subproyecto en folios de garantia

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"))