Fórum Dúvida ExecSQL, Close e Open - Generators. #476017

Bom dia,

Estou executando uma query no Delphi XE3 com conexões Firebird
para atualização de um Generator.

o Comando é o seguinte:

- SELECT GEN_ID ( GENERATOR_SISTEMA, (SELECT MAX(IDSISTEMA) FROM SISTEMA) - (SELECT GEN_ID(GENERATOR_SISTEMA, 0) FROM RDB$DATABASE) ) FROM RDB$DATABASE

Este comando é utilizado em uma "TSQLQuery.SQL.Text" e ao Executar o comando "ExecSQL" o comando simplesmente não funciona.
Obs.: Não ocorre nenhum problema, simplesmente não atualiza o Generator.

E se o mesmo comando for passado para uma "TSQLQuery.SQL.Text" e ao Executar o comando "Close" e "Open" funciona perfeitamente.