- 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/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -5772,7 +5772,7 @@ Partial Class PV

    Private Sub CargaAjuste()
        Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, 1) Then
+        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=1) Then
            DdlFolioGarantia.DataSource = ObjAcum.DtResultados
            DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
        End If