- filtrado por area

2020-03-18 16:34:03 -07:00
parent e34cf6cf5e
commit cf1d13d8a0
4 changed files with 12 additions and 4 deletions
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2621,7 +2621,7 @@ Partial Class Inventarios_RecepcionUsados
    Private Sub CargaFolioAjuste()
        DdlFolioGarantia.Items.Clear()
        Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Area:=2) Then
+        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=2) Then
            DdlFolioGarantia.DataSource = ObjAcum.DtResultados
            DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
        End If