-- que seleccione el vendedor, si ya lo tiene asignado

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)