home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 September / Dpcb0999.iso / Business / Empire / _SETUP.1 / EmpireBuilder.exe / 0 / RCDATA / TFMSUPPAGEDCREDITORS / TFMSUPPAGEDCREDITORS.txt
Text File  |  1999-06-21  |  38KB  |  1,254 lines
  1. object fmSuppAgedCreditors: TfmSuppAgedCreditors
  2.   Left = 47
  3.   Top = 111
  4.   AutoScroll = False
  5.   Caption = 'Aged Creditors'
  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 = TabReport
  31.     Align = alBottom
  32.     TabOrder = 1
  33.     OnChange = PageControl1Change
  34.     object TabReport: 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 = 'Transaction 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 aged creditors report'
  70.           Hint = 'Print aged creditors 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 aged creditors report'
  81.           Hint = 'Email aged creditors 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 this window'
  92.           Hint = 'Close this window|'
  93.           Spacing = 1
  94.           Left = 283
  95.           Top = 3
  96.           Visible = True
  97.           OnClick = BtnRepCloseClick
  98.           SectionName = 'Untitled (0)'
  99.         end
  100.         object BtnRepHelp: TSpeedItem
  101.           BtnCaption = '&Help'
  102.           Caption = 'View full help on this window'
  103.           Glyph.Data = {
  104.             F6000000424DF600000000000000760000002800000010000000100000000100
  105.             0400000000008000000000000000000000001000000010000000000000000000
  106.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  107.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
  108.             888888888E6648888888888888E6688888888888888888888888888888446888
  109.             8888888886664888888888888E664888888888888E6664888888888888E66648
  110.             88888888888E6664888888844888E6664888886664888E66488888E666444666
  111.             4888888E6666666668888888EE6666668888888888EEEEE88888}
  112.           Hint = 'View full help on this window'
  113.           Spacing = 1
  114.           Left = 213
  115.           Top = 3
  116.           Visible = True
  117.           OnClick = BtnRepHelpClick
  118.           SectionName = 'Untitled (0)'
  119.         end
  120.       end
  121.       object Panel2: TPanel
  122.         Left = 0
  123.         Top = 49
  124.         Width = 690
  125.         Height = 300
  126.         Align = alClient
  127.         Caption = 'Panel2'
  128.         TabOrder = 0
  129.         object wwDBGrid1: TwwDBGrid
  130.           Left = 1
  131.           Top = 1
  132.           Width = 688
  133.           Height = 298
  134.           Selected.Strings = (
  135.             'ACCREF'#9'12'#9'Supp. Ref'#9'F'
  136.             'NAME'#9'36'#9'Supplier Name'#9'F'
  137.             'BALANCE'#9'10'#9'Current ~Balance'#9'F'
  138.             'BalAsAt'#9'10'#9'Balance As~At'#9'F'
  139.             'CREITLMT'#9'10'#9'Credit Limit'#9'F'
  140.             'CURRENT'#9'10'#9'Current'#9'F'
  141.             'PERBAL1'#9'10'#9'30 Days'#9'F'
  142.             'PERBAL2'#9'10'#9'60 Days'#9'F'
  143.             'PERBAL3'#9'10'#9'90 Days'#9'F'
  144.             'PERBAL4'#9'10'#9'Older'#9'F'
  145.             'TERMS'#9'10'#9'Terms'#9'F'
  146.             'ONSTOP'#9'7'#9'On Stop'#9'F'
  147.             'CONTACT'#9'25'#9'Contact Name'#9'F'
  148.             'TELNO1'#9'15'#9'Tel No. 1'#9'F'
  149.             'TELNO2'#9'15'#9'Tel No. 2'#9'F'
  150.             'FAXNO'#9'15'#9'Fax No.'#9'F'
  151.             'EMAIL'#9'25'#9'Email'#9'F'
  152.             'LPAYDATE'#9'10'#9'Last Paid'#9'F'
  153.             'LSALEDATE'#9'10'#9'Last Sale'#9'F'
  154.             'MTOVER'#9'11'#9'MTD Turnover'#9'F'
  155.             'YTOVER'#9'11'#9'YTD Turnover'#9'F')
  156.           TitleColor = clBtnFace
  157.           FixedCols = 1
  158.           ShowHorzScrollBar = True
  159.           Align = alClient
  160.           DataSource = dsSupplier
  161.           KeyOptions = [dgAllowDelete]
  162.           Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells]
  163.           PopupMenu = pmRClick
  164.           TabOrder = 0
  165.           TitleAlignment = taLeftJustify
  166.           TitleFont.Charset = ANSI_CHARSET
  167.           TitleFont.Color = clWindowText
  168.           TitleFont.Height = -13
  169.           TitleFont.Name = 'Arial'
  170.           TitleFont.Style = []
  171.           TitleLines = 2
  172.           TitleButtons = True
  173.           OnCalcCellColors = wwDBGrid1CalcCellColors
  174.           OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
  175.           OnTitleButtonClick = wwDBGrid1TitleButtonClick
  176.           OnDblClick = BtnZoomClick
  177.           IndicatorColor = icBlack
  178.           OnTopRowChanged = wwDBGrid1TopRowChanged
  179.           OnCalcTitleImage = wwDBGrid1CalcTitleImage
  180.           TitleImageList = ImagesDM.GenralBM
  181.           FooterCellColor = clYellow
  182.           FooterHeight = 25
  183.         end
  184.       end
  185.     end
  186.     object TabGraph: TTabSheet
  187.       Caption = 'Graph'
  188.       object SpeedBar1: TSpeedBar
  189.         Left = 0
  190.         Top = 0
  191.         Width = 0
  192.         Height = 49
  193.         Font.Charset = ANSI_CHARSET
  194.         Font.Color = clWindowText
  195.         Font.Height = -13
  196.         Font.Name = 'MS Sans Serif'
  197.         Font.Style = []
  198.         Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
  199.         BtnOffsetHorz = 3
  200.         BtnOffsetVert = 3
  201.         BtnWidth = 70
  202.         BtnHeight = 43
  203.         TabOrder = 0
  204.         InternalVer = 1
  205.         object Label6: TLabel
  206.           Left = 540
  207.           Top = 4
  208.           Width = 72
  209.           Height = 16
  210.           Caption = 'Graph Type'
  211.         end
  212.         object ComboBox2: TComboBox
  213.           Left = 540
  214.           Top = 20
  215.           Width = 137
  216.           Height = 24
  217.           Hint = 'Press F1 for help'
  218.           ItemHeight = 16
  219.           Items.Strings = (
  220.             'Vertical Bar '
  221.             'Horizontal Bar'
  222.             'Line'
  223.             'Fast Line'
  224.             'Point'
  225.             'Area')
  226.           TabOrder = 1
  227.           Text = 'Vertical Bar '
  228.           OnChange = ComboBox2Change
  229.         end
  230.         object cbMarks: TCheckBox
  231.           Left = 392
  232.           Top = 20
  233.           Width = 125
  234.           Height = 17
  235.           Hint = 'Press F1 for help'
  236.           HelpContext = 147
  237.           Alignment = taLeftJustify
  238.           Caption = '&Toggle Marks'
  239.           State = cbChecked
  240.           TabOrder = 0
  241.           OnClick = cbMarksClick
  242.         end
  243.         object SpeedbarSection2: TSpeedbarSection
  244.           Caption = 'Untitled (0)'
  245.         end
  246.         object BtnSaveGraph: TSpeedItem
  247.           BtnCaption = 'Save'
  248.           Caption = 'Save graph to file'
  249.           DropDownMenu = PopupMenu1
  250.           Hint = 'Save graph to file'
  251.           NumGlyphs = 2
  252.           Spacing = 1
  253.           Left = 3
  254.           Top = 3
  255.           Visible = True
  256.           SectionName = 'Untitled (0)'
  257.         end
  258.         object BtnPrintGraph: TSpeedItem
  259.           BtnCaption = 'Print'
  260.           Caption = 'Print aged creditors graph'
  261.           Hint = 'Print aged creditors graph|'
  262.           Spacing = 1
  263.           Left = 73
  264.           Top = 3
  265.           Visible = True
  266.           OnClick = BtnPrintGraphClick
  267.           SectionName = 'Untitled (0)'
  268.         end
  269.         object BtnEmailGraph: TSpeedItem
  270.           BtnCaption = 'Email'
  271.           Caption = 'Email aged creditors graph'
  272.           Hint = 'Email aged creditors graph|'
  273.           Spacing = 1
  274.           Left = 143
  275.           Top = 3
  276.           Visible = True
  277.           OnClick = BtnEmailGraphClick
  278.           SectionName = 'Untitled (0)'
  279.         end
  280.         object BtnCloseGraph: TSpeedItem
  281.           BtnCaption = 'Close'
  282.           Caption = 'Close this window'
  283.           Hint = 'Close this window'
  284.           Spacing = 1
  285.           Left = 283
  286.           Top = 3
  287.           Visible = True
  288.           OnClick = BtnCloseGraphClick
  289.           SectionName = 'Untitled (0)'
  290.         end
  291.         object BtnHelpGraph: TSpeedItem
  292.           BtnCaption = 'Help'
  293.           Caption = 'Help'
  294.           Glyph.Data = {
  295.             F6000000424DF600000000000000760000002800000010000000100000000100
  296.             0400000000008000000000000000000000001000000010000000000000000000
  297.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  298.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
  299.             888888888E6648888888888888E6688888888888888888888888888888446888
  300.             8888888886664888888888888E664888888888888E6664888888888888E66648
  301.             88888888888E6664888888844888E6664888886664888E66488888E666444666
  302.             4888888E6666666668888888EE6666668888888888EEEEE88888}
  303.           Spacing = 1
  304.           Left = 213
  305.           Top = 3
  306.           Visible = True
  307.           OnClick = BtnHelpGraphClick
  308.           SectionName = 'Untitled (0)'
  309.         end
  310.       end
  311.       object Notebook1: TNotebook
  312.         Left = 0
  313.         Top = 49
  314.         Width = 690
  315.         Height = 300
  316.         Align = alClient
  317.         TabOrder = 1
  318.         OnPageChanged = Notebook1PageChanged
  319.         object TPage
  320.           Left = 0
  321.           Top = 0
  322.           Caption = 'AllCustomers'
  323.           object AllSupplierChart: TChart
  324.             Left = 0
  325.             Top = 0
  326.             Width = 690
  327.             Height = 300
  328.             BottomWall.Brush.Color = clBlue
  329.             BottomWall.Color = clWhite
  330.             Foot.Font.Charset = DEFAULT_CHARSET
  331.             Foot.Font.Color = clRed
  332.             Foot.Font.Height = -13
  333.             Foot.Font.Name = 'Arial'
  334.             Foot.Font.Style = [fsItalic]
  335.             Gradient.EndColor = 12615680
  336.             Gradient.Visible = True
  337.             LeftWall.Brush.Color = clBlue
  338.             LeftWall.Color = 16744448
  339.             LeftWall.Pen.Color = 8388863
  340.             Title.Font.Charset = ANSI_CHARSET
  341.             Title.Font.Color = clBlue
  342.             Title.Font.Height = -17
  343.             Title.Font.Name = 'Arial'
  344.             Title.Font.Style = []
  345.             Title.Text.Strings = (
  346.               'Aged Debtor Chart')
  347.             BackColor = clWhite
  348.             BottomAxis.Title.Caption = 'Periods'
  349.             BottomAxis.Title.Font.Charset = ANSI_CHARSET
  350.             BottomAxis.Title.Font.Color = clBlue
  351.             BottomAxis.Title.Font.Height = -13
  352.             BottomAxis.Title.Font.Name = 'Arial Black'
  353.             BottomAxis.Title.Font.Style = []
  354.             LeftAxis.Title.Caption = 'Amount Due'
  355.             LeftAxis.Title.Font.Charset = ANSI_CHARSET
  356.             LeftAxis.Title.Font.Color = clBlue
  357.             LeftAxis.Title.Font.Height = -13
  358.             LeftAxis.Title.Font.Name = 'Arial Black'
  359.             LeftAxis.Title.Font.Style = []
  360.             Legend.Alignment = laBottom
  361.             Legend.Color = 10738885
  362.             Legend.TextStyle = ltsPlain
  363.             Legend.ShadowColor = 10485760
  364.             Legend.ShadowSize = 2
  365.             MaxPointsPerPage = 7
  366.             Align = alClient
  367.             BorderStyle = bsSingle
  368.             Color = 8388863
  369.             TabOrder = 0
  370.             object BSAllSupplier: TBarSeries
  371.               ColorEachPoint = True
  372.               Marks.Arrow.Color = clBlue
  373.               Marks.ArrowLength = 11
  374.               Marks.BackColor = 8454016
  375.               Marks.Style = smsValue
  376.               Marks.Visible = True
  377.               Title = 'AgedDebtor'
  378.               SeriesColor = clRed
  379.               XValues.DateTime = False
  380.               XValues.Name = 'X'
  381.               XValues.Multiplier = 1.000000000000000000
  382.               XValues.Order = loAscending
  383.               YValues.DateTime = False
  384.               YValues.Name = 'Bar'
  385.               YValues.Multiplier = 1.000000000000000000
  386.               YValues.Order = loNone
  387.             end
  388.           end
  389.         end
  390.         object TPage
  391.           Left = 0
  392.           Top = 0
  393.           Caption = 'SelectedPeriod'
  394.           object SelectedPeriodChart: TChart
  395.             Left = 0
  396.             Top = 0
  397.             Width = 690
  398.             Height = 300
  399.             BottomWall.Color = clWhite
  400.             Foot.Font.Charset = DEFAULT_CHARSET
  401.             Foot.Font.Color = clRed
  402.             Foot.Font.Height = -13
  403.             Foot.Font.Name = 'Arial'
  404.             Foot.Font.Style = [fsItalic]
  405.             Gradient.EndColor = clTeal
  406.             Gradient.Visible = True
  407.             LeftWall.Color = 16744448
  408.             LeftWall.Pen.Color = 8388863
  409.             Title.Font.Charset = ANSI_CHARSET
  410.             Title.Font.Color = clBlue
  411.             Title.Font.Height = -17
  412.             Title.Font.Name = 'Arial'
  413.             Title.Font.Style = []
  414.             Title.Text.Strings = (
  415.               'Period By Customer')
  416.             BackColor = clWhite
  417.             BottomAxis.LabelsFont.Charset = DEFAULT_CHARSET
  418.             BottomAxis.LabelsFont.Color = clBlack
  419.             BottomAxis.LabelsFont.Height = -10
  420.             BottomAxis.LabelsFont.Name = 'Arial'
  421.             BottomAxis.LabelsFont.Style = []
  422.             BottomAxis.Title.Caption = 'Periods'
  423.             BottomAxis.Title.Font.Charset = ANSI_CHARSET
  424.             BottomAxis.Title.Font.Color = clBlue
  425.             BottomAxis.Title.Font.Height = -13
  426.             BottomAxis.Title.Font.Name = 'Arial Black'
  427.             BottomAxis.Title.Font.Style = []
  428.             LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET
  429.             LeftAxis.LabelsFont.Color = clBlack
  430.             LeftAxis.LabelsFont.Height = -10
  431.             LeftAxis.LabelsFont.Name = 'Arial'
  432.             LeftAxis.LabelsFont.Style = []
  433.             LeftAxis.Title.Caption = 'Amount Due'
  434.             LeftAxis.Title.Font.Charset = ANSI_CHARSET
  435.             LeftAxis.Title.Font.Color = clBlue
  436.             LeftAxis.Title.Font.Height = -13
  437.             LeftAxis.Title.Font.Name = 'Arial Black'
  438.             LeftAxis.Title.Font.Style = []
  439.             Legend.Font.Charset = DEFAULT_CHARSET
  440.             Legend.Font.Color = clBlue
  441.             Legend.Font.Height = -10
  442.             Legend.Font.Name = 'Arial'
  443.             Legend.Font.Style = [fsItalic]
  444.             Legend.TextStyle = ltsLeftPercent
  445.             MaxPointsPerPage = 12
  446.             Align = alClient
  447.             BorderStyle = bsSingle
  448.             Color = 8388863
  449.             TabOrder = 0
  450.             object BSSelectedPeriod: TBarSeries
  451.               ColorEachPoint = True
  452.               Marks.Arrow.Color = clBlue
  453.               Marks.ArrowLength = 11
  454.               Marks.BackColor = 8454016
  455.               Marks.Style = smsValue
  456.               Marks.Visible = True
  457.               Title = 'AgedDebtor'
  458.               SeriesColor = clRed
  459.               XValues.DateTime = False
  460.               XValues.Name = 'X'
  461.               XValues.Multiplier = 1.000000000000000000
  462.               XValues.Order = loAscending
  463.               YValues.DateTime = False
  464.               YValues.Name = 'Bar'
  465.               YValues.Multiplier = 1.000000000000000000
  466.               YValues.Order = loNone
  467.             end
  468.           end
  469.         end
  470.         object TPage
  471.           Left = 0
  472.           Top = 0
  473.           Caption = 'SelectedCustomer'
  474.           object SelectedSupplierChart: TChart
  475.             Left = 0
  476.             Top = 0
  477.             Width = 690
  478.             Height = 300
  479.             BottomWall.Color = clWhite
  480.             Foot.Font.Charset = DEFAULT_CHARSET
  481.             Foot.Font.Color = clRed
  482.             Foot.Font.Height = -13
  483.             Foot.Font.Name = 'Arial'
  484.             Foot.Font.Style = [fsItalic]
  485.             Gradient.EndColor = 16744703
  486.             Gradient.Visible = True
  487.             LeftWall.Color = 16744448
  488.             LeftWall.Pen.Color = 8388863
  489.             Title.Font.Charset = ANSI_CHARSET
  490.             Title.Font.Color = clBlue
  491.             Title.Font.Height = -17
  492.             Title.Font.Name = 'Arial'
  493.             Title.Font.Style = []
  494.             Title.Text.Strings = (
  495.               '')
  496.             BackColor = clWhite
  497.             BottomAxis.Title.Caption = 'Periods'
  498.             BottomAxis.Title.Font.Charset = ANSI_CHARSET
  499.             BottomAxis.Title.Font.Color = clBlue
  500.             BottomAxis.Title.Font.Height = -13
  501.             BottomAxis.Title.Font.Name = 'Arial Black'
  502.             BottomAxis.Title.Font.Style = []
  503.             LeftAxis.Title.Caption = 'Amount Due'
  504.             LeftAxis.Title.Font.Charset = ANSI_CHARSET
  505.             LeftAxis.Title.Font.Color = clBlue
  506.             LeftAxis.Title.Font.Height = -13
  507.             LeftAxis.Title.Font.Name = 'Arial Black'
  508.             LeftAxis.Title.Font.Style = []
  509.             Legend.Color = 8454016
  510.             Legend.TextStyle = ltsRightPercent
  511.             MaxPointsPerPage = 7
  512.             Align = alClient
  513.             BorderStyle = bsSingle
  514.             Color = 8388863
  515.             TabOrder = 0
  516.             object BSSelectedSupplier: TBarSeries
  517.               ColorEachPoint = True
  518.               Marks.Arrow.Color = clBlue
  519.               Marks.ArrowLength = 11
  520.               Marks.BackColor = 8454016
  521.               Marks.Style = smsValue
  522.               Marks.Visible = True
  523.               Title = 'AgedDebtor'
  524.               SeriesColor = clRed
  525.               XValues.DateTime = False
  526.               XValues.Name = 'X'
  527.               XValues.Multiplier = 1.000000000000000000
  528.               XValues.Order = loAscending
  529.               YValues.DateTime = False
  530.               YValues.Name = 'Bar'
  531.               YValues.Multiplier = 1.000000000000000000
  532.               YValues.Order = loNone
  533.             end
  534.           end
  535.         end
  536.       end
  537.     end
  538.   end
  539.   object Panel1: TPanel
  540.     Left = 0
  541.     Top = 0
  542.     Width = 698
  543.     Height = 52
  544.     Align = alClient
  545.     TabOrder = 0
  546.     object Label1: TLabel
  547.       Left = 24
  548.       Top = 4
  549.       Width = 79
  550.       Height = 16
  551.       Caption = 'Start Supplier'
  552.     end
  553.     object Label2: TLabel
  554.       Left = 152
  555.       Top = 4
  556.       Width = 86
  557.       Height = 16
  558.       Caption = 'Finish Supplier'
  559.     end
  560.     object Label3: TLabel
  561.       Left = 328
  562.       Top = 4
  563.       Width = 57
  564.       Height = 16
  565.       Caption = 'Include ...'
  566.     end
  567.     object Label4: TLabel
  568.       Left = 484
  569.       Top = 4
  570.       Width = 35
  571.       Height = 16
  572.       Caption = 'Above'
  573.     end
  574.     object Label5: TLabel
  575.       Left = 576
  576.       Top = 4
  577.       Width = 96
  578.       Height = 16
  579.       Caption = 'View Balance At'
  580.     end
  581.     object DBCDlgStSuppRef: TComboEdit
  582.       Left = 8
  583.       Top = 20
  584.       Width = 120
  585.       Height = 24
  586.       Hint = 'Press F1 for help'
  587.       HelpContext = 100
  588.       CharCase = ecUpperCase
  589.       ClickKey = 16467
  590.       ButtonWidth = 24
  591.       MaxLength = 16
  592.       NumGlyphs = 1
  593.       ParentShowHint = False
  594.       ShowHint = True
  595.       TabOrder = 0
  596.       OnButtonClick = DBCDlgStSuppRefButtonClick
  597.       OnEnter = DBCDlgStSuppRefEnter
  598.       OnExit = DBCDlgStSuppRefExit
  599.     end
  600.     object DBCDlgFiSuppRef: TComboEdit
  601.       Left = 140
  602.       Top = 20
  603.       Width = 120
  604.       Height = 24
  605.       Hint = 'Press F1 for help'
  606.       HelpContext = 101
  607.       CharCase = ecUpperCase
  608.       ClickKey = 16467
  609.       ButtonWidth = 24
  610.       MaxLength = 16
  611.       NumGlyphs = 1
  612.       ParentShowHint = False
  613.       ShowHint = True
  614.       TabOrder = 1
  615.       OnButtonClick = DBCDlgFiSuppRefButtonClick
  616.       OnEnter = DBCDlgFiSuppRefEnter
  617.       OnExit = DBCDlgFiSuppRefExit
  618.     end
  619.     object CEAbove: TRxCalcEdit
  620.       Left = 456
  621.       Top = 20
  622.       Width = 100
  623.       Height = 24
  624.       Hint = 'Press F1 for help'
  625.       HelpContext = 141
  626.       AutoSize = False
  627.       ClickKey = 16451
  628.       DisplayFormat = '0.00'
  629.       NumGlyphs = 2
  630.       ParentShowHint = False
  631.       ShowHint = True
  632.       TabOrder = 3
  633.       OnEnter = CEAboveEnter
  634.       OnExit = CEAboveExit
  635.     end
  636.     object DEViewBalAt: TDateEdit
  637.       Left = 576
  638.       Top = 20
  639.       Width = 100
  640.       Height = 24
  641.       Hint = 'Press F1 for help'
  642.       HelpContext = 142
  643.       ClickKey = 16452
  644.       NumGlyphs = 2
  645.       ParentShowHint = False
  646.       ShowHint = True
  647.       CalendarStyle = csDialog
  648.       Weekends = [Sun, Sat]
  649.       TabOrder = 4
  650.       OnAcceptDate = DEViewBalAtAcceptDate
  651.       OnEnter = DEViewBalAtEnter
  652.       OnExit = DEViewBalAtExit
  653.     end
  654.     object AICBOptions: TComboBox
  655.       Left = 272
  656.       Top = 20
  657.       Width = 169
  658.       Height = 24
  659.       Hint = 'Press F1 for help'
  660.       HelpContext = 140
  661.       ItemHeight = 16
  662.       Items.Strings = (
  663.         'Balance'
  664.         'Current'
  665.         '30 Days'
  666.         '60 Days'
  667.         '90 Days'
  668.         'Older'
  669.         'Credit Limit Exceeded'
  670.         'On Stop')
  671.       ParentShowHint = False
  672.       ShowHint = True
  673.       TabOrder = 2
  674.       Text = 'Balance'
  675.       OnChange = AICBOptionsChange
  676.     end
  677.   end
  678.   object Sizer1: TSizer
  679.     Enabled = True
  680.     ExceptionAction = eaIgnoreControl
  681.     GridColumnSizing = gcSizeAllColumns
  682.     GridRowSizing = grSizeByDefaults
  683.     MinimumSize = True
  684.     NavigateOnEnter = True
  685.     OverrideParentFont = True
  686.     PerformAssertions = True
  687.     ShowAssertionFailures = False
  688.     StretchFonts = True
  689.     StretchImages = True
  690.     StretchOnResize = True
  691.     ThreadProcessing = True
  692.     Left = 601
  693.     Top = 161
  694.     ScreenWidth = (
  695.       800)
  696.     ScreenHeight = (
  697.       600)
  698.     OriginalFormWidth = (
  699.       706)
  700.     OriginalFormHeight = (
  701.       459)
  702.     OriginalFormLeft = (
  703.       47)
  704.     OriginalFormTop = (
  705.       111)
  706.     OriginalFormPPI = (
  707.       120)
  708.     OriginalClientWidth = (
  709.       698)
  710.     OriginalClientHeight = (
  711.       432)
  712.   end
  713.   object dsSupplier: TwwDataSource
  714.     DataSet = taSupplier
  715.     Left = 402
  716.     Top = 150
  717.   end
  718.   object dsTrans: TwwDataSource
  719.     DataSet = taTrans
  720.     Left = 461
  721.     Top = 150
  722.   end
  723.   object taTrans: TwwTable
  724.     DatabaseName = 'EmpireBuilder'
  725.     IndexName = 'ACCREF'
  726.     TableName = 'Trans.DBF'
  727.     SyncSQLByRange = True
  728.     NarrowSearch = False
  729.     ValidateWithMask = True
  730.     Left = 499
  731.     Top = 146
  732.     object taTransTRANSNO: TFloatField
  733.       FieldName = 'TRANSNO'
  734.     end
  735.     object taTransACCREF: TStringField
  736.       FieldName = 'ACCREF'
  737.       Size = 10
  738.     end
  739.     object taTransTRANSTYPE: TStringField
  740.       FieldName = 'TRANSTYPE'
  741.       Size = 8
  742.     end
  743.     object taTransTRANSDATE: TDateField
  744.       FieldName = 'TRANSDATE'
  745.     end
  746.     object taTransINVREF: TStringField
  747.       FieldName = 'INVREF'
  748.       Size = 10
  749.     end
  750.     object taTransDETAILS: TStringField
  751.       FieldName = 'DETAILS'
  752.       Size = 30
  753.     end
  754.     object taTransNETVALUE: TFloatField
  755.       FieldName = 'NETVALUE'
  756.     end
  757.     object taTransVATVALUE: TFloatField
  758.       FieldName = 'VATVALUE'
  759.     end
  760.     object taTransTOTAL: TFloatField
  761.       FieldName = 'TOTAL'
  762.     end
  763.     object taTransPAYMENT: TFloatField
  764.       FieldName = 'PAYMENT'
  765.     end
  766.     object taTransBALANCE: TFloatField
  767.       FieldName = 'BALANCE'
  768.     end
  769.     object taTransQUERY: TBooleanField
  770.       FieldName = 'QUERY'
  771.     end
  772.     object taTransMODULE: TStringField
  773.       FieldName = 'MODULE'
  774.       Size = 1
  775.     end
  776.     object taTransQUERYMEMO: TMemoField
  777.       FieldName = 'QUERYMEMO'
  778.       BlobType = ftMemo
  779.       Size = 1
  780.     end
  781.     object taTransTRANLINK: TFloatField
  782.       FieldName = 'TRANLINK'
  783.     end
  784.     object taTransTERMS: TSmallintField
  785.       FieldName = 'TERMS'
  786.     end
  787.   end
  788.   object SRW: TSRW
  789.     About.HelpContext = 1033
  790.     About.HelpCaption = '&Creating Reports'
  791.     About.HelpFile = 'SRWHELP.HLP'
  792.     Active = False
  793.     Extension = 'SRW'
  794.     Grid.FooterFont.Charset = DEFAULT_CHARSET
  795.     Grid.FooterFont.Color = clWindowText
  796.     Grid.FooterFont.Height = -13
  797.     Grid.FooterFont.Name = 'MS Sans Serif'
  798.     Grid.FooterFont.Style = []
  799.     Grid.RecordFont.Charset = DEFAULT_CHARSET
  800.     Grid.RecordFont.Color = clWindowText
  801.     Grid.RecordFont.Height = -13
  802.     Grid.RecordFont.Name = 'MS Sans Serif'
  803.     Grid.RecordFont.Style = []
  804.     Grid.SubTitleFont.Charset = DEFAULT_CHARSET
  805.     Grid.SubTitleFont.Color = clWindowText
  806.     Grid.SubTitleFont.Height = -13
  807.     Grid.SubTitleFont.Name = 'MS Sans Serif'
  808.     Grid.SubTitleFont.Style = []
  809.     Grid.TitleFont.Charset = DEFAULT_CHARSET
  810.     Grid.TitleFont.Color = clWindowText
  811.     Grid.TitleFont.Height = -13
  812.     Grid.TitleFont.Name = 'MS Sans Serif'
  813.     Grid.TitleFont.Style = []
  814.     Page.FormatCurrency = '$#,#.00'
  815.     Page.FormatDate = 'ddddd'
  816.     Page.FormatDateTime = 'c'
  817.     Page.FormatFloat = '#,#.00'
  818.     Page.FormatTime = 't'
  819.     Page.LabelsActive = False
  820.     Page.LabelsAcross = 0
  821.     Page.LabelsDown = 0
  822.     Page.LayoutOptions = [srwShowMargins, srwShowSections, srwShowGuides]
  823.     Page.MarginBottom = 0.300000011920929000
  824.     Page.MarginLeft = 0.300000011920929000
  825.     Page.MarginRight = 0.300000011920929000
  826.     Page.MarginTop = 0.300000011920929000
  827.     Page.PaperType = srwPaperLetter
  828.     Page.PaperHeight = 11.000000000000000000
  829.     Page.PaperWidth = 8.500000000000000000
  830.     Page.PaperOrientation = poPortrait
  831.     Page.PaperCopies = 1
  832.     Query.AliasFields = True
  833.     Query.AllowAggregates = True
  834.     Query.AllowCartesians = False
  835.     Query.AllowEditCode = True
  836.     Query.AsAlias = False
  837.     Query.BooleanQuote = '"'
  838.     Query.CacheResults = False
  839.     Query.DatabaseType = srwParadox
  840.     Query.DatabaseDetect = True
  841.     Query.DateFormat = 'mm"/"dd"/"yyyy'
  842.     Query.DateQuote = '"'
  843.     Query.DefaultOptional = True
  844.     Query.GroupBySelect = False
  845.     Query.IsLocal = True
  846.     Query.OrderByAlias = True
  847.     Query.OriginalDateOrder = srwUnknown
  848.     Query.VerifyNames = True
  849.     Query.UniqueRecords = False
  850.     ReportName = 'Untitled'
  851.     TempMode = srwTempOptional
  852.     Window.CaptionCode = 'View S&QL'
  853.     Window.CaptionLayout = '&Layout Page'
  854.     Window.CaptionLink = 'Link &Tables'
  855.     Window.CaptionMain = 'Shazam Report Wizard'
  856.     Window.CaptionPreview = '&Preview Report'
  857.     Window.CaptionQuery = 'Define Sea&rch'
  858.     Window.LinksShareQueryTab = True
  859.     Window.IsChild = False
  860.     Window.IsModal = False
  861.     Window.MenuEdit = [srwEditAddField, srwEditAddTable, srwEditCutCopyPaste, srwEditDeleteField, srwEditDeleteTable, srwEditDeleteLink, srwEditFieldProperties, srwEditSetupReport, srwEditVisible]
  862.     Window.MenuFile = [srwFileExport, srwFileNew, srwFileOpen, srwFilePrint, srwFileSave, srwFileVisible]
  863.     Window.MenuHelp = [srwHelpContents, srwHelpSearch, srwHelpAbout, srwHelpVisible]
  864.     Window.MenuView = [srwViewAlias, srwViewCode, srwViewLayout, srwViewLink, srwViewPages, srwViewPreview, srwViewQuery, srwViewVisible]
  865.     Window.PreviewMode = srwPreviewGrid
  866.     Window.Visible = True
  867.     Window.State = wsNormal
  868.     Window.ShowToolbar = True
  869.     Left = 630
  870.     Top = 155
  871.   end
  872.   object PopupMenu1: TRxPopupMenu
  873.     LeftMargin = 30
  874.     Style = msOwnerDraw
  875.     ShowCheckMarks = False
  876.     OnDrawMargin = PopupMenu1DrawMargin
  877.     Left = 559
  878.     Top = 162
  879.     object pmSaveAsBitmap: TMenuItem
  880.       Caption = 'Save As &Bitmap'
  881.       OnClick = pmSaveAsBitmapClick
  882.     end
  883.     object pmSaveAsMetafile: TMenuItem
  884.       Caption = 'Save As &Metafile'
  885.       OnClick = pmSaveAsMetafileClick
  886.     end
  887.     object pmCopyToClipboard: TMenuItem
  888.       Caption = 'Copy To &Clipboard'
  889.       OnClick = pmCopyToClipboardClick
  890.     end
  891.   end
  892.   object pmRClick: TRxPopupMenu
  893.     Style = msOwnerDraw
  894.     ShowCheckMarks = False
  895.     OnGetItemParams = pmRClickGetItemParams
  896.     Left = 531
  897.     Top = 154
  898.     object pmZoomIn: TMenuItem
  899.       Caption = 'Zoom In'
  900.       OnClick = BtnZoomClick
  901.     end
  902.     object pmPrint: TMenuItem
  903.       Caption = 'Print'
  904.       OnClick = BtnRepPrintClick
  905.     end
  906.     object pmEmail: TMenuItem
  907.       Caption = 'Email'
  908.       OnClick = BtnRepEmailClick
  909.     end
  910.     object N4: TMenuItem
  911.       Caption = '-'
  912.     end
  913.     object pmiGridColor: TMenuItem
  914.       Caption = 'Change Grid Colour'
  915.       OnClick = pmiGridColorClick
  916.     end
  917.   end
  918.   object taSupplier: TwwQuery
  919.     DatabaseName = 'EmpireBuilder'
  920.     SQL.Strings = (
  921.       'select * from supplier'
  922.       'where (ACCREF >= :STACCREF and ACCREF <= :FINACCREF) and'
  923.       '            (BALANCE > :ABOVEVAL)')
  924.     Params.Data = {
  925.       0100030008535441434352454600010200300000000946494E41434352454600
  926.       010200300000000841424F564556414C0006080000000000000000000000}
  927.     ValidateWithMask = True
  928.     Left = 369
  929.     Top = 150
  930.     object taSupplierACCREF: TStringField
  931.       DisplayLabel = 'Supp. Ref'
  932.       DisplayWidth = 12
  933.       FieldName = 'ACCREF'
  934.       Origin = '"supplier.DBF".ACCREF'
  935.       Size = 10
  936.     end
  937.     object taSupplierNAME: TStringField
  938.       DisplayLabel = 'Supplier Name'
  939.       DisplayWidth = 36
  940.       FieldName = 'NAME'
  941.       Origin = '"supplier.DBF".NAME'
  942.       Size = 40
  943.     end
  944.     object taSupplierBALANCE: TFloatField
  945.       DisplayLabel = 'Current ~Balance'
  946.       DisplayWidth = 10
  947.       FieldName = 'BALANCE'
  948.       Origin = '"supplier.DBF".BALANCE'
  949.       DisplayFormat = '0.00'
  950.     end
  951.     object taSupplierBalAsAt: TFloatField
  952.       DisplayLabel = 'Balance As~At'
  953.       DisplayWidth = 10
  954.       FieldName = 'BalAsAt'
  955.       DisplayFormat = '0.00'
  956.       Calculated = True
  957.     end
  958.     object taSupplierCREITLMT: TFloatField
  959.       DisplayLabel = 'Credit Limit'
  960.       DisplayWidth = 10
  961.       FieldName = 'CREITLMT'
  962.       Origin = '"supplier.DBF".CREITLMT'
  963.       DisplayFormat = '0.00'
  964.     end
  965.     object taSupplierCURRENT: TFloatField
  966.       DisplayLabel = 'Current'
  967.       DisplayWidth = 10
  968.       FieldName = 'CURRENT'
  969.       Origin = '"supplier.DBF".CURRENT'
  970.       DisplayFormat = '0.00'
  971.     end
  972.     object taSupplierPERBAL1: TFloatField
  973.       DisplayLabel = '30 Days'
  974.       DisplayWidth = 10
  975.       FieldName = 'PERBAL1'
  976.       Origin = '"supplier.DBF".PERBAL1'
  977.       DisplayFormat = '0.00'
  978.     end
  979.     object taSupplierPERBAL2: TFloatField
  980.       DisplayLabel = '60 Days'
  981.       DisplayWidth = 10
  982.       FieldName = 'PERBAL2'
  983.       Origin = '"supplier.DBF".PERBAL2'
  984.       DisplayFormat = '0.00'
  985.     end
  986.     object taSupplierPERBAL3: TFloatField
  987.       DisplayLabel = '90 Days'
  988.       DisplayWidth = 10
  989.       FieldName = 'PERBAL3'
  990.       Origin = '"supplier.DBF".PERBAL3'
  991.       DisplayFormat = '0.00'
  992.     end
  993.     object taSupplierPERBAL4: TFloatField
  994.       DisplayLabel = 'Older'
  995.       DisplayWidth = 10
  996.       FieldName = 'PERBAL4'
  997.       Origin = '"supplier.DBF".PERBAL4'
  998.       DisplayFormat = '0.00'
  999.     end
  1000.     object taSupplierTERMS: TSmallintField
  1001.       DisplayLabel = 'Terms'
  1002.       DisplayWidth = 10
  1003.       FieldName = 'TERMS'
  1004.       Origin = '"supplier.DBF".TERMS'
  1005.       DisplayFormat = '0'
  1006.     end
  1007.     object taSupplierONSTOP: TBooleanField
  1008.       DisplayLabel = 'On Stop'
  1009.       DisplayWidth = 7
  1010.       FieldName = 'ONSTOP'
  1011.       Origin = '"supplier.DBF".ONSTOP'
  1012.     end
  1013.     object taSupplierCONTACT: TStringField
  1014.       DisplayLabel = 'Contact Name'
  1015.       DisplayWidth = 25
  1016.       FieldName = 'CONTACT'
  1017.       Origin = '"supplier.DBF".CONTACT'
  1018.       Size = 25
  1019.     end
  1020.     object taSupplierTELNO1: TStringField
  1021.       DisplayLabel = 'Tel No. 1'
  1022.       DisplayWidth = 15
  1023.       FieldName = 'TELNO1'
  1024.       Origin = '"supplier.DBF".TELNO1'
  1025.       Size = 15
  1026.     end
  1027.     object taSupplierTELNO2: TStringField
  1028.       DisplayLabel = 'Tel No. 2'
  1029.       DisplayWidth = 15
  1030.       FieldName = 'TELNO2'
  1031.       Origin = '"supplier.DBF".TELNO2'
  1032.       Size = 15
  1033.     end
  1034.     object taSupplierFAXNO: TStringField
  1035.       DisplayLabel = 'Fax No.'
  1036.       DisplayWidth = 15
  1037.       FieldName = 'FAXNO'
  1038.       Origin = '"supplier.DBF".FAXNO'
  1039.       Size = 15
  1040.     end
  1041.     object taSupplierEMAIL: TStringField
  1042.       DisplayLabel = 'Email'
  1043.       DisplayWidth = 25
  1044.       FieldName = 'EMAIL'
  1045.       Origin = '"supplier.DBF".EMAIL'
  1046.       Size = 70
  1047.     end
  1048.     object taSupplierLPAYDATE: TDateField
  1049.       DisplayLabel = 'Last Paid'
  1050.       DisplayWidth = 10
  1051.       FieldName = 'LPAYDATE'
  1052.       Origin = '"supplier.DBF".LPAYDATE'
  1053.     end
  1054.     object taSupplierLSALEDATE: TDateField
  1055.       DisplayLabel = 'Last Sale'
  1056.       DisplayWidth = 10
  1057.       FieldName = 'LSALEDATE'
  1058.       Origin = '"supplier.DBF".LSALEDATE'
  1059.     end
  1060.     object taSupplierMTOVER: TFloatField
  1061.       DisplayLabel = 'MTD Turnover'
  1062.       DisplayWidth = 11
  1063.       FieldName = 'MTOVER'
  1064.       Origin = '"supplier.DBF".MTOVER'
  1065.       DisplayFormat = '0.00'
  1066.     end
  1067.     object taSupplierYTOVER: TFloatField
  1068.       DisplayLabel = 'YTD Turnover'
  1069.       DisplayWidth = 11
  1070.       FieldName = 'YTOVER'
  1071.       Origin = '"supplier.DBF".YTOVER'
  1072.       DisplayFormat = '0.00'
  1073.     end
  1074.     object taSupplierADDRESS1: TStringField
  1075.       FieldName = 'ADDRESS1'
  1076.       Origin = '"supplier.DBF".ADDRESS1'
  1077.       Visible = False
  1078.       Size = 30
  1079.     end
  1080.     object taSupplierADDRESS2: TStringField
  1081.       FieldName = 'ADDRESS2'
  1082.       Origin = '"supplier.DBF".ADDRESS2'
  1083.       Visible = False
  1084.       Size = 30
  1085.     end
  1086.     object taSupplierADDRESS3: TStringField
  1087.       FieldName = 'ADDRESS3'
  1088.       Origin = '"supplier.DBF".ADDRESS3'
  1089.       Visible = False
  1090.       Size = 30
  1091.     end
  1092.     object taSupplierPOSTCODE: TStringField
  1093.       FieldName = 'POSTCODE'
  1094.       Origin = '"supplier.DBF".POSTCODE'
  1095.       Visible = False
  1096.       Size = 10
  1097.     end
  1098.     object taSupplierPRICECODE: TSmallintField
  1099.       FieldName = 'PRICECODE'
  1100.       Origin = '"supplier.DBF".PRICECODE'
  1101.       Visible = False
  1102.     end
  1103.     object taSupplierCMLINK: TStringField
  1104.       FieldName = 'CMLINK'
  1105.       Origin = '"supplier.DBF".CMLINK'
  1106.       Visible = False
  1107.       Size = 10
  1108.     end
  1109.     object taSupplierVATID: TStringField
  1110.       FieldName = 'VATID'
  1111.       Origin = '"supplier.DBF".VATID'
  1112.       Visible = False
  1113.       Size = 15
  1114.     end
  1115.     object taSupplierVATCODE: TStringField
  1116.       FieldName = 'VATCODE'
  1117.       Origin = '"supplier.DBF".VATCODE'
  1118.       Visible = False
  1119.       Size = 1
  1120.     end
  1121.     object taSupplierECCODE: TStringField
  1122.       FieldName = 'ECCODE'
  1123.       Origin = '"supplier.DBF".ECCODE'
  1124.       Visible = False
  1125.       Size = 3
  1126.     end
  1127.     object taSupplierSETTDAYS: TSmallintField
  1128.       FieldName = 'SETTDAYS'
  1129.       Origin = '"supplier.DBF".SETTDAYS'
  1130.       Visible = False
  1131.       DisplayFormat = '0.00'
  1132.     end
  1133.     object taSupplierSETTDISC: TFloatField
  1134.       FieldName = 'SETTDISC'
  1135.       Origin = '"supplier.DBF".SETTDISC'
  1136.       Visible = False
  1137.       DisplayFormat = '0.00'
  1138.     end
  1139.     object taSupplierNOMACC: TStringField
  1140.       FieldName = 'NOMACC'
  1141.       Origin = '"supplier.DBF".NOMACC'
  1142.       Visible = False
  1143.       Size = 10
  1144.     end
  1145.     object taSupplierNOTEPAD: TMemoField
  1146.       FieldName = 'NOTEPAD'
  1147.       Origin = '"supplier.DBF".NOTEPAD'
  1148.       Visible = False
  1149.       BlobType = ftMemo
  1150.       Size = 1
  1151.     end
  1152.     object taSupplierORVATCODE: TBooleanField
  1153.       FieldName = 'ORVATCODE'
  1154.       Origin = '"supplier.DBF".ORVATCODE'
  1155.       Visible = False
  1156.     end
  1157.     object taSupplierORNOMACC: TBooleanField
  1158.       FieldName = 'ORNOMACC'
  1159.       Origin = '"supplier.DBF".ORNOMACC'
  1160.       Visible = False
  1161.     end
  1162.     object taSupplierDISCOUNT: TFloatField
  1163.       FieldName = 'DISCOUNT'
  1164.       Origin = '"supplier.DBF".DISCOUNT'
  1165.       Visible = False
  1166.     end
  1167.     object taSupplierAMTPAID: TFloatField
  1168.       FieldName = 'AMTPAID'
  1169.       Origin = '"supplier.DBF".AMTPAID'
  1170.       Visible = False
  1171.       DisplayFormat = '0.00'
  1172.     end
  1173.     object taSupplierPAYDUE: TFloatField
  1174.       FieldName = 'PAYDUE'
  1175.       Origin = '"supplier.DBF".PAYDUE'
  1176.       Visible = False
  1177.       DisplayFormat = '0.00'
  1178.     end
  1179.     object taSupplierAMTQUERY: TFloatField
  1180.       FieldName = 'AMTQUERY'
  1181.       Origin = '"supplier.DBF".AMTQUERY'
  1182.       Visible = False
  1183.       DisplayFormat = '0.00'
  1184.     end
  1185.     object taSupplierLASTUPDATE: TStringField
  1186.       FieldName = 'LASTUPDATE'
  1187.       Origin = '"supplier.DBF".LASTUPDATE'
  1188.       Visible = False
  1189.     end
  1190.     object taSupplierLASTCALC: TStringField
  1191.       FieldName = 'LASTCALC'
  1192.       Origin = '"supplier.DBF".LASTCALC'
  1193.       Visible = False
  1194.     end
  1195.     object taSupplierTAG1: TBooleanField
  1196.       FieldName = 'TAG1'
  1197.       Origin = '"supplier.DBF".TAG1'
  1198.       Visible = False
  1199.     end
  1200.     object taSupplierTAG2: TBooleanField
  1201.       FieldName = 'TAG2'
  1202.       Origin = '"supplier.DBF".TAG2'
  1203.       Visible = False
  1204.     end
  1205.   end
  1206.   object taSuppSum: TwwQuery
  1207.     DatabaseName = 'EmpireBuilder'
  1208.     SQL.Strings = (
  1209.       'select sum(supplier."BALANCE"), '
  1210.       '            sum(supplier."CURRENT"),'
  1211.       '            sum(supplier."PERBAL1"),'
  1212.       '           sum(supplier."PERBAL2"),'
  1213.       '           sum(supplier."PERBAL3"),'
  1214.       '           sum(supplier."PERBAL4"), '
  1215.       '           sum(supplier."CREITLMT")  from supplier'
  1216.       'where (ACCREF >= :STACCREF AND ACCREF <= :FINACCREF) and '
  1217.       '              BALANCE > :ABOVEVAL')
  1218.     Params.Data = {
  1219.       0100030008535441434352454600010200300000000946494E41434352454600
  1220.       010200300000000841424F564556414C0006080000000000000000000000}
  1221.     ValidateWithMask = True
  1222.     Left = 337
  1223.     Top = 146
  1224.     object taSuppSumSUM_OF_BAL: TFloatField
  1225.       FieldName = 'SUM_OF_BAL'
  1226.       Origin = '"supplier.DBF".BALANCE'
  1227.     end
  1228.     object taSuppSumSUM_OF_CUR: TFloatField
  1229.       FieldName = 'SUM_OF_CUR'
  1230.       Origin = '"supplier.DBF".CURRENT'
  1231.     end
  1232.     object taSuppSumSUM_OF_PER: TFloatField
  1233.       FieldName = 'SUM_OF_PER'
  1234.       Origin = '"supplier.DBF".PERBAL1'
  1235.     end
  1236.     object taSuppSumSUM_OF_P_1: TFloatField
  1237.       FieldName = 'SUM_OF_P_1'
  1238.       Origin = '"supplier.DBF".PERBAL2'
  1239.     end
  1240.     object taSuppSumSUM_OF_P_2: TFloatField
  1241.       FieldName = 'SUM_OF_P_2'
  1242.       Origin = '"supplier.DBF".PERBAL3'
  1243.     end
  1244.     object taSuppSumSUM_OF_P_3: TFloatField
  1245.       FieldName = 'SUM_OF_P_3'
  1246.       Origin = '"supplier.DBF".PERBAL4'
  1247.     end
  1248.     object taSuppSumSUM_OF_CRE: TFloatField
  1249.       FieldName = 'SUM_OF_CRE'
  1250.       Origin = '"supplier.DBF".CREITLMT'
  1251.     end
  1252.   end
  1253. end
  1254.