object fmSuppAgedCreditors: TfmSuppAgedCreditors
  Left = 47
  Top = 111
  AutoScroll = False
  Caption = 'Aged Creditors'
  ClientHeight = 432
  ClientWidth = 698
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  Position = poDefaultPosOnly
  Scaled = False
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 0
    Top = 52
    Width = 698
    Height = 380
    ActivePage = TabReport
    Align = alBottom
    TabOrder = 1
    OnChange = PageControl1Change
    object TabReport: TTabSheet
      Caption = 'Report'
      object SpeedBar: TSpeedBar
        Left = 0
        Top = 0
        Width = 690
        Height = 49
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
        BtnOffsetHorz = 3
        BtnOffsetVert = 3
        BtnWidth = 70
        BtnHeight = 43
        TabOrder = 1
        OnDblClick = BtnZoomClick
        InternalVer = 1
        object SpeedbarSection1: TSpeedbarSection
          Caption = 'Untitled (0)'
        end
        object BtnZoom: TSpeedItem
          BtnCaption = 'Zoom In'
          Caption = 'Transaction zoom-in'
          Spacing = 1
          Left = 3
          Top = 3
          Visible = True
          OnClick = BtnZoomClick
          SectionName = 'Untitled (0)'
        end
        object BtnRepPrint: TSpeedItem
          BtnCaption = 'Print'
          Caption = 'Print aged creditors report'
          Hint = 'Print aged creditors report|'
          Spacing = 1
          Left = 73
          Top = 3
          Visible = True
          OnClick = BtnRepPrintClick
          SectionName = 'Untitled (0)'
        end
        object BtnRepEmail: TSpeedItem
          BtnCaption = 'Email'
          Caption = 'Email aged creditors report'
          Hint = 'Email aged creditors report|'
          Spacing = 1
          Left = 143
          Top = 3
          Visible = True
          OnClick = BtnRepEmailClick
          SectionName = 'Untitled (0)'
        end
        object BtnRepClose: TSpeedItem
          BtnCaption = 'Close'
          Caption = 'Close this window'
          Hint = 'Close this window|'
          Spacing = 1
          Left = 283
          Top = 3
          Visible = True
          OnClick = BtnRepCloseClick
          SectionName = 'Untitled (0)'
        end
        object BtnRepHelp: TSpeedItem
          BtnCaption = '&Help'
          Caption = 'View full help on this window'
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
            888888888E6648888888888888E6688888888888888888888888888888446888
            8888888886664888888888888E664888888888888E6664888888888888E66648
            88888888888E6664888888844888E6664888886664888E66488888E666444666
            4888888E6666666668888888EE6666668888888888EEEEE88888}
          Hint = 'View full help on this window'
          Spacing = 1
          Left = 213
          Top = 3
          Visible = True
          OnClick = BtnRepHelpClick
          SectionName = 'Untitled (0)'
        end
      end
      object Panel2: TPanel
        Left = 0
        Top = 49
        Width = 690
        Height = 300
        Align = alClient
        Caption = 'Panel2'
        TabOrder = 0
        object wwDBGrid1: TwwDBGrid
          Left = 1
          Top = 1
          Width = 688
          Height = 298
          Selected.Strings = (
            'ACCREF'#9'12'#9'Supp. Ref'#9'F'
            'NAME'#9'36'#9'Supplier Name'#9'F'
            'BALANCE'#9'10'#9'Current ~Balance'#9'F'
            'BalAsAt'#9'10'#9'Balance As~At'#9'F'
            'CREITLMT'#9'10'#9'Credit Limit'#9'F'
            'CURRENT'#9'10'#9'Current'#9'F'
            'PERBAL1'#9'10'#9'30 Days'#9'F'
            'PERBAL2'#9'10'#9'60 Days'#9'F'
            'PERBAL3'#9'10'#9'90 Days'#9'F'
            'PERBAL4'#9'10'#9'Older'#9'F'
            'TERMS'#9'10'#9'Terms'#9'F'
            'ONSTOP'#9'7'#9'On Stop'#9'F'
            'CONTACT'#9'25'#9'Contact Name'#9'F'
            'TELNO1'#9'15'#9'Tel No. 1'#9'F'
            'TELNO2'#9'15'#9'Tel No. 2'#9'F'
            'FAXNO'#9'15'#9'Fax No.'#9'F'
            'EMAIL'#9'25'#9'Email'#9'F'
            'LPAYDATE'#9'10'#9'Last Paid'#9'F'
            'LSALEDATE'#9'10'#9'Last Sale'#9'F'
            'MTOVER'#9'11'#9'MTD Turnover'#9'F'
            'YTOVER'#9'11'#9'YTD Turnover'#9'F')
          TitleColor = clBtnFace
          FixedCols = 1
          ShowHorzScrollBar = True
          Align = alClient
          DataSource = dsSupplier
          KeyOptions = [dgAllowDelete]
          Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells]
          PopupMenu = pmRClick
          TabOrder = 0
          TitleAlignment = taLeftJustify
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = 'Arial'
          TitleFont.Style = []
          TitleLines = 2
          TitleButtons = True
          OnCalcCellColors = wwDBGrid1CalcCellColors
          OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
          OnTitleButtonClick = wwDBGrid1TitleButtonClick
          OnDblClick = BtnZoomClick
          IndicatorColor = icBlack
          OnTopRowChanged = wwDBGrid1TopRowChanged
          OnCalcTitleImage = wwDBGrid1CalcTitleImage
          TitleImageList = ImagesDM.GenralBM
          FooterCellColor = clYellow
          FooterHeight = 25
        end
      end
    end
    object TabGraph: TTabSheet
      Caption = 'Graph'
      object SpeedBar1: TSpeedBar
        Left = 0
        Top = 0
        Width = 0
        Height = 49
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
        BtnOffsetHorz = 3
        BtnOffsetVert = 3
        BtnWidth = 70
        BtnHeight = 43
        TabOrder = 0
        InternalVer = 1
        object Label6: TLabel
          Left = 540
          Top = 4
          Width = 72
          Height = 16
          Caption = 'Graph Type'
        end
        object ComboBox2: TComboBox
          Left = 540
          Top = 20
          Width = 137
          Height = 24
          Hint = 'Press F1 for help'
          ItemHeight = 16
          Items.Strings = (
            'Vertical Bar '
            'Horizontal Bar'
            'Line'
            'Fast Line'
            'Point'
            'Area')
          TabOrder = 1
          Text = 'Vertical Bar '
          OnChange = ComboBox2Change
        end
        object cbMarks: TCheckBox
          Left = 392
          Top = 20
          Width = 125
          Height = 17
          Hint = 'Press F1 for help'
          HelpContext = 147
          Alignment = taLeftJustify
          Caption = '&Toggle Marks'
          State = cbChecked
          TabOrder = 0
          OnClick = cbMarksClick
        end
        object SpeedbarSection2: TSpeedbarSection
          Caption = 'Untitled (0)'
        end
        object BtnSaveGraph: TSpeedItem
          BtnCaption = 'Save'
          Caption = 'Save graph to file'
          DropDownMenu = PopupMenu1
          Hint = 'Save graph to file'
          NumGlyphs = 2
          Spacing = 1
          Left = 3
          Top = 3
          Visible = True
          SectionName = 'Untitled (0)'
        end
        object BtnPrintGraph: TSpeedItem
          BtnCaption = 'Print'
          Caption = 'Print aged creditors graph'
          Hint = 'Print aged creditors graph|'
          Spacing = 1
          Left = 73
          Top = 3
          Visible = True
          OnClick = BtnPrintGraphClick
          SectionName = 'Untitled (0)'
        end
        object BtnEmailGraph: TSpeedItem
          BtnCaption = 'Email'
          Caption = 'Email aged creditors graph'
          Hint = 'Email aged creditors graph|'
          Spacing = 1
          Left = 143
          Top = 3
          Visible = True
          OnClick = BtnEmailGraphClick
          SectionName = 'Untitled (0)'
        end
        object BtnCloseGraph: TSpeedItem
          BtnCaption = 'Close'
          Caption = 'Close this window'
          Hint = 'Close this window'
          Spacing = 1
          Left = 283
          Top = 3
          Visible = True
          OnClick = BtnCloseGraphClick
          SectionName = 'Untitled (0)'
        end
        object BtnHelpGraph: TSpeedItem
          BtnCaption = 'Help'
          Caption = 'Help'
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
            888888888E6648888888888888E6688888888888888888888888888888446888
            8888888886664888888888888E664888888888888E6664888888888888E66648
            88888888888E6664888888844888E6664888886664888E66488888E666444666
            4888888E6666666668888888EE6666668888888888EEEEE88888}
          Spacing = 1
          Left = 213
          Top = 3
          Visible = True
          OnClick = BtnHelpGraphClick
          SectionName = 'Untitled (0)'
        end
      end
      object Notebook1: TNotebook
        Left = 0
        Top = 49
        Width = 690
        Height = 300
        Align = alClient
        TabOrder = 1
        OnPageChanged = Notebook1PageChanged
        object TPage
          Left = 0
          Top = 0
          Caption = 'AllCustomers'
          object AllSupplierChart: TChart
            Left = 0
            Top = 0
            Width = 690
            Height = 300
            BottomWall.Brush.Color = clBlue
            BottomWall.Color = clWhite
            Foot.Font.Charset = DEFAULT_CHARSET
            Foot.Font.Color = clRed
            Foot.Font.Height = -13
            Foot.Font.Name = 'Arial'
            Foot.Font.Style = [fsItalic]
            Gradient.EndColor = 12615680
            Gradient.Visible = True
            LeftWall.Brush.Color = clBlue
            LeftWall.Color = 16744448
            LeftWall.Pen.Color = 8388863
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -17
            Title.Font.Name = 'Arial'
            Title.Font.Style = []
            Title.Text.Strings = (
              'Aged Debtor Chart')
            BackColor = clWhite
            BottomAxis.Title.Caption = 'Periods'
            BottomAxis.Title.Font.Charset = ANSI_CHARSET
            BottomAxis.Title.Font.Color = clBlue
            BottomAxis.Title.Font.Height = -13
            BottomAxis.Title.Font.Name = 'Arial Black'
            BottomAxis.Title.Font.Style = []
            LeftAxis.Title.Caption = 'Amount Due'
            LeftAxis.Title.Font.Charset = ANSI_CHARSET
            LeftAxis.Title.Font.Color = clBlue
            LeftAxis.Title.Font.Height = -13
            LeftAxis.Title.Font.Name = 'Arial Black'
            LeftAxis.Title.Font.Style = []
            Legend.Alignment = laBottom
            Legend.Color = 10738885
            Legend.TextStyle = ltsPlain
            Legend.ShadowColor = 10485760
            Legend.ShadowSize = 2
            MaxPointsPerPage = 7
            Align = alClient
            BorderStyle = bsSingle
            Color = 8388863
            TabOrder = 0
            object BSAllSupplier: TBarSeries
              ColorEachPoint = True
              Marks.Arrow.Color = clBlue
              Marks.ArrowLength = 11
              Marks.BackColor = 8454016
              Marks.Style = smsValue
              Marks.Visible = True
              Title = 'AgedDebtor'
              SeriesColor = clRed
              XValues.DateTime = False
              XValues.Name = 'X'
              XValues.Multiplier = 1.000000000000000000
              XValues.Order = loAscending
              YValues.DateTime = False
              YValues.Name = 'Bar'
              YValues.Multiplier = 1.000000000000000000
              YValues.Order = loNone
            end
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'SelectedPeriod'
          object SelectedPeriodChart: TChart
            Left = 0
            Top = 0
            Width = 690
            Height = 300
            BottomWall.Color = clWhite
            Foot.Font.Charset = DEFAULT_CHARSET
            Foot.Font.Color = clRed
            Foot.Font.Height = -13
            Foot.Font.Name = 'Arial'
            Foot.Font.Style = [fsItalic]
            Gradient.EndColor = clTeal
            Gradient.Visible = True
            LeftWall.Color = 16744448
            LeftWall.Pen.Color = 8388863
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -17
            Title.Font.Name = 'Arial'
            Title.Font.Style = []
            Title.Text.Strings = (
              'Period By Customer')
            BackColor = clWhite
            BottomAxis.LabelsFont.Charset = DEFAULT_CHARSET
            BottomAxis.LabelsFont.Color = clBlack
            BottomAxis.LabelsFont.Height = -10
            BottomAxis.LabelsFont.Name = 'Arial'
            BottomAxis.LabelsFont.Style = []
            BottomAxis.Title.Caption = 'Periods'
            BottomAxis.Title.Font.Charset = ANSI_CHARSET
            BottomAxis.Title.Font.Color = clBlue
            BottomAxis.Title.Font.Height = -13
            BottomAxis.Title.Font.Name = 'Arial Black'
            BottomAxis.Title.Font.Style = []
            LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET
            LeftAxis.LabelsFont.Color = clBlack
            LeftAxis.LabelsFont.Height = -10
            LeftAxis.LabelsFont.Name = 'Arial'
            LeftAxis.LabelsFont.Style = []
            LeftAxis.Title.Caption = 'Amount Due'
            LeftAxis.Title.Font.Charset = ANSI_CHARSET
            LeftAxis.Title.Font.Color = clBlue
            LeftAxis.Title.Font.Height = -13
            LeftAxis.Title.Font.Name = 'Arial Black'
            LeftAxis.Title.Font.Style = []
            Legend.Font.Charset = DEFAULT_CHARSET
            Legend.Font.Color = clBlue
            Legend.Font.Height = -10
            Legend.Font.Name = 'Arial'
            Legend.Font.Style = [fsItalic]
            Legend.TextStyle = ltsLeftPercent
            MaxPointsPerPage = 12
            Align = alClient
            BorderStyle = bsSingle
            Color = 8388863
            TabOrder = 0
            object BSSelectedPeriod: TBarSeries
              ColorEachPoint = True
              Marks.Arrow.Color = clBlue
              Marks.ArrowLength = 11
              Marks.BackColor = 8454016
              Marks.Style = smsValue
              Marks.Visible = True
              Title = 'AgedDebtor'
              SeriesColor = clRed
              XValues.DateTime = False
              XValues.Name = 'X'
              XValues.Multiplier = 1.000000000000000000
              XValues.Order = loAscending
              YValues.DateTime = False
              YValues.Name = 'Bar'
              YValues.Multiplier = 1.000000000000000000
              YValues.Order = loNone
            end
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'SelectedCustomer'
          object SelectedSupplierChart: TChart
            Left = 0
            Top = 0
            Width = 690
            Height = 300
            BottomWall.Color = clWhite
            Foot.Font.Charset = DEFAULT_CHARSET
            Foot.Font.Color = clRed
            Foot.Font.Height = -13
            Foot.Font.Name = 'Arial'
            Foot.Font.Style = [fsItalic]
            Gradient.EndColor = 16744703
            Gradient.Visible = True
            LeftWall.Color = 16744448
            LeftWall.Pen.Color = 8388863
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -17
            Title.Font.Name = 'Arial'
            Title.Font.Style = []
            Title.Text.Strings = (
              '')
            BackColor = clWhite
            BottomAxis.Title.Caption = 'Periods'
            BottomAxis.Title.Font.Charset = ANSI_CHARSET
            BottomAxis.Title.Font.Color = clBlue
            BottomAxis.Title.Font.Height = -13
            BottomAxis.Title.Font.Name = 'Arial Black'
            BottomAxis.Title.Font.Style = []
            LeftAxis.Title.Caption = 'Amount Due'
            LeftAxis.Title.Font.Charset = ANSI_CHARSET
            LeftAxis.Title.Font.Color = clBlue
            LeftAxis.Title.Font.Height = -13
            LeftAxis.Title.Font.Name = 'Arial Black'
            LeftAxis.Title.Font.Style = []
            Legend.Color = 8454016
            Legend.TextStyle = ltsRightPercent
            MaxPointsPerPage = 7
            Align = alClient
            BorderStyle = bsSingle
            Color = 8388863
            TabOrder = 0
            object BSSelectedSupplier: TBarSeries
              ColorEachPoint = True
              Marks.Arrow.Color = clBlue
              Marks.ArrowLength = 11
              Marks.BackColor = 8454016
              Marks.Style = smsValue
              Marks.Visible = True
              Title = 'AgedDebtor'
              SeriesColor = clRed
              XValues.DateTime = False
              XValues.Name = 'X'
              XValues.Multiplier = 1.000000000000000000
              XValues.Order = loAscending
              YValues.DateTime = False
              YValues.Name = 'Bar'
              YValues.Multiplier = 1.000000000000000000
              YValues.Order = loNone
            end
          end
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 698
    Height = 52
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 4
      Width = 79
      Height = 16
      Caption = 'Start Supplier'
    end
    object Label2: TLabel
      Left = 152
      Top = 4
      Width = 86
      Height = 16
      Caption = 'Finish Supplier'
    end
    object Label3: TLabel
      Left = 328
      Top = 4
      Width = 57
      Height = 16
      Caption = 'Include ...'
    end
    object Label4: TLabel
      Left = 484
      Top = 4
      Width = 35
      Height = 16
      Caption = 'Above'
    end
    object Label5: TLabel
      Left = 576
      Top = 4
      Width = 96
      Height = 16
      Caption = 'View Balance At'
    end
    object DBCDlgStSuppRef: TComboEdit
      Left = 8
      Top = 20
      Width = 120
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 100
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 16
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnButtonClick = DBCDlgStSuppRefButtonClick
      OnEnter = DBCDlgStSuppRefEnter
      OnExit = DBCDlgStSuppRefExit
    end
    object DBCDlgFiSuppRef: TComboEdit
      Left = 140
      Top = 20
      Width = 120
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 101
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 16
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnButtonClick = DBCDlgFiSuppRefButtonClick
      OnEnter = DBCDlgFiSuppRefEnter
      OnExit = DBCDlgFiSuppRefExit
    end
    object CEAbove: TRxCalcEdit
      Left = 456
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 141
      AutoSize = False
      ClickKey = 16451
      DisplayFormat = '0.00'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnEnter = CEAboveEnter
      OnExit = CEAboveExit
    end
    object DEViewBalAt: TDateEdit
      Left = 576
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 142
      ClickKey = 16452
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      TabOrder = 4
      OnAcceptDate = DEViewBalAtAcceptDate
      OnEnter = DEViewBalAtEnter
      OnExit = DEViewBalAtExit
    end
    object AICBOptions: TComboBox
      Left = 272
      Top = 20
      Width = 169
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 140
      ItemHeight = 16
      Items.Strings = (
        'Balance'
        'Current'
        '30 Days'
        '60 Days'
        '90 Days'
        'Older'
        'Credit Limit Exceeded'
        'On Stop')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = 'Balance'
      OnChange = AICBOptionsChange
    end
  end
  object Sizer1: TSizer
    Enabled = True
    ExceptionAction = eaIgnoreControl
    GridColumnSizing = gcSizeAllColumns
    GridRowSizing = grSizeByDefaults
    MinimumSize = True
    NavigateOnEnter = True
    OverrideParentFont = True
    PerformAssertions = True
    ShowAssertionFailures = False
    StretchFonts = True
    StretchImages = True
    StretchOnResize = True
    ThreadProcessing = True
    Left = 601
    Top = 161
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      706)
    OriginalFormHeight = (
      459)
    OriginalFormLeft = (
      47)
    OriginalFormTop = (
      111)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      698)
    OriginalClientHeight = (
      432)
  end
  object dsSupplier: TwwDataSource
    DataSet = taSupplier
    Left = 402
    Top = 150
  end
  object dsTrans: TwwDataSource
    DataSet = taTrans
    Left = 461
    Top = 150
  end
  object taTrans: TwwTable
    DatabaseName = 'EmpireBuilder'
    IndexName = 'ACCREF'
    TableName = 'Trans.DBF'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 499
    Top = 146
    object taTransTRANSNO: TFloatField
      FieldName = 'TRANSNO'
    end
    object taTransACCREF: TStringField
      FieldName = 'ACCREF'
      Size = 10
    end
    object taTransTRANSTYPE: TStringField
      FieldName = 'TRANSTYPE'
      Size = 8
    end
    object taTransTRANSDATE: TDateField
      FieldName = 'TRANSDATE'
    end
    object taTransINVREF: TStringField
      FieldName = 'INVREF'
      Size = 10
    end
    object taTransDETAILS: TStringField
      FieldName = 'DETAILS'
      Size = 30
    end
    object taTransNETVALUE: TFloatField
      FieldName = 'NETVALUE'
    end
    object taTransVATVALUE: TFloatField
      FieldName = 'VATVALUE'
    end
    object taTransTOTAL: TFloatField
      FieldName = 'TOTAL'
    end
    object taTransPAYMENT: TFloatField
      FieldName = 'PAYMENT'
    end
    object taTransBALANCE: TFloatField
      FieldName = 'BALANCE'
    end
    object taTransQUERY: TBooleanField
      FieldName = 'QUERY'
    end
    object taTransMODULE: TStringField
      FieldName = 'MODULE'
      Size = 1
    end
    object taTransQUERYMEMO: TMemoField
      FieldName = 'QUERYMEMO'
      BlobType = ftMemo
      Size = 1
    end
    object taTransTRANLINK: TFloatField
      FieldName = 'TRANLINK'
    end
    object taTransTERMS: TSmallintField
      FieldName = 'TERMS'
    end
  end
  object SRW: TSRW
    About.HelpContext = 1033
    About.HelpCaption = '&Creating Reports'
    About.HelpFile = 'SRWHELP.HLP'
    Active = False
    Extension = 'SRW'
    Grid.FooterFont.Charset = DEFAULT_CHARSET
    Grid.FooterFont.Color = clWindowText
    Grid.FooterFont.Height = -13
    Grid.FooterFont.Name = 'MS Sans Serif'
    Grid.FooterFont.Style = []
    Grid.RecordFont.Charset = DEFAULT_CHARSET
    Grid.RecordFont.Color = clWindowText
    Grid.RecordFont.Height = -13
    Grid.RecordFont.Name = 'MS Sans Serif'
    Grid.RecordFont.Style = []
    Grid.SubTitleFont.Charset = DEFAULT_CHARSET
    Grid.SubTitleFont.Color = clWindowText
    Grid.SubTitleFont.Height = -13
    Grid.SubTitleFont.Name = 'MS Sans Serif'
    Grid.SubTitleFont.Style = []
    Grid.TitleFont.Charset = DEFAULT_CHARSET
    Grid.TitleFont.Color = clWindowText
    Grid.TitleFont.Height = -13
    Grid.TitleFont.Name = 'MS Sans Serif'
    Grid.TitleFont.Style = []
    Page.FormatCurrency = '$#,#.00'
    Page.FormatDate = 'ddddd'
    Page.FormatDateTime = 'c'
    Page.FormatFloat = '#,#.00'
    Page.FormatTime = 't'
    Page.LabelsActive = False
    Page.LabelsAcross = 0
    Page.LabelsDown = 0
    Page.LayoutOptions = [srwShowMargins, srwShowSections, srwShowGuides]
    Page.MarginBottom = 0.300000011920929000
    Page.MarginLeft = 0.300000011920929000
    Page.MarginRight = 0.300000011920929000
    Page.MarginTop = 0.300000011920929000
    Page.PaperType = srwPaperLetter
    Page.PaperHeight = 11.000000000000000000
    Page.PaperWidth = 8.500000000000000000
    Page.PaperOrientation = poPortrait
    Page.PaperCopies = 1
    Query.AliasFields = True
    Query.AllowAggregates = True
    Query.AllowCartesians = False
    Query.AllowEditCode = True
    Query.AsAlias = False
    Query.BooleanQuote = '"'
    Query.CacheResults = False
    Query.DatabaseType = srwParadox
    Query.DatabaseDetect = True
    Query.DateFormat = 'mm"/"dd"/"yyyy'
    Query.DateQuote = '"'
    Query.DefaultOptional = True
    Query.GroupBySelect = False
    Query.IsLocal = True
    Query.OrderByAlias = True
    Query.OriginalDateOrder = srwUnknown
    Query.VerifyNames = True
    Query.UniqueRecords = False
    ReportName = 'Untitled'
    TempMode = srwTempOptional
    Window.CaptionCode = 'View S&QL'
    Window.CaptionLayout = '&Layout Page'
    Window.CaptionLink = 'Link &Tables'
    Window.CaptionMain = 'Shazam Report Wizard'
    Window.CaptionPreview = '&Preview Report'
    Window.CaptionQuery = 'Define Sea&rch'
    Window.LinksShareQueryTab = True
    Window.IsChild = False
    Window.IsModal = False
    Window.MenuEdit = [srwEditAddField, srwEditAddTable, srwEditCutCopyPaste, srwEditDeleteField, srwEditDeleteTable, srwEditDeleteLink, srwEditFieldProperties, srwEditSetupReport, srwEditVisible]
    Window.MenuFile = [srwFileExport, srwFileNew, srwFileOpen, srwFilePrint, srwFileSave, srwFileVisible]
    Window.MenuHelp = [srwHelpContents, srwHelpSearch, srwHelpAbout, srwHelpVisible]
    Window.MenuView = [srwViewAlias, srwViewCode, srwViewLayout, srwViewLink, srwViewPages, srwViewPreview, srwViewQuery, srwViewVisible]
    Window.PreviewMode = srwPreviewGrid
    Window.Visible = True
    Window.State = wsNormal
    Window.ShowToolbar = True
    Left = 630
    Top = 155
  end
  object PopupMenu1: TRxPopupMenu
    LeftMargin = 30
    Style = msOwnerDraw
    ShowCheckMarks = False
    OnDrawMargin = PopupMenu1DrawMargin
    Left = 559
    Top = 162
    object pmSaveAsBitmap: TMenuItem
      Caption = 'Save As &Bitmap'
      OnClick = pmSaveAsBitmapClick
    end
    object pmSaveAsMetafile: TMenuItem
      Caption = 'Save As &Metafile'
      OnClick = pmSaveAsMetafileClick
    end
    object pmCopyToClipboard: TMenuItem
      Caption = 'Copy To &Clipboard'
      OnClick = pmCopyToClipboardClick
    end
  end
  object pmRClick: TRxPopupMenu
    Style = msOwnerDraw
    ShowCheckMarks = False
    OnGetItemParams = pmRClickGetItemParams
    Left = 531
    Top = 154
    object pmZoomIn: TMenuItem
      Caption = 'Zoom In'
      OnClick = BtnZoomClick
    end
    object pmPrint: TMenuItem
      Caption = 'Print'
      OnClick = BtnRepPrintClick
    end
    object pmEmail: TMenuItem
      Caption = 'Email'
      OnClick = BtnRepEmailClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object pmiGridColor: TMenuItem
      Caption = 'Change Grid Colour'
      OnClick = pmiGridColorClick
    end
  end
  object taSupplier: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'select * from supplier'
      'where (ACCREF >= :STACCREF and ACCREF <= :FINACCREF) and'
      '            (BALANCE > :ABOVEVAL)')
    Params.Data = {
      0100030008535441434352454600010200300000000946494E41434352454600
      010200300000000841424F564556414C0006080000000000000000000000}
    ValidateWithMask = True
    Left = 369
    Top = 150
    object taSupplierACCREF: TStringField
      DisplayLabel = 'Supp. Ref'
      DisplayWidth = 12
      FieldName = 'ACCREF'
      Origin = '"supplier.DBF".ACCREF'
      Size = 10
    end
    object taSupplierNAME: TStringField
      DisplayLabel = 'Supplier Name'
      DisplayWidth = 36
      FieldName = 'NAME'
      Origin = '"supplier.DBF".NAME'
      Size = 40
    end
    object taSupplierBALANCE: TFloatField
      DisplayLabel = 'Current ~Balance'
      DisplayWidth = 10
      FieldName = 'BALANCE'
      Origin = '"supplier.DBF".BALANCE'
      DisplayFormat = '0.00'
    end
    object taSupplierBalAsAt: TFloatField
      DisplayLabel = 'Balance As~At'
      DisplayWidth = 10
      FieldName = 'BalAsAt'
      DisplayFormat = '0.00'
      Calculated = True
    end
    object taSupplierCREITLMT: TFloatField
      DisplayLabel = 'Credit Limit'
      DisplayWidth = 10
      FieldName = 'CREITLMT'
      Origin = '"supplier.DBF".CREITLMT'
      DisplayFormat = '0.00'
    end
    object taSupplierCURRENT: TFloatField
      DisplayLabel = 'Current'
      DisplayWidth = 10
      FieldName = 'CURRENT'
      Origin = '"supplier.DBF".CURRENT'
      DisplayFormat = '0.00'
    end
    object taSupplierPERBAL1: TFloatField
      DisplayLabel = '30 Days'
      DisplayWidth = 10
      FieldName = 'PERBAL1'
      Origin = '"supplier.DBF".PERBAL1'
      DisplayFormat = '0.00'
    end
    object taSupplierPERBAL2: TFloatField
      DisplayLabel = '60 Days'
      DisplayWidth = 10
      FieldName = 'PERBAL2'
      Origin = '"supplier.DBF".PERBAL2'
      DisplayFormat = '0.00'
    end
    object taSupplierPERBAL3: TFloatField
      DisplayLabel = '90 Days'
      DisplayWidth = 10
      FieldName = 'PERBAL3'
      Origin = '"supplier.DBF".PERBAL3'
      DisplayFormat = '0.00'
    end
    object taSupplierPERBAL4: TFloatField
      DisplayLabel = 'Older'
      DisplayWidth = 10
      FieldName = 'PERBAL4'
      Origin = '"supplier.DBF".PERBAL4'
      DisplayFormat = '0.00'
    end
    object taSupplierTERMS: TSmallintField
      DisplayLabel = 'Terms'
      DisplayWidth = 10
      FieldName = 'TERMS'
      Origin = '"supplier.DBF".TERMS'
      DisplayFormat = '0'
    end
    object taSupplierONSTOP: TBooleanField
      DisplayLabel = 'On Stop'
      DisplayWidth = 7
      FieldName = 'ONSTOP'
      Origin = '"supplier.DBF".ONSTOP'
    end
    object taSupplierCONTACT: TStringField
      DisplayLabel = 'Contact Name'
      DisplayWidth = 25
      FieldName = 'CONTACT'
      Origin = '"supplier.DBF".CONTACT'
      Size = 25
    end
    object taSupplierTELNO1: TStringField
      DisplayLabel = 'Tel No. 1'
      DisplayWidth = 15
      FieldName = 'TELNO1'
      Origin = '"supplier.DBF".TELNO1'
      Size = 15
    end
    object taSupplierTELNO2: TStringField
      DisplayLabel = 'Tel No. 2'
      DisplayWidth = 15
      FieldName = 'TELNO2'
      Origin = '"supplier.DBF".TELNO2'
      Size = 15
    end
    object taSupplierFAXNO: TStringField
      DisplayLabel = 'Fax No.'
      DisplayWidth = 15
      FieldName = 'FAXNO'
      Origin = '"supplier.DBF".FAXNO'
      Size = 15
    end
    object taSupplierEMAIL: TStringField
      DisplayLabel = 'Email'
      DisplayWidth = 25
      FieldName = 'EMAIL'
      Origin = '"supplier.DBF".EMAIL'
      Size = 70
    end
    object taSupplierLPAYDATE: TDateField
      DisplayLabel = 'Last Paid'
      DisplayWidth = 10
      FieldName = 'LPAYDATE'
      Origin = '"supplier.DBF".LPAYDATE'
    end
    object taSupplierLSALEDATE: TDateField
      DisplayLabel = 'Last Sale'
      DisplayWidth = 10
      FieldName = 'LSALEDATE'
      Origin = '"supplier.DBF".LSALEDATE'
    end
    object taSupplierMTOVER: TFloatField
      DisplayLabel = 'MTD Turnover'
      DisplayWidth = 11
      FieldName = 'MTOVER'
      Origin = '"supplier.DBF".MTOVER'
      DisplayFormat = '0.00'
    end
    object taSupplierYTOVER: TFloatField
      DisplayLabel = 'YTD Turnover'
      DisplayWidth = 11
      FieldName = 'YTOVER'
      Origin = '"supplier.DBF".YTOVER'
      DisplayFormat = '0.00'
    end
    object taSupplierADDRESS1: TStringField
      FieldName = 'ADDRESS1'
      Origin = '"supplier.DBF".ADDRESS1'
      Visible = False
      Size = 30
    end
    object taSupplierADDRESS2: TStringField
      FieldName = 'ADDRESS2'
      Origin = '"supplier.DBF".ADDRESS2'
      Visible = False
      Size = 30
    end
    object taSupplierADDRESS3: TStringField
      FieldName = 'ADDRESS3'
      Origin = '"supplier.DBF".ADDRESS3'
      Visible = False
      Size = 30
    end
    object taSupplierPOSTCODE: TStringField
      FieldName = 'POSTCODE'
      Origin = '"supplier.DBF".POSTCODE'
      Visible = False
      Size = 10
    end
    object taSupplierPRICECODE: TSmallintField
      FieldName = 'PRICECODE'
      Origin = '"supplier.DBF".PRICECODE'
      Visible = False
    end
    object taSupplierCMLINK: TStringField
      FieldName = 'CMLINK'
      Origin = '"supplier.DBF".CMLINK'
      Visible = False
      Size = 10
    end
    object taSupplierVATID: TStringField
      FieldName = 'VATID'
      Origin = '"supplier.DBF".VATID'
      Visible = False
      Size = 15
    end
    object taSupplierVATCODE: TStringField
      FieldName = 'VATCODE'
      Origin = '"supplier.DBF".VATCODE'
      Visible = False
      Size = 1
    end
    object taSupplierECCODE: TStringField
      FieldName = 'ECCODE'
      Origin = '"supplier.DBF".ECCODE'
      Visible = False
      Size = 3
    end
    object taSupplierSETTDAYS: TSmallintField
      FieldName = 'SETTDAYS'
      Origin = '"supplier.DBF".SETTDAYS'
      Visible = False
      DisplayFormat = '0.00'
    end
    object taSupplierSETTDISC: TFloatField
      FieldName = 'SETTDISC'
      Origin = '"supplier.DBF".SETTDISC'
      Visible = False
      DisplayFormat = '0.00'
    end
    object taSupplierNOMACC: TStringField
      FieldName = 'NOMACC'
      Origin = '"supplier.DBF".NOMACC'
      Visible = False
      Size = 10
    end
    object taSupplierNOTEPAD: TMemoField
      FieldName = 'NOTEPAD'
      Origin = '"supplier.DBF".NOTEPAD'
      Visible = False
      BlobType = ftMemo
      Size = 1
    end
    object taSupplierORVATCODE: TBooleanField
      FieldName = 'ORVATCODE'
      Origin = '"supplier.DBF".ORVATCODE'
      Visible = False
    end
    object taSupplierORNOMACC: TBooleanField
      FieldName = 'ORNOMACC'
      Origin = '"supplier.DBF".ORNOMACC'
      Visible = False
    end
    object taSupplierDISCOUNT: TFloatField
      FieldName = 'DISCOUNT'
      Origin = '"supplier.DBF".DISCOUNT'
      Visible = False
    end
    object taSupplierAMTPAID: TFloatField
      FieldName = 'AMTPAID'
      Origin = '"supplier.DBF".AMTPAID'
      Visible = False
      DisplayFormat = '0.00'
    end
    object taSupplierPAYDUE: TFloatField
      FieldName = 'PAYDUE'
      Origin = '"supplier.DBF".PAYDUE'
      Visible = False
      DisplayFormat = '0.00'
    end
    object taSupplierAMTQUERY: TFloatField
      FieldName = 'AMTQUERY'
      Origin = '"supplier.DBF".AMTQUERY'
      Visible = False
      DisplayFormat = '0.00'
    end
    object taSupplierLASTUPDATE: TStringField
      FieldName = 'LASTUPDATE'
      Origin = '"supplier.DBF".LASTUPDATE'
      Visible = False
    end
    object taSupplierLASTCALC: TStringField
      FieldName = 'LASTCALC'
      Origin = '"supplier.DBF".LASTCALC'
      Visible = False
    end
    object taSupplierTAG1: TBooleanField
      FieldName = 'TAG1'
      Origin = '"supplier.DBF".TAG1'
      Visible = False
    end
    object taSupplierTAG2: TBooleanField
      FieldName = 'TAG2'
      Origin = '"supplier.DBF".TAG2'
      Visible = False
    end
  end
  object taSuppSum: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'select sum(supplier."BALANCE"), '
      '            sum(supplier."CURRENT"),'
      '            sum(supplier."PERBAL1"),'
      '           sum(supplier."PERBAL2"),'
      '           sum(supplier."PERBAL3"),'
      '           sum(supplier."PERBAL4"), '
      '           sum(supplier."CREITLMT")  from supplier'
      'where (ACCREF >= :STACCREF AND ACCREF <= :FINACCREF) and '
      '              BALANCE > :ABOVEVAL')
    Params.Data = {
      0100030008535441434352454600010200300000000946494E41434352454600
      010200300000000841424F564556414C0006080000000000000000000000}
    ValidateWithMask = True
    Left = 337
    Top = 146
    object taSuppSumSUM_OF_BAL: TFloatField
      FieldName = 'SUM_OF_BAL'
      Origin = '"supplier.DBF".BALANCE'
    end
    object taSuppSumSUM_OF_CUR: TFloatField
      FieldName = 'SUM_OF_CUR'
      Origin = '"supplier.DBF".CURRENT'
    end
    object taSuppSumSUM_OF_PER: TFloatField
      FieldName = 'SUM_OF_PER'
      Origin = '"supplier.DBF".PERBAL1'
    end
    object taSuppSumSUM_OF_P_1: TFloatField
      FieldName = 'SUM_OF_P_1'
      Origin = '"supplier.DBF".PERBAL2'
    end
    object taSuppSumSUM_OF_P_2: TFloatField
      FieldName = 'SUM_OF_P_2'
      Origin = '"supplier.DBF".PERBAL3'
    end
    object taSuppSumSUM_OF_P_3: TFloatField
      FieldName = 'SUM_OF_P_3'
      Origin = '"supplier.DBF".PERBAL4'
    end
    object taSuppSumSUM_OF_CRE: TFloatField
      FieldName = 'SUM_OF_CRE'
      Origin = '"supplier.DBF".CREITLMT'
    end
  end
end