diff --git a/Ventas/CatPromociones.aspx.vb b/Ventas/CatPromociones.aspx.vb
index 2d7ec33b3..1790559c6 100644
--- a/Ventas/CatPromociones.aspx.vb
+++ b/Ventas/CatPromociones.aspx.vb
@@ -26,7 +26,7 @@ Partial Class Ventas_CatPromociones
 
             'ImgAddPromocion.Attributes.Add("OnClick", "window.location = '/Ventas/Promociones.aspx'")
             'CARGA SUCURSALES
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
             DdlSubProyecto.DataBind()
             DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index fb16837a2..d578382e4 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -236,7 +236,7 @@ Partial Class Ventas_Promociones
         End If
 
         'CARGA SUBPROYECTOS
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))