object fmNomDayBooks: TfmNomDayBooks
  Left = 57
  Top = 106
  AutoScroll = False
  Caption = 'Financial Accounts Daybook'
  ClientHeight = 432
  ClientWidth = 698
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  Position = poDefaultPosOnly
  Scaled = False
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 698
    Height = 53
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 28
      Top = 4
      Width = 80
      Height = 16
      Caption = 'Start Account'
    end
    object Label2: TLabel
      Left = 156
      Top = 4
      Width = 87
      Height = 16
      Caption = 'Finish Account'
    end
    object Label3: TLabel
      Left = 280
      Top = 4
      Width = 99
      Height = 16
      Caption = 'Start Trans. Date'
    end
    object Label5: TLabel
      Left = 392
      Top = 4
      Width = 106
      Height = 16
      Caption = 'Finish Trans. Date'
    end
    object Label4: TLabel
      Left = 512
      Top = 4
      Width = 57
      Height = 16
      Caption = 'Include ...'
    end
    object DEStartTrans: TDateEdit
      Left = 280
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 102
      ClickKey = 16452
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 2
      OnAcceptDate = DEStartTransAcceptDate
      OnEnter = DEStartTransEnter
      OnExit = DEStartTransExit
    end
    object DEFinTrans: TDateEdit
      Left = 396
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 103
      ClickKey = 16452
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 3
      OnAcceptDate = DEFinTransAcceptDate
      OnEnter = DEFinTransEnter
      OnExit = DEFinTransExit
    end
    object AICBTransType: TComboBox
      Left = 512
      Top = 20
      Width = 181
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 316
      DropDownCount = 12
      ItemHeight = 16
      Items.Strings = (
        'All Transactions'
        'Journals'
        'Bank/Cash Payments'
        'Bank/Cash Receipts'
        'Customer Invoices'
        'Customer Credit Notes'
        'Customer Payments'
        'Customer Refunds'
        'Customer Discounts'
        'Supplier Invoices'
        'Supplier Credit Notes'
        'Supplier Payments'
        'Supplier Refunds'
        'Supplier Discounts')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Text = 'All Transactions'
      OnChange = AICBTransTypeChange
    end
    object DBCDlgStAccRef: TComboEdit
      Left = 8
      Top = 20
      Width = 120
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 285
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 16
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnButtonClick = DBCDlgStAccRefButtonClick
      OnEnter = DBCDlgStAccRefEnter
      OnExit = DBCDlgStAccRefExit
    end
    object DBCDlgFiAccRef: TComboEdit
      Left = 144
      Top = 20
      Width = 120
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 286
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 16
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnButtonClick = DBCDlgFiAccRefButtonClick
      OnEnter = DBCDlgFiAccRefEnter
      OnExit = DBCDlgFiAccRefExit
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 53
    Width = 698
    Height = 379
    Align = alClient
    TabOrder = 1
    object SpeedBar: TSpeedBar
      Left = 1
      Top = 1
      Width = 696
      Height = 49
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
      BtnOffsetHorz = 3
      BtnOffsetVert = 3
      BtnWidth = 70
      BtnHeight = 43
      TabOrder = 0
      InternalVer = 1
      object SpeedbarSection1: TSpeedbarSection
        Caption = 'Untitled (0)'
      end
      object BtnZoomIn: TSpeedItem
        BtnCaption = 'Zoom In'
        Caption = 'Transaction zoom-in'
        DropDownMenu = PUZoomMenu
        Hint = 'Transaction zoom-in'
        Spacing = 1
        Left = 3
        Top = 3
        Visible = True
        SectionName = 'Untitled (0)'
      end
      object BtnPrint: TSpeedItem
        BtnCaption = 'Print'
        Caption = 'Print daybook report'
        Hint = 'Print daybook report'
        Spacing = 1
        Left = 143
        Top = 3
        Visible = True
        OnClick = BtnPrintClick
        SectionName = 'Untitled (0)'
      end
      object BtnEmail: TSpeedItem
        BtnCaption = 'Email'
        Caption = 'Email daybook report'
        Hint = 'Email daybook report|'
        Spacing = 1
        Left = 213
        Top = 3
        Visible = True
        OnClick = BtnEmailClick
        SectionName = 'Untitled (0)'
      end
      object BtnClose: TSpeedItem
        BtnCaption = 'Close'
        Caption = 'Close'
        Hint = 'Close report'
        Spacing = 1
        Left = 423
        Top = 3
        Visible = True
        OnClick = BtnCloseClick
        SectionName = 'Untitled (0)'
      end
      object BtnSearch: TSpeedItem
        BtnCaption = 'Search'
        Caption = 'Search for a transaction'
        Hint = 'Search for a transaction|'
        Spacing = 1
        Left = 283
        Top = 3
        Visible = True
        OnClick = BtnSearchClick
        SectionName = 'Untitled (0)'
      end
      object btnHelp: TSpeedItem
        BtnCaption = '&Help'
        Caption = 'View full help on this window'
        Glyph.Data = {
          52050000424D5205000000000000420000002800000024000000120000000100
          1000030000001005000000000000000000000000000000000000007C0000E003
          00001F0000000042004200420042004200420042004210021002004200420042
          004200420042004200420042004200420042004200420042FF7FFF7F00420042
          0042004200420042004200420042004200420042004200420042004210021000
          1000100200420042004200420042004200420042004200420042004200420042
          10421042FF7F0042004200420042004200420042004200420042004200420042
          00420042FF031002100210000042004200420042004200420042004200420042
          0042004200421042FF7F00421042FF7F00420042004200420042004200420042
          0042004200420042004200420042FF0310021002004200420042004200420042
          00420042004200420042004200421042FF7FFF7F1042FF7F0042004200420042
          0042004200420042004200420042004200420042004200420042004200420042
          0042004200420042004200420042004200420042004200421042104200420042
          0042004200420042004200420042004200420042004200420042004200421000
          1000100200420042004200420042004200420042004200420042004200420042
          0042FF7FFF7F0042004200420042004200420042004200420042004200420042
          0042004210021002100210000042004200420042004200420042004200420042
          0042004200420042104210421042FF7F00420042004200420042004200420042
          004200420042004200420042FF03100210021000004200420042004200420042
          00420042004200420042004200421042FF7F00421042FF7F0042004200420042
          0042004200420042004200420042004200420042FF0310021002100210000042
          004200420042004200420042004200420042004200421042FF7F00421042FF7F
          004200420042004200420042004200420042004200420042004200420042FF03
          1002100210021000004200420042004200420042004200420042004200421042
          FF7F004200421042FF7F00420042004200420042004200420042004200420042
          0042004200420042FF0310021002100210000042004200420042004200420042
          00420042004200421042FF7F004200421042FF7F004200420042004200420042
          004200420042004210001000004200420042FF03100210021002100000420042
          004200420042004200420042FF7F004200421042FF7F004200421042FF7F0042
          00420042004200420042004200421002100210021000004200420042FF031002
          10021000004200420042004200420042004210421042FF7F004200421042FF7F
          004200421042FF7F0042004200420042004200420042FF031002100210021000
          1000100010021002100210000042004200420042004200421042FF7F00421042
          FF7FFF7FFF7F1042004200421042FF7F00420042004200420042004200420042
          FF03100210021002100210021002100210021002004200420042004200420042
          1042FF7F004200421042104210420042004200421042FF7F0042004200420042
          00420042004200420042FF03FF03100210021002100210021002004200420042
          004200420042004200421042FF7FFF7F00420042004200420042004210420042
          00420042004200420042004200420042004200420042FF03FF03FF03FF03FF03
          004200420042004200420042004200420042004210421042FF7FFF7FFF7FFF7F
          FF7F104200420042004200420042004200420042004200420042004200420042
          0042004200420042004200420042004200420042004200420042004200420042
          10421042104210421042004200420042004200420042}
        Hint = 'View full help on this window|'
        NumGlyphs = 2
        Spacing = 1
        Left = 353
        Top = 3
        Visible = True
        OnClick = btnHelpClick
        SectionName = 'Untitled (0)'
      end
      object BtnOptions: TSpeedItem
        BtnCaption = 'Options'
        Caption = 'Options menu'
        DropDownMenu = pmOptions
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888844888888844888884A4888884A48888884A48884A4888888884A484A488
          888888884A4A48888888888884A48888888888884A4A488884884444A484A488
          4C48444448884A444CC448844888844CC4488884488884CCC4888844488844CC
          C48888888844CC44488888888884444888888888888888888888}
        Hint = 'Options menu|'
        Spacing = 1
        Left = 73
        Top = 3
        Visible = True
        SectionName = 'Untitled (0)'
      end
    end
    object wwDBGrid1: TwwDBGrid
      Left = 1
      Top = 50
      Width = 696
      Height = 328
      Selected.Strings = (
        'LONGMOD'#9'20'#9'Transaction Type'
        'NOMREF'#9'10'#9'Account '
        'TARNSDATE'#9'10'#9'Date'
        'TRANSREF'#9'10'#9'Ref.'
        'DETAILS'#9'25'#9'Details'
        'POSTVALUE'#9'10'#9'Total'
        'DEBIT'#9'13'#9'Debit'
        'CREDIT'#9'13'#9'Credit'
        'NATVALUE'#9'10'#9'Trans. Net~Value'
        'VATVALUE'#9'10'#9'Trans. VAT~Value'
        'TOTALVALUE'#9'10'#9'Trans. Total~Value'
        'BALANCE'#9'13'#9'Balance~Forward'
        'RECONBANK'#9'5'#9'Bank~Reconciled'
        'RECONVAT'#9'5'#9'VAT~Reconciled')
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      DataSource = dsNomTrans
      Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells]
      PopupMenu = pmRClick
      TabOrder = 1
      TitleAlignment = taLeftJustify
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      TitleLines = 2
      TitleButtons = True
      OnCalcCellColors = wwDBGrid1CalcCellColors
      OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
      OnTitleButtonClick = wwDBGrid1TitleButtonClick
      OnDblClick = puiTDClick
      IndicatorColor = icBlack
      OnTopRowChanged = wwDBGrid1TopRowChanged
      OnCalcTitleImage = wwDBGrid1CalcTitleImage
      TitleImageList = ImagesDM.GenralBM
      FooterCellColor = clYellow
      FooterHeight = 25
    end
  end
  object Sizer1: TSizer
    Enabled = True
    ExceptionAction = eaIgnoreControl
    GridColumnSizing = gcSizeAllColumns
    GridRowSizing = grSizeByDefaults
    MinimumSize = True
    NavigateOnEnter = True
    OverrideParentFont = True
    PerformAssertions = True
    ShowAssertionFailures = False
    StretchFonts = True
    StretchImages = True
    StretchOnResize = True
    ThreadProcessing = False
    Left = 604
    Top = 69
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      706)
    OriginalFormHeight = (
      459)
    OriginalFormLeft = (
      57)
    OriginalFormTop = (
      106)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      698)
    OriginalClientHeight = (
      432)
  end
  object SRW: TSRW
    About.HelpContext = 1033
    About.HelpCaption = '&Creating Reports'
    About.HelpFile = 'SRWHELP.HLP'
    Active = False
    Extension = 'SRW'
    Grid.FooterFont.Charset = DEFAULT_CHARSET
    Grid.FooterFont.Color = clWindowText
    Grid.FooterFont.Height = -13
    Grid.FooterFont.Name = 'MS Sans Serif'
    Grid.FooterFont.Style = []
    Grid.RecordFont.Charset = DEFAULT_CHARSET
    Grid.RecordFont.Color = clWindowText
    Grid.RecordFont.Height = -13
    Grid.RecordFont.Name = 'MS Sans Serif'
    Grid.RecordFont.Style = []
    Grid.SubTitleFont.Charset = DEFAULT_CHARSET
    Grid.SubTitleFont.Color = clWindowText
    Grid.SubTitleFont.Height = -13
    Grid.SubTitleFont.Name = 'MS Sans Serif'
    Grid.SubTitleFont.Style = []
    Grid.TitleFont.Charset = DEFAULT_CHARSET
    Grid.TitleFont.Color = clWindowText
    Grid.TitleFont.Height = -13
    Grid.TitleFont.Name = 'MS Sans Serif'
    Grid.TitleFont.Style = []
    Page.FormatCurrency = '$#,#.00'
    Page.FormatDate = 'ddddd'
    Page.FormatDateTime = 'c'
    Page.FormatFloat = '#,#.00'
    Page.FormatTime = 't'
    Page.LabelsActive = False
    Page.LabelsAcross = 0
    Page.LabelsDown = 0
    Page.LayoutOptions = [srwShowMargins, srwShowSections, srwShowGuides]
    Page.MarginBottom = 0.300000011920929000
    Page.MarginLeft = 0.300000011920929000
    Page.MarginRight = 0.300000011920929000
    Page.MarginTop = 0.300000011920929000
    Page.PaperType = srwPaperLetter
    Page.PaperHeight = 11.000000000000000000
    Page.PaperWidth = 8.500000000000000000
    Page.PaperOrientation = poPortrait
    Page.PaperCopies = 1
    Query.AliasFields = False
    Query.AllowAggregates = True
    Query.AllowCartesians = False
    Query.AllowEditCode = True
    Query.AsAlias = False
    Query.BooleanQuote = '"'
    Query.CacheResults = False
    Query.DatabaseType = srwDbase
    Query.DatabaseDetect = True
    Query.DateFormat = 'mm"/"dd"/"yyyy'
    Query.DateQuote = '"'
    Query.DefaultOptional = True
    Query.GroupBySelect = False
    Query.IsLocal = True
    Query.OrderByAlias = True
    Query.OriginalDateOrder = srwUnknown
    Query.VerifyNames = True
    Query.UniqueRecords = False
    ReportName = 'Untitled'
    TempMode = srwTempOptional
    Window.CaptionCode = 'View S&QL'
    Window.CaptionLayout = '&Layout Page'
    Window.CaptionLink = 'Link &Tables'
    Window.CaptionMain = 'Shazam Report Wizard'
    Window.CaptionPreview = '&Preview Report'
    Window.CaptionQuery = 'Define Sea&rch'
    Window.LinksShareQueryTab = True
    Window.IsChild = False
    Window.IsModal = False
    Window.MenuEdit = [srwEditAddField, srwEditAddTable, srwEditCutCopyPaste, srwEditDeleteField, srwEditDeleteTable, srwEditDeleteLink, srwEditFieldProperties, srwEditSetupReport, srwEditVisible]
    Window.MenuFile = [srwFileExport, srwFileNew, srwFileOpen, srwFilePrint, srwFileSave, srwFileVisible]
    Window.MenuHelp = [srwHelpContents, srwHelpSearch, srwHelpAbout, srwHelpVisible]
    Window.MenuView = [srwViewAlias, srwViewCode, srwViewLayout, srwViewLink, srwViewPages, srwViewPreview, srwViewQuery, srwViewVisible]
    Window.PreviewMode = srwPreviewGrid
    Window.Visible = True
    Window.State = wsNormal
    Window.ShowToolbar = True
    OnBeforePrint = SRWBeforePrint
    OnBeforeReport = SRWBeforeReport
    Left = 513
    Top = 69
  end
  object PUZoomMenu: TRxPopupMenu
    LeftMargin = 30
    Style = msOwnerDraw
    OnDrawMargin = PUZoomMenuDrawMargin
    Left = 572
    Top = 71
    object puiTD: TMenuItem
      Caption = 'Transaction Details'
      OnClick = puiTDClick
    end
    object puiDED: TMenuItem
      Caption = 'Double Entry Distribution'
      OnClick = puiDEDClick
    end
    object puiCST: TMenuItem
      Caption = 'Customer/Supplier Transaction'
      OnClick = puiCSTClick
    end
    object puiOD: TMenuItem
      Caption = 'Original Document'
      OnClick = puiODClick
    end
    object puiVATBD: TMenuItem
      Caption = 'VAT Breakdown'
      OnClick = puiVATBDClick
    end
  end
  object dsNomTrans: TwwDataSource
    DataSet = taNomTrans
    Left = 659
    Top = 131
  end
  object pmRClick: TRxPopupMenu
    OnPopup = pmRClickPopup
    Style = msOwnerDraw
    ShowCheckMarks = False
    OnGetItemParams = pmRClickGetItemParams
    Left = 543
    Top = 71
    object pmiTD: TMenuItem
      Caption = 'Transaction Details'
      OnClick = puiTDClick
    end
    object pmiDED: TMenuItem
      Caption = 'Double Entry '
      OnClick = puiDEDClick
    end
    object pmiCST: TMenuItem
      Caption = 'Cust/Supp Transaction'
      OnClick = puiCSTClick
    end
    object pmiOD: TMenuItem
      Caption = 'Original Document'
      OnClick = puiODClick
    end
    object pmiVATBD: TMenuItem
      Caption = 'VAT Breakdown'
      OnClick = puiVATBDClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object pmPrint: TMenuItem
      Caption = 'Print'
      OnClick = BtnPrintClick
    end
    object pmEmail: TMenuItem
      Caption = 'Email'
      OnClick = BtnEmailClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object pmiUndo: TMenuItem
      Caption = 'Undo Transaction'
      OnClick = pmiUndoClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object pmiGridColor: TMenuItem
      Caption = 'Change Grid Colour'
      OnClick = pmiGridColorClick
    end
  end
  object taNomTrans: TwwQuery
    AfterScroll = taNomTransAfterScroll
    OnCalcFields = taNomTransCalcFields
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'select * from nomtrans '
      
        'where (postvalue <> 0) and (tarnsdate >= :STDATE) and (tarnsdate' +
        ' <= :FINDATE) and'
      '            (nomref >= :STNOM) and (nomref <= :FINNOM) '
      '         ')
    Params.Data = {
      0100040006535444415445000904005A950A0000000746494E44415445000904
      005A950A0000000553544E4F4D00010200300000000646494E4E4F4D00010200
      30000000}
    ControlType.Strings = (
      'RECONBANK;CheckBox;Yes;No'
      'RECONVAT;CheckBox;Yes;No')
    ValidateWithMask = True
    Left = 662
    Top = 104
    object taNomTransLONGMOD: TStringField
      DisplayLabel = 'Transaction Type'
      DisplayWidth = 20
      FieldName = 'LONGMOD'
      Calculated = True
    end
    object taNomTransNOMREF: TStringField
      DisplayLabel = 'Account '
      DisplayWidth = 10
      FieldName = 'NOMREF'
      Origin = '"NomTrans.DBF".NOMREF'
      Size = 10
    end
    object taNomTransTARNSDATE: TDateField
      DisplayLabel = 'Date'
      DisplayWidth = 10
      FieldName = 'TARNSDATE'
      Origin = '"NomTrans.DBF".TARNSDATE'
    end
    object taNomTransTRANSREF: TStringField
      DisplayLabel = 'Ref.'
      DisplayWidth = 10
      FieldName = 'TRANSREF'
      Origin = '"NomTrans.DBF".TRANSREF'
      Size = 10
    end
    object taNomTransDETAILS: TStringField
      DisplayLabel = 'Details'
      DisplayWidth = 25
      FieldName = 'DETAILS'
      Origin = '"NomTrans.DBF".DETAILS'
      Size = 30
    end
    object taNomTransPOSTVALUE: TFloatField
      DisplayLabel = 'Total'
      DisplayWidth = 10
      FieldName = 'POSTVALUE'
      Origin = '"NomTrans.DBF".POSTVALUE'
      DisplayFormat = '0.00'
    end
    object taNomTransDEBIT: TFloatField
      DisplayLabel = 'Debit'
      DisplayWidth = 13
      FieldName = 'DEBIT'
      DisplayFormat = '0.00'
      Calculated = True
    end
    object taNomTransCREDIT: TFloatField
      DisplayLabel = 'Credit'
      DisplayWidth = 13
      FieldName = 'CREDIT'
      DisplayFormat = '0.00'
      Calculated = True
    end
    object taNomTransNATVALUE: TFloatField
      DisplayLabel = 'Trans. Net~Value'
      DisplayWidth = 10
      FieldName = 'NATVALUE'
      Origin = '"NomTrans.DBF".NATVALUE'
      DisplayFormat = '0.00'
    end
    object taNomTransVATVALUE: TFloatField
      DisplayLabel = 'Trans. VAT~Value'
      DisplayWidth = 10
      FieldName = 'VATVALUE'
      Origin = '"NomTrans.DBF".VATVALUE'
      DisplayFormat = '0.00'
    end
    object taNomTransTOTALVALUE: TFloatField
      DisplayLabel = 'Trans. Total~Value'
      DisplayWidth = 10
      FieldName = 'TOTALVALUE'
      Origin = '"NomTrans.DBF".TOTALVALUE'
      DisplayFormat = '0.00'
    end
    object taNomTransBALANCE: TFloatField
      DisplayLabel = 'Balance~Forward'
      DisplayWidth = 13
      FieldName = 'BALANCE'
      Origin = '"NomTrans.DBF".BALANCE'
      DisplayFormat = '0.00'
    end
    object taNomTransRECONBANK: TBooleanField
      DisplayLabel = 'Bank~Reconciled'
      DisplayWidth = 5
      FieldName = 'RECONBANK'
      Origin = '"NomTrans.DBF".RECONBANK'
    end
    object taNomTransRECONVAT: TBooleanField
      DisplayLabel = 'VAT~Reconciled'
      DisplayWidth = 5
      FieldName = 'RECONVAT'
      Origin = '"NomTrans.DBF".RECONVAT'
    end
    object taNomTransVATCODE: TStringField
      DisplayLabel = 'VC'
      DisplayWidth = 1
      FieldName = 'VATCODE'
      Origin = '"NomTrans.DBF".VATCODE'
      Visible = False
      Size = 1
    end
    object taNomTransTRANSNO: TFloatField
      FieldName = 'TRANSNO'
      Origin = '"NomTrans.DBF".TRANSNO'
      Visible = False
    end
    object taNomTransTTRANSNO: TFloatField
      FieldName = 'TTRANSNO'
      Origin = '"NomTrans.DBF".TTRANSNO'
      Visible = False
    end
    object taNomTransTRANSTYPE: TStringField
      FieldName = 'TRANSTYPE'
      Origin = '"NomTrans.DBF".TRANSTYPE'
      Visible = False
      Size = 8
    end
    object taNomTransGROUPREF: TStringField
      FieldName = 'GROUPREF'
      Origin = '"NomTrans.DBF".GROUPREF'
      Visible = False
      Size = 10
    end
    object taNomTransPOSTTYPE: TStringField
      FieldName = 'POSTTYPE'
      Origin = '"NomTrans.DBF".POSTTYPE'
      Visible = False
      Size = 1
    end
    object taNomTransMODULE: TStringField
      FieldName = 'MODULE'
      Origin = '"NomTrans.DBF".MODULE'
      Visible = False
      Size = 1
    end
    object taNomTransPAYMENT: TFloatField
      FieldName = 'PAYMENT'
      Origin = '"NomTrans.DBF".PAYMENT'
      Visible = False
    end
    object taNomTransHTRANSNO: TFloatField
      FieldName = 'HTRANSNO'
      Origin = '"NomTrans.DBF".HTRANSNO'
      Visible = False
    end
    object taNomTransVATCACHE: TFloatField
      FieldName = 'VATCACHE'
      Origin = '"NomTrans.DBF".VATCACHE'
      Visible = False
    end
    object taNomTransTRANLINK: TFloatField
      FieldName = 'TRANLINK'
      Origin = '"NomTrans.DBF".TRANLINK'
      Visible = False
    end
  end
  object taNTSumm1: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'select sum(postvalue) from nomtrans'
      
        'where (postvalue <> 0) and (posttype = '#39'D'#39') and (tarnsdate >= :S' +
        'TDATE) and '
      '            (tarnsdate <= :FINDATE) and (nomref >= :STNOM) and '
      '           (nomref <= :FINNOM) ')
    Params.Data = {
      0100040006535444415445000904005A950A0000000746494E44415445000904
      005A950A0000000553544E4F4D00010200300000000646494E4E4F4D00010200
      30000000}
    ValidateWithMask = True
    Left = 636
    Top = 69
    object taNTSumm1SUM_OF_POS: TFloatField
      FieldName = 'SUM_OF_POS'
    end
  end
  object taNTSumm2: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'select sum(postvalue) from nomtrans'
      
        'where (postvalue <> 0) and (posttype = '#39'C'#39') and (tarnsdate >= :S' +
        'TDATE) and '
      '            (tarnsdate <= :FINDATE) and (nomref >= :STNOM) and '
      '           (nomref <= :FINNOM) ')
    Params.Data = {
      0100040006535444415445000904005A950A0000000746494E44415445000904
      005A950A0000000553544E4F4D00010200300000000646494E4E4F4D00010200
      30000000}
    ValidateWithMask = True
    Left = 666
    Top = 69
    object taNTSumm2SUM_OF_POS: TFloatField
      FieldName = 'SUM_OF_POS'
    end
  end
  object pmOptions: TRxPopupMenu
    OnPopup = pmOptionsPopup
    LeftMargin = 20
    Style = msOwnerDraw
    ShowCheckMarks = False
    Left = 502
    Top = 213
    object pmiUndoTrans: TMenuItem
      Caption = 'Undo Transaction'
      OnClick = pmiUndoClick
    end
  end
end