Filtrar tipo de vendedor pv en rep ventas detalle

Ventas/RepVentaDetalle.aspx.vb

@@ -287,17 +287,17 @@ Partial Class RepVentaDetalle
         DdlGrupo.DataBind()
     End Sub
 
-    Private Sub CargaCombos()
+    Private Sub CargaCombos()
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
-        CargaClientes()
-
-
-        'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-        txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
-        txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
-
-        'Vendedor
-        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        CargaClientes()
+
+
+        'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
+        txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
+
+        'Vendedor
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
         DdlVendedor.DataBind()
         DdlVendedor.Items.Insert(0, New ListItem("Sin Vendedor", "-2"))
 
@@ -312,7 +312,7 @@ Partial Class RepVentaDetalle
         'Carga Clasificacion Cliente
         DdlClienteClasificacion.DataSource = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
         DdlClienteClasificacion.DataBind()
-        DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlClienteClasificacion.Items.Insert(0, New ListItem("Sin Giro", "-2"))
 
 
@@ -342,7 +342,7 @@ Partial Class RepVentaDetalle
     End Sub
 
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
 
     Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)