-- parametro de cveusuario para consultar, solo sus subproyectos

2022-02-18 10:43:11 -07:00
parent 161f848af4
commit 186965b7aa
7 changed files with 9 additions and 13 deletions
--- a/Inventarios/RepApartados.aspx.vb
+++ b/Inventarios/RepApartados.aspx.vb
@@ -47,10 +47,7 @@ Partial Class Inventarios_RepApartados

        DdlClienteTraspasar.setEsWebService(True)

-        Dim DTVendedores As New DataTable
-        DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True)
-        DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False))
-        DdlVendedor.DataSource = DTVendedores
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, Estatus:=-1)
        DdlVendedor.DataBind()
        DdlVendedor.Items.Insert(0, New ListItem(" Todos ", "-1"))