Estou fazendo uma aplicação, no qual preciso incrementar uma sequence e verificar se aquele valor já foi usado em outra tabela, pois caso já tenha sido devo ignorar e gerar um novo valor para a sequence até encontrar um valor único.
Esse é meu SQL:
select nextval('controlesequencia')as proximo, -1 as soma
union
select currval('controlesequencia') as proximo, sum(quantidade) as soma from (
select count(*) as quantidade from manobrista where
CAST(('0' || COALESCE(segundo_codigo,'0')) AS INTEGER) = currval('controlesequencia')
union
select count(*) as quantidade from lancamento where
CAST(('0' || COALESCE(num_registro,'0')) AS INTEGER) = currval('controlesequencia') and data_saida = '') as mensalista
Quando executo no Delphi o valor retornado no nextval
é um caractere estranho do mapa de caracteres.
DM.ProximoControle.FieldByName(Proximo).AsInteger;
Como faço para pegar o valor corretamente?