Quickreport forum
Go to Quickreport website
Welcome Guest Search | Active Topics | Log In | Register

Endless report
mdsystems
#1 Posted : 28 February 2017 09:18:08(UTC)
Rank: Newbie

Groups: Registered
Joined: 28/02/2017(UTC)
Posts: 1
Location: Suffolk, UK

Thanks: 0 times
Was thanked: 0 time(s) in 0 post(s)
I have taken over a project for a client and it extensively uses Quickreport. I am using Delphi Berlin 10.1 and QR 6.00 Build 4.10. I am using FireDAC with Postgres for the database.

One report that I have generates pages endlessly, with the same records showing on all pages. If I preview it at design-time, it simply keeps on generating until I close the file in the IDE, which results in an AV. The data set only has 300 or so records.

Being new to QR, I am at a bit of a loss to determine why this is happening.

I have included the report definition here in case it helps.

Code:

object OrdersProcessedRep: TQuickRep
  Left = 16
  Top = 16
  Width = 794
  Height = 1123
  ShowingPreview = False
  BeforePrint = OrdersProcessedRepBeforePrint
  DataSet = fDM_Report.fdqOrdersProcessed
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  Functions.Strings = (
    'PAGENUMBER'
    'COLUMNNUMBER'
    'REPORTTITLE')
  Functions.DATA = (
    '0'
    '0'
    #39#39)
  Options = [FirstPageHeader, LastPageFooter]
  Page.Columns = 1
  Page.Orientation = poPortrait
  Page.PaperSize = A4
  Page.Continuous = False
  Page.Values = (
    100.000000000000000000
    2970.000000000000000000
    100.000000000000000000
    2100.000000000000000000
    100.000000000000000000
    100.000000000000000000
    0.000000000000000000)
  PrinterSettings.Copies = 1
  PrinterSettings.OutputBin = Auto
  PrinterSettings.Duplex = False
  PrinterSettings.FirstPage = 0
  PrinterSettings.LastPage = 0
  PrinterSettings.UseStandardprinter = False
  PrinterSettings.UseCustomBinCode = False
  PrinterSettings.CustomBinCode = 0
  PrinterSettings.ExtendedDuplex = 0
  PrinterSettings.UseCustomPaperCode = False
  PrinterSettings.CustomPaperCode = 0
  PrinterSettings.PrintMetaFile = False
  PrinterSettings.MemoryLimit = 1000000
  PrinterSettings.PrintQuality = 0
  PrinterSettings.Collate = 0
  PrinterSettings.ColorOption = 0
  PrintIfEmpty = True
  SnapToGrid = True
  Units = Native
  Zoom = 100
  PrevFormStyle = fsNormal
  PreviewInitialState = wsMaximized
  PreviewWidth = 500
  PreviewHeight = 500
  PrevShowThumbs = False
  PrevShowSearch = False
  PrevInitialZoom = qrZoomOther
  PreviewDefaultSaveType = stQRP
  PreviewLeft = 0
  PreviewTop = 0
  object QRBand5: TQRBand
    Left = 38
    Top = 38
    Width = 718
    Height = 99
    AlignToBottom = False
    TransparentBand = False
    ForceNewColumn = False
    ForceNewPage = False
    Size.Values = (
      261.937500000000000000
      1899.708333333333000000)
    PreCaluculateBandHeight = False
    KeepOnOnePage = False
    BandType = rbPageHeader
    object QRLabel17: TQRLabel
      Left = 8
      Top = 8
      Width = 334
      Height = 33
      Size.Values = (
        87.312500000000000000
        21.166666666666670000
        21.166666666666670000
        883.708333333333300000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      Caption = 'Orders Processed Report'
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -27
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      VerticalAlignment = tlTop
      FontSize = 20
    end
    object QRLabel18: TQRLabel
      Left = 616
      Top = 32
      Width = 31
      Height = 17
      Size.Values = (
        44.979166666666670000
        1629.833333333333000000
        84.666666666666670000
        82.020833333333330000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      Caption = 'Page'
      Color = clWhite
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object ReportTypeLabel: TQRLabel
      Left = 8
      Top = 48
      Width = 98
      Height = 17
      Size.Values = (
        44.979166666666670000
        21.166666666666670000
        127.000000000000000000
        259.291666666666700000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      Caption = 'ReportTypeLabel'
      Color = clWhite
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object QRSysData5: TQRSysData
      Left = 656
      Top = 32
      Width = 46
      Height = 17
      Size.Values = (
        44.979166666666670000
        1735.666666666667000000
        84.666666666666670000
        121.708333333333300000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      Color = clWhite
      Data = qrsPageNumber
      Text = ''
      Transparent = False
      ExportAs = exptText
      FontSize = 10
    end
    object QRSysData6: TQRSysData
      Left = 616
      Top = 8
      Width = 68
      Height = 17
      Size.Values = (
        44.979166666666670000
        1629.833333333333000000
        21.166666666666670000
        179.916666666666700000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      Color = clWhite
      Data = qrsDateTime
      Text = ''
      Transparent = False
      ExportAs = exptText
      FontSize = 10
    end
    object QRLabel19: TQRLabel
      Left = 0
      Top = 80
      Width = 49
      Height = 17
      Size.Values = (
        44.979166666666670000
        0.000000000000000000
        211.666666666666700000
        129.645833333333300000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      Caption = 'Job Ref'
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object QRLabel20: TQRLabel
      Left = 67
      Top = 80
      Width = 61
      Height = 17
      Size.Values = (
        44.979166666666670000
        177.270833333333300000
        211.666666666666700000
        161.395833333333300000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      Caption = 'Customer'
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object QRLabel21: TQRLabel
      Left = 248
      Top = 80
      Width = 56
      Height = 17
      Size.Values = (
        44.979166666666670000
        656.166666666666700000
        211.666666666666700000
        148.166666666666700000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      Caption = 'Job Title'
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object QRLabel22: TQRLabel
      Left = 468
      Top = 80
      Width = 71
      Height = 17
      Size.Values = (
        44.979166666666670000
        1238.250000000000000000
        211.666666666666700000
        187.854166666666700000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      Caption = 'Staff Name'
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object QRLabel23: TQRLabel
      Left = 588
      Top = 80
      Width = 70
      Height = 17
      Size.Values = (
        44.979166666666670000
        1555.750000000000000000
        211.666666666666700000
        185.208333333333300000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      Caption = 'Order Date'
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object QRLabel24: TQRLabel
      Left = 664
      Top = 64
      Width = 49
      Height = 33
      Size.Values = (
        87.312500000000000000
        1756.833333333333000000
        169.333333333333300000
        129.645833333333300000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = False
      Caption = 'Repeat Order'
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object QRLabel25: TQRLabel
      Left = 384
      Top = 16
      Width = 125
      Height = 25
      Size.Values = (
        66.145833333333330000
        1016.000000000000000000
        42.333333333333330000
        330.729166666666700000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      Caption = 'Order Count'
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      VerticalAlignment = tlTop
      FontSize = 16
    end
    object QRSysData7: TQRSysData
      Left = 520
      Top = 16
      Width = 135
      Height = 25
      Size.Values = (
        66.145833333333330000
        1375.833333333333000000
        42.333333333333330000
        357.187500000000000000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      Color = clWhite
      Data = qrsDetailCount
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Text = ''
      Transparent = False
      ExportAs = exptText
      FontSize = 16
    end
  end
  object QRBand6: TQRBand
    Left = 38
    Top = 137
    Width = 718
    Height = 24
    AlignToBottom = False
    TransparentBand = False
    ForceNewColumn = False
    ForceNewPage = False
    Size.Values = (
      63.500000000000000000
      1899.708333333333000000)
    PreCaluculateBandHeight = False
    KeepOnOnePage = False
    BandType = rbDetail
    object QRDBText14: TQRDBText
      Left = 0
      Top = 3
      Width = 49
      Height = 17
      Size.Values = (
        44.979166666666670000
        0.000000000000000000
        7.937500000000000000
        129.645833333333300000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = False
      Color = clWhite
      DataField = 'job_ref'
      OnPrint = QRDBText14Print
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      FullJustify = False
      MaxBreakChars = 0
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object QRDBText15: TQRDBText
      Left = 67
      Top = 3
      Width = 169
      Height = 17
      Size.Values = (
        44.979166666666670000
        177.270833333333300000
        7.937500000000000000
        447.145833333333300000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = False
      Color = clWhite
      DataField = 'company_name'
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      FullJustify = False
      MaxBreakChars = 0
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object QRDBText16: TQRDBText
      Left = 248
      Top = 3
      Width = 209
      Height = 17
      Size.Values = (
        44.979166666666670000
        656.166666666666700000
        7.937500000000000000
        552.979166666666700000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = False
      Color = clWhite
      DataField = 'job_title'
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      FullJustify = False
      MaxBreakChars = 0
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object QRDBText17: TQRDBText
      Left = 468
      Top = 3
      Width = 113
      Height = 17
      Size.Values = (
        44.979166666666670000
        1238.250000000000000000
        7.937500000000000000
        298.979166666666700000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = False
      Color = clWhite
      DataField = 'full_name'
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      FullJustify = False
      MaxBreakChars = 0
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object QRDBText18: TQRDBText
      Left = 588
      Top = 3
      Width = 70
      Height = 17
      Size.Values = (
        44.979166666666670000
        1555.750000000000000000
        7.937500000000000000
        185.208333333333300000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = False
      Color = clWhite
      DataField = 'order_date'
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      FullJustify = False
      MaxBreakChars = 0
      VerticalAlignment = tlTop
      FontSize = 10
    end
    object QRDBText19: TQRDBText
      Left = 664
      Top = 3
      Width = 49
      Height = 17
      Size.Values = (
        44.979166666666670000
        1756.833333333333000000
        7.937500000000000000
        129.645833333333300000)
      XLColumn = 0
      XLNumFormat = nfGeneral
      ActiveInPreview = False
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = False
      Color = clWhite
      DataField = 'repeat_order'
      Transparent = False
      ExportAs = exptText
      WrapStyle = BreakOnSpaces
      FullJustify = False
      MaxBreakChars = 0
      VerticalAlignment = tlTop
      FontSize = 10
    end
  end
end
Users browsing this topic
Guest
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

Clean Slate theme by Jaben Cargman (Tiny Gecko)
Powered by YAF 1.9.4 | YAF © 2003-2010, Yet Another Forum.NET
This page was generated in 0.042 seconds.