diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 1e3cdac65..4601aba6d 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1196,15 +1196,14 @@ Partial Class Clientes
 
 
     End Sub
-    Private Sub CargaSubProyectoss()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
+    Private Sub CargaSubProyectoss()
+
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
 
-        'If UsuarioActual.CveSucursal = -1 Then
-        '    DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        'Else
-        '    DdlSubProyecto.SelectedValue = UsuarioActual.CveSucursal.ToString
-        'End If
+        DdlSubProyecto.DataBind()
+
+
     End Sub
     Private Sub CargaMetodosPago()
         DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")