estou tendo um problema estranho ao compilar um novo projeto usando a ide hgm 3.4.4, pois os arquivos DBFs/NTXs não estão fechando ao encerrar o FORM.
O form MAIN chama um MODAL que tem a cláusula interactiveclose. vejam:
on INTERACTIVECLOSE FECHA('Fechar Janela','aplicativo novo') ;
A função FECHA é:
static Function FECHA(mPergunta,mApp)
Local lRet
hb_Default(@mApp, "Sistema" )
lRet := MsgYesNo( mPergunta + " ?" , mApp + " - Atencao!" )
If .not. lRet
// If lRet
close databases // não funciona
Close all // não funciona
// quit
Thiswindow.Release()
Endif
Return lRet
Estranho que posso usar tanto o CLOSE DATABASES quanto o CLOSE ALL e até mesmo o QUIT que está comentado que nada de fechar as tabelas DBF/NTX.
Quando clico para acionar novamente - ainda não execução do programa, aparece a famosa mensagem de erro:
Error DBCMD/1011 Alias Already in use: XXXXXXXXX (nome do meu DBF)
Called from
etc
etc, que o srs. já sabem, que é a mensagem de erro que o .DBF JÁ ESTÁ ABERTO E EM USO.
O que fazer?
Se alguém puder ajudar, agradecido ficarei!
PS: Última informação lá sobre a função FECHA():
- se usar o LRET (.t.) não fecha o formulário, por isso usei o .NOT. LRET (.f.)
valeu galeraaaaaa!