diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 7bb4c2f9b..2205fdfb2 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -726,7 +726,7 @@ Partial Class AF_AF
     End Sub
     Private Sub CargaSubProyecto()
         DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, CveEmpresaActual, 1)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveEmpresaActual, CveProyecto:=DdlProyecto.SelectedValue.ToEntero, Estatus:=1)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
     End Sub