Caro Jader tente tirar o ponto e virgula após o END IF (:PECODIGO IS NOT NULL) THEN BEGIN STRSQL = :STRSQL ||'CODIGO = ' || :PECODIGO; CONT = 1; END; /* => => => Aqui sempre dá o erro, porquê ? */ sem mais Joelson