From 62d1c1fbde3adcae671f2fa7c2a322a47d02fd79 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Oct 2020 14:40:00 -0700 Subject: [PATCH] -- que seleccione el vendedor, si ya lo tiene asignado --- Inventarios/RepApartados.aspx.vb | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/Inventarios/RepApartados.aspx.vb b/Inventarios/RepApartados.aspx.vb index d2d984085..c6e777e22 100644 --- a/Inventarios/RepApartados.aspx.vb +++ b/Inventarios/RepApartados.aspx.vb @@ -35,7 +35,7 @@ Partial Class Inventarios_RepApartados DdlSubProyectos.DataBind() DdlSubProyectos.Items.Insert(0, New ListItem(" Todas ", "-1")) - If UsuarioActual.CveEmpresa = 119 Then + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.setEsWebService(True) Else DdlClientesWS.setEsWebService(False) @@ -44,15 +44,9 @@ Partial Class Inventarios_RepApartados DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1")) End If - If UsuarioActual.CveEmpresa = 119 Then - DdlClienteTraspasar.setEsWebService(True) - Else - DdlClienteTraspasar.setEsWebService(False) - DdlClienteTraspasar.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - DdlClienteTraspasar.DataBind() - DdlClienteTraspasar.ddl.Items.Insert(0, New ListItem("Todos", "-1")) - End If - + + DdlClienteTraspasar.setEsWebService(True) + Dim DTVendedores As New DataTable DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True) DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False)) @@ -139,7 +133,13 @@ Partial Class Inventarios_RepApartados End If DdlClienteTraspasar.SelectedValue = "-1" - DdlClienteTraspasar.SelectedText = "Seleccione" + DdlClienteTraspasar.SelectedText = "Seleccione" + + + If UsuarioActual.CveVendedor > 0 AndAlso CveVendedor.ToEntero <= 0 Then + CveVendedor = UsuarioActual.CveVendedor.ToString + End If + DdlVendedor.SelectedValueExist(CveVendedor) DdlSubProyectos.SelectedValueExist(CveSucursal)