Fórum Problema na quebra do relatório com Fortes report #604141

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;