home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 September / Dpcb0999.iso / Business / Empire / _SETUP.1 / EmpireBuilder.exe / 0 / RCDATA / TFMSUPPTURNOVER / TFMSUPPTURNOVER.txt
Text File  |  1999-06-21  |  30KB  |  1,030 lines
  1. object fmSuppTurnover: TfmSuppTurnover
  2.   Left = 44
  3.   Top = 106
  4.   AutoScroll = False
  5.   Caption = 'Supplier Turnover'
  6.   ClientHeight = 432
  7.   ClientWidth = 698
  8.   Font.Charset = ANSI_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'Arial'
  12.   Font.Style = []
  13.   FormStyle = fsMDIChild
  14.   Position = poDefaultPosOnly
  15.   Scaled = False
  16.   Visible = True
  17.   OnActivate = FormActivate
  18.   OnClose = FormClose
  19.   OnCloseQuery = FormCloseQuery
  20.   OnCreate = FormCreate
  21.   OnDeactivate = FormDeactivate
  22.   OnShow = FormShow
  23.   PixelsPerInch = 120
  24.   TextHeight = 16
  25.   object PageControl1: TPageControl
  26.     Left = 0
  27.     Top = 52
  28.     Width = 698
  29.     Height = 380
  30.     ActivePage = TSReport
  31.     Align = alBottom
  32.     TabOrder = 1
  33.     OnChange = PageControl1Change
  34.     object TSReport: TTabSheet
  35.       Caption = 'Report'
  36.       object SpeedBar: TSpeedBar
  37.         Left = 0
  38.         Top = 0
  39.         Width = 690
  40.         Height = 49
  41.         Font.Charset = ANSI_CHARSET
  42.         Font.Color = clWindowText
  43.         Font.Height = -13
  44.         Font.Name = 'MS Sans Serif'
  45.         Font.Style = []
  46.         Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
  47.         BtnOffsetHorz = 3
  48.         BtnOffsetVert = 3
  49.         BtnWidth = 70
  50.         BtnHeight = 43
  51.         TabOrder = 1
  52.         OnDblClick = BtnZoomClick
  53.         InternalVer = 1
  54.         object SpeedbarSection1: TSpeedbarSection
  55.           Caption = 'Untitled (0)'
  56.         end
  57.         object BtnZoom: TSpeedItem
  58.           BtnCaption = 'Zoom In'
  59.           Caption = 'Report Zoom In'
  60.           Spacing = 1
  61.           Left = 3
  62.           Top = 3
  63.           Visible = True
  64.           OnClick = BtnZoomClick
  65.           SectionName = 'Untitled (0)'
  66.         end
  67.         object BtnRepPrint: TSpeedItem
  68.           BtnCaption = 'Print'
  69.           Caption = 'Print turnover report'
  70.           Hint = 'Print turnover report'
  71.           Spacing = 1
  72.           Left = 73
  73.           Top = 3
  74.           Visible = True
  75.           OnClick = BtnRepPrintClick
  76.           SectionName = 'Untitled (0)'
  77.         end
  78.         object BtnRepEmail: TSpeedItem
  79.           BtnCaption = 'Email'
  80.           Caption = 'Email turnover report'
  81.           Hint = 'Email turnover report'
  82.           Spacing = 1
  83.           Left = 143
  84.           Top = 3
  85.           Visible = True
  86.           OnClick = BtnRepEmailClick
  87.           SectionName = 'Untitled (0)'
  88.         end
  89.         object BtnRepClose: TSpeedItem
  90.           BtnCaption = 'Close'
  91.           Caption = 'Close Report Form'
  92.           Spacing = 1
  93.           Left = 283
  94.           Top = 3
  95.           Visible = True
  96.           OnClick = BtnRepCloseClick
  97.           SectionName = 'Untitled (0)'
  98.         end
  99.         object BtnRepHelp: TSpeedItem
  100.           BtnCaption = 'Help'
  101.           Caption = 'Report Help'
  102.           Glyph.Data = {
  103.             F6000000424DF600000000000000760000002800000010000000100000000100
  104.             0400000000008000000000000000000000001000000010000000000000000000
  105.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  106.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
  107.             888888888E6648888888888888E6688888888888888888888888888888446888
  108.             8888888886664888888888888E664888888888888E6664888888888888E66648
  109.             88888888888E6664888888844888E6664888886664888E66488888E666444666
  110.             4888888E6666666668888888EE6666668888888888EEEEE88888}
  111.           Spacing = 1
  112.           Left = 213
  113.           Top = 3
  114.           Visible = True
  115.           OnClick = BtnRepHelpClick
  116.           SectionName = 'Untitled (0)'
  117.         end
  118.       end
  119.       object Panel2: TPanel
  120.         Left = 0
  121.         Top = 49
  122.         Width = 690
  123.         Height = 300
  124.         Align = alClient
  125.         Caption = 'Panel2'
  126.         TabOrder = 0
  127.         object wwDBGrid1: TwwDBGrid
  128.           Left = 1
  129.           Top = 1
  130.           Width = 688
  131.           Height = 298
  132.           Selected.Strings = (
  133.             'ACCREF'#9'12'#9'Cust. Ref'
  134.             'NAME'#9'40'#9'Customer Name'
  135.             'MTOVER'#9'12'#9'Turnover~This Month'
  136.             'YTOVER'#9'12'#9'Turnover~This Year'
  137.             'REP_T_VAL1'#9'12'#9'Selected ~Period Turnover')
  138.           TitleColor = clBtnFace
  139.           FixedCols = 0
  140.           ShowHorzScrollBar = True
  141.           Align = alClient
  142.           DataSource = dsSupplier
  143.           KeyOptions = [dgAllowDelete]
  144.           Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells]
  145.           PopupMenu = pmRClick
  146.           TabOrder = 0
  147.           TitleAlignment = taLeftJustify
  148.           TitleFont.Charset = ANSI_CHARSET
  149.           TitleFont.Color = clWindowText
  150.           TitleFont.Height = -13
  151.           TitleFont.Name = 'Arial'
  152.           TitleFont.Style = []
  153.           TitleLines = 2
  154.           TitleButtons = True
  155.           OnCalcCellColors = wwDBGrid1CalcCellColors
  156.           OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
  157.           OnTitleButtonClick = wwDBGrid1TitleButtonClick
  158.           OnDblClick = BtnZoomClick
  159.           IndicatorColor = icBlack
  160.           OnTopRowChanged = wwDBGrid1TopRowChanged
  161.           OnCalcTitleImage = wwDBGrid1CalcTitleImage
  162.           TitleImageList = ImagesDM.GenralBM
  163.           FooterCellColor = clYellow
  164.           FooterHeight = 25
  165.         end
  166.       end
  167.     end
  168.     object TSGraph: TTabSheet
  169.       Caption = 'Graph'
  170.       object SpeedBar1: TSpeedBar
  171.         Left = 0
  172.         Top = 0
  173.         Width = 0
  174.         Height = 49
  175.         Font.Charset = ANSI_CHARSET
  176.         Font.Color = clWindowText
  177.         Font.Height = -13
  178.         Font.Name = 'MS Sans Serif'
  179.         Font.Style = []
  180.         Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
  181.         BtnOffsetHorz = 3
  182.         BtnOffsetVert = 3
  183.         BtnWidth = 70
  184.         BtnHeight = 43
  185.         TabOrder = 0
  186.         InternalVer = 1
  187.         object Label7: TLabel
  188.           Left = 540
  189.           Top = 4
  190.           Width = 72
  191.           Height = 16
  192.           Caption = 'Graph Type'
  193.         end
  194.         object cbGraphType: TComboBox
  195.           Left = 540
  196.           Top = 20
  197.           Width = 137
  198.           Height = 24
  199.           Hint = 'Press F1 for help'
  200.           ItemHeight = 16
  201.           Items.Strings = (
  202.             'Vertical Bar '
  203.             'Horizontal Bar'
  204.             'Pie'
  205.             'Line'
  206.             'Fast Line'
  207.             'Point'
  208.             'Area')
  209.           ParentShowHint = False
  210.           ShowHint = True
  211.           TabOrder = 1
  212.           Text = 'Vertical Bar'
  213.           OnChange = cbGraphTypeChange
  214.         end
  215.         object cbMarks: TCheckBox
  216.           Left = 384
  217.           Top = 20
  218.           Width = 125
  219.           Height = 17
  220.           Hint = 'Press F1 for help'
  221.           HelpContext = 147
  222.           Alignment = taLeftJustify
  223.           Caption = '&Toggle Marks'
  224.           ParentShowHint = False
  225.           ShowHint = True
  226.           State = cbChecked
  227.           TabOrder = 0
  228.           OnClick = cbMarksClick
  229.         end
  230.         object SpeedbarSection2: TSpeedbarSection
  231.           Caption = 'Untitled (0)'
  232.         end
  233.         object BtnSaveGraph: TSpeedItem
  234.           BtnCaption = 'Save'
  235.           Caption = 'Save Graph'
  236.           DropDownMenu = SaveGraphMenu
  237.           NumGlyphs = 2
  238.           Spacing = 1
  239.           Left = 3
  240.           Top = 3
  241.           Visible = True
  242.           SectionName = 'Untitled (0)'
  243.         end
  244.         object BtnPrintGraph: TSpeedItem
  245.           BtnCaption = 'Print'
  246.           Caption = 'Print turnover graph'
  247.           Hint = 'Print turnover graph|'
  248.           Spacing = 1
  249.           Left = 73
  250.           Top = 3
  251.           Visible = True
  252.           OnClick = BtnPrintGraphClick
  253.           SectionName = 'Untitled (0)'
  254.         end
  255.         object BtnEmailGraph: TSpeedItem
  256.           BtnCaption = 'Email'
  257.           Caption = 'Email turnover graph'
  258.           Hint = 'Email turnover graph'
  259.           Spacing = 1
  260.           Left = 143
  261.           Top = 3
  262.           Visible = True
  263.           OnClick = BtnEmailGraphClick
  264.           SectionName = 'Untitled (0)'
  265.         end
  266.         object BtnCloseGraph: TSpeedItem
  267.           BtnCaption = 'Close'
  268.           Caption = 'Close'
  269.           Spacing = 1
  270.           Left = 283
  271.           Top = 3
  272.           Visible = True
  273.           OnClick = BtnCloseGraphClick
  274.           SectionName = 'Untitled (0)'
  275.         end
  276.         object BtnHelpGraph: TSpeedItem
  277.           BtnCaption = 'Help'
  278.           Caption = 'Report Help'
  279.           Glyph.Data = {
  280.             F6000000424DF600000000000000760000002800000010000000100000000100
  281.             0400000000008000000000000000000000001000000010000000000000000000
  282.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  283.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
  284.             888888888E6648888888888888E6688888888888888888888888888888446888
  285.             8888888886664888888888888E664888888888888E6664888888888888E66648
  286.             88888888888E6664888888844888E6664888886664888E66488888E666444666
  287.             4888888E6666666668888888EE6666668888888888EEEEE88888}
  288.           Spacing = 1
  289.           Left = 213
  290.           Top = 3
  291.           Visible = True
  292.           OnClick = BtnHelpGraphClick
  293.           SectionName = 'Untitled (0)'
  294.         end
  295.       end
  296.       object Notebook1: TNotebook
  297.         Left = 0
  298.         Top = 49
  299.         Width = 690
  300.         Height = 300
  301.         Align = alClient
  302.         TabOrder = 1
  303.         object TPage
  304.           Left = 0
  305.           Top = 0
  306.           Caption = 'AllCustomers'
  307.           object AllSupplierChart: TChart
  308.             Left = 0
  309.             Top = 0
  310.             Width = 690
  311.             Height = 300
  312.             BottomWall.Brush.Color = clBlue
  313.             BottomWall.Color = clWhite
  314.             Foot.Font.Charset = DEFAULT_CHARSET
  315.             Foot.Font.Color = clRed
  316.             Foot.Font.Height = -13
  317.             Foot.Font.Name = 'Arial'
  318.             Foot.Font.Style = [fsItalic]
  319.             Gradient.EndColor = 16744576
  320.             Gradient.Visible = True
  321.             LeftWall.Brush.Color = clBlue
  322.             LeftWall.Color = 16744448
  323.             LeftWall.Pen.Color = 8388863
  324.             Title.Font.Charset = ANSI_CHARSET
  325.             Title.Font.Color = clBlue
  326.             Title.Font.Height = -17
  327.             Title.Font.Name = 'Arial'
  328.             Title.Font.Style = []
  329.             Title.Text.Strings = (
  330.               '')
  331.             BackColor = clWhite
  332.             BottomAxis.LabelsFont.Charset = DEFAULT_CHARSET
  333.             BottomAxis.LabelsFont.Color = clBlack
  334.             BottomAxis.LabelsFont.Height = -10
  335.             BottomAxis.LabelsFont.Name = 'Arial'
  336.             BottomAxis.LabelsFont.Style = []
  337.             BottomAxis.Title.Caption = 'Customers'
  338.             BottomAxis.Title.Font.Charset = ANSI_CHARSET
  339.             BottomAxis.Title.Font.Color = clBlue
  340.             BottomAxis.Title.Font.Height = -13
  341.             BottomAxis.Title.Font.Name = 'Arial Black'
  342.             BottomAxis.Title.Font.Style = []
  343.             LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET
  344.             LeftAxis.LabelsFont.Color = clBlack
  345.             LeftAxis.LabelsFont.Height = -10
  346.             LeftAxis.LabelsFont.Name = 'Arial'
  347.             LeftAxis.LabelsFont.Style = []
  348.             LeftAxis.Title.Caption = 'Amount'
  349.             LeftAxis.Title.Font.Charset = ANSI_CHARSET
  350.             LeftAxis.Title.Font.Color = clBlue
  351.             LeftAxis.Title.Font.Height = -13
  352.             LeftAxis.Title.Font.Name = 'Arial Black'
  353.             LeftAxis.Title.Font.Style = []
  354.             Legend.Color = 10738885
  355.             Legend.Font.Charset = DEFAULT_CHARSET
  356.             Legend.Font.Color = clBlue
  357.             Legend.Font.Height = -10
  358.             Legend.Font.Name = 'Arial'
  359.             Legend.Font.Style = []
  360.             Legend.TextStyle = ltsLeftPercent
  361.             Legend.ShadowColor = 10485760
  362.             Legend.ShadowSize = 2
  363.             MaxPointsPerPage = 12
  364.             Align = alClient
  365.             BorderStyle = bsSingle
  366.             Color = 8388863
  367.             TabOrder = 0
  368.             object BSAllSupplier: TBarSeries
  369.               ColorEachPoint = True
  370.               Marks.Arrow.Color = clBlue
  371.               Marks.ArrowLength = 11
  372.               Marks.BackColor = 8454016
  373.               Marks.Style = smsValue
  374.               Marks.Visible = True
  375.               Title = 'AgedDebtor'
  376.               SeriesColor = clRed
  377.               XValues.DateTime = False
  378.               XValues.Name = 'X'
  379.               XValues.Multiplier = 1.000000000000000000
  380.               XValues.Order = loAscending
  381.               YValues.DateTime = False
  382.               YValues.Name = 'Bar'
  383.               YValues.Multiplier = 1.000000000000000000
  384.               YValues.Order = loNone
  385.             end
  386.           end
  387.         end
  388.         object TPage
  389.           Left = 0
  390.           Top = 0
  391.           Caption = 'SelectedCustomer'
  392.           object SelectedSupplierChart: TChart
  393.             Left = 0
  394.             Top = 0
  395.             Width = 690
  396.             Height = 300
  397.             BottomWall.Color = clWhite
  398.             Foot.Font.Charset = DEFAULT_CHARSET
  399.             Foot.Font.Color = clRed
  400.             Foot.Font.Height = -13
  401.             Foot.Font.Name = 'Arial'
  402.             Foot.Font.Style = [fsItalic]
  403.             Gradient.EndColor = 8421440
  404.             Gradient.Visible = True
  405.             LeftWall.Color = 16744448
  406.             LeftWall.Pen.Color = 8388863
  407.             Title.Font.Charset = ANSI_CHARSET
  408.             Title.Font.Color = clBlue
  409.             Title.Font.Height = -17
  410.             Title.Font.Name = 'Arial'
  411.             Title.Font.Style = []
  412.             Title.Text.Strings = (
  413.               '')
  414.             BackColor = clWhite
  415.             BottomAxis.Title.Caption = 'Periods'
  416.             BottomAxis.Title.Font.Charset = ANSI_CHARSET
  417.             BottomAxis.Title.Font.Color = clBlue
  418.             BottomAxis.Title.Font.Height = -13
  419.             BottomAxis.Title.Font.Name = 'Arial Black'
  420.             BottomAxis.Title.Font.Style = []
  421.             LeftAxis.Title.Caption = 'Amount'
  422.             LeftAxis.Title.Font.Charset = ANSI_CHARSET
  423.             LeftAxis.Title.Font.Color = clBlue
  424.             LeftAxis.Title.Font.Height = -13
  425.             LeftAxis.Title.Font.Name = 'Arial Black'
  426.             LeftAxis.Title.Font.Style = []
  427.             Legend.TextStyle = ltsRightValue
  428.             MaxPointsPerPage = 4
  429.             Align = alClient
  430.             BorderStyle = bsSingle
  431.             Color = 8388863
  432.             TabOrder = 0
  433.             object BSSelectedSupplier: TBarSeries
  434.               ColorEachPoint = True
  435.               Marks.Arrow.Color = clBlue
  436.               Marks.ArrowLength = 11
  437.               Marks.BackColor = 8454016
  438.               Marks.Style = smsValue
  439.               Marks.Visible = True
  440.               Title = 'AgedDebtor'
  441.               SeriesColor = clRed
  442.               XValues.DateTime = False
  443.               XValues.Name = 'X'
  444.               XValues.Multiplier = 1.000000000000000000
  445.               XValues.Order = loAscending
  446.               YValues.DateTime = False
  447.               YValues.Name = 'Bar'
  448.               YValues.Multiplier = 1.000000000000000000
  449.               YValues.Order = loNone
  450.             end
  451.           end
  452.         end
  453.       end
  454.     end
  455.   end
  456.   object Panel1: TPanel
  457.     Left = 0
  458.     Top = 0
  459.     Width = 698
  460.     Height = 52
  461.     Align = alClient
  462.     TabOrder = 0
  463.     object Label1: TLabel
  464.       Left = 24
  465.       Top = 4
  466.       Width = 79
  467.       Height = 16
  468.       Caption = 'Start Supplier'
  469.     end
  470.     object Label2: TLabel
  471.       Left = 144
  472.       Top = 4
  473.       Width = 86
  474.       Height = 16
  475.       Caption = 'Finish Supplier'
  476.     end
  477.     object Label3: TLabel
  478.       Left = 500
  479.       Top = 4
  480.       Width = 57
  481.       Height = 16
  482.       Caption = 'Include ...'
  483.     end
  484.     object Label4: TLabel
  485.       Left = 620
  486.       Top = 4
  487.       Width = 35
  488.       Height = 16
  489.       Caption = 'Above'
  490.     end
  491.     object Label5: TLabel
  492.       Left = 364
  493.       Top = 4
  494.       Width = 91
  495.       Height = 16
  496.       Caption = 'T/O Finish Date'
  497.     end
  498.     object Label6: TLabel
  499.       Left = 264
  500.       Top = 4
  501.       Width = 84
  502.       Height = 16
  503.       Caption = 'T/O Start Date'
  504.     end
  505.     object DBCDlgStSuppRef: TComboEdit
  506.       Left = 8
  507.       Top = 20
  508.       Width = 120
  509.       Height = 24
  510.       Hint = 'Press F1 for help'
  511.       HelpContext = 100
  512.       CharCase = ecUpperCase
  513.       ClickKey = 16467
  514.       ButtonWidth = 24
  515.       MaxLength = 16
  516.       NumGlyphs = 1
  517.       ParentShowHint = False
  518.       ShowHint = True
  519.       TabOrder = 0
  520.       OnButtonClick = DBCDlgStSuppRefButtonClick
  521.       OnEnter = DBCDlgStSuppRefEnter
  522.       OnExit = DBCDlgStSuppRefExit
  523.     end
  524.     object DBCDlgFiSuppRef: TComboEdit
  525.       Left = 132
  526.       Top = 20
  527.       Width = 120
  528.       Height = 24
  529.       Hint = 'Press F1 for help'
  530.       HelpContext = 101
  531.       CharCase = ecUpperCase
  532.       ClickKey = 16467
  533.       ButtonWidth = 24
  534.       MaxLength = 16
  535.       NumGlyphs = 1
  536.       ParentShowHint = False
  537.       ShowHint = True
  538.       TabOrder = 1
  539.       OnButtonClick = DBCDlgFiSuppRefButtonClick
  540.       OnEnter = DBCDlgFiSuppRefEnter
  541.       OnExit = DBCDlgFiSuppRefExit
  542.     end
  543.     object CEAbove: TRxCalcEdit
  544.       Left = 592
  545.       Top = 20
  546.       Width = 100
  547.       Height = 24
  548.       Hint = 'Press F1 for help'
  549.       HelpContext = 166
  550.       AutoSize = False
  551.       ClickKey = 16451
  552.       DisplayFormat = '0.00'
  553.       NumGlyphs = 2
  554.       ParentShowHint = False
  555.       ShowHint = True
  556.       TabOrder = 5
  557.       OnEnter = CEAboveEnter
  558.       OnExit = CEAboveExit
  559.     end
  560.     object CBInclude: TComboBox
  561.       Left = 464
  562.       Top = 20
  563.       Width = 125
  564.       Height = 24
  565.       Hint = 'Press F1 for help'
  566.       HelpContext = 165
  567.       ItemHeight = 16
  568.       Items.Strings = (
  569.         'This Month'
  570.         'This Year'
  571.         'Selected Period')
  572.       ParentShowHint = False
  573.       ShowHint = True
  574.       TabOrder = 4
  575.       Text = 'This Month'
  576.       OnChange = CBIncludeChange
  577.     end
  578.     object DEStartDate: TDateEdit
  579.       Left = 256
  580.       Top = 20
  581.       Width = 100
  582.       Height = 24
  583.       Hint = 'Press F1 for help'
  584.       HelpContext = 163
  585.       NumGlyphs = 2
  586.       ParentShowHint = False
  587.       ShowHint = True
  588.       CalendarStyle = csDialog
  589.       Weekends = [Sun, Sat]
  590.       YearDigits = dyFour
  591.       TabOrder = 2
  592.       OnAcceptDate = DEStartDateAcceptDate
  593.       OnEnter = DEStartDateEnter
  594.       OnExit = DEStartDateExit
  595.     end
  596.     object DEFinDate: TDateEdit
  597.       Left = 360
  598.       Top = 20
  599.       Width = 100
  600.       Height = 24
  601.       Hint = 'Press F1 for help'
  602.       HelpContext = 164
  603.       NumGlyphs = 2
  604.       ParentShowHint = False
  605.       ShowHint = True
  606.       CalendarStyle = csDialog
  607.       Weekends = [Sun, Sat]
  608.       YearDigits = dyFour
  609.       TabOrder = 3
  610.       OnAcceptDate = DEFinDateAcceptDate
  611.       OnEnter = DEFinDateEnter
  612.       OnExit = DEFinDateExit
  613.     end
  614.   end
  615.   object Sizer1: TSizer
  616.     Enabled = True
  617.     ExceptionAction = eaIgnoreControl
  618.     GridColumnSizing = gcSizeAllColumns
  619.     GridRowSizing = grSizeByDefaults
  620.     MinimumSize = True
  621.     NavigateOnEnter = True
  622.     OverrideParentFont = True
  623.     PerformAssertions = True
  624.     ShowAssertionFailures = False
  625.     StretchFonts = True
  626.     StretchImages = True
  627.     StretchOnResize = True
  628.     ThreadProcessing = True
  629.     Left = 624
  630.     Top = 349
  631.     ScreenWidth = (
  632.       800)
  633.     ScreenHeight = (
  634.       600)
  635.     OriginalFormWidth = (
  636.       706)
  637.     OriginalFormHeight = (
  638.       459)
  639.     OriginalFormLeft = (
  640.       44)
  641.     OriginalFormTop = (
  642.       106)
  643.     OriginalFormPPI = (
  644.       120)
  645.     OriginalClientWidth = (
  646.       698)
  647.     OriginalClientHeight = (
  648.       432)
  649.   end
  650.   object SaveGraphMenu: TRxPopupMenu
  651.     LeftMargin = 30
  652.     Style = msOwnerDraw
  653.     OnDrawMargin = SaveGraphMenuDrawMargin
  654.     Left = 618
  655.     Top = 254
  656.     object pmSaveAsBitmap: TMenuItem
  657.       Caption = 'Save As &Bitmap'
  658.       OnClick = pmSaveAsBitmapClick
  659.     end
  660.     object pmSaveAsMetafile: TMenuItem
  661.       Caption = 'Save As &Metafile'
  662.       OnClick = pmSaveAsMetafileClick
  663.     end
  664.     object pmCopyToClipboard: TMenuItem
  665.       Caption = 'Copy To &Clipboard'
  666.       OnClick = pmCopyToClipboardClick
  667.     end
  668.   end
  669.   object pmRClick: TRxPopupMenu
  670.     Style = msOwnerDraw
  671.     ShowCheckMarks = False
  672.     OnGetItemParams = pmRClickGetItemParams
  673.     Left = 616
  674.     Top = 205
  675.     object pmZoomIn: TMenuItem
  676.       Caption = 'Zoom In'
  677.       OnClick = BtnZoomClick
  678.     end
  679.     object pmPrint: TMenuItem
  680.       Caption = 'Print'
  681.       OnClick = BtnRepPrintClick
  682.     end
  683.     object pmEmail: TMenuItem
  684.       Caption = 'Email'
  685.       OnClick = BtnRepEmailClick
  686.     end
  687.     object N4: TMenuItem
  688.       Caption = '-'
  689.     end
  690.     object pmiGridColor: TMenuItem
  691.       Caption = 'Change Grid Colour'
  692.       OnClick = pmiGridColorClick
  693.     end
  694.   end
  695.   object taSupplier: TwwQuery
  696.     DatabaseName = 'EmpireBuilder'
  697.     SQL.Strings = (
  698.       'Select * from Supplier')
  699.     ValidateWithMask = True
  700.     Left = 332
  701.     Top = 135
  702.     object taSupplierACCREF: TStringField
  703.       DisplayLabel = 'Cust. Ref'
  704.       DisplayWidth = 12
  705.       FieldName = 'ACCREF'
  706.       Origin = '"Supplier.DBF".ACCREF'
  707.       Size = 10
  708.     end
  709.     object taSupplierNAME: TStringField
  710.       DisplayLabel = 'Customer Name'
  711.       DisplayWidth = 40
  712.       FieldName = 'NAME'
  713.       Origin = '"Supplier.DBF".NAME'
  714.       Size = 40
  715.     end
  716.     object taSupplierMTOVER: TFloatField
  717.       DisplayLabel = 'Turnover~This Month'
  718.       DisplayWidth = 12
  719.       FieldName = 'MTOVER'
  720.       Origin = '"Supplier.DBF".MTOVER'
  721.       DisplayFormat = '0.00'
  722.     end
  723.     object taSupplierYTOVER: TFloatField
  724.       DisplayLabel = 'Turnover~This Year'
  725.       DisplayWidth = 12
  726.       FieldName = 'YTOVER'
  727.       Origin = '"Supplier.DBF".YTOVER'
  728.       DisplayFormat = '0.00'
  729.     end
  730.     object taSupplierREP_T_VAL1: TFloatField
  731.       DisplayLabel = 'Selected ~Period Turnover'
  732.       DisplayWidth = 12
  733.       FieldName = 'REP_T_VAL1'
  734.       Origin = '"Supplier.DBF".REP_T_VAL1'
  735.       DisplayFormat = '0.00'
  736.     end
  737.     object taSupplierADDRESS1: TStringField
  738.       FieldName = 'ADDRESS1'
  739.       Origin = '"Supplier.DBF".ADDRESS1'
  740.       Visible = False
  741.       Size = 30
  742.     end
  743.     object taSupplierADDRESS2: TStringField
  744.       FieldName = 'ADDRESS2'
  745.       Origin = '"Supplier.DBF".ADDRESS2'
  746.       Visible = False
  747.       Size = 30
  748.     end
  749.     object taSupplierADDRESS3: TStringField
  750.       FieldName = 'ADDRESS3'
  751.       Origin = '"Supplier.DBF".ADDRESS3'
  752.       Visible = False
  753.       Size = 30
  754.     end
  755.     object taSupplierPOSTCODE: TStringField
  756.       FieldName = 'POSTCODE'
  757.       Origin = '"Supplier.DBF".POSTCODE'
  758.       Visible = False
  759.       Size = 10
  760.     end
  761.     object taSupplierTELNO1: TStringField
  762.       FieldName = 'TELNO1'
  763.       Origin = '"Supplier.DBF".TELNO1'
  764.       Visible = False
  765.       Size = 15
  766.     end
  767.     object taSupplierTELNO2: TStringField
  768.       FieldName = 'TELNO2'
  769.       Origin = '"Supplier.DBF".TELNO2'
  770.       Visible = False
  771.       Size = 15
  772.     end
  773.     object taSupplierFAXNO: TStringField
  774.       FieldName = 'FAXNO'
  775.       Origin = '"Supplier.DBF".FAXNO'
  776.       Visible = False
  777.       Size = 15
  778.     end
  779.     object taSupplierEMAIL: TStringField
  780.       FieldName = 'EMAIL'
  781.       Origin = '"Supplier.DBF".EMAIL'
  782.       Visible = False
  783.       Size = 70
  784.     end
  785.     object taSupplierCONTACT: TStringField
  786.       FieldName = 'CONTACT'
  787.       Origin = '"Supplier.DBF".CONTACT'
  788.       Visible = False
  789.       Size = 25
  790.     end
  791.     object taSupplierCREITLMT: TFloatField
  792.       FieldName = 'CREITLMT'
  793.       Origin = '"Supplier.DBF".CREITLMT'
  794.       Visible = False
  795.     end
  796.     object taSupplierTERMS: TSmallintField
  797.       FieldName = 'TERMS'
  798.       Origin = '"Supplier.DBF".TERMS'
  799.       Visible = False
  800.     end
  801.     object taSupplierPRICECODE: TSmallintField
  802.       FieldName = 'PRICECODE'
  803.       Origin = '"Supplier.DBF".PRICECODE'
  804.       Visible = False
  805.     end
  806.     object taSupplierONSTOP: TBooleanField
  807.       FieldName = 'ONSTOP'
  808.       Origin = '"Supplier.DBF".ONSTOP'
  809.       Visible = False
  810.     end
  811.     object taSupplierCMLINK: TStringField
  812.       FieldName = 'CMLINK'
  813.       Origin = '"Supplier.DBF".CMLINK'
  814.       Visible = False
  815.       Size = 10
  816.     end
  817.     object taSupplierVATID: TStringField
  818.       FieldName = 'VATID'
  819.       Origin = '"Supplier.DBF".VATID'
  820.       Visible = False
  821.       Size = 15
  822.     end
  823.     object taSupplierVATCODE: TStringField
  824.       FieldName = 'VATCODE'
  825.       Origin = '"Supplier.DBF".VATCODE'
  826.       Visible = False
  827.       Size = 1
  828.     end
  829.     object taSupplierECCODE: TStringField
  830.       FieldName = 'ECCODE'
  831.       Origin = '"Supplier.DBF".ECCODE'
  832.       Visible = False
  833.       Size = 3
  834.     end
  835.     object taSupplierSETTDAYS: TSmallintField
  836.       FieldName = 'SETTDAYS'
  837.       Origin = '"Supplier.DBF".SETTDAYS'
  838.       Visible = False
  839.     end
  840.     object taSupplierSETTDISC: TFloatField
  841.       FieldName = 'SETTDISC'
  842.       Origin = '"Supplier.DBF".SETTDISC'
  843.       Visible = False
  844.     end
  845.     object taSupplierNOMACC: TStringField
  846.       FieldName = 'NOMACC'
  847.       Origin = '"Supplier.DBF".NOMACC'
  848.       Visible = False
  849.       Size = 10
  850.     end
  851.     object taSupplierNOTEPAD: TMemoField
  852.       FieldName = 'NOTEPAD'
  853.       Origin = '"Supplier.DBF".NOTEPAD'
  854.       Visible = False
  855.       BlobType = ftMemo
  856.       Size = 1
  857.     end
  858.     object taSupplierORVATCODE: TBooleanField
  859.       FieldName = 'ORVATCODE'
  860.       Origin = '"Supplier.DBF".ORVATCODE'
  861.       Visible = False
  862.     end
  863.     object taSupplierORNOMACC: TBooleanField
  864.       FieldName = 'ORNOMACC'
  865.       Origin = '"Supplier.DBF".ORNOMACC'
  866.       Visible = False
  867.     end
  868.     object taSupplierDISCOUNT: TFloatField
  869.       FieldName = 'DISCOUNT'
  870.       Origin = '"Supplier.DBF".DISCOUNT'
  871.       Visible = False
  872.     end
  873.     object taSupplierBALANCE: TFloatField
  874.       FieldName = 'BALANCE'
  875.       Origin = '"Supplier.DBF".BALANCE'
  876.       Visible = False
  877.     end
  878.     object taSupplierCURRENT: TFloatField
  879.       FieldName = 'CURRENT'
  880.       Origin = '"Supplier.DBF".CURRENT'
  881.       Visible = False
  882.     end
  883.     object taSupplierPERBAL1: TFloatField
  884.       FieldName = 'PERBAL1'
  885.       Origin = '"Supplier.DBF".PERBAL1'
  886.       Visible = False
  887.     end
  888.     object taSupplierPERBAL2: TFloatField
  889.       FieldName = 'PERBAL2'
  890.       Origin = '"Supplier.DBF".PERBAL2'
  891.       Visible = False
  892.     end
  893.     object taSupplierPERBAL3: TFloatField
  894.       FieldName = 'PERBAL3'
  895.       Origin = '"Supplier.DBF".PERBAL3'
  896.       Visible = False
  897.     end
  898.     object taSupplierPERBAL4: TFloatField
  899.       FieldName = 'PERBAL4'
  900.       Origin = '"Supplier.DBF".PERBAL4'
  901.       Visible = False
  902.     end
  903.     object taSupplierLPAYDATE: TDateField
  904.       FieldName = 'LPAYDATE'
  905.       Origin = '"Supplier.DBF".LPAYDATE'
  906.       Visible = False
  907.     end
  908.     object taSupplierLSALEDATE: TDateField
  909.       FieldName = 'LSALEDATE'
  910.       Origin = '"Supplier.DBF".LSALEDATE'
  911.       Visible = False
  912.     end
  913.     object taSupplierAMTPAID: TFloatField
  914.       FieldName = 'AMTPAID'
  915.       Origin = '"Supplier.DBF".AMTPAID'
  916.       Visible = False
  917.     end
  918.     object taSupplierPAYDUE: TFloatField
  919.       FieldName = 'PAYDUE'
  920.       Origin = '"Supplier.DBF".PAYDUE'
  921.       Visible = False
  922.     end
  923.     object taSupplierAMTQUERY: TFloatField
  924.       FieldName = 'AMTQUERY'
  925.       Origin = '"Supplier.DBF".AMTQUERY'
  926.       Visible = False
  927.     end
  928.     object taSupplierLASTUPDATE: TStringField
  929.       FieldName = 'LASTUPDATE'
  930.       Origin = '"Supplier.DBF".LASTUPDATE'
  931.       Visible = False
  932.     end
  933.     object taSupplierLASTCALC: TStringField
  934.       FieldName = 'LASTCALC'
  935.       Origin = '"Supplier.DBF".LASTCALC'
  936.       Visible = False
  937.     end
  938.     object taSupplierTAG1: TBooleanField
  939.       FieldName = 'TAG1'
  940.       Origin = '"Supplier.DBF".TAG1'
  941.       Visible = False
  942.     end
  943.     object taSupplierTAG2: TBooleanField
  944.       FieldName = 'TAG2'
  945.       Origin = '"Supplier.DBF".TAG2'
  946.       Visible = False
  947.     end
  948.     object taSupplierREP_T_VAL2: TFloatField
  949.       FieldName = 'REP_T_VAL2'
  950.       Origin = '"Supplier.DBF".REP_T_VAL2'
  951.       Visible = False
  952.     end
  953.     object taSupplierREP_T_VAL3: TFloatField
  954.       FieldName = 'REP_T_VAL3'
  955.       Origin = '"Supplier.DBF".REP_T_VAL3'
  956.       Visible = False
  957.     end
  958.     object taSupplierREP_T_VAL4: TFloatField
  959.       FieldName = 'REP_T_VAL4'
  960.       Origin = '"Supplier.DBF".REP_T_VAL4'
  961.       Visible = False
  962.     end
  963.     object taSupplierREP_T_VAL5: TFloatField
  964.       FieldName = 'REP_T_VAL5'
  965.       Origin = '"Supplier.DBF".REP_T_VAL5'
  966.       Visible = False
  967.     end
  968.   end
  969.   object taSuppSumm: TwwQuery
  970.     DatabaseName = 'EmpireBuilder'
  971.     SQL.Strings = (
  972.       'select sum(mtover), sum(ytover), sum(rep_t_val1) from Supplier')
  973.     ValidateWithMask = True
  974.     Left = 420
  975.     Top = 151
  976.     object taSuppSummSUM_OF_MTO: TFloatField
  977.       FieldName = 'SUM_OF_MTO'
  978.     end
  979.     object taSuppSummSUM_OF_YTO: TFloatField
  980.       FieldName = 'SUM_OF_YTO'
  981.     end
  982.     object taSuppSummSUM_OF_REP: TFloatField
  983.       FieldName = 'SUM_OF_REP'
  984.     end
  985.   end
  986.   object taTranSumm1: TwwQuery
  987.     DatabaseName = 'EmpireBuilder'
  988.     SQL.Strings = (
  989.       'SELECT SUM(Trans.NETVALUE)'
  990.       'FROM Trans'
  991.       'WHERE (((Trans.ACCREF =  :STACCREF)'
  992.       'AND (Trans.TRANSDATE BETWEEN :STDATE AND :FIDATE)'
  993.       '     AND (Trans.TRANSTYPE = "INVOICE")))')
  994.     Params.Data = {
  995.       0100030008535441434352454600010200300000000653544441544500090400
  996.       5A950A00000006464944415445000904005A950A000000}
  997.     ValidateWithMask = True
  998.     Left = 532
  999.     Top = 135
  1000.     object taTranSumm1SUM_OF_NET: TFloatField
  1001.       FieldName = 'SUM_OF_NET'
  1002.       Origin = '"Trans.DBF".NETVALUE'
  1003.     end
  1004.   end
  1005.   object taTranSumm2: TwwQuery
  1006.     DatabaseName = 'EmpireBuilder'
  1007.     SQL.Strings = (
  1008.       'SELECT SUM(Trans.NETVALUE)'
  1009.       'FROM Trans'
  1010.       'WHERE (((Trans.ACCREF = :STACCREF)'
  1011.       'AND (Trans.TRANSDATE BETWEEN :STDATE AND :FIDATE)'
  1012.       '     AND (Trans.TRANSTYPE = "CREDIT")))')
  1013.     Params.Data = {
  1014.       0100030008535441434352454600010200300000000653544441544500090400
  1015.       5A950A00000006464944415445000904005A950A000000}
  1016.     ValidateWithMask = True
  1017.     Left = 632
  1018.     Top = 143
  1019.     object taTranSumm2SUM_OF_NET: TFloatField
  1020.       FieldName = 'SUM_OF_NET'
  1021.       Origin = '"Trans.DBF".NETVALUE'
  1022.     end
  1023.   end
  1024.   object dsSupplier: TwwDataSource
  1025.     DataSet = taSupplier
  1026.     Left = 331
  1027.     Top = 187
  1028.   end
  1029. end
  1030.