object fmCustECSales: TfmCustECSales
  Left = 46
  Top = 116
  AutoScroll = False
  Caption = 'VAT EC Sales List'
  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 EC sales list'
          Hint = 'Print EC sales list'
          Spacing = 1
          Left = 73
          Top = 3
          Visible = True
          OnClick = BtnRepPrintClick
          SectionName = 'Untitled (0)'
        end
        object BtnRepEmail: TSpeedItem
          BtnCaption = 'Email'
          Caption = 'Email EC sales list'
          Hint = 'Email EC sales list'
          Spacing = 1
          Left = 143
          Top = 3
          Visible = True
          OnClick = BtnRepEmailClick
          SectionName = 'Untitled (0)'
        end
        object BtnRepClose: TSpeedItem
          BtnCaption = 'Close'
          Caption = '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}
          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'
            'ECCODE'#9'7'#9'EC~Code'
            'VATID'#9'20'#9'VAT Registration No.'
            'REP_T_VAL1'#9'10'#9'Total Sales~Amount')
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          Align = alClient
          DataSource = dsCustTemp
          Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter]
          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 Label1: TLabel
          Left = 546
          Top = 4
          Width = 72
          Height = 16
          Caption = 'Graph Type'
        end
        object cbGraphType: TComboBox
          Left = 544
          Top = 20
          Width = 137
          Height = 24
          ItemHeight = 16
          Items.Strings = (
            'Vertical Bar '
            'Horizontal Bar'
            'Pie'
            'Line'
            'Fast Line'
            'Point'
            'Area')
          TabOrder = 0
          Text = 'Vertical Bar'
          OnChange = cbGraphTypeChange
        end
        object cbMarks: TCheckBox
          Left = 384
          Top = 20
          Width = 125
          Height = 17
          HelpContext = 147
          Alignment = taLeftJustify
          Caption = '&Toggle Marks'
          State = cbChecked
          TabOrder = 1
          OnClick = cbMarksClick
        end
        object SpeedbarSection2: TSpeedbarSection
          Caption = 'Untitled (0)'
        end
        object BtnSaveGraph: TSpeedItem
          BtnCaption = 'Save'
          Caption = 'Save graph to file'
          DropDownMenu = SaveGraphMenu
          NumGlyphs = 2
          Spacing = 1
          Left = 3
          Top = 3
          Visible = True
          SectionName = 'Untitled (0)'
        end
        object BtnPrintGraph: TSpeedItem
          BtnCaption = 'Print'
          Caption = 'Print EC sales graph'
          Hint = 'Print EC sales graph'
          Spacing = 1
          Left = 73
          Top = 3
          Visible = True
          OnClick = BtnPrintGraphClick
          SectionName = 'Untitled (0)'
        end
        object BtnEmailGraph: TSpeedItem
          BtnCaption = 'Email'
          Caption = 'Email EC sales graph'
          Hint = 'Email EC sales graph'
          Spacing = 1
          Left = 143
          Top = 3
          Visible = True
          OnClick = BtnEmailGraphClick
          SectionName = 'Untitled (0)'
        end
        object BtnCloseGraph: TSpeedItem
          BtnCaption = '&Close'
          Caption = 'Close this form'
          Spacing = 1
          Left = 283
          Top = 3
          Visible = True
          OnClick = BtnCloseGraphClick
          SectionName = 'Untitled (0)'
        end
        object btnHelpgraph: TSpeedItem
          BtnCaption = '&Help'
          Caption = 'View full help on this window'
          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 CustECSalesChart: TChart
        Left = 0
        Top = 49
        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 = (
          'Customer VAT  EC Sales List')
        BackColor = clWhite
        BottomAxis.LabelsFont.Charset = DEFAULT_CHARSET
        BottomAxis.LabelsFont.Color = clBlack
        BottomAxis.LabelsFont.Height = -10
        BottomAxis.LabelsFont.Name = 'Arial'
        BottomAxis.LabelsFont.Style = [fsBold, fsItalic]
        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.Font.Charset = DEFAULT_CHARSET
        Legend.Font.Color = clBlue
        Legend.Font.Height = -10
        Legend.Font.Name = 'Arial'
        Legend.Font.Style = []
        Legend.TextStyle = ltsLeftPercent
        MaxPointsPerPage = 12
        Align = alClient
        BorderStyle = bsSingle
        Color = 8388863
        TabOrder = 1
        object BSSelectedPeriod: TBarSeries
          ColorEachPoint = True
          Marks.Arrow.Color = clBlue
          Marks.ArrowLength = 11
          Marks.BackColor = 8454016
          Marks.Style = smsValue
          Marks.Visible = True
          Title = 'EC Sales'
          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
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 698
    Height = 52
    Align = alClient
    TabOrder = 0
    object Label5: TLabel
      Left = 152
      Top = 4
      Width = 66
      Height = 16
      Caption = 'Finish Date'
    end
    object Label6: TLabel
      Left = 28
      Top = 4
      Width = 59
      Height = 16
      Caption = 'Start Date'
    end
    object DEStartDate: TDateEdit
      Left = 8
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 102
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 0
      OnAcceptDate = DEStartDateAcceptDate
      OnEnter = DEStartDateEnter
      OnExit = DEStartDateExit
    end
    object DEFinDate: TDateEdit
      Left = 136
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 103
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 1
      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 = 640
    Top = 53
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      706)
    OriginalFormHeight = (
      459)
    OriginalFormLeft = (
      46)
    OriginalFormTop = (
      116)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      698)
    OriginalClientHeight = (
      432)
  end
  object dsCustTemp: TwwDataSource
    DataSet = taCustTemp
    Left = 356
    Top = 204
  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, 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 = 556
    Top = 51
  end
  object SaveGraphMenu: TRxPopupMenu
    LeftMargin = 30
    Style = msOwnerDraw
    ShowCheckMarks = False
    OnDrawMargin = SaveGraphMenuDrawMargin
    Left = 582
    Top = 318
    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 = 328
    Top = 341
    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 QGetInvValue: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'SELECT SUM(NomTrans.NATVALUE)'
      'FROM Trans, NomTrans'
      'WHERE ((Trans.ACCREF = :CustAccRef)'
      '     AND (Trans.TRANSNO = NomTrans.TTRANSNO))'
      '     AND (((Trans.TRANSTYPE = '#39'INVOICE'#39')'
      '     AND (Trans."MODULE" = '#39'C'#39')'
      '    AND (Trans.TRANSDATE BETWEEN :StDate AND :FinDate)'
      '     AND (NomTrans.NOMREF = :SalesVat)'
      '     AND (NomTrans.VATCODE = :ECSalesRate)))')
    Params.Data = {
      010005000A437573744163635265660001020030000000065374446174650009
      04005A950A0000000746696E44617465000904005A950A0000000853616C6573
      56617400010200300000000B454353616C6573526174650001020030000000}
    ValidateWithMask = True
    Left = 556
    Top = 252
    object QGetInvValueSUM_OF_NAT: TFloatField
      FieldName = 'SUM_OF_NAT'
    end
  end
  object QGetCrdVAlue: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'SELECT SUM(NomTrans.NATVALUE)'
      'FROM Trans, NomTrans'
      'WHERE ((Trans.ACCREF = :CustAccRef)'
      '     AND (Trans.TRANSNO = NomTrans.TTRANSNO))'
      '     AND (((Trans.TRANSTYPE = '#39'CREDIT'#39')'
      '     AND (Trans."MODULE" = '#39'C'#39')'
      '    AND (Trans.TRANSDATE BETWEEN :StDate AND :FinDate)'
      '     AND (NomTrans.NOMREF = :SalesVat)'
      '     AND (NomTrans.VATCODE = :ECSalesRate)))')
    Params.Data = {
      010005000A437573744163635265660001020030000000065374446174650009
      04005A950A0000000746696E44617465000904005A950A0000000853616C6573
      56617400010200300000000B454353616C6573526174650001020030000000}
    ValidateWithMask = True
    Left = 492
    Top = 264
    object QGetCrdVAlueSUM_OF_NAT: TFloatField
      FieldName = 'SUM_OF_NAT'
      Origin = '"NomTrans.DBF".NATVALUE'
    end
  end
  object taCustTemp: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'Select ACCREF,NAME,ECCODE,VATID,REP_T_VAL1'
      'From Customer'
      '')
    ValidateWithMask = True
    Left = 356
    Top = 148
    object taCustTempACCREF: TStringField
      DisplayLabel = 'Cust. Ref'
      DisplayWidth = 12
      FieldName = 'ACCREF'
      Origin = '"Customer.DBF".ACCREF'
      Size = 10
    end
    object taCustTempNAME: TStringField
      DisplayLabel = 'Customer Name'
      DisplayWidth = 40
      FieldName = 'NAME'
      Origin = '"Customer.DBF".NAME'
      Size = 40
    end
    object taCustTempECCODE: TStringField
      DisplayLabel = 'EC~Code'
      DisplayWidth = 7
      FieldName = 'ECCODE'
      Origin = '"Customer.DBF".ECCODE'
      Size = 3
    end
    object taCustTempVATID: TStringField
      DisplayLabel = 'VAT Registration No.'
      DisplayWidth = 20
      FieldName = 'VATID'
      Origin = '"Customer.DBF".VATID'
      Size = 15
    end
    object taCustTempREP_T_VAL1: TFloatField
      DisplayLabel = 'Total Sales~Amount'
      DisplayWidth = 10
      FieldName = 'REP_T_VAL1'
      Origin = '"Customer.DBF".REP_T_VAL1'
      DisplayFormat = '0.00'
    end
  end
  object taCustSumm: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'select sum(REP_T_VAL1) from Customer')
    ValidateWithMask = True
    Left = 439
    Top = 153
    object taCustSummSUM_OF_REP: TFloatField
      FieldName = 'SUM_OF_REP'
      Origin = '"Customer.DBF".REP_T_VAL1'
    end
  end
end