... GROUP BY valor, dc, nrecibo, valor;"
Para medir seu tempo, acrescente o seguinte antes e depois da query.
PUBLIC aQuantoTempoLevei := { time()+"-"+procname()+"-"+str(procline()) }
...
// ... seu código de query
...
AADD( aQuantoTempoLevei, time()+"-"+procname()+"-"+str(procline ...
Pesquisa resultou em 1883 ocorrências: +Time
Termo pesquisado: +time
- 12 Jun 2026 23:11
- Fórum: Banco de Dados
- Tópico: Select demorando
- Respostas: 13
- Exibições: 1762
- 06 Mai 2026 21:54
- Fórum: Banco de Dados
- Tópico: Select demorando
- Respostas: 13
- Exibições: 1762
Re: Select demorando
Olá!
Obrigado Alexandre, vou fazer o teste aqui.
Gostaria de saber se funcionou e se melhorou a performance.
ela já esta com o ìndice docum+codfor+tpnota+serie+ordem
Não sei como está criando o índice, mas não pode ser como em Clipper, concatenado campos.
Sintaxe do Firebird:
CREATE INDEX ...
Obrigado Alexandre, vou fazer o teste aqui.
Gostaria de saber se funcionou e se melhorou a performance.
ela já esta com o ìndice docum+codfor+tpnota+serie+ordem
Não sei como está criando o índice, mas não pode ser como em Clipper, concatenado campos.
Sintaxe do Firebird:
CREATE INDEX ...
- 17 Abr 2026 22:30
- Fórum: Legislação Fiscal e Tributária
- Tópico: NFCE para CNPJ - Voltara ser permitida apos 04/MAIO?
- Respostas: 2
- Exibições: 1281
Re: NFCE para CNPJ - Voltara ser permitida apos 04/MAIO?
Sabem se caiu a regra que NÃO permitia mais CNPJ na NFCe a partir de 04/Maio/2026? Apenas esclarecendo: Até dia 04/05/2026 ainda permitiria, bloquearia a partir do dia 05/05/2026.
Mas SIM, foi revogada essa decisão no último dia 06/04/2026. Tudo continua como era antes. Essa decisão foi tomada ...
- 25 Mar 2026 10:11
- Fórum: [x]Harbour
- Tópico: Win11 - caracteres dos boxes nao aparecem na tela
- Respostas: 10
- Exibições: 3169
Re: Win11 - caracteres dos boxes nao aparecem na tela
Procurando na internet, há relatos de ser uma configuração no Windows 11 que deve ser feita em PAINEL DE CONTROLE -> REGIAO -> ADMINISTRATIVO -> E AJUSTAR a localidade do sistema e desmarcar a opção USAR UNICODE UTF-8 PARA SUPORTE DE LIGUAGEM MUNDIAL.
O notebook voltou, fiz o procedimento e ...
- 24 Mar 2026 08:21
- Fórum: [x]Harbour
- Tópico: Cupom 48 colunas em PDF sai miniatura quando impresso pelo SUMATRAPDF
- Respostas: 6
- Exibições: 1518
Re: Cupom 48 colunas em PDF sai miniatura quando impresso pelo SUMATRAPDF
Olá Fernando,
Isso acontece porque a impressora esta configurada para A4
O problema não estava diretamente ligada a impressora, mas a forma que estava sendo gerado
o PDF visto que a impressora Q4 só tem papel em suas configurações para cupom.
O comprimento do cupom estava sendo definido como ...
Isso acontece porque a impressora esta configurada para A4
O problema não estava diretamente ligada a impressora, mas a forma que estava sendo gerado
o PDF visto que a impressora Q4 só tem papel em suas configurações para cupom.
O comprimento do cupom estava sendo definido como ...
- 13 Mar 2026 22:42
- Fórum: Banco de Dados
- Tópico: JSON está morto 🤯
- Respostas: 8
- Exibições: 3309
Re: JSON está morto 🤯
Olá!
Consegui baixar copiando este último link e colando no navegador, pois nada acontece ao clicar no mesmo. Estou usando um celular.
Não, não tenho conta no GitHub.
Consegui baixar copiando este último link e colando no navegador, pois nada acontece ao clicar no mesmo. Estou usando um celular.
- 13 Mar 2026 13:54
- Fórum: Legislação Fiscal e Tributária
- Tópico: Satus do SEFAZ CUPO/NFE
- Respostas: 5
- Exibições: 2722
Re: Satus do SEFAZ CUPO/NFE
... Open( "GET", cEanApi, .F. )
oPg:Send()
cXMLSedex := oPg:ResponseText // oPg:ResponseXML:xml
rMemoWrit( cPathDados + "\SEFAZ-"+charRem(":-/",time())+".STS", cXMLSedex )
endif
// TOleAuto() no Harbour e CreateObject() no xHarbour
if empty(cXMLSedex)
lSuccess := .f.
else
oXMLDoc ...
oPg:Send()
cXMLSedex := oPg:ResponseText // oPg:ResponseXML:xml
rMemoWrit( cPathDados + "\SEFAZ-"+charRem(":-/",time())+".STS", cXMLSedex )
endif
// TOleAuto() no Harbour e CreateObject() no xHarbour
if empty(cXMLSedex)
lSuccess := .f.
else
oXMLDoc ...
- 07 Mar 2026 19:09
- Fórum: Banco de Dados
- Tópico: JSON está morto 🤯
- Respostas: 8
- Exibições: 3309
Re: JSON está morto 🤯
Olá!
@Rochinha
Na tua assinatura, na parte que menciona links quebrados, o link está quebrado, provavelmente apontando para o fórum antigo.
O link abre o Github mas ao tentar abrir qualquer um dos arquivos dá erro "Error loading page".
@Rochinha
Na tua assinatura, na parte que menciona links quebrados, o link está quebrado, provavelmente apontando para o fórum antigo.
- 26 Fev 2026 10:15
- Fórum: [x]Harbour
- Tópico: Atualizações Harbour 3.2 - 16/02/2025
- Respostas: 0
- Exibições: 2576
Atualizações Harbour 3.2 - 16/02/2025
... problem with proportional fonts in QT6 though in some
environments it may not give the optimal results.
This setting can be overwritten at runtime by
QT_SCALE_FACTOR_ROUNDING_POLICY environment variable.
2026-02-06 13:53 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/gtqtc ...
environments it may not give the optimal results.
This setting can be overwritten at runtime by
QT_SCALE_FACTOR_ROUNDING_POLICY environment variable.
2026-02-06 13:53 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/gtqtc ...
- 18 Fev 2026 21:59
- Fórum: [x]Harbour
- Tópico: tela cheia no linux
- Respostas: 13
- Exibições: 3971
Re: tela cheia no linux
... problem with proportional fonts in QT6 though in some
environments it may not give the optimal results.
This setting can be overwritten at runtime by
QT_SCALE_FACTOR_ROUNDING_POLICY environment variable.
2026-02-06 13:53 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/gtqtc ...
environments it may not give the optimal results.
This setting can be overwritten at runtime by
QT_SCALE_FACTOR_ROUNDING_POLICY environment variable.
2026-02-06 13:53 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/gtqtc ...
- 18 Fev 2026 21:43
- Fórum: [x]Harbour
- Tópico: tela cheia no linux
- Respostas: 13
- Exibições: 3971
Re: tela cheia no linux
... Set( _SET_EVENTMASK, INKEY_ALL )
#endif
lRawKey := .f.
#endif
MDblClk( 250 )
SetCancel( .F. )
// AltD(0)
? OS(), Version(), Date(), Time()
#ifdef __HARBOUR__
? hb_gtVersion( 1 ), "GT" + hb_gtVersion()
? "Host codpage: " + hb_cdpSelect() + ", terminal codepage: " + cTermCP
#endif ...
#endif
lRawKey := .f.
#endif
MDblClk( 250 )
SetCancel( .F. )
// AltD(0)
? OS(), Version(), Date(), Time()
#ifdef __HARBOUR__
? hb_gtVersion( 1 ), "GT" + hb_gtVersion()
? "Host codpage: " + hb_cdpSelect() + ", terminal codepage: " + cTermCP
#endif ...
- 07 Fev 2026 18:48
- Fórum: [x]Harbour
- Tópico: Atualização da GtQtc
- Respostas: 5
- Exibições: 1770
Atualização da GtQtc
... process,
it should fix resizing problem with current WMs.
+ added small hack to easy detect QT version used to compile GTQTC
+ added compile time switch HB_QTC_NO_HIGHDPI_SCALING
It's dirty hack to "fix" problem with font scaling in QT6 but it's
nit real solution. The same effect can be ...
it should fix resizing problem with current WMs.
+ added small hack to easy detect QT version used to compile GTQTC
+ added compile time switch HB_QTC_NO_HIGHDPI_SCALING
It's dirty hack to "fix" problem with font scaling in QT6 but it's
nit real solution. The same effect can be ...
- 26 Jan 2026 15:09
- Fórum: [x]Harbour
- Tópico: En tiempo de ejecución error.log
- Respostas: 5
- Exibições: 2495
Re: En tiempo de ejecución error.log
... cText, "" )
hb_Default( @nDetail, 0 )
IF nDetail > 0
Errorsys_WriteErrorLog()
Errorsys_WriteErrorLog( "Error on " + Dtoc( Date() ) + " " + Time() )
Errorsys_WriteErrorLog( "EXE Name; " + hb_Argv(0) )
Errorsys_WriteErrorLog( "JPA: " + AppVersaoExe() )
Errorsys_WriteErrorLog( "Memory ...
hb_Default( @nDetail, 0 )
IF nDetail > 0
Errorsys_WriteErrorLog()
Errorsys_WriteErrorLog( "Error on " + Dtoc( Date() ) + " " + Time() )
Errorsys_WriteErrorLog( "EXE Name; " + hb_Argv(0) )
Errorsys_WriteErrorLog( "JPA: " + AppVersaoExe() )
Errorsys_WriteErrorLog( "Memory ...
- 22 Jan 2026 22:58
- Fórum: HwGui
- Tópico: DESATIVAR TAB HWGUI 2.23 B8
- Respostas: 21
- Exibições: 5671
Re: DESATIVAR TAB HWGUI 2.23 B8
... DE ENTRADA
// =====================================================
PROCEDURE MAIN()
LOCAL cIP := "127.0.0.1"
LOCAL cPort := "2830"
LOCAL nTimeOut := 10000
LOCAL nConectarLeto, nRes
// Fonte padrão
PUBLIC oFontPSW
// monta string de conexão
cPathLeto := "//" + cIP + ":" + cPort ...
// =====================================================
PROCEDURE MAIN()
LOCAL cIP := "127.0.0.1"
LOCAL cPort := "2830"
LOCAL nTimeOut := 10000
LOCAL nConectarLeto, nRes
// Fonte padrão
PUBLIC oFontPSW
// monta string de conexão
cPathLeto := "//" + cIP + ":" + cPort ...
- 06 Jan 2026 03:23
- Fórum: Legislação Fiscal e Tributária
- Tópico: ref nfe em teste (homologação) e produção.
- Respostas: 2
- Exibições: 1005
Re: ref nfe em teste (homologação) e produção.
Olá Poka,
Achei que o ambiente de teste não misturava com a de produção, mas me parece que não é bem assim.
Sim! É exatamnete assim. O que acontece em homologação fica em homologação, e o que acontece em produção fica em produção, e eles não se misturam.
Se eu fizer nota teste nr 1 , vai ...
Achei que o ambiente de teste não misturava com a de produção, mas me parece que não é bem assim.
Sim! É exatamnete assim. O que acontece em homologação fica em homologação, e o que acontece em produção fica em produção, e eles não se misturam.
Se eu fizer nota teste nr 1 , vai ...