Ahí esta la función email. Es la primera que se menciona.
Código:
CREATE OR REPLACE FUNCTION email(valor char(5)) RETURNS RECORD AS
$BODY$
DECLARE
correo RECORD;
BEGIN
SELECT INTO correo tpersona.per_correo para, 'Actividad Administrativa' asunto,
'Saludos, por medio de la presente se le notifica que hoy ' || to_char(now(),'DD/MM/YYYY') || ' le fue asignado(a) a la actividad ' || quote_literal(act_nombre) || ' en el ambiente ' || amb_nombre cuerpo
FROM tpersona
INNER JOIN tdetalle_actividad_ad ON tpersona.cedula = tdetalle_actividad_ad.cedula
INNER JOIN tactividades_administrativas ON tdetalle_actividad_ad.cod_actividad = tactividades_administrativas.cod_actividad
INNER JOIN tambiente ON tdetalle_actividad_ad.cod_ambiente = tambiente.cod_ambiente WHERE tdetalle_actividad_ad.cod_detalle_actividad = quote_literal($1);
RETURN correo;
END;
$BODY$
LANGUAGE 'plpgsql'
De todas maneras publico nuevamente el codigo solo de la funcion email.