CREATE PROCEDURE POSSUI_TITULO_ATRASO (
    cod_cliente varchar(8))
returns (
    titulo_atraso integer)
as
declare variable tit integer;
begin
 Select count(*)
    From docurec d
    where  d.codcliente = :cod_cliente
     and   SITUACAO in ('1','3','5')
      and   d.dt_vencimento < (select current_timestamp from rdb$database)

    into :TIT;

    if (:TIT = 0) then
    begin
      titulo_atraso  = 0;
    end
    else
    begin
       titulo_atraso = 1;
    end
    suspend;

end;
