PC Toledo

... GTK signal callback to capture the close event.
- Replaced the traditional Harbour QUIT with a low-level kernel exit (_exit(0))
inside C, preventing background widgets from triggering recursive error loops.
- Added global recursion protection (`lInError`) and temporary ErrorBlock deactivation.

... bem vista mundo afora.

{
"name": "Meu Projeto Harbour",
"files": [
{
"directory": ".",
"filters": ["*.prg", "*.ch", "*.hbc", "*.hbp"],
"recursive": false
},
{
"directory": "prg",
"filters": ["*.prg", "*.ch"],
"recursive": true
},
{
"directory": "../shared",
"filters": ["*.prg ...

... gráfica.


Application Internal Error - d:\github\dlgauto\source\test.exe
Terminated at: 2025-08-25 20:10:43
Unrecoverable error 9003: Too many recursive error handler calls
Called from __ERRRT_SBASE(0)
Called from _HMGAPPCLASS:ERROR(0) in ../../../tobject.prg
Called from (b)HBOBJECT(0) in ...

... objects: 100% (47/47), 2.62 MiB | 1.40 MiB/s, done.
From https://github.com/harbour/core
* branch HEAD -> FETCH_HEAD
Merge made by the 'recursive' strategy.
.github/workflows/windows-ci.yml | 4 +-
ChangeLog.txt | 76 ++++++++++++++++++++++++++++++++
config/global.mk | 6 +++
config/wasm ...

Olá!

Dependendo da versão do banco, é possível utilizar uma CTE:

WITH recursive Datas AS (
-- "Membro Âncora"
SELECT
Cast( '2025-06-01' As Date) as Data
UNION ALL
-- "Membro Recursivo"
SELECT
Date_Add( Data, INTERVAL 1 DAY)
FROM Datas /* Resultado da última iteração */
WHERE
Data < Cast ...

... Application Internal Error - D:\fontes\integra\jpa.exe
Terminated at: 2025-03-07 15:46:19
Info: JOSEJPA joseq
Unrecoverable error 9003: Too many recursive error handler calls
Called from __ERRRT_SBASE(0)
...
Called from __ERRRT_SBASE(0)
Called from TDIALOG:ERROR(0) in ../../../tobject.prg
Called ...

Olá!

Creio que, neste caso, um CTE Recursivo (Recursive Common Table Expression) ajudaria. Este recurso está disponível a partir da versão 2.1 do Firebird. Veja aqui.

... Unpacking objects: 100% (10/10), 1.33 KiB | 3.00 KiB/s, done.
From http://github.com/harbour/core
* branch HEAD -> FETCH_HEAD
Merge made by the 'recursive' strategy.
ChangeLog.txt | 8 ++++++++
include/hbvm.h | 4 ++--
src/harbour.def | 2 ++
src/rdd/hbsix/sxord.c | 2 +-
4 files changed, 13 ...

... pCtx->nAllocId += 8;
pCtx->pId = ( void ** ) hb_xrealloc( pCtx->pId, sizeof( void * ) * pCtx->nAllocId );
}

/* Protection against recursive structures */
if( HB_IS_ARRAY( pValue ) || HB_IS_HASH( pValue ) )
{
void * id = HB_IS_HASH( pValue ) ? hb_hashId( pValue ) : hb_arrayId ...

Desculpe.

O código está assim:

WITH recursive ativ AS (
SELECT CAST('2021-03-25' AS DATE) AS DATA UNION ALL
SELECT DATE_ADD(DATA, INTERVAL 1 DAY)
FROM ativ
WHERE DATA < CAST('2021-05-03' AS DATE))
SELECT DATA
FROM ativ;

Note que alterei datas para ativ porque é o nome da tabela que uso aqui. Mas ...

Desculpem a demora, mas só agora consegui ver este tópico.
Tentei a opção com With recursive pelo Heidi, mas está dando erro em recursive.
Será que me falta algum requisito? Ou eu preciso fazer algo antes disso?

... fazer isso?

No exemplo que postei, as linhas de 1 a 12 criam o CTE e as demais o utilizam.
Veja a criação e uso sem incluir a tua query:

WITH recursive Datas AS (
-- "Membro Âncora"
SELECT
Cast( '2021-03-25' As Date) as Data
UNION ALL
-- "Membro Recursivo"
SELECT
Date_Add( Data, INTERVAL 1 ...

De fato, uso o Maria DB 10.4.
Mas não entendi o que vc quis dizer com "crie uma CTE". O que seria uma CTE?
Até entendi a ideia, mas não entendi como fazer isso.
Até tentei executar o teu exemplo no Heidi, mas dá erro no "recursive".
Pode me explicar como fazer isso?

... isto, faça um LEFT JOIN da CTE com esta sua consulta. Montei o exemplo abaixo mas não tenho como testar. Faça os testes e dê um retorno.
WITH recursive Datas AS (
-- "Membro Âncora"
SELECT
Cast( '2021-03-25' As Date) as Data
UNION ALL
-- "Membro Recursivo"
SELECT
Date_Add( Data, INTERVAL 1 ...

... com 1000 registros, utilizando Common Table Expressions (CTE)
(Funciona em MySQL 8 e acima e MariaDB 10 e acima)
*/

INSERT INTO tbAcoes
WITH RECURSIVE my_cte( codigo, marca, hrvisto, compvenda, dtcotacao, hrcotacao) AS
(
SELECT
1 as codigo,
' ' as marca,
98989 as hrvisto,
0 as compvenda ...