se pueden seleccionar a todos los clientes en vez de solo a los distribuidores

Inventarios/RecepcionUsados.aspx.vb

@@ -317,7 +317,6 @@ Partial Class Inventarios_RecepcionUsados
             ViewState("DtPorcentajeMarcas") = value
         End Set
     End Property
-
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -346,7 +345,7 @@ Partial Class Inventarios_RecepcionUsados
         TxtFecha.Text = Now.ToShortDateString
         TxtFechaPendientes.Text = Now.ToShortDateString
         RVFecha.MaximumValue = Now.ToShortDateString
-        InicializaClientes()
+        InicializaClientes(False)
 
         'si viene una parámetro para cargar un movimiento lo hacemos dentro del procedimiento cargadatos
         Select Case UsuarioActual.Empresa.Funcionalidad(103)
@@ -1148,7 +1147,7 @@ Partial Class Inventarios_RecepcionUsados
                             'si es selectedvalue = 42, es entrada ,3 -salida
                             Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 42, 1, 2)
 
-                            If RBLOpcion.SelectedValue.ToEntero = 42 AndAlso EsDistribuidor AndAlso Dr("CveTamaño").ToString.ToEntero > 0 Then
+                            If EsDistribuidor AndAlso RBLOpcion.SelectedValue.ToEntero = 42 AndAlso Dr("CveTamaño").ToString.ToEntero > 0 Then
 
                                 If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
                                                 UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
@@ -1706,9 +1705,9 @@ Partial Class Inventarios_RecepcionUsados
 
 
 #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
-    Private Sub InicializaClientes()
+    Private Sub InicializaClientes(Todos As Boolean)
 
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros("EsDistribuidor = 1")
+        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(If(Todos, "", "EsDistribuidor = 1"))
         DdlClientes.DataBind()
         DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClientes.SelectedValue = "-1"
@@ -2781,4 +2780,9 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
 #End Region
 
+    Protected Sub SeleccionarTipoDeClientes(sender As Object, e As EventArgs)
+        DdlClientes.Items.Clear()
+        InicializaClientes(ChkClientesTodos.Checked)
+    End Sub
+
 End Class