Problemas com frames no quickreport
27/07/2008
0
Abraços
Claudio Stein Junior
Frostlost
Posts
27/07/2008
Thomaz_prg
Se tiver e não conter a linha:
PrintBand := True;
de vez em quando o QuickRep dá uma endoidada e não funciona direito.
27/07/2008
Frostlost
procedure TRelCaixa.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if DmCaixa.CdsListaCaixa2TIPO.AsString = ´C´ then
begin
QRDBText6.Font.Color:=clblue;
credito:=credito + DmCaixa.CdsListaCaixa2VALOR.AsFloat;
end
else
begin
QRDBText6.Font.Color:=clred;
debito:=debito + DmCaixa.CdsListaCaixa2VALOR.AsFloat;
end;
end;
procedure TRelCaixa.TitleBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
debito:= 0;
credito:= 0;
end;
procedure TRelCaixa.SummaryBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
RelCaixa.qrlCredito.Caption:= FormatFloat(´R$ #,,0.00´, credito);
RelCaixa.qrlDebito.Caption:= FormatFloat(´R$ ,,0.00´, debito);
end;
29/07/2008
Frostlost
PrintBand := True;
Usei no código abaixo e não funcionou:
procedure TRelCaixa.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if DmCaixa.CdsListaCaixa2TIPO.AsString = ´C´ then
begin
QRDBText6.Font.Color:=clblue;
credito:=credito + DmCaixa.CdsListaCaixa2VALOR.AsFloat;
end
else
begin
QRDBText6.Font.Color:=clred;
debito:=debito + DmCaixa.CdsListaCaixa2VALOR.AsFloat;
end;
PrintBand := True;
end;
Clique aqui para fazer login e interagir na Comunidade :)