select tip.cod_new  as codigo, f.nombre as facultad, tip.es_programa as tipo, tip.director_proyecto , tip.titulo_proyecto ,
tipi.nombre_completo , tipi.rol_proyecto ,
tigi.nombre_grupo , tip.fecha_inicio_pro , tip.fecha_fin_pro ,
tip.fecha_creacion , tip.estado , (select avg(j.tot) from (select tipc.id_objetivo_especifico , avg(porcentaje) as tot from
esq_investigacion.tbl_inv_proyecto_cronograma tipc
where tipc.id_proyecto = tip.idregistro
group by tipc.id_objetivo_especifico ) j) as total_avance, tip.presupuesto ,
tip.id_programa , tip.objetivo_general , p.correo_personal_institucional ,p.cedula ,tip2.titulo_programa,
--, tip.impacto_social
(select array_to_string(array_agg(tili.linea_investigacion), ' - ')
from esq_investigacion.tbl_inv_proyecto_lineas_investigacion tigli
join esq_investigacion.tbl_inv_lineas_investigacion tili on tili.idregistro = tigli.id_sublinea_investigacion
where tigli.id_proyecto_investigacion  = tip.idregistro
)
from esq_investigacion.tbl_inv_proyectos tip
join esq_investigacion.tbl_inv_proyecto_involucrados tipi on tipi.id_proyecto  = tip.idregistro
join esq_inscripciones.facultad f on f.idfacultad = tip.idfacultad
join esq_datos_personales.personal p on p.idpersonal = tipi.id_personal
left join esq_investigacion.tbl_inv_grupo_investigacion tigi on tigi.idregistro = tip.id_grupo_investigacion
left join esq_investigacion.tbl_inv_programas tip2 on tip2.idregistro = tip.id_programa
where tip.estado in ('AP', 'APEE','CN','FN')