object fmStockValuation: TfmStockValuation
  Left = 61
  Top = 95
  HelpContext = 560
  AutoScroll = False
  Caption = 'Stock Valuation Report'
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 698
    Height = 53
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 4
      Width = 100
      Height = 16
      Caption = 'Start Stock Code'
    end
    object Label2: TLabel
      Left = 164
      Top = 4
      Width = 107
      Height = 16
      Caption = 'Finish Stock Code'
    end
    object Label3: TLabel
      Left = 296
      Top = 4
      Width = 92
      Height = 16
      Caption = 'Start Prod. Grp.'
    end
    object Label4: TLabel
      Left = 396
      Top = 4
      Width = 99
      Height = 16
      Caption = 'Finish Prod. Grp.'
    end
    object rxcbeStStock: TComboEdit
      Left = 4
      Top = 20
      Width = 140
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 556
      ButtonHint = 'Search'
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 16
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnButtonClick = rxcbeStStockButtonClick
      OnEnter = rxcbeStStockEnter
      OnExit = rxcbeStStockExit
    end
    object rxcbeFinStock: TComboEdit
      Left = 148
      Top = 20
      Width = 140
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 557
      ButtonHint = 'Search'
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 16
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnButtonClick = rxcbeFinStockButtonClick
      OnEnter = rxcbeFinStockEnter
      OnExit = rxcbeFinStockExit
    end
    object rxcbeStPG: TComboEdit
      Left = 292
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 558
      ButtonHint = 'Search'
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 16
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnButtonClick = rxcbeStPGButtonClick
      OnEnter = rxcbeStPGEnter
      OnExit = rxcbeStPGExit
    end
    object rxcbeFinPG: TComboEdit
      Left = 396
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 559
      ButtonHint = 'Search'
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 16
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnButtonClick = rxcbeFinPGButtonClick
      OnEnter = rxcbeFinPGEnter
      OnExit = rxcbeFinPGExit
    end
    object Panel3: TPanel
      Left = 504
      Top = 4
      Width = 189
      Height = 45
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 4
      object cbxIncZero: TCheckBox
        Left = 4
        Top = 4
        Width = 181
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 553
        Alignment = taLeftJustify
        Caption = 'Include Zero Stock Items'
        ParentShowHint = False
        ShowHint = True
        State = cbChecked
        TabOrder = 0
        OnClick = cbxIncZeroClick
      end
      object cbxIncNon: TCheckBox
        Left = 4
        Top = 24
        Width = 181
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 554
        Alignment = taLeftJustify
        Caption = 'Include Non Stock Items'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = cbxIncNonClick
      end
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 53
    Width = 698
    Height = 379
    Hint = 'Press F1 for help'
    ActivePage = TabReport
    Align = alClient
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnChange = PageControl1Change
    object TabReport: TTabSheet
      Caption = 'Report'
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 690
        Height = 348
        Align = alClient
        Caption = 'Panel2'
        TabOrder = 0
        object SpeedBar: TSpeedBar
          Left = 1
          Top = 1
          Width = 688
          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
          BevelOuter = bvNone
          TabOrder = 0
          InternalVer = 1
          object Panel4: TPanel
            Left = 520
            Top = 2
            Width = 173
            Height = 45
            BevelInner = bvRaised
            BevelOuter = bvLowered
            TabOrder = 0
            object rbBySC: TRadioButton
              Left = 5
              Top = 4
              Width = 161
              Height = 17
              Hint = 'Press F1 for help'
              HelpContext = 550
              Alignment = taLeftJustify
              Caption = 'By Stock Code'
              Checked = True
              TabOrder = 0
              TabStop = True
            end
            object rbByPG: TRadioButton
              Left = 5
              Top = 24
              Width = 161
              Height = 17
              Hint = 'Press F1 for help'
              HelpContext = 550
              Alignment = taLeftJustify
              Caption = 'By Product Group'
              TabOrder = 1
            end
          end
          object SpeedbarSection1: TSpeedbarSection
            Caption = 'Untitled (0)'
          end
          object BtnPrint: TSpeedItem
            BtnCaption = 'Print'
            Caption = 'Print stock valuation report'
            Hint = 'Print stock valuation report|'
            Spacing = 1
            Left = 73
            Top = 3
            Visible = True
            OnClick = BtnPrintClick
            SectionName = 'Untitled (0)'
          end
          object BtnEmail: TSpeedItem
            BtnCaption = 'Email'
            Caption = 'Email stock valuation report'
            Hint = 'Email stock valuation report|'
            Spacing = 1
            Left = 143
            Top = 3
            Visible = True
            OnClick = BtnEmailClick
            SectionName = 'Untitled (0)'
          end
          object BtnClose: TSpeedItem
            BtnCaption = 'Close'
            Caption = 'Close'
            Hint = 'Close report'
            Spacing = 1
            Left = 283
            Top = 3
            Visible = True
            OnClick = BtnCloseClick
            SectionName = 'Untitled (0)'
          end
          object BtnZoomIn: TSpeedItem
            BtnCaption = 'Zoom In'
            Caption = 'Transaction zoom-in'
            Hint = 'Zoom in'
            Spacing = 1
            Left = 3
            Top = 3
            Visible = True
            OnClick = BtnZoomInClick
            SectionName = 'Untitled (0)'
          end
          object btnHelp: TSpeedItem
            BtnCaption = '&Help'
            Caption = 'View full help'
            Glyph.Data = {
              F6000000424DF600000000000000760000002800000010000000100000000100
              0400000000008000000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
              888888888E6648888888888888E6688888888888888888888888888888446888
              8888888886664888888888888E664888888888888E6664888888888888E66648
              88888888888E6664888888844888E6664888886664888E66488888E666444666
              4888888E6666666668888888EE6666668888888888EEEEE88888}
            Hint = 'View full help|'
            Spacing = 1
            Left = 213
            Top = 3
            Visible = True
            OnClick = btnHelpClick
            SectionName = 'Untitled (0)'
          end
        end
        object wwDBGrid1: TwwDBGrid
          Left = 1
          Top = 50
          Width = 688
          Height = 297
          Selected.Strings = (
            'STOCKCODE'#9'16'#9'Stock Code'#9'F'
            'DESC'#9'40'#9'Description'#9'F'
            'INSTOCK'#9'10'#9'Quantity~In Stock'#9'F'
            'REP_T_VAL1'#9'10'#9'Average~Cost Price'#9'F'
            'REP_T_VAL2'#9'10'#9'Stock Value~At Cost'#9'F'
            'REP_T_VAL3'#9'10'#9'Average~Sales Price'#9'F'
            'SALEPRICE1'#9'10'#9'Sales~Price A'#9'F'
            'SALEPRICE2'#9'10'#9'Sales ~Price B'#9'F'
            'SALEPRICE3'#9'10'#9'Sales~Price C'#9'F'
            'REP_T_VAL4'#9'10'#9'Stock Sales~Value'#9'F'
            'REP_T_VAL5'#9'10'#9'Stock Sales~Value'#9'F'
            'REP_T_VAL6'#9'10'#9'Stock Sales~Value'#9'F'
            'REP_T_VAL7'#9'10'#9'Stock Sales~Value'#9'F')
          TitleColor = clBtnFace
          FixedCols = 1
          ShowHorzScrollBar = True
          Align = alClient
          DataSource = dsStock
          Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells]
          PopupMenu = rxpmStockAdj
          TabOrder = 1
          TitleAlignment = taLeftJustify
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = 'Arial'
          TitleFont.Style = []
          TitleLines = 2
          TitleButtons = True
          UseTFields = False
          OnCalcCellColors = wwDBGrid1CalcCellColors
          OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
          OnTitleButtonClick = wwDBGrid1TitleButtonClick
          OnDblClick = BtnZoomInClick
          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
        BevelOuter = bvNone
        TabOrder = 0
        InternalVer = 1
        object Label6: TLabel
          Left = 547
          Top = 4
          Width = 72
          Height = 16
          Caption = 'Graph Type'
        end
        object ComboBox2: TComboBox
          Left = 545
          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 = 0
          Text = 'Vertical Bar '
          OnChange = ComboBox2Change
        end
        object cbMarks: TCheckBox
          Left = 390
          Top = 21
          Width = 134
          Height = 17
          Hint = 'Press F1 for help'
          HelpContext = 147
          Alignment = taLeftJustify
          Caption = '&Toggle Marks'
          State = cbChecked
          TabOrder = 1
          OnClick = cbMarksClick
        end
        object SpeedbarSection2: TSpeedbarSection
          Caption = 'Untitled (0)'
        end
        object BtnPrintGraph: TSpeedItem
          BtnCaption = 'Print'
          Caption = 'Print graph'
          Hint = 'Print graph'
          Spacing = 1
          Left = 73
          Top = 3
          Visible = True
          OnClick = BtnPrintGraphClick
          SectionName = 'Untitled (0)'
        end
        object BtnEmailGraph: TSpeedItem
          BtnCaption = 'Email'
          Caption = 'Email graph'
          Hint = 'Email graph|'
          Spacing = 1
          Left = 143
          Top = 3
          Visible = True
          OnClick = BtnEmailGraphClick
          SectionName = 'Untitled (0)'
        end
        object BtnCloseGraph: TSpeedItem
          BtnCaption = 'Close'
          Caption = 'Close'
          Hint = 'Close graph'
          Spacing = 1
          Left = 283
          Top = 3
          Visible = True
          OnClick = BtnCloseClick
          SectionName = 'Untitled (0)'
        end
        object BtnSave: TSpeedItem
          BtnCaption = 'Save'
          Caption = 'Save graph'
          DropDownMenu = pmSaveGraph
          Hint = 'Save graph'
          Spacing = 1
          Left = 3
          Top = 3
          Visible = True
          OnClick = BtnZoomInClick
          SectionName = 'Untitled (0)'
        end
        object btnGraHelp: TSpeedItem
          BtnCaption = '&Help'
          Caption = 'View full help on this graph'
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
            888888888E6648888888888888E6688888888888888888888888888888446888
            8888888886664888888888888E664888888888888E6664888888888888E66648
            88888888888E6664888888844888E6664888886664888E66488888E666444666
            4888888E6666666668888888EE6666668888888888EEEEE88888}
          Hint = 'View full help on this graph|'
          Spacing = 1
          Left = 213
          Top = 3
          Visible = True
          OnClick = btnGraHelpClick
          SectionName = 'Untitled (0)'
        end
      end
      object Notebook1: TNotebook
        Left = 0
        Top = 49
        Width = 690
        Height = 299
        Align = alClient
        PageIndex = 1
        TabOrder = 1
        object TPage
          Left = 0
          Top = 0
          Caption = 'nbpByProductGroup'
          object ByItemChart: TChart
            Left = 0
            Top = 0
            Width = 690
            Height = 299
            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 = 8453888
            Gradient.StartColor = 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 = (
              'By Product Group')
            BackColor = clWhite
            BottomAxis.Title.Caption = 'Product Group'
            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.LegendStyle = lsSeries
            Legend.TextStyle = ltsRightValue
            MaxPointsPerPage = 8
            Align = alClient
            BorderStyle = bsSingle
            Color = 8388863
            TabOrder = 0
            object CostSer: TBarSeries
              Marks.ArrowLength = 20
              Marks.Style = smsValue
              Marks.Visible = True
              Title = 'Cost Values'
              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
            object SalesSer: TBarSeries
              Marks.ArrowLength = 20
              Marks.Style = smsValue
              Marks.Visible = True
              Title = 'Sales Values'
              SeriesColor = clGreen
              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 = 'nbpItems'
          object ByProductChart: TChart
            Left = 0
            Top = 0
            Width = 690
            Height = 299
            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 = 16744448
            Gradient.StartColor = clAqua
            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 = (
              'By Products')
            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 = 'Product'
            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.Font.Charset = DEFAULT_CHARSET
            Legend.Font.Color = clBlue
            Legend.Font.Height = -10
            Legend.Font.Name = 'Arial'
            Legend.Font.Style = [fsItalic]
            Legend.TextStyle = ltsLeftPercent
            MaxPointsPerPage = 8
            Align = alClient
            BorderStyle = bsSingle
            Color = 8388863
            TabOrder = 0
            object CostSeries: TBarSeries
              Marks.ArrowLength = 20
              Marks.Style = smsValue
              Marks.Visible = True
              Title = 'Cost Value'
              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
            object SaleSeries: TBarSeries
              Marks.ArrowLength = 20
              Marks.Style = smsValue
              Marks.Visible = True
              Title = 'Sales Value'
              SeriesColor = clGreen
              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 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 = False
    Left = 644
    Top = 131
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      706)
    OriginalFormHeight = (
      459)
    OriginalFormLeft = (
      61)
    OriginalFormTop = (
      95)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      698)
    OriginalClientHeight = (
      432)
  end
  object dsStock: TwwDataSource
    DataSet = qyStock
    Left = 285
    Top = 270
  end
  object rxpmStockAdj: TRxPopupMenu
    Style = msOwnerDraw
    ShowCheckMarks = False
    OnGetItemParams = rxpmStockAdjGetItemParams
    Left = 541
    Top = 238
    object pmiAvVal: TMenuItem
      Caption = 'Average Valuation'
      Checked = True
      OnClick = pmiAvValClick
    end
    object pmiSPA: TMenuItem
      Caption = 'Sales Price A'
      OnClick = pmiSPAClick
    end
    object pmiSPB: TMenuItem
      Caption = 'Sales Price B'
      OnClick = pmiSPBClick
    end
    object pmiSPC: TMenuItem
      Caption = 'Sales Price C'
      OnClick = pmiSPCClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object ZoomIn1: TMenuItem
      Caption = 'Zoom In'
      OnClick = BtnZoomInClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object PrintReport1: TMenuItem
      Caption = 'Print Report'
    end
    object EMailReport1: TMenuItem
      Caption = 'Email Report'
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object pmChangeGridColour: TMenuItem
      Caption = 'Change Grid Colour'
      OnClick = pmChangeGridColourClick
    end
  end
  object pmSaveGraph: TRxPopupMenu
    LeftMargin = 30
    Style = msOwnerDraw
    OnDrawMargin = pmSaveGraphDrawMargin
    Left = 422
    Top = 222
    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 qyStock: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'SELECT STOCKCODE, Stock."DESC", INSTOCK, LEVELS, PRODGROUP, '
      '        SALEPRICE1, SALEPRICE2, SALEPRICE3, REORDLEV, COSTPRICE,'
      '        REP_T_VAL1, REP_T_VAL2,REP_T_VAL3, REP_T_VAL4,'
      '       REP_T_VAL5,REP_T_VAL6, REP_T_VAL7'
      'FROM Stock'
      'WHERE (((PRODGROUP BETWEEN :StPrdGrp AND :FinPrdGrp)'
      '     AND (STOCKCODE BETWEEN :StStkCode AND :FinStkCode)'
      '     AND (INSTOCK > 0)  AND (Stock.LEVELS = True)))')
    Params.Data = {
      0100040008537450726447727000010200300000000946696E50726447727000
      0102003000000009537453746B436F646500010200300000000A46696E53746B
      436F64650001020030000000}
    ValidateWithMask = True
    Left = 284
    Top = 220
    object qyStockSTOCKCODE: TStringField
      DisplayLabel = 'Stock Code'
      DisplayWidth = 16
      FieldName = 'STOCKCODE'
      Origin = '"Stock.DBF".STOCKCODE'
      Size = 16
    end
    object qyStockDESC: TStringField
      DisplayLabel = 'Description'
      DisplayWidth = 40
      FieldName = 'DESC'
      Origin = '"Stock.DBF".DESC'
      Size = 40
    end
    object qyStockINSTOCK: TFloatField
      DisplayLabel = 'Quantity~In Stock'
      DisplayWidth = 10
      FieldName = 'INSTOCK'
      Origin = '"Stock.DBF".INSTOCK'
    end
    object qyStockREP_T_VAL1: TFloatField
      DisplayLabel = 'Average~Cost Price'
      DisplayWidth = 10
      FieldName = 'REP_T_VAL1'
      Origin = '"Stock.DBF".REP_T_VAL1'
    end
    object qyStockREP_T_VAL2: TFloatField
      DisplayLabel = 'Stock Value~At Cost'
      DisplayWidth = 10
      FieldName = 'REP_T_VAL2'
      Origin = '"Stock.DBF".REP_T_VAL2'
      DisplayFormat = '0.00'
    end
    object qyStockREP_T_VAL3: TFloatField
      DisplayLabel = 'Average~Sales Price'
      DisplayWidth = 10
      FieldName = 'REP_T_VAL3'
      Origin = '"Stock.DBF".REP_T_VAL3'
    end
    object qyStockSALEPRICE1: TFloatField
      DisplayLabel = 'Sales~Price A'
      DisplayWidth = 10
      FieldName = 'SALEPRICE1'
      Origin = '"Stock.DBF".SALEPRICE1'
    end
    object qyStockSALEPRICE2: TFloatField
      DisplayLabel = 'Sales ~Price B'
      DisplayWidth = 10
      FieldName = 'SALEPRICE2'
      Origin = '"Stock.DBF".SALEPRICE2'
    end
    object qyStockSALEPRICE3: TFloatField
      DisplayLabel = 'Sales~Price C'
      DisplayWidth = 10
      FieldName = 'SALEPRICE3'
      Origin = '"Stock.DBF".SALEPRICE3'
    end
    object qyStockREP_T_VAL4: TFloatField
      DisplayLabel = 'Stock Sales~Value'
      DisplayWidth = 10
      FieldName = 'REP_T_VAL4'
      Origin = '"Stock.DBF".REP_T_VAL4'
      DisplayFormat = '0.00'
    end
    object qyStockREP_T_VAL5: TFloatField
      DisplayLabel = 'Stock Sales~Value'
      DisplayWidth = 10
      FieldName = 'REP_T_VAL5'
      Origin = '"Stock.DBF".REP_T_VAL5'
      DisplayFormat = '0.00'
    end
    object qyStockREP_T_VAL6: TFloatField
      DisplayLabel = 'Stock Sales~Value'
      DisplayWidth = 10
      FieldName = 'REP_T_VAL6'
      Origin = '"Stock.DBF".REP_T_VAL6'
      DisplayFormat = '0.00'
    end
    object qyStockREP_T_VAL7: TFloatField
      DisplayLabel = 'Stock Sales~Value'
      DisplayWidth = 10
      FieldName = 'REP_T_VAL7'
      Origin = '"Stock.DBF".REP_T_VAL7'
      DisplayFormat = '0.00'
    end
    object qyStockLEVELS: TBooleanField
      DisplayWidth = 5
      FieldName = 'LEVELS'
      Origin = '"Stock.DBF".LEVELS'
      Visible = False
    end
    object qyStockREORDLEV: TFloatField
      FieldName = 'REORDLEV'
      Origin = '"Stock.DBF".REORDLEV'
      Visible = False
    end
    object qyStockPRODGROUP: TStringField
      FieldName = 'PRODGROUP'
      Origin = '"Stock.DBF".PRODGROUP'
      Visible = False
      Size = 10
    end
    object qyStockCOSTPRICE: TFloatField
      FieldName = 'COSTPRICE'
      Origin = '"Stock.DBF".COSTPRICE'
      Visible = False
    end
  end
  object qySum: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'SELECT SUM(Stock.REP_T_VAL2),'
      '         SUM(Stock.REP_T_VAL4),'
      '         SUM(Stock.REP_T_VAL5),'
      '         SUM(Stock.REP_T_VAL6),'
      '         SUM(Stock.REP_T_VAL7)'
      '    FROM ":EmpireBuilder:Stock.DBF" Stock'
      '   WHERE (((Stock.PRODGROUP BETWEEN '#39'1'#39' AND '#39'TECH'#39')'
      '     AND (Stock.STOCKCODE BETWEEN '#39'A101921'#39' AND '#39'S/W02'#39')'
      '     AND (Stock.INSTOCK > 0)'
      '     AND (Stock.LEVELS = "True")))')
    ValidateWithMask = True
    Left = 160
    Top = 224
    object qySumSUM_OF_REP: TFloatField
      FieldName = 'SUM_OF_REP'
      Origin = '"Stock.DBF".REP_T_VAL2'
    end
    object qySumSUM_OF_R_1: TFloatField
      FieldName = 'SUM_OF_R_1'
      Origin = '"Stock.DBF".REP_T_VAL4'
    end
    object qySumSUM_OF_R_2: TFloatField
      FieldName = 'SUM_OF_R_2'
      Origin = '"Stock.DBF".REP_T_VAL5'
    end
    object qySumSUM_OF_R_3: TFloatField
      FieldName = 'SUM_OF_R_3'
      Origin = '"Stock.DBF".REP_T_VAL6'
    end
    object qySumSUM_OF_R_4: TFloatField
      FieldName = 'SUM_OF_R_4'
      Origin = '"Stock.DBF".REP_T_VAL7'
    end
  end
  object qyGraph: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'SELECT Stock.PRODGROUP, StkCats."DESC",'
      '         SUM(Stock.REP_T_VAL2),'
      '         SUM(Stock.REP_T_VAL4)'
      'FROM Stock , StkCats'
      'WHERE ((Stock.PRODGROUP = StkCats.PRODCODE))'
      'GROUP BY Stock.PRODGROUP, StkCats."DESC"'
      'ORDER BY Stock.PRODGROUP ASC')
    ValidateWithMask = True
    Left = 180
    Top = 296
    object qyGraphPRODGROUP: TStringField
      FieldName = 'PRODGROUP'
      Origin = '"Stock.DBF".PRODGROUP'
      Size = 10
    end
    object qyGraphSUM_OF_REP: TFloatField
      FieldName = 'SUM_OF_REP'
      Origin = '"Stock.DBF".REP_T_VAL2'
    end
    object qyGraphSUM_OF_R_1: TFloatField
      FieldName = 'SUM_OF_R_1'
      Origin = '"Stock.DBF".REP_T_VAL4'
    end
  end
end