PC Toledo

... Ebscom/AppData/Local/Temp/hbmk_seot13.dir/testexprindex.o C:/Users/Ebscom/AppData/Local/Temp/hbmk_seot13.dir/hbmk_7zyimj.o -mconsole -Wl,--start-group -l"sqlrddpp-postgresql" -lodbc32 -lodbccp32 -lhbextern -lhbdebug -lhbvm -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui ...

... Ebscom/AppData/Local/Temp/hbmk_seot13.dir/testexprindex.o C:/Users/Ebscom/AppData/Local/Temp/hbmk_seot13.dir/hbmk_7zyimj.o -mconsole -Wl,--start-group -l"sqlrddpp-postgresql" -lodbc32 -lodbccp32 -lhbextern -lhbdebug -lhbvm -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui ...

... core
cd harbour-core
git checkout v3.2.0

Or download and unpack the release archive from GitHub.

Feedback and support

• Users' list: https://groups.google.com/group/harbour-users/
• Development list: https://groups.google.com/group/harbour-devel/
• Issues: https://github.com/harbour/core ...

... Produção', ;
'Documentos', ;
'Contratos', ;
'Bancos,', ;
'Estoque' HEIGHT 140 TOPMARGIN 25

oRBar:nLeftMargin = 01

oRBar:CalcPos()

ADD GROUP oGr1 RIBBON oRBar TO OPTION 1 width 1000

@ 16, 05 ADD BUTTON oBtn11 GROUP oGr1 SIZE 80, 72 PROMPT " &Tabelas " round ;
Action Menu_Tab_1 ...

... Produção', ;
'Documentos', ;
'Contratos', ;
'Bancos,', ;
'Estoque' HEIGHT 140 TOPMARGIN 25

oRBar:nLeftMargin = 01

oRBar:CalcPos()

ADD GROUP oGr1 RIBBON oRBar TO OPTION 1 width 1000

@ 16, 05 ADD BUTTON oBtn11 GROUP oGr1 SIZE 80, 72 PROMPT " &Tabelas " round ;
Action Menu_Tab_1 ...

... valor ELSE 0 END) AS Total_C_Com, " + ;
" SUM(CASE WHEN dc='D' AND TRIM(nrecibo)<>'' THEN valor ELSE 0 END) AS Total_D_Com " + ;
"FROM Dados " + ;
"GROUP BY valor, dc, nrecibo, valor;"


Para medir seu tempo, acrescente o seguinte antes e depois da query.

PUBLIC aQuantoTempoLevei := { time ...

... d.serie
AND b.ordem = d.ordem

WHERE
d.docum = :docum
AND d.codfor = :codfor
AND d.tpnota = :tpnota
AND d.serie = :serie
AND d.ordem = :ordem

GROUP BY
d.valor;

Índices recomendados no Firebird 2.5:

CREATE INDEX IDX_PAGARD_CHAVE ON PAGARD
(DOCUM, CODFOR, TPNOTA, SERIE, ORDEM);

CREATE INDEX ...

... serie AND d.ordem = :order
WHERE
b.docum = :docum AND b.codfor = :codfor AND b.tpnota = :tpnota AND b.serie = :serie AND b.ordem = :ordem
GROUP BY 1, 2, 3, 4

## Por que isso fica mais rápido?

1. SARGability: Ao usar coluna = :valor, o Firebird usa o índice da chave primária ou ...

... dc = 'D' and trim(b.nrecibo)<>'' )
from "+pagarb+" b
INNER JOIN "+pagard +" d
on d.docum||d.codfor||d.tpnota||d.serie||d.ordem = '"+xchave+"'
group by b.valor,b.dc, b.nrecibo , d.valor

Foi isto que eu quis sugerir. Não alterei nada. Pode deletar o outro tópico.

Talvez melhore com una ou ...

... from "+pagarb +" b where b.docum||b.codfor||b.tpnota||b.serie||b.ordem = '"+xchave+"' and b.dc = 'D' and trim(b.nrecibo)<>'' ) ";
+" from "+pagarb+" b INNER JOIN "+pagard +" d on d.docum||d.codfor||d.tpnota||d.serie||d.ordem = '"+xchave+"'" ;
+" group by b.valor,b.dc, b.nrecibo , d.valor;"

Poka

... ld returned 1 exit status
hbmk2: Erro: Executando linkeditor. 1
gcc '/tmp/hbmk_4wziap.dir/t.o' '/tmp/hbmk_4wziap.dir/hbmk_23of1w.o' -Wl,--start-group -lhbextern -lhbdebug -lhbvm -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgttrm -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddnsx ...

... 4

/* ADO Cursor Location */
#define AD_USE_NONE 1
#define AD_USE_SERVER 2
#define AD_USE_CLIENT 3
#define AD_USE_CLIENTBATCH 3

/* Constant Group: ObjectStateEnum */
#define AD_STATE_CLOSED 0
#define AD_STATE_OPEN 1
#define AD_STATE_CONNECTING 2
#define AD_STATE_EXECUTING 4
#define AD_STATE ...

... o .hbm
/win/mingw/TRAARQUI.o .hbmk/win/mingw/BAPEDIDO.o .hbmk/win/mingw/REL_PROV.o .hb
k/win/mingw/_hbmkaut_GASP40HB.o -mwindows -Wl,--start-group -lxhb -lhbwin -l
bct -lhbziparc -lhbmzip -lminizip -lhbnf -lhbhpdf -llibhpdf -lpng -lhbzebra -lh
extern -lhbdebug -lhbvmmt -lhbrtl -lhblang ...

... 510','550', '620', '800', '810', '820', '830'
CST=
cClassTrib=
; Reforma tributaria
;gIBSCBS001, gIBSCBSMono001 e gTransfCred001 é um "Choice Group" no Layout, ou seja, apenas uma das seções deve constar no arquivo INI
; Reforma tributaria
[gIBSCBS001]
vBC=
vIBS=
[gIBSUF001]
pIBSUF=
vIBSUF ...

... Paper Width (User PaperSize)
* _HMG_SYSDATA [ 119 ] -> Current Report Paper Length (User paperSize)
* _HMG_SYSDATA [ 120 ] -> Current Report Group Count
* _HMG_SYSDATA [ 121 ] -> Current Report Group Header Array
* _HMG_SYSDATA [ 122 ] -> Current Report Group Footer Array
* _HMG_SYSDATA ...