Duvida com QR

Question

Eu tenho um sistema com BD em paradox, que esta rodando ja h� uns 3 meses no cliente e hj estou querendo colocar uma tela de relatorio com QR, mas preciso fazer o calculo dos valores mas o problema qu...

Djjunior · Answer

ol� bem n�o conhe�o esse tipo de campo �$�, mas se na sua query/table os registros n�o vem como float/bcd etc vc pode fazer o seguinte...

Crie uma variavel private tipo soma
No BeforePrint da banda detail some-a tipo : soma := soma + strtoFloat(valor)
na banda de sumario coloque um label
No BeforePrint da banda sumario fa�a: lbTot.caption := formatFloat(�#,0.00�) e logo ap�s zere a variavel - pois se vc der um preview pra depois um print o resultado final vai sair dobrado !

Japapdb · Answer

opa... acho q n�o entendi muito bem.tipo o meu codigo ficou assim:varsoma:real;procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;  var PrintBand: Boolean);beginsoma := soma + strtofloat(dbedit1.Text);end;================================================procedure TForm1.SummaryBand1BeforePrint(Sender: TQRCustomBand;  var PrintBand: Boolean);beginlabel4.caption := formatfloat(�#,0.00�);end;mas n�o esta rodando esta segunda parte label4.caption :=formatfloat(�,0.00�);esta dando um erro:�There is no overloaded version of �FormatFloat� that can be called with these arguments�Valeu!...

Djjunior · Answer

... o correto � formatfloat(�#,0.00�, soma); [b:24c25e4b92] logo ap�s ZERE a variavel - pois se vc der um preview pra depois um print o resultado final vai sair dobrado ! [/b:24c25e4b92]...

Japapdb · Answer

O Amig�o funciono tudo blz agora... Vlw mesmo......

F�rum Duvida com QR #354447