[firebase-br] Procedure - Registros retornados

[Wilson Mota - GMail]

Ola pessoal.
Gostaria de saber se existe uma forma de saber a qtde de registros
retornados de um select, consegui contornar o problema - conforme abaixo, porém gostaria de
saber dos amigos se existe algum comando especifico, do tipo recordcount (delphi) ou alguma
outra forma mais inteligente e pratica.
Obrigado.

Wilson

  SELECT DISTINCT TI.DESCRICAO AS TINTA_INTERNA, TE.DESCRICAO AS TINTA_EXTERNA
  FROM LEVANTAMENTO_MAT_PRAZOS L
  JOIN ITENS_LEVANTAMENTO_MATERIAL ILM ON
     ILM.ID_LEVANTAMENTO_MATERIAL = L.ID_LEVANTAMENTO_MATERIAL
  LEFT OUTER JOIN MATERIAL TI ON
     TI.CODIGO = ILM.ID_TINTA_FACE_INTERNA
  LEFT OUTER JOIN MATERIAL TE ON
     TE.CODIGO = ILM.ID_TINTA_FACE_EXTERNA
  WHERE L.ID_PRAZO_ENTREGA_PED_VENDA = :i_ID_Prazo_Entrega_Ped_Venda AND
        ILM.ID_ITENS_PEDIDO_VENDA = :i_ID_Itens_Pedido_Venda AND
        ILM.ID_TINTA_FACE_INTERNA IS NOT NULL AND ILM.ID_TINTA_FACE_EXTERNA IS NOT NULL
  INTO :v_Tinta_Interna, :v_Tinta_Externa
  DO
  BEGIN
     v_Contador = v_Contador + 1;
     if (:v_Tinta_Interna <> :v_Tinta_Externa) then
        o_Tinta = :v_Tinta_Interna + ' / ' + :v_Tinta_Externa;
     else
        o_Tinta = :v_Tinta_Interna;
  END
  if (v_Contador > 1) then
     o_Tinta = 'Consultar OP';

  SUSPEND;