Problema na quebra do relatório com Fortes report

Delphi

01/08/2019

Quando gero um relatório com o fortes report os valores do final da página ficam quebrados

o relatório começa aqui, ao quebrar a linha ele joga o valor total na pagina 1 e joga o valor zerado na pagina 2
https://i.postimg.cc/fTjDJL0F/img1.jpg

aqui na página 2 o valor de 9,9 é mostrado na band, porem o campo total aparece zerado pois esse valor ja foi jogado na pagina 1
https://i.postimg.cc/Gm5N2wzV/img2.png

gostaria que funcionasse que nem os outros, o erro só acontece no ultimo registro que tem a quebra de uma página pra outra, segue o código.

vou mostrar a parte das bands que fazem o calculo

unit UnRelPedidoAna;

procedure TfmRelPedidoAna.RLBand3BeforePrint(Sender: TObject; var PrintIt: Boolean);
var x: double;
begin
  inherited;
  Contraste(RLBand3);
  if Trim(dstbLocal.DataSet.FieldByName('PVITIP').AsString) = '2' then begin
    lbCancelado.Visible := True;
  end
  else begin
    lbCancelado.Visible := False;
    FTotalPrevenda := FTotalPrevenda + dstbLocal.DataSet.FieldByname('TOTAL_ITEM').AsFloat;
  end;
//  FTotalPrevenda := FTotalPrevenda + dstbLocal.DataSet.FieldByname('PVDVLR').AsFloat;
  x := dstbLocal.DataSet.FieldByname('PVIVLRDCN').AsFloat;
  lbPROCOD.Visible := false;
end;

procedure TfmRelPedidoAna.RLBand4BeforePrint(Sender: TObject;
  var PrintIt: Boolean);
begin
  inherited;
  lbQtdRegistroTotal.Caption:=inttostr(FQtdRegistroTotal);
  lbTotalGeral.Caption := FormatFloat('#,##0.00',FTotalGeral);
end;

procedure TfmRelPedidoAna.RLBand6BeforePrint(Sender: TObject;
  var PrintIt: Boolean);
begin
  inherited;
  lbQtdRegistroCliente.Caption:=inttostr(FQtdRegistroCliente);
  FQtdRegistroCliente :=0;
  lbTotCli.Caption    := FormatFloat('#,##0.00',FTotalQuebra);
  FTotalGeral         := FTotalGeral + FTotalQuebra;
  FTotalQuebra        := 0;
end;
João Azevedo

João Azevedo

Curtidas 0

Respostas

Fernando Ito

Fernando Ito

01/08/2019

Oi João Azevedo,

Estava olhando as imagens que você encaminhou e a programação, pelo que eu entendi você usa um label para receber o total, já tentou usar o componente Result do Fortes Report?
Na propriedade info configura para riSum e informa o campo a ser somado, ou se já tiver um campo com o total melhor ainda, tenta fazer este teste, boa sorte!

Um abraço,
ITO
GOSTEI 0
POSTAR