home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 September / Dpcb0999.iso / Business / Empire / _SETUP.1 / EmpireBuilder.exe / 0 / RCDATA / TFMCUSTECSALES / TFMCUSTECSALES.txt
Text File  |  1999-06-21  |  21KB  |  694 lines
  1. object fmCustECSales: TfmCustECSales
  2.   Left = 46
  3.   Top = 116
  4.   AutoScroll = False
  5.   Caption = 'VAT EC Sales List'
  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 EC sales list'
  70.           Hint = 'Print EC sales list'
  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 EC sales list'
  81.           Hint = 'Email EC sales list'
  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.           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 = 'View full help on this window'
  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.             'ECCODE'#9'7'#9'EC~Code'
  136.             'VATID'#9'20'#9'VAT Registration No.'
  137.             'REP_T_VAL1'#9'10'#9'Total Sales~Amount')
  138.           TitleColor = clBtnFace
  139.           FixedCols = 0
  140.           ShowHorzScrollBar = True
  141.           Align = alClient
  142.           DataSource = dsCustTemp
  143.           Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter]
  144.           PopupMenu = pmRClick
  145.           TabOrder = 0
  146.           TitleAlignment = taLeftJustify
  147.           TitleFont.Charset = ANSI_CHARSET
  148.           TitleFont.Color = clWindowText
  149.           TitleFont.Height = -13
  150.           TitleFont.Name = 'Arial'
  151.           TitleFont.Style = []
  152.           TitleLines = 2
  153.           TitleButtons = True
  154.           OnCalcCellColors = wwDBGrid1CalcCellColors
  155.           OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
  156.           OnTitleButtonClick = wwDBGrid1TitleButtonClick
  157.           OnDblClick = BtnZoomClick
  158.           IndicatorColor = icBlack
  159.           OnTopRowChanged = wwDBGrid1TopRowChanged
  160.           OnCalcTitleImage = wwDBGrid1CalcTitleImage
  161.           TitleImageList = ImagesDM.GenralBM
  162.           FooterCellColor = clYellow
  163.           FooterHeight = 25
  164.         end
  165.       end
  166.     end
  167.     object TabGraph: TTabSheet
  168.       Caption = 'Graph'
  169.       object SpeedBar1: TSpeedBar
  170.         Left = 0
  171.         Top = 0
  172.         Width = 0
  173.         Height = 49
  174.         Font.Charset = ANSI_CHARSET
  175.         Font.Color = clWindowText
  176.         Font.Height = -13
  177.         Font.Name = 'MS Sans Serif'
  178.         Font.Style = []
  179.         Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
  180.         BtnOffsetHorz = 3
  181.         BtnOffsetVert = 3
  182.         BtnWidth = 70
  183.         BtnHeight = 43
  184.         TabOrder = 0
  185.         InternalVer = 1
  186.         object Label1: TLabel
  187.           Left = 546
  188.           Top = 4
  189.           Width = 72
  190.           Height = 16
  191.           Caption = 'Graph Type'
  192.         end
  193.         object cbGraphType: TComboBox
  194.           Left = 544
  195.           Top = 20
  196.           Width = 137
  197.           Height = 24
  198.           ItemHeight = 16
  199.           Items.Strings = (
  200.             'Vertical Bar '
  201.             'Horizontal Bar'
  202.             'Pie'
  203.             'Line'
  204.             'Fast Line'
  205.             'Point'
  206.             'Area')
  207.           TabOrder = 0
  208.           Text = 'Vertical Bar'
  209.           OnChange = cbGraphTypeChange
  210.         end
  211.         object cbMarks: TCheckBox
  212.           Left = 384
  213.           Top = 20
  214.           Width = 125
  215.           Height = 17
  216.           HelpContext = 147
  217.           Alignment = taLeftJustify
  218.           Caption = '&Toggle Marks'
  219.           State = cbChecked
  220.           TabOrder = 1
  221.           OnClick = cbMarksClick
  222.         end
  223.         object SpeedbarSection2: TSpeedbarSection
  224.           Caption = 'Untitled (0)'
  225.         end
  226.         object BtnSaveGraph: TSpeedItem
  227.           BtnCaption = 'Save'
  228.           Caption = 'Save graph to file'
  229.           DropDownMenu = SaveGraphMenu
  230.           NumGlyphs = 2
  231.           Spacing = 1
  232.           Left = 3
  233.           Top = 3
  234.           Visible = True
  235.           SectionName = 'Untitled (0)'
  236.         end
  237.         object BtnPrintGraph: TSpeedItem
  238.           BtnCaption = 'Print'
  239.           Caption = 'Print EC sales graph'
  240.           Hint = 'Print EC sales graph'
  241.           Spacing = 1
  242.           Left = 73
  243.           Top = 3
  244.           Visible = True
  245.           OnClick = BtnPrintGraphClick
  246.           SectionName = 'Untitled (0)'
  247.         end
  248.         object BtnEmailGraph: TSpeedItem
  249.           BtnCaption = 'Email'
  250.           Caption = 'Email EC sales graph'
  251.           Hint = 'Email EC sales graph'
  252.           Spacing = 1
  253.           Left = 143
  254.           Top = 3
  255.           Visible = True
  256.           OnClick = BtnEmailGraphClick
  257.           SectionName = 'Untitled (0)'
  258.         end
  259.         object BtnCloseGraph: TSpeedItem
  260.           BtnCaption = '&Close'
  261.           Caption = 'Close this form'
  262.           Spacing = 1
  263.           Left = 283
  264.           Top = 3
  265.           Visible = True
  266.           OnClick = BtnCloseGraphClick
  267.           SectionName = 'Untitled (0)'
  268.         end
  269.         object btnHelpgraph: TSpeedItem
  270.           BtnCaption = '&Help'
  271.           Caption = 'View full help on this window'
  272.           Glyph.Data = {
  273.             F6000000424DF600000000000000760000002800000010000000100000000100
  274.             0400000000008000000000000000000000001000000010000000000000000000
  275.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  276.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
  277.             888888888E6648888888888888E6688888888888888888888888888888446888
  278.             8888888886664888888888888E664888888888888E6664888888888888E66648
  279.             88888888888E6664888888844888E6664888886664888E66488888E666444666
  280.             4888888E6666666668888888EE6666668888888888EEEEE88888}
  281.           Spacing = 1
  282.           Left = 213
  283.           Top = 3
  284.           Visible = True
  285.           OnClick = btnHelpgraphClick
  286.           SectionName = 'Untitled (0)'
  287.         end
  288.       end
  289.       object CustECSalesChart: TChart
  290.         Left = 0
  291.         Top = 49
  292.         Width = 690
  293.         Height = 300
  294.         BottomWall.Color = clWhite
  295.         Foot.Font.Charset = DEFAULT_CHARSET
  296.         Foot.Font.Color = clRed
  297.         Foot.Font.Height = -13
  298.         Foot.Font.Name = 'Arial'
  299.         Foot.Font.Style = [fsItalic]
  300.         Gradient.EndColor = 8421440
  301.         Gradient.Visible = True
  302.         LeftWall.Color = 16744448
  303.         LeftWall.Pen.Color = 8388863
  304.         Title.Font.Charset = ANSI_CHARSET
  305.         Title.Font.Color = clBlue
  306.         Title.Font.Height = -17
  307.         Title.Font.Name = 'Arial'
  308.         Title.Font.Style = []
  309.         Title.Text.Strings = (
  310.           'Customer VAT  EC Sales List')
  311.         BackColor = clWhite
  312.         BottomAxis.LabelsFont.Charset = DEFAULT_CHARSET
  313.         BottomAxis.LabelsFont.Color = clBlack
  314.         BottomAxis.LabelsFont.Height = -10
  315.         BottomAxis.LabelsFont.Name = 'Arial'
  316.         BottomAxis.LabelsFont.Style = [fsBold, fsItalic]
  317.         BottomAxis.Title.Caption = 'Periods'
  318.         BottomAxis.Title.Font.Charset = ANSI_CHARSET
  319.         BottomAxis.Title.Font.Color = clBlue
  320.         BottomAxis.Title.Font.Height = -13
  321.         BottomAxis.Title.Font.Name = 'Arial Black'
  322.         BottomAxis.Title.Font.Style = []
  323.         LeftAxis.Title.Caption = 'Amount Due'
  324.         LeftAxis.Title.Font.Charset = ANSI_CHARSET
  325.         LeftAxis.Title.Font.Color = clBlue
  326.         LeftAxis.Title.Font.Height = -13
  327.         LeftAxis.Title.Font.Name = 'Arial Black'
  328.         LeftAxis.Title.Font.Style = []
  329.         Legend.Font.Charset = DEFAULT_CHARSET
  330.         Legend.Font.Color = clBlue
  331.         Legend.Font.Height = -10
  332.         Legend.Font.Name = 'Arial'
  333.         Legend.Font.Style = []
  334.         Legend.TextStyle = ltsLeftPercent
  335.         MaxPointsPerPage = 12
  336.         Align = alClient
  337.         BorderStyle = bsSingle
  338.         Color = 8388863
  339.         TabOrder = 1
  340.         object BSSelectedPeriod: TBarSeries
  341.           ColorEachPoint = True
  342.           Marks.Arrow.Color = clBlue
  343.           Marks.ArrowLength = 11
  344.           Marks.BackColor = 8454016
  345.           Marks.Style = smsValue
  346.           Marks.Visible = True
  347.           Title = 'EC Sales'
  348.           SeriesColor = clRed
  349.           XValues.DateTime = False
  350.           XValues.Name = 'X'
  351.           XValues.Multiplier = 1.000000000000000000
  352.           XValues.Order = loAscending
  353.           YValues.DateTime = False
  354.           YValues.Name = 'Bar'
  355.           YValues.Multiplier = 1.000000000000000000
  356.           YValues.Order = loNone
  357.         end
  358.       end
  359.     end
  360.   end
  361.   object Panel1: TPanel
  362.     Left = 0
  363.     Top = 0
  364.     Width = 698
  365.     Height = 52
  366.     Align = alClient
  367.     TabOrder = 0
  368.     object Label5: TLabel
  369.       Left = 152
  370.       Top = 4
  371.       Width = 66
  372.       Height = 16
  373.       Caption = 'Finish Date'
  374.     end
  375.     object Label6: TLabel
  376.       Left = 28
  377.       Top = 4
  378.       Width = 59
  379.       Height = 16
  380.       Caption = 'Start Date'
  381.     end
  382.     object DEStartDate: TDateEdit
  383.       Left = 8
  384.       Top = 20
  385.       Width = 100
  386.       Height = 24
  387.       Hint = 'Press F1 for help'
  388.       HelpContext = 102
  389.       NumGlyphs = 2
  390.       ParentShowHint = False
  391.       ShowHint = True
  392.       CalendarStyle = csDialog
  393.       Weekends = [Sun, Sat]
  394.       YearDigits = dyFour
  395.       TabOrder = 0
  396.       OnAcceptDate = DEStartDateAcceptDate
  397.       OnEnter = DEStartDateEnter
  398.       OnExit = DEStartDateExit
  399.     end
  400.     object DEFinDate: TDateEdit
  401.       Left = 136
  402.       Top = 20
  403.       Width = 100
  404.       Height = 24
  405.       Hint = 'Press F1 for help'
  406.       HelpContext = 103
  407.       NumGlyphs = 2
  408.       ParentShowHint = False
  409.       ShowHint = True
  410.       CalendarStyle = csDialog
  411.       Weekends = [Sun, Sat]
  412.       YearDigits = dyFour
  413.       TabOrder = 1
  414.       OnAcceptDate = DEFinDateAcceptDate
  415.       OnEnter = DEFinDateEnter
  416.       OnExit = DEFinDateExit
  417.     end
  418.   end
  419.   object Sizer1: TSizer
  420.     Enabled = True
  421.     ExceptionAction = eaIgnoreControl
  422.     GridColumnSizing = gcSizeAllColumns
  423.     GridRowSizing = grSizeByDefaults
  424.     MinimumSize = True
  425.     NavigateOnEnter = True
  426.     OverrideParentFont = True
  427.     PerformAssertions = True
  428.     ShowAssertionFailures = False
  429.     StretchFonts = True
  430.     StretchImages = True
  431.     StretchOnResize = True
  432.     ThreadProcessing = True
  433.     Left = 640
  434.     Top = 53
  435.     ScreenWidth = (
  436.       800)
  437.     ScreenHeight = (
  438.       600)
  439.     OriginalFormWidth = (
  440.       706)
  441.     OriginalFormHeight = (
  442.       459)
  443.     OriginalFormLeft = (
  444.       46)
  445.     OriginalFormTop = (
  446.       116)
  447.     OriginalFormPPI = (
  448.       120)
  449.     OriginalClientWidth = (
  450.       698)
  451.     OriginalClientHeight = (
  452.       432)
  453.   end
  454.   object dsCustTemp: TwwDataSource
  455.     DataSet = taCustTemp
  456.     Left = 356
  457.     Top = 204
  458.   end
  459.   object SRW: TSRW
  460.     About.HelpContext = 1033
  461.     About.HelpCaption = '&Creating Reports'
  462.     About.HelpFile = 'SRWHELP.HLP'
  463.     Active = False
  464.     Extension = 'SRW'
  465.     Grid.FooterFont.Charset = DEFAULT_CHARSET
  466.     Grid.FooterFont.Color = clWindowText
  467.     Grid.FooterFont.Height = -13
  468.     Grid.FooterFont.Name = 'MS Sans Serif'
  469.     Grid.FooterFont.Style = []
  470.     Grid.RecordFont.Charset = DEFAULT_CHARSET
  471.     Grid.RecordFont.Color = clWindowText
  472.     Grid.RecordFont.Height = -13
  473.     Grid.RecordFont.Name = 'MS Sans Serif'
  474.     Grid.RecordFont.Style = []
  475.     Grid.SubTitleFont.Charset = DEFAULT_CHARSET
  476.     Grid.SubTitleFont.Color = clWindowText
  477.     Grid.SubTitleFont.Height = -13
  478.     Grid.SubTitleFont.Name = 'MS Sans Serif'
  479.     Grid.SubTitleFont.Style = []
  480.     Grid.TitleFont.Charset = DEFAULT_CHARSET
  481.     Grid.TitleFont.Color = clWindowText
  482.     Grid.TitleFont.Height = -13
  483.     Grid.TitleFont.Name = 'MS Sans Serif'
  484.     Grid.TitleFont.Style = []
  485.     Page.FormatCurrency = '$#,#.00'
  486.     Page.FormatDate = 'ddddd'
  487.     Page.FormatDateTime = 'c'
  488.     Page.FormatFloat = '#,#.00'
  489.     Page.FormatTime = 't'
  490.     Page.LabelsActive = False
  491.     Page.LabelsAcross = 0
  492.     Page.LabelsDown = 0
  493.     Page.LayoutOptions = [srwShowMargins, srwShowGuides]
  494.     Page.MarginBottom = 0.300000011920929000
  495.     Page.MarginLeft = 0.300000011920929000
  496.     Page.MarginRight = 0.300000011920929000
  497.     Page.MarginTop = 0.300000011920929000
  498.     Page.PaperType = srwPaperLetter
  499.     Page.PaperHeight = 11.000000000000000000
  500.     Page.PaperWidth = 8.500000000000000000
  501.     Page.PaperOrientation = poPortrait
  502.     Page.PaperCopies = 1
  503.     Query.AliasFields = True
  504.     Query.AllowAggregates = True
  505.     Query.AllowCartesians = False
  506.     Query.AllowEditCode = True
  507.     Query.AsAlias = False
  508.     Query.BooleanQuote = '"'
  509.     Query.CacheResults = False
  510.     Query.DatabaseType = srwParadox
  511.     Query.DatabaseDetect = True
  512.     Query.DateFormat = 'mm"/"dd"/"yyyy'
  513.     Query.DateQuote = '"'
  514.     Query.DefaultOptional = True
  515.     Query.GroupBySelect = False
  516.     Query.IsLocal = True
  517.     Query.OrderByAlias = True
  518.     Query.OriginalDateOrder = srwUnknown
  519.     Query.VerifyNames = True
  520.     Query.UniqueRecords = False
  521.     ReportName = 'Untitled'
  522.     TempMode = srwTempOptional
  523.     Window.CaptionCode = 'View S&QL'
  524.     Window.CaptionLayout = '&Layout Page'
  525.     Window.CaptionLink = 'Link &Tables'
  526.     Window.CaptionMain = 'Shazam Report Wizard'
  527.     Window.CaptionPreview = '&Preview Report'
  528.     Window.CaptionQuery = 'Define Sea&rch'
  529.     Window.LinksShareQueryTab = True
  530.     Window.IsChild = False
  531.     Window.IsModal = False
  532.     Window.MenuEdit = [srwEditAddField, srwEditAddTable, srwEditCutCopyPaste, srwEditDeleteField, srwEditDeleteTable, srwEditDeleteLink, srwEditFieldProperties, srwEditSetupReport, srwEditVisible]
  533.     Window.MenuFile = [srwFileExport, srwFileNew, srwFileOpen, srwFilePrint, srwFileSave, srwFileVisible]
  534.     Window.MenuHelp = [srwHelpContents, srwHelpSearch, srwHelpAbout, srwHelpVisible]
  535.     Window.MenuView = [srwViewAlias, srwViewCode, srwViewLayout, srwViewLink, srwViewPages, srwViewPreview, srwViewQuery, srwViewVisible]
  536.     Window.PreviewMode = srwPreviewGrid
  537.     Window.Visible = True
  538.     Window.State = wsNormal
  539.     Window.ShowToolbar = True
  540.     Left = 556
  541.     Top = 51
  542.   end
  543.   object SaveGraphMenu: TRxPopupMenu
  544.     LeftMargin = 30
  545.     Style = msOwnerDraw
  546.     ShowCheckMarks = False
  547.     OnDrawMargin = SaveGraphMenuDrawMargin
  548.     Left = 582
  549.     Top = 318
  550.     object pmSaveAsBitmap: TMenuItem
  551.       Caption = 'Save As &Bitmap'
  552.       OnClick = pmSaveAsBitmapClick
  553.     end
  554.     object pmSaveAsMetafile: TMenuItem
  555.       Caption = 'Save As &Metafile'
  556.       OnClick = pmSaveAsMetafileClick
  557.     end
  558.     object pmCopyToClipboard: TMenuItem
  559.       Caption = 'Copy To &Clipboard'
  560.       OnClick = pmCopyToClipboardClick
  561.     end
  562.   end
  563.   object pmRClick: TRxPopupMenu
  564.     Style = msOwnerDraw
  565.     ShowCheckMarks = False
  566.     OnGetItemParams = pmRClickGetItemParams
  567.     Left = 328
  568.     Top = 341
  569.     object pmZoomIn: TMenuItem
  570.       Caption = 'Zoom In'
  571.       OnClick = BtnZoomClick
  572.     end
  573.     object pmPrint: TMenuItem
  574.       Caption = 'Print'
  575.       OnClick = BtnRepPrintClick
  576.     end
  577.     object pmEmail: TMenuItem
  578.       Caption = 'Email'
  579.       OnClick = BtnRepEmailClick
  580.     end
  581.     object N4: TMenuItem
  582.       Caption = '-'
  583.     end
  584.     object pmiGridColor: TMenuItem
  585.       Caption = 'Change Grid Colour'
  586.       OnClick = pmiGridColorClick
  587.     end
  588.   end
  589.   object QGetInvValue: TwwQuery
  590.     DatabaseName = 'EmpireBuilder'
  591.     SQL.Strings = (
  592.       'SELECT SUM(NomTrans.NATVALUE)'
  593.       'FROM Trans, NomTrans'
  594.       'WHERE ((Trans.ACCREF = :CustAccRef)'
  595.       '     AND (Trans.TRANSNO = NomTrans.TTRANSNO))'
  596.       '     AND (((Trans.TRANSTYPE = '#39'INVOICE'#39')'
  597.       '     AND (Trans."MODULE" = '#39'C'#39')'
  598.       '    AND (Trans.TRANSDATE BETWEEN :StDate AND :FinDate)'
  599.       '     AND (NomTrans.NOMREF = :SalesVat)'
  600.       '     AND (NomTrans.VATCODE = :ECSalesRate)))')
  601.     Params.Data = {
  602.       010005000A437573744163635265660001020030000000065374446174650009
  603.       04005A950A0000000746696E44617465000904005A950A0000000853616C6573
  604.       56617400010200300000000B454353616C6573526174650001020030000000}
  605.     ValidateWithMask = True
  606.     Left = 556
  607.     Top = 252
  608.     object QGetInvValueSUM_OF_NAT: TFloatField
  609.       FieldName = 'SUM_OF_NAT'
  610.     end
  611.   end
  612.   object QGetCrdVAlue: TwwQuery
  613.     DatabaseName = 'EmpireBuilder'
  614.     SQL.Strings = (
  615.       'SELECT SUM(NomTrans.NATVALUE)'
  616.       'FROM Trans, NomTrans'
  617.       'WHERE ((Trans.ACCREF = :CustAccRef)'
  618.       '     AND (Trans.TRANSNO = NomTrans.TTRANSNO))'
  619.       '     AND (((Trans.TRANSTYPE = '#39'CREDIT'#39')'
  620.       '     AND (Trans."MODULE" = '#39'C'#39')'
  621.       '    AND (Trans.TRANSDATE BETWEEN :StDate AND :FinDate)'
  622.       '     AND (NomTrans.NOMREF = :SalesVat)'
  623.       '     AND (NomTrans.VATCODE = :ECSalesRate)))')
  624.     Params.Data = {
  625.       010005000A437573744163635265660001020030000000065374446174650009
  626.       04005A950A0000000746696E44617465000904005A950A0000000853616C6573
  627.       56617400010200300000000B454353616C6573526174650001020030000000}
  628.     ValidateWithMask = True
  629.     Left = 492
  630.     Top = 264
  631.     object QGetCrdVAlueSUM_OF_NAT: TFloatField
  632.       FieldName = 'SUM_OF_NAT'
  633.       Origin = '"NomTrans.DBF".NATVALUE'
  634.     end
  635.   end
  636.   object taCustTemp: TwwQuery
  637.     DatabaseName = 'EmpireBuilder'
  638.     SQL.Strings = (
  639.       'Select ACCREF,NAME,ECCODE,VATID,REP_T_VAL1'
  640.       'From Customer'
  641.       '')
  642.     ValidateWithMask = True
  643.     Left = 356
  644.     Top = 148
  645.     object taCustTempACCREF: TStringField
  646.       DisplayLabel = 'Cust. Ref'
  647.       DisplayWidth = 12
  648.       FieldName = 'ACCREF'
  649.       Origin = '"Customer.DBF".ACCREF'
  650.       Size = 10
  651.     end
  652.     object taCustTempNAME: TStringField
  653.       DisplayLabel = 'Customer Name'
  654.       DisplayWidth = 40
  655.       FieldName = 'NAME'
  656.       Origin = '"Customer.DBF".NAME'
  657.       Size = 40
  658.     end
  659.     object taCustTempECCODE: TStringField
  660.       DisplayLabel = 'EC~Code'
  661.       DisplayWidth = 7
  662.       FieldName = 'ECCODE'
  663.       Origin = '"Customer.DBF".ECCODE'
  664.       Size = 3
  665.     end
  666.     object taCustTempVATID: TStringField
  667.       DisplayLabel = 'VAT Registration No.'
  668.       DisplayWidth = 20
  669.       FieldName = 'VATID'
  670.       Origin = '"Customer.DBF".VATID'
  671.       Size = 15
  672.     end
  673.     object taCustTempREP_T_VAL1: TFloatField
  674.       DisplayLabel = 'Total Sales~Amount'
  675.       DisplayWidth = 10
  676.       FieldName = 'REP_T_VAL1'
  677.       Origin = '"Customer.DBF".REP_T_VAL1'
  678.       DisplayFormat = '0.00'
  679.     end
  680.   end
  681.   object taCustSumm: TwwQuery
  682.     DatabaseName = 'EmpireBuilder'
  683.     SQL.Strings = (
  684.       'select sum(REP_T_VAL1) from Customer')
  685.     ValidateWithMask = True
  686.     Left = 439
  687.     Top = 153
  688.     object taCustSummSUM_OF_REP: TFloatField
  689.       FieldName = 'SUM_OF_REP'
  690.       Origin = '"Customer.DBF".REP_T_VAL1'
  691.     end
  692.   end
  693. end
  694.