object fmSuppTurnover: TfmSuppTurnover
  Left = 44
  Top = 106
  AutoScroll = False
  Caption = 'Supplier Turnover'
  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 = TSReport
    Align = alBottom
    TabOrder = 1
    OnChange = PageControl1Change
    object TSReport: 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 = 'Report Zoom In'
          Spacing = 1
          Left = 3
          Top = 3
          Visible = True
          OnClick = BtnZoomClick
          SectionName = 'Untitled (0)'
        end
        object BtnRepPrint: TSpeedItem
          BtnCaption = 'Print'
          Caption = 'Print turnover report'
          Hint = 'Print turnover report'
          Spacing = 1
          Left = 73
          Top = 3
          Visible = True
          OnClick = BtnRepPrintClick
          SectionName = 'Untitled (0)'
        end
        object BtnRepEmail: TSpeedItem
          BtnCaption = 'Email'
          Caption = 'Email turnover report'
          Hint = 'Email turnover report'
          Spacing = 1
          Left = 143
          Top = 3
          Visible = True
          OnClick = BtnRepEmailClick
          SectionName = 'Untitled (0)'
        end
        object BtnRepClose: TSpeedItem
          BtnCaption = 'Close'
          Caption = 'Close Report Form'
          Spacing = 1
          Left = 283
          Top = 3
          Visible = True
          OnClick = BtnRepCloseClick
          SectionName = 'Untitled (0)'
        end
        object BtnRepHelp: TSpeedItem
          BtnCaption = 'Help'
          Caption = 'Report Help'
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
            888888888E6648888888888888E6688888888888888888888888888888446888
            8888888886664888888888888E664888888888888E6664888888888888E66648
            88888888888E6664888888844888E6664888886664888E66488888E666444666
            4888888E6666666668888888EE6666668888888888EEEEE88888}
          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'Cust. Ref'
            'NAME'#9'40'#9'Customer Name'
            'MTOVER'#9'12'#9'Turnover~This Month'
            'YTOVER'#9'12'#9'Turnover~This Year'
            'REP_T_VAL1'#9'12'#9'Selected ~Period Turnover')
          TitleColor = clBtnFace
          FixedCols = 0
          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 TSGraph: 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 Label7: TLabel
          Left = 540
          Top = 4
          Width = 72
          Height = 16
          Caption = 'Graph Type'
        end
        object cbGraphType: TComboBox
          Left = 540
          Top = 20
          Width = 137
          Height = 24
          Hint = 'Press F1 for help'
          ItemHeight = 16
          Items.Strings = (
            'Vertical Bar '
            'Horizontal Bar'
            'Pie'
            'Line'
            'Fast Line'
            'Point'
            'Area')
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          Text = 'Vertical Bar'
          OnChange = cbGraphTypeChange
        end
        object cbMarks: TCheckBox
          Left = 384
          Top = 20
          Width = 125
          Height = 17
          Hint = 'Press F1 for help'
          HelpContext = 147
          Alignment = taLeftJustify
          Caption = '&Toggle Marks'
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 0
          OnClick = cbMarksClick
        end
        object SpeedbarSection2: TSpeedbarSection
          Caption = 'Untitled (0)'
        end
        object BtnSaveGraph: TSpeedItem
          BtnCaption = 'Save'
          Caption = 'Save Graph'
          DropDownMenu = SaveGraphMenu
          NumGlyphs = 2
          Spacing = 1
          Left = 3
          Top = 3
          Visible = True
          SectionName = 'Untitled (0)'
        end
        object BtnPrintGraph: TSpeedItem
          BtnCaption = 'Print'
          Caption = 'Print turnover graph'
          Hint = 'Print turnover graph|'
          Spacing = 1
          Left = 73
          Top = 3
          Visible = True
          OnClick = BtnPrintGraphClick
          SectionName = 'Untitled (0)'
        end
        object BtnEmailGraph: TSpeedItem
          BtnCaption = 'Email'
          Caption = 'Email turnover graph'
          Hint = 'Email turnover graph'
          Spacing = 1
          Left = 143
          Top = 3
          Visible = True
          OnClick = BtnEmailGraphClick
          SectionName = 'Untitled (0)'
        end
        object BtnCloseGraph: TSpeedItem
          BtnCaption = 'Close'
          Caption = 'Close'
          Spacing = 1
          Left = 283
          Top = 3
          Visible = True
          OnClick = BtnCloseGraphClick
          SectionName = 'Untitled (0)'
        end
        object BtnHelpGraph: TSpeedItem
          BtnCaption = 'Help'
          Caption = 'Report 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
        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 = 16744576
            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 = (
              '')
            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 = 'Customers'
            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'
            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 = 10738885
            Legend.Font.Charset = DEFAULT_CHARSET
            Legend.Font.Color = clBlue
            Legend.Font.Height = -10
            Legend.Font.Name = 'Arial'
            Legend.Font.Style = []
            Legend.TextStyle = ltsLeftPercent
            Legend.ShadowColor = 10485760
            Legend.ShadowSize = 2
            MaxPointsPerPage = 12
            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 = '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 = 8421440
            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'
            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.TextStyle = ltsRightValue
            MaxPointsPerPage = 4
            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 = 144
      Top = 4
      Width = 86
      Height = 16
      Caption = 'Finish Supplier'
    end
    object Label3: TLabel
      Left = 500
      Top = 4
      Width = 57
      Height = 16
      Caption = 'Include ...'
    end
    object Label4: TLabel
      Left = 620
      Top = 4
      Width = 35
      Height = 16
      Caption = 'Above'
    end
    object Label5: TLabel
      Left = 364
      Top = 4
      Width = 91
      Height = 16
      Caption = 'T/O Finish Date'
    end
    object Label6: TLabel
      Left = 264
      Top = 4
      Width = 84
      Height = 16
      Caption = 'T/O Start Date'
    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 = 132
      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 = 592
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 166
      AutoSize = False
      ClickKey = 16451
      DisplayFormat = '0.00'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnEnter = CEAboveEnter
      OnExit = CEAboveExit
    end
    object CBInclude: TComboBox
      Left = 464
      Top = 20
      Width = 125
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 165
      ItemHeight = 16
      Items.Strings = (
        'This Month'
        'This Year'
        'Selected Period')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Text = 'This Month'
      OnChange = CBIncludeChange
    end
    object DEStartDate: TDateEdit
      Left = 256
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 163
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 2
      OnAcceptDate = DEStartDateAcceptDate
      OnEnter = DEStartDateEnter
      OnExit = DEStartDateExit
    end
    object DEFinDate: TDateEdit
      Left = 360
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 164
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 3
      OnAcceptDate = DEFinDateAcceptDate
      OnEnter = DEFinDateEnter
      OnExit = DEFinDateExit
    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 = 624
    Top = 349
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      706)
    OriginalFormHeight = (
      459)
    OriginalFormLeft = (
      44)
    OriginalFormTop = (
      106)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      698)
    OriginalClientHeight = (
      432)
  end
  object SaveGraphMenu: TRxPopupMenu
    LeftMargin = 30
    Style = msOwnerDraw
    OnDrawMargin = SaveGraphMenuDrawMargin
    Left = 618
    Top = 254
    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 = 616
    Top = 205
    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')
    ValidateWithMask = True
    Left = 332
    Top = 135
    object taSupplierACCREF: TStringField
      DisplayLabel = 'Cust. Ref'
      DisplayWidth = 12
      FieldName = 'ACCREF'
      Origin = '"Supplier.DBF".ACCREF'
      Size = 10
    end
    object taSupplierNAME: TStringField
      DisplayLabel = 'Customer Name'
      DisplayWidth = 40
      FieldName = 'NAME'
      Origin = '"Supplier.DBF".NAME'
      Size = 40
    end
    object taSupplierMTOVER: TFloatField
      DisplayLabel = 'Turnover~This Month'
      DisplayWidth = 12
      FieldName = 'MTOVER'
      Origin = '"Supplier.DBF".MTOVER'
      DisplayFormat = '0.00'
    end
    object taSupplierYTOVER: TFloatField
      DisplayLabel = 'Turnover~This Year'
      DisplayWidth = 12
      FieldName = 'YTOVER'
      Origin = '"Supplier.DBF".YTOVER'
      DisplayFormat = '0.00'
    end
    object taSupplierREP_T_VAL1: TFloatField
      DisplayLabel = 'Selected ~Period Turnover'
      DisplayWidth = 12
      FieldName = 'REP_T_VAL1'
      Origin = '"Supplier.DBF".REP_T_VAL1'
      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 taSupplierTELNO1: TStringField
      FieldName = 'TELNO1'
      Origin = '"Supplier.DBF".TELNO1'
      Visible = False
      Size = 15
    end
    object taSupplierTELNO2: TStringField
      FieldName = 'TELNO2'
      Origin = '"Supplier.DBF".TELNO2'
      Visible = False
      Size = 15
    end
    object taSupplierFAXNO: TStringField
      FieldName = 'FAXNO'
      Origin = '"Supplier.DBF".FAXNO'
      Visible = False
      Size = 15
    end
    object taSupplierEMAIL: TStringField
      FieldName = 'EMAIL'
      Origin = '"Supplier.DBF".EMAIL'
      Visible = False
      Size = 70
    end
    object taSupplierCONTACT: TStringField
      FieldName = 'CONTACT'
      Origin = '"Supplier.DBF".CONTACT'
      Visible = False
      Size = 25
    end
    object taSupplierCREITLMT: TFloatField
      FieldName = 'CREITLMT'
      Origin = '"Supplier.DBF".CREITLMT'
      Visible = False
    end
    object taSupplierTERMS: TSmallintField
      FieldName = 'TERMS'
      Origin = '"Supplier.DBF".TERMS'
      Visible = False
    end
    object taSupplierPRICECODE: TSmallintField
      FieldName = 'PRICECODE'
      Origin = '"Supplier.DBF".PRICECODE'
      Visible = False
    end
    object taSupplierONSTOP: TBooleanField
      FieldName = 'ONSTOP'
      Origin = '"Supplier.DBF".ONSTOP'
      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
    end
    object taSupplierSETTDISC: TFloatField
      FieldName = 'SETTDISC'
      Origin = '"Supplier.DBF".SETTDISC'
      Visible = False
    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 taSupplierBALANCE: TFloatField
      FieldName = 'BALANCE'
      Origin = '"Supplier.DBF".BALANCE'
      Visible = False
    end
    object taSupplierCURRENT: TFloatField
      FieldName = 'CURRENT'
      Origin = '"Supplier.DBF".CURRENT'
      Visible = False
    end
    object taSupplierPERBAL1: TFloatField
      FieldName = 'PERBAL1'
      Origin = '"Supplier.DBF".PERBAL1'
      Visible = False
    end
    object taSupplierPERBAL2: TFloatField
      FieldName = 'PERBAL2'
      Origin = '"Supplier.DBF".PERBAL2'
      Visible = False
    end
    object taSupplierPERBAL3: TFloatField
      FieldName = 'PERBAL3'
      Origin = '"Supplier.DBF".PERBAL3'
      Visible = False
    end
    object taSupplierPERBAL4: TFloatField
      FieldName = 'PERBAL4'
      Origin = '"Supplier.DBF".PERBAL4'
      Visible = False
    end
    object taSupplierLPAYDATE: TDateField
      FieldName = 'LPAYDATE'
      Origin = '"Supplier.DBF".LPAYDATE'
      Visible = False
    end
    object taSupplierLSALEDATE: TDateField
      FieldName = 'LSALEDATE'
      Origin = '"Supplier.DBF".LSALEDATE'
      Visible = False
    end
    object taSupplierAMTPAID: TFloatField
      FieldName = 'AMTPAID'
      Origin = '"Supplier.DBF".AMTPAID'
      Visible = False
    end
    object taSupplierPAYDUE: TFloatField
      FieldName = 'PAYDUE'
      Origin = '"Supplier.DBF".PAYDUE'
      Visible = False
    end
    object taSupplierAMTQUERY: TFloatField
      FieldName = 'AMTQUERY'
      Origin = '"Supplier.DBF".AMTQUERY'
      Visible = False
    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
    object taSupplierREP_T_VAL2: TFloatField
      FieldName = 'REP_T_VAL2'
      Origin = '"Supplier.DBF".REP_T_VAL2'
      Visible = False
    end
    object taSupplierREP_T_VAL3: TFloatField
      FieldName = 'REP_T_VAL3'
      Origin = '"Supplier.DBF".REP_T_VAL3'
      Visible = False
    end
    object taSupplierREP_T_VAL4: TFloatField
      FieldName = 'REP_T_VAL4'
      Origin = '"Supplier.DBF".REP_T_VAL4'
      Visible = False
    end
    object taSupplierREP_T_VAL5: TFloatField
      FieldName = 'REP_T_VAL5'
      Origin = '"Supplier.DBF".REP_T_VAL5'
      Visible = False
    end
  end
  object taSuppSumm: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'select sum(mtover), sum(ytover), sum(rep_t_val1) from Supplier')
    ValidateWithMask = True
    Left = 420
    Top = 151
    object taSuppSummSUM_OF_MTO: TFloatField
      FieldName = 'SUM_OF_MTO'
    end
    object taSuppSummSUM_OF_YTO: TFloatField
      FieldName = 'SUM_OF_YTO'
    end
    object taSuppSummSUM_OF_REP: TFloatField
      FieldName = 'SUM_OF_REP'
    end
  end
  object taTranSumm1: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'SELECT SUM(Trans.NETVALUE)'
      'FROM Trans'
      'WHERE (((Trans.ACCREF =  :STACCREF)'
      'AND (Trans.TRANSDATE BETWEEN :STDATE AND :FIDATE)'
      '     AND (Trans.TRANSTYPE = "INVOICE")))')
    Params.Data = {
      0100030008535441434352454600010200300000000653544441544500090400
      5A950A00000006464944415445000904005A950A000000}
    ValidateWithMask = True
    Left = 532
    Top = 135
    object taTranSumm1SUM_OF_NET: TFloatField
      FieldName = 'SUM_OF_NET'
      Origin = '"Trans.DBF".NETVALUE'
    end
  end
  object taTranSumm2: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'SELECT SUM(Trans.NETVALUE)'
      'FROM Trans'
      'WHERE (((Trans.ACCREF = :STACCREF)'
      'AND (Trans.TRANSDATE BETWEEN :STDATE AND :FIDATE)'
      '     AND (Trans.TRANSTYPE = "CREDIT")))')
    Params.Data = {
      0100030008535441434352454600010200300000000653544441544500090400
      5A950A00000006464944415445000904005A950A000000}
    ValidateWithMask = True
    Left = 632
    Top = 143
    object taTranSumm2SUM_OF_NET: TFloatField
      FieldName = 'SUM_OF_NET'
      Origin = '"Trans.DBF".NETVALUE'
    end
  end
  object dsSupplier: TwwDataSource
    DataSet = taSupplier
    Left = 331
    Top = 187
  end
end