home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 September / Dpcb0999.iso / Business / Empire / _SETUP.1 / EmpireBuilder.exe / 0 / RCDATA / TFMCUSTDAYBOOKS / TFMCUSTDAYBOOKS.txt
Text File  |  1999-06-21  |  23KB  |  816 lines
  1. object fmCustDayBooks: TfmCustDayBooks
  2.   Left = 49
  3.   Top = 75
  4.   AutoScroll = False
  5.   Caption = 'Customer Daybooks'
  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 Panel1: TPanel
  26.     Left = 0
  27.     Top = 0
  28.     Width = 698
  29.     Height = 53
  30.     Align = alTop
  31.     TabOrder = 0
  32.     object Label1: TLabel
  33.       Left = 24
  34.       Top = 4
  35.       Width = 88
  36.       Height = 16
  37.       Caption = 'Start Customer'
  38.     end
  39.     object Label2: TLabel
  40.       Left = 160
  41.       Top = 4
  42.       Width = 95
  43.       Height = 16
  44.       Caption = 'Finish Customer'
  45.     end
  46.     object Label3: TLabel
  47.       Left = 292
  48.       Top = 4
  49.       Width = 99
  50.       Height = 16
  51.       Caption = 'Start Trans. Date'
  52.     end
  53.     object Label5: TLabel
  54.       Left = 416
  55.       Top = 4
  56.       Width = 106
  57.       Height = 16
  58.       Caption = 'Finish Trans. Date'
  59.     end
  60.     object Label4: TLabel
  61.       Left = 544
  62.       Top = 4
  63.       Width = 57
  64.       Height = 16
  65.       Caption = 'Include ...'
  66.     end
  67.     object DEStartTrans: TDateEdit
  68.       Left = 292
  69.       Top = 20
  70.       Width = 100
  71.       Height = 24
  72.       Hint = 'Press F1 for help'
  73.       HelpContext = 102
  74.       ClickKey = 16452
  75.       NumGlyphs = 2
  76.       ParentShowHint = False
  77.       ShowHint = True
  78.       CalendarStyle = csDialog
  79.       Weekends = [Sun, Sat]
  80.       YearDigits = dyFour
  81.       TabOrder = 2
  82.       OnAcceptDate = DEStartTransAcceptDate
  83.       OnEnter = DEStartTransEnter
  84.       OnExit = DEStartTransExit
  85.     end
  86.     object DEFinTrans: TDateEdit
  87.       Left = 420
  88.       Top = 20
  89.       Width = 100
  90.       Height = 24
  91.       Hint = 'Press F1 for help'
  92.       HelpContext = 103
  93.       ClickKey = 16452
  94.       NumGlyphs = 2
  95.       ParentShowHint = False
  96.       ShowHint = True
  97.       CalendarStyle = csDialog
  98.       Weekends = [Sun, Sat]
  99.       YearDigits = dyFour
  100.       TabOrder = 3
  101.       OnAcceptDate = DEFinTransAcceptDate
  102.       OnEnter = DEFinTransEnter
  103.       OnExit = DEFinTransExit
  104.     end
  105.     object AICBTransType: TComboBox
  106.       Left = 544
  107.       Top = 20
  108.       Width = 141
  109.       Height = 24
  110.       Hint = 'Press F1 for help'
  111.       HelpContext = 145
  112.       ItemHeight = 16
  113.       Items.Strings = (
  114.         'All Transactions'
  115.         'Invoices'
  116.         'Credit Notes'
  117.         'Payments'
  118.         'Refunds'
  119.         'Discounts')
  120.       ParentShowHint = False
  121.       ShowHint = True
  122.       TabOrder = 4
  123.       Text = 'All Transactions'
  124.       OnChange = AICBTransTypeChange
  125.     end
  126.     object DBCDlgStCustRef: TComboEdit
  127.       Left = 12
  128.       Top = 20
  129.       Width = 120
  130.       Height = 24
  131.       Hint = 'Press F1 for help'
  132.       HelpContext = 100
  133.       CharCase = ecUpperCase
  134.       ClickKey = 16467
  135.       ButtonWidth = 24
  136.       MaxLength = 16
  137.       NumGlyphs = 1
  138.       ParentShowHint = False
  139.       ShowHint = True
  140.       TabOrder = 0
  141.       OnButtonClick = DBCDlgStCustRefButtonClick
  142.       OnEnter = DBCDlgStCustRefEnter
  143.       OnExit = DBCDlgStCustRefExit
  144.     end
  145.     object DBCDlgFiCustRef: TComboEdit
  146.       Left = 148
  147.       Top = 20
  148.       Width = 120
  149.       Height = 24
  150.       Hint = 'Press F1 for help'
  151.       HelpContext = 101
  152.       CharCase = ecUpperCase
  153.       ClickKey = 16467
  154.       ButtonWidth = 24
  155.       MaxLength = 16
  156.       NumGlyphs = 1
  157.       ParentShowHint = False
  158.       ShowHint = True
  159.       TabOrder = 1
  160.       OnButtonClick = DBCDlgFiCustRefButtonClick
  161.       OnEnter = DBCDlgFiCustRefEnter
  162.       OnExit = DBCDlgFiCustRefExit
  163.     end
  164.   end
  165.   object Panel2: TPanel
  166.     Left = 0
  167.     Top = 53
  168.     Width = 698
  169.     Height = 379
  170.     Align = alClient
  171.     TabOrder = 1
  172.     object SpeedBar: TSpeedBar
  173.       Left = 1
  174.       Top = 1
  175.       Width = 696
  176.       Height = 49
  177.       Font.Charset = ANSI_CHARSET
  178.       Font.Color = clWindowText
  179.       Font.Height = -13
  180.       Font.Name = 'MS Sans Serif'
  181.       Font.Style = []
  182.       Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
  183.       BtnOffsetHorz = 3
  184.       BtnOffsetVert = 3
  185.       BtnWidth = 70
  186.       BtnHeight = 43
  187.       TabOrder = 1
  188.       InternalVer = 1
  189.       object SpeedbarSection1: TSpeedbarSection
  190.         Caption = 'Untitled (0)'
  191.       end
  192.       object BtnZoomIn: TSpeedItem
  193.         BtnCaption = 'Zoom In'
  194.         Caption = 'Transaction zoom-in'
  195.         DropDownMenu = PUZoomMenu
  196.         Hint = 'Transaction zoom-in'
  197.         Spacing = 1
  198.         Left = 3
  199.         Top = 3
  200.         Visible = True
  201.         SectionName = 'Untitled (0)'
  202.       end
  203.       object BtnPrint: TSpeedItem
  204.         BtnCaption = 'Print'
  205.         Caption = 'Print daybook report'
  206.         Hint = 'Print daybook report'
  207.         Spacing = 1
  208.         Left = 143
  209.         Top = 3
  210.         Visible = True
  211.         OnClick = BtnPrintClick
  212.         SectionName = 'Untitled (0)'
  213.       end
  214.       object BtnEmail: TSpeedItem
  215.         BtnCaption = 'Email'
  216.         Caption = 'Email daybook report'
  217.         Hint = 'Email daybook report'
  218.         Spacing = 1
  219.         Left = 213
  220.         Top = 3
  221.         Visible = True
  222.         OnClick = BtnEmailClick
  223.         SectionName = 'Untitled (0)'
  224.       end
  225.       object BtnClose: TSpeedItem
  226.         BtnCaption = '&Close'
  227.         Caption = 'Close this window'
  228.         Hint = 'Close this window'
  229.         Spacing = 1
  230.         Left = 423
  231.         Top = 3
  232.         Visible = True
  233.         OnClick = BtnCloseClick
  234.         SectionName = 'Untitled (0)'
  235.       end
  236.       object btnHelp: TSpeedItem
  237.         BtnCaption = '&Help'
  238.         Caption = 'View full help on this window'
  239.         Glyph.Data = {
  240.           F6000000424DF600000000000000760000002800000010000000100000000100
  241.           0400000000008000000000000000000000001000000010000000000000000000
  242.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  243.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
  244.           888888888E6648888888888888E6688888888888888888888888888888446888
  245.           8888888886664888888888888E664888888888888E6664888888888888E66648
  246.           88888888888E6664888888844888E6664888886664888E66488888E666444666
  247.           4888888E6666666668888888EE6666668888888888EEEEE88888}
  248.         Hint = 'View full help on this window|'
  249.         Spacing = 1
  250.         Left = 353
  251.         Top = 3
  252.         Visible = True
  253.         OnClick = btnHelpClick
  254.         SectionName = 'Untitled (0)'
  255.       end
  256.       object BtnSearch: TSpeedItem
  257.         BtnCaption = 'Search'
  258.         Caption = 'Search for a transaction'
  259.         Hint = 'Search for a transaction|'
  260.         Spacing = 1
  261.         Left = 283
  262.         Top = 3
  263.         Visible = True
  264.         OnClick = BtnSearchClick
  265.         SectionName = 'Untitled (0)'
  266.       end
  267.       object BtnOptions: TSpeedItem
  268.         BtnCaption = 'Options'
  269.         Caption = 'Options menu'
  270.         DropDownMenu = PUROptions
  271.         Glyph.Data = {
  272.           F6000000424DF600000000000000760000002800000010000000100000000100
  273.           0400000000008000000000000000000000001000000010000000000000000000
  274.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  275.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  276.           8888844888888844888884A4888884A48888884A48884A4888888884A484A488
  277.           888888884A4A48888888888884A48888888888884A4A488884884444A484A488
  278.           4C48444448884A444CC448844888844CC4488884488884CCC4888844488844CC
  279.           C48888888844CC44488888888884444888888888888888888888}
  280.         Hint = 'Options menu|'
  281.         Spacing = 1
  282.         Left = 73
  283.         Top = 3
  284.         Visible = True
  285.         SectionName = 'Untitled (0)'
  286.       end
  287.       object BtnQuery: TSpeedItem
  288.         Caption = 'BtnQuery'
  289.         Glyph.Data = {
  290.           F6000000424DF600000000000000760000002800000010000000100000000100
  291.           0400000000008000000000000000000000001000000010000000000000000000
  292.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  293.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  294.           8888888888444888844488888844889988448888884488888844888888448899
  295.           8844888888448889784488888844898898448888884487997844444448448888
  296.           88444FFF4844488884444FFF488888888888999994448888888899999FF48888
  297.           88888884FFF48888888888899999888888888889999988888888}
  298.         Hint = 'BtnQuery|'
  299.         Spacing = 1
  300.         Top = 3
  301.         SectionName = 'Untitled (0)'
  302.       end
  303.       object SpeedItem2: TSpeedItem
  304.         Caption = 'SpeedItem2'
  305.         Hint = 'SpeedItem2|'
  306.         Spacing = 1
  307.         Top = 3
  308.         SectionName = 'Untitled (0)'
  309.       end
  310.       object SpeedItem3: TSpeedItem
  311.         Caption = 'SpeedItem3'
  312.         Hint = 'SpeedItem3|'
  313.         Spacing = 1
  314.         Top = 3
  315.         SectionName = 'Untitled (0)'
  316.       end
  317.       object SpeedItem4: TSpeedItem
  318.         Caption = 'SpeedItem4'
  319.         Hint = 'SpeedItem4|'
  320.         Spacing = 1
  321.         Top = 3
  322.         SectionName = 'Untitled (0)'
  323.       end
  324.       object SpeedItem5: TSpeedItem
  325.         Caption = 'SpeedItem5'
  326.         Hint = 'SpeedItem5|'
  327.         Spacing = 1
  328.         Top = 3
  329.         SectionName = 'Untitled (0)'
  330.       end
  331.       object SpeedItem6: TSpeedItem
  332.         Caption = 'SpeedItem6'
  333.         Hint = 'SpeedItem6|'
  334.         Spacing = 1
  335.         Top = 3
  336.         SectionName = 'Untitled (0)'
  337.       end
  338.       object SpeedItem7: TSpeedItem
  339.         Caption = 'SpeedItem7'
  340.         Hint = 'SpeedItem7|'
  341.         Spacing = 1
  342.         Top = 3
  343.         SectionName = 'Untitled (0)'
  344.       end
  345.     end
  346.     object wwDBGrid1: TwwDBGrid
  347.       Left = 1
  348.       Top = 50
  349.       Width = 696
  350.       Height = 328
  351.       Selected.Strings = (
  352.         'TRANSTYPE'#9'8'#9'Transaction~Type'#9'F'
  353.         'ACCREF'#9'12'#9'Customer~Reference'#9'F'
  354.         'TRANSDATE'#9'10'#9'Date'#9'F'
  355.         'INVREF'#9'10'#9'Reference'#9'F'
  356.         'DETAILS'#9'26'#9'Details'#9'F'
  357.         'NETVALUE'#9'10'#9'Net'#9'F'
  358.         'VATVALUE'#9'10'#9'VAT'#9'F'
  359.         'TOTAL'#9'10'#9'Total'#9'F'
  360.         'PAYMENT'#9'10'#9'Amount~Paid'#9'F'
  361.         'TERMS'#9'8'#9'Terms'#9'F'
  362.         'QUERY'#9'5'#9'On~Query'#9'F')
  363.       TitleColor = clBtnFace
  364.       FixedCols = 0
  365.       ShowHorzScrollBar = True
  366.       Align = alClient
  367.       DataSource = dsTrans
  368.       Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells]
  369.       PopupMenu = pmRClick
  370.       TabOrder = 0
  371.       TitleAlignment = taLeftJustify
  372.       TitleFont.Charset = ANSI_CHARSET
  373.       TitleFont.Color = clWindowText
  374.       TitleFont.Height = -13
  375.       TitleFont.Name = 'Arial'
  376.       TitleFont.Style = []
  377.       TitleLines = 2
  378.       TitleButtons = True
  379.       OnCalcCellColors = wwDBGrid1CalcCellColors
  380.       OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
  381.       OnTitleButtonClick = wwDBGrid1TitleButtonClick
  382.       OnDblClick = puiTDClick
  383.       IndicatorColor = icBlack
  384.       OnTopRowChanged = wwDBGrid1TopRowChanged
  385.       OnCalcTitleImage = wwDBGrid1CalcTitleImage
  386.       TitleImageList = ImagesDM.GenralBM
  387.       FooterCellColor = clYellow
  388.       FooterHeight = 25
  389.     end
  390.   end
  391.   object Sizer1: TSizer
  392.     Enabled = True
  393.     ExceptionAction = eaIgnoreControl
  394.     GridColumnSizing = gcSizeAllColumns
  395.     GridRowSizing = grSizeByDefaults
  396.     MinimumSize = True
  397.     NavigateOnEnter = True
  398.     OverrideParentFont = True
  399.     PerformAssertions = True
  400.     ShowAssertionFailures = False
  401.     StretchFonts = True
  402.     StretchImages = True
  403.     StretchOnResize = True
  404.     ThreadProcessing = False
  405.     Left = 660
  406.     Top = 51
  407.     ScreenWidth = (
  408.       800)
  409.     ScreenHeight = (
  410.       600)
  411.     OriginalFormWidth = (
  412.       706)
  413.     OriginalFormHeight = (
  414.       459)
  415.     OriginalFormLeft = (
  416.       49)
  417.     OriginalFormTop = (
  418.       75)
  419.     OriginalFormPPI = (
  420.       120)
  421.     OriginalClientWidth = (
  422.       698)
  423.     OriginalClientHeight = (
  424.       432)
  425.   end
  426.   object dsTrans: TwwDataSource
  427.     DataSet = taTrans
  428.     Left = 496
  429.     Top = 136
  430.   end
  431.   object taCustomer: TwwTable
  432.     DatabaseName = 'EmpireBuilder'
  433.     IndexName = 'ACCREF'
  434.     TableName = 'Customer.DBF'
  435.     SyncSQLByRange = False
  436.     NarrowSearch = False
  437.     ValidateWithMask = True
  438.     Left = 604
  439.     Top = 59
  440.     object taCustomerACCREF: TStringField
  441.       FieldName = 'ACCREF'
  442.       Size = 10
  443.     end
  444.     object taCustomerNAME: TStringField
  445.       FieldName = 'NAME'
  446.       Size = 40
  447.     end
  448.   end
  449.   object PUZoomMenu: TRxPopupMenu
  450.     LeftMargin = 30
  451.     Style = msOwnerDraw
  452.     ShowCheckMarks = False
  453.     OnDrawMargin = PUZoomMenuDrawMargin
  454.     Left = 536
  455.     Top = 53
  456.     object puiTD: TMenuItem
  457.       Caption = 'Transaction Details'
  458.       OnClick = puiTDClick
  459.     end
  460.     object puiDED: TMenuItem
  461.       Caption = 'Double Entry Distribution'
  462.       OnClick = puiDEDClick
  463.     end
  464.     object puiCST: TMenuItem
  465.       Caption = 'Payment Allocations'
  466.       OnClick = puiCSTClick
  467.     end
  468.     object puiOD: TMenuItem
  469.       Caption = 'Original Document'
  470.       OnClick = puiODClick
  471.     end
  472.     object puiVBD: TMenuItem
  473.       Caption = 'VAT Breakdown'
  474.       OnClick = puiVBDClick
  475.     end
  476.   end
  477.   object SRW: TSRW
  478.     About.HelpContext = 1033
  479.     About.HelpCaption = '&Creating Reports'
  480.     About.HelpFile = 'SRWHELP.HLP'
  481.     Active = False
  482.     Extension = 'SRW'
  483.     Grid.FooterFont.Charset = DEFAULT_CHARSET
  484.     Grid.FooterFont.Color = clWindowText
  485.     Grid.FooterFont.Height = -13
  486.     Grid.FooterFont.Name = 'MS Sans Serif'
  487.     Grid.FooterFont.Style = []
  488.     Grid.RecordFont.Charset = DEFAULT_CHARSET
  489.     Grid.RecordFont.Color = clWindowText
  490.     Grid.RecordFont.Height = -13
  491.     Grid.RecordFont.Name = 'MS Sans Serif'
  492.     Grid.RecordFont.Style = []
  493.     Grid.SubTitleFont.Charset = DEFAULT_CHARSET
  494.     Grid.SubTitleFont.Color = clWindowText
  495.     Grid.SubTitleFont.Height = -13
  496.     Grid.SubTitleFont.Name = 'MS Sans Serif'
  497.     Grid.SubTitleFont.Style = []
  498.     Grid.TitleFont.Charset = DEFAULT_CHARSET
  499.     Grid.TitleFont.Color = clWindowText
  500.     Grid.TitleFont.Height = -13
  501.     Grid.TitleFont.Name = 'MS Sans Serif'
  502.     Grid.TitleFont.Style = []
  503.     Page.FormatCurrency = '$#,#.00'
  504.     Page.FormatDate = 'ddddd'
  505.     Page.FormatDateTime = 'c'
  506.     Page.FormatFloat = '#,#.00'
  507.     Page.FormatTime = 't'
  508.     Page.LabelsActive = False
  509.     Page.LabelsAcross = 0
  510.     Page.LabelsDown = 0
  511.     Page.LayoutOptions = [srwShowMargins, srwShowSections, srwShowGuides]
  512.     Page.MarginBottom = 0.300000011920929000
  513.     Page.MarginLeft = 0.300000011920929000
  514.     Page.MarginRight = 0.300000011920929000
  515.     Page.MarginTop = 0.300000011920929000
  516.     Page.PaperType = srwPaperLetter
  517.     Page.PaperHeight = 11.000000000000000000
  518.     Page.PaperWidth = 8.500000000000000000
  519.     Page.PaperOrientation = poPortrait
  520.     Page.PaperCopies = 1
  521.     Query.AliasFields = False
  522.     Query.AllowAggregates = True
  523.     Query.AllowCartesians = False
  524.     Query.AllowEditCode = True
  525.     Query.AsAlias = False
  526.     Query.BooleanQuote = '"'
  527.     Query.CacheResults = False
  528.     Query.DatabaseType = srwDbase
  529.     Query.DatabaseDetect = True
  530.     Query.DateFormat = 'mm"/"dd"/"yyyy'
  531.     Query.DateQuote = '"'
  532.     Query.DefaultOptional = True
  533.     Query.GroupBySelect = False
  534.     Query.IsLocal = True
  535.     Query.OrderByAlias = True
  536.     Query.OriginalDateOrder = srwUnknown
  537.     Query.VerifyNames = True
  538.     Query.UniqueRecords = False
  539.     ReportName = 'Untitled'
  540.     TempMode = srwTempOptional
  541.     Window.CaptionCode = 'View S&QL'
  542.     Window.CaptionLayout = '&Layout Page'
  543.     Window.CaptionLink = 'Link &Tables'
  544.     Window.CaptionMain = 'Shazam Report Wizard'
  545.     Window.CaptionPreview = '&Preview Report'
  546.     Window.CaptionQuery = 'Define Sea&rch'
  547.     Window.LinksShareQueryTab = True
  548.     Window.IsChild = False
  549.     Window.IsModal = False
  550.     Window.MenuEdit = [srwEditAddField, srwEditAddTable, srwEditCutCopyPaste, srwEditDeleteField, srwEditDeleteTable, srwEditDeleteLink, srwEditFieldProperties, srwEditSetupReport, srwEditVisible]
  551.     Window.MenuFile = [srwFileExport, srwFileNew, srwFileOpen, srwFilePrint, srwFileSave, srwFileVisible]
  552.     Window.MenuHelp = [srwHelpContents, srwHelpSearch, srwHelpAbout, srwHelpVisible]
  553.     Window.MenuView = [srwViewAlias, srwViewCode, srwViewLayout, srwViewLink, srwViewPages, srwViewPreview, srwViewQuery, srwViewVisible]
  554.     Window.PreviewMode = srwPreviewGrid
  555.     Window.Visible = True
  556.     Window.State = wsNormal
  557.     Window.ShowToolbar = True
  558.     OnBeforePrint = SRWBeforePrint
  559.     OnBeforeReport = SRWBeforeReport
  560.     Left = 500
  561.     Top = 51
  562.   end
  563.   object pmRClick: TRxPopupMenu
  564.     OnPopup = pmRClickPopup
  565.     Style = msOwnerDraw
  566.     ShowCheckMarks = False
  567.     OnGetItemParams = pmRClickGetItemParams
  568.     Left = 460
  569.     Top = 57
  570.     object pmiTransDetail: TMenuItem
  571.       Caption = 'Transaction Details'
  572.       OnClick = puiTDClick
  573.     end
  574.     object pmiDoubleEntry: TMenuItem
  575.       Caption = 'Double Entry'
  576.       OnClick = puiDEDClick
  577.     end
  578.     object pmiPayAlloc: TMenuItem
  579.       Caption = 'Payment Allocations'
  580.       OnClick = puiCSTClick
  581.     end
  582.     object pmiOrigDoc: TMenuItem
  583.       Caption = 'Original Document'
  584.       OnClick = puiODClick
  585.     end
  586.     object pmiVATBD: TMenuItem
  587.       Caption = 'VAT Breakdown'
  588.       OnClick = puiVBDClick
  589.     end
  590.     object N1: TMenuItem
  591.       Caption = '-'
  592.     end
  593.     object pmiPrint: TMenuItem
  594.       Caption = 'Print'
  595.       OnClick = BtnPrintClick
  596.     end
  597.     object pmiEmail: TMenuItem
  598.       Caption = 'Email'
  599.       OnClick = BtnEmailClick
  600.     end
  601.     object N4: TMenuItem
  602.       Caption = '-'
  603.     end
  604.     object pmiQuery: TMenuItem
  605.       Caption = 'Query'
  606.       OnClick = pmiQueryClick
  607.     end
  608.     object pmiPayTerms: TMenuItem
  609.       Caption = 'Payment Terms'
  610.       OnClick = pmiPayTermsClick
  611.     end
  612.     object N2: TMenuItem
  613.       Caption = '-'
  614.     end
  615.     object pmiUndo: TMenuItem
  616.       Caption = 'Undo Transaction'
  617.       OnClick = pmiUndoClick
  618.     end
  619.     object N3: TMenuItem
  620.       Caption = '-'
  621.     end
  622.     object pmiGridColor: TMenuItem
  623.       Caption = 'Change Grid Colour'
  624.       OnClick = pmiGridColorClick
  625.     end
  626.   end
  627.   object taTrans: TwwQuery
  628.     AfterScroll = taTransAfterScroll
  629.     DatabaseName = 'EmpireBuilder'
  630.     SQL.Strings = (
  631.       'Select * from Trans'
  632.       'where (TRANSDATE > :StDate) and'
  633.       '             (TRANSDATE < :FinDate) and'
  634.       '             (MODULE <> '#39'C'#39') and'
  635.       '             (ACCREF > :StRef) and'
  636.       '             (ACCREF < :FinRef)')
  637.     Params.Data = {
  638.       0100040006537444617465000B080000002C845D40CB4200000746696E446174
  639.       65000B080000002C845D40CB4200000553745265660001020030000000064669
  640.       6E5265660001020030000000}
  641.     ControlType.Strings = (
  642.       'QUERY;CheckBox;Yes;No')
  643.     ValidateWithMask = True
  644.     Left = 517
  645.     Top = 204
  646.     object taTransTRANSTYPE: TStringField
  647.       DisplayLabel = 'Transaction~Type'
  648.       DisplayWidth = 8
  649.       FieldName = 'TRANSTYPE'
  650.       Origin = '"Trans.DBF".TRANSTYPE'
  651.       Size = 8
  652.     end
  653.     object taTransACCREF: TStringField
  654.       DisplayLabel = 'Customer~Reference'
  655.       DisplayWidth = 12
  656.       FieldName = 'ACCREF'
  657.       Origin = '"Trans.DBF".ACCREF'
  658.       Size = 10
  659.     end
  660.     object taTransTRANSDATE: TDateField
  661.       DisplayLabel = 'Date'
  662.       DisplayWidth = 10
  663.       FieldName = 'TRANSDATE'
  664.       Origin = '"Trans.DBF".TRANSDATE'
  665.     end
  666.     object taTransINVREF: TStringField
  667.       DisplayLabel = 'Reference'
  668.       DisplayWidth = 10
  669.       FieldName = 'INVREF'
  670.       Origin = '"Trans.DBF".INVREF'
  671.       Size = 10
  672.     end
  673.     object taTransDETAILS: TStringField
  674.       DisplayLabel = 'Details'
  675.       DisplayWidth = 26
  676.       FieldName = 'DETAILS'
  677.       Origin = '"Trans.DBF".DETAILS'
  678.       Size = 30
  679.     end
  680.     object taTransNETVALUE: TFloatField
  681.       DisplayLabel = 'Net'
  682.       DisplayWidth = 10
  683.       FieldName = 'NETVALUE'
  684.       Origin = '"Trans.DBF".NETVALUE'
  685.       DisplayFormat = '0.00'
  686.     end
  687.     object taTransVATVALUE: TFloatField
  688.       DisplayLabel = 'VAT'
  689.       DisplayWidth = 10
  690.       FieldName = 'VATVALUE'
  691.       Origin = '"Trans.DBF".VATVALUE'
  692.       DisplayFormat = '0.00'
  693.     end
  694.     object taTransTOTAL: TFloatField
  695.       DisplayLabel = 'Total'
  696.       DisplayWidth = 10
  697.       FieldName = 'TOTAL'
  698.       Origin = '"Trans.DBF".TOTAL'
  699.       DisplayFormat = '0.00'
  700.     end
  701.     object taTransPAYMENT: TFloatField
  702.       DisplayLabel = 'Amount~Paid'
  703.       DisplayWidth = 10
  704.       FieldName = 'PAYMENT'
  705.       Origin = '"Trans.DBF".PAYMENT'
  706.       DisplayFormat = '0.00'
  707.     end
  708.     object taTransTERMS: TSmallintField
  709.       DisplayLabel = 'Terms'
  710.       DisplayWidth = 8
  711.       FieldName = 'TERMS'
  712.       Origin = '"Trans.DBF".TERMS'
  713.     end
  714.     object taTransQUERY: TBooleanField
  715.       DisplayLabel = 'On~Query'
  716.       DisplayWidth = 5
  717.       FieldName = 'QUERY'
  718.       Origin = '"Trans.DBF".QUERY'
  719.     end
  720.     object taTransBALANCE: TFloatField
  721.       DisplayLabel = 'Balance~Forward'
  722.       DisplayWidth = 10
  723.       FieldName = 'BALANCE'
  724.       Origin = '"Trans.DBF".BALANCE'
  725.       Visible = False
  726.       DisplayFormat = '0.00'
  727.     end
  728.     object taTransTRANSNO: TFloatField
  729.       FieldName = 'TRANSNO'
  730.       Origin = '"Trans.DBF".TRANSNO'
  731.       Visible = False
  732.     end
  733.     object taTransMODULE: TStringField
  734.       FieldName = 'MODULE'
  735.       Origin = '"Trans.DBF".MODULE'
  736.       Visible = False
  737.       Size = 1
  738.     end
  739.     object taTransQUERYMEMO: TMemoField
  740.       FieldName = 'QUERYMEMO'
  741.       Origin = '"Trans.DBF".QUERYMEMO'
  742.       Visible = False
  743.       BlobType = ftMemo
  744.       Size = 1
  745.     end
  746.     object taTransTRANLINK: TFloatField
  747.       FieldName = 'TRANLINK'
  748.       Origin = '"Trans.DBF".TRANLINK'
  749.       Visible = False
  750.     end
  751.     object taTransREFUND: TFloatField
  752.       FieldName = 'REFUND'
  753.       Origin = '"Trans.DBF".REFUND'
  754.       Visible = False
  755.     end
  756.   end
  757.   object taTranSum1: TwwQuery
  758.     DatabaseName = 'EmpireBuilder'
  759.     SQL.Strings = (
  760.       '')
  761.     ValidateWithMask = True
  762.     Left = 611
  763.     Top = 126
  764.     object taTranSum1SUM_OF_NET: TFloatField
  765.       FieldName = 'SUM_OF_NET'
  766.     end
  767.     object taTranSum1SUM_OF_VAT: TFloatField
  768.       FieldName = 'SUM_OF_VAT'
  769.     end
  770.     object taTranSum1SUM_OF_TOT: TFloatField
  771.       FieldName = 'SUM_OF_TOT'
  772.     end
  773.     object taTranSum1SUM_OF_PAY: TFloatField
  774.       FieldName = 'SUM_OF_PAY'
  775.     end
  776.   end
  777.   object taTranSum2: TwwQuery
  778.     DatabaseName = 'EmpireBuilder'
  779.     ValidateWithMask = True
  780.     Left = 546
  781.     Top = 120
  782.     object taTranSum2SUM_OF_NET: TFloatField
  783.       FieldName = 'SUM_OF_NET'
  784.     end
  785.     object taTranSum2SUM_OF_VAT: TFloatField
  786.       FieldName = 'SUM_OF_VAT'
  787.     end
  788.     object taTranSum2SUM_OF_TOT: TFloatField
  789.       FieldName = 'SUM_OF_TOT'
  790.     end
  791.     object taTranSum2SUM_OF_PAY: TFloatField
  792.       FieldName = 'SUM_OF_PAY'
  793.     end
  794.   end
  795.   object PUROptions: TRxPopupMenu
  796.     OnPopup = PUROptionsPopup
  797.     LeftMargin = 30
  798.     Style = msOwnerDraw
  799.     OnDrawMargin = PUROptionsDrawMargin
  800.     Left = 624
  801.     Top = 201
  802.     object puiQuery: TMenuItem
  803.       Caption = 'Query'
  804.       OnClick = pmiQueryClick
  805.     end
  806.     object puiPaymentTerms: TMenuItem
  807.       Caption = 'Payment Terms'
  808.       OnClick = pmiPayTermsClick
  809.     end
  810.     object puiUndoTrans: TMenuItem
  811.       Caption = 'Undo Transaction'
  812.       OnClick = pmiUndoClick
  813.     end
  814.   end
  815. end
  816.