select tip.idregistro as cod, tip.titulo_programa ,
concat(p.apellido1,' ',p.apellido2, ' ', p.nombres) as directoPrograma,
tip.fecha_creacion , tip.fecha_inicio ,
tip.fecha_fin , tip.estado , tigi.nombre_grupo  , f.nombre as facultad, (select count(pro.idregistro) from esq_investigacion.tbl_inv_proyectos pro where pro.id_programa= tip.idregistro)
from esq_investigacion.tbl_inv_programas tip
join esq_datos_personales.personal p on p.idpersonal = tip.id_director_programa
join esq_investigacion.tbl_inv_grupo_investigacion tigi on tigi.idregistro = tip.id_grupo_investigacion
join esq_inscripciones.facultad f on f.idfacultad = tip.idfacultad
where tip.estado not in('ED')