Fórum procedure for select duplica valores... #56207

  if (:NOME_IN IS NOT NULL)  then
  BEGIN

    FOR SELECT CODIGO,
             NOME,
             DT_INSCRICAO,
             DT_ALTERACAO,
             DATANASCIMENTO,
             RG_ORGAOEMISSOR,
             SEXO,
             ESTADOCIVIL,
             TIPOSANGUINEO,
             DOADOR,
             PROFISSAO,
             EMPREGADO,
             DEFICIENTE,
             TELEFONE1,
             TELEFONE2,
             TELEFONE3,
             TRABALHAESCALA,
             PESOACIMADE80KG,
             ENDERECO,
             BAIRRO,
             CIDADE,
             UF,
             CAIXAPOSTAL,
             NAIGREJADESDE,
             CODIGREJA,
             CODOCUPACOES,
             TELEFONECONTATO,
             CPF,
             RG,
             ENDR_NUMERO,
             CEP,
             NACIONALIDADE,
             MATRICULA,
             CODCLASSES,
             CODGRUPOSASSISTENCIA
        FROM MEMBROS
        WHERE (CODIGREJA = :CODIGREJA_IN)
             AND (NOME like ´¬´ || :NOME_IN || ´¬´)
        ORDER BY NOME
        INTO :CODIGO,
           :NOME,
           :DT_INSCRICAO,
           :DT_ALTERACAO,
           :DATANASCIMENTO,
           :RG_ORGAOEMISSOR,
           :SEXO,
           :ESTADOCIVIL,
           :TIPOSANGUINEO,
           :DOADOR,
           :PROFISSAO,
           :EMPREGADO,
           :DEFICIENTE,
           :TELEFONE1,
           :TELEFONE2,
           :TELEFONE3,
           :TRABALHAESCALA,
           :PESOACIMADE80KG,
           :ENDERECO,
           :BAIRRO,
           :CIDADE,
           :UF,
           :CAIXAPOSTAL,
           :NAIGREJADESDE,
           :CODIGREJA,
           :CODOCUPACOES,
           :TELEFONECONTATO,
           :CPF,
           :RG,
           :ENDR_NUMERO,
           :CEP,
           :NACIONALIDADE,
           :MATRICULA,
           :CODCLASSES,
           :CODGRUPOSASSISTENCIA
    DO
    BEGIN
      SUSPEND;
    END


    SUSPEND;
  END