Computer Buyer 1999 September/Dpcb0999.iso/Business/Empire/_SETUP.1/EmpireBuilder.exe/0/RCDATA/TFMPAYMENTS/TFMPAYMENTS.txt

Text File | 1999-06-21 | 22KB | 882 lines

object fmPayments: TfmPayments
  Left = 64
  Top = 108
  HelpContext = 189
  AutoScroll = False
  Caption = 'Payments'
  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 Panel3: TPanel
    Left = 0
    Top = 49
    Width = 698
    Height = 161
    Align = alTop
    TabOrder = 0
    object Bevel3: TBevel
      Left = 544
      Top = 4
      Width = 149
      Height = 149
      Shape = bsFrame
    end
    object Bevel2: TBevel
      Left = 4
      Top = 4
      Width = 209
      Height = 149
      Shape = bsFrame
    end
    object Bevel1: TBevel
      Left = 216
      Top = 4
      Width = 325
      Height = 149
      Shape = bsFrame
    end
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 87
      Height = 16
      Caption = 'Bank/Cash Ref'
    end
    object lbCustRef: TLabel
      Left = 8
      Top = 44
      Width = 79
      Height = 16
      Caption = 'Customer Ref'
    end
    object Label3: TLabel
      Left = 8
      Top = 72
      Width = 83
      Height = 16
      Caption = 'Payment Date'
    end
    object Label4: TLabel
      Left = 8
      Top = 100
      Width = 75
      Height = 16
      Caption = 'Payment Ref'
    end
    object Label5: TLabel
      Left = 220
      Top = 16
      Width = 102
      Height = 16
      Caption = 'Bank/Cash Name'
    end
    object lbCustName: TLabel
      Left = 220
      Top = 44
      Width = 94
      Height = 16
      Caption = 'Customer Name'
    end
    object Label7: TLabel
      Left = 220
      Top = 100
      Width = 101
      Height = 16
      Caption = 'Payment Amount'
    end
    object Label8: TLabel
      Left = 220
      Top = 72
      Width = 103
      Height = 16
      Caption = 'Payment Balance'
    end
    object Label10: TLabel
      Left = 552
      Top = 15
      Width = 47
      Height = 16
      Caption = 'Balance'
    end
    object Label11: TLabel
      Left = 552
      Top = 37
      Width = 42
      Height = 16
      Caption = 'Current'
    end
    object Label12: TLabel
      Left = 552
      Top = 60
      Width = 48
      Height = 16
      Caption = '30 Days'
    end
    object Label14: TLabel
      Left = 552
      Top = 105
      Width = 48
      Height = 16
      Caption = '90 Days'
    end
    object Label13: TLabel
      Left = 552
      Top = 82
      Width = 48
      Height = 16
      Caption = '60 Days'
    end
    object Label15: TLabel
      Left = 552
      Top = 127
      Width = 31
      Height = 16
      Caption = 'Older'
    end
    object Label2: TLabel
      Left = 220
      Top = 127
      Width = 51
      Height = 16
      Caption = 'Discount'
    end
    object EPayRef: TEdit
      Left = 102
      Top = 96
      Width = 107
      Height = 24
      HelpContext = 178
      TabOrder = 3
    end
    object ECustName: TEdit
      Left = 332
      Top = 40
      Width = 205
      Height = 24
      TabStop = False
      Ctl3D = True
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 5
    end
    object DBEPaymentBal: TCurrencyEdit
      Left = 332
      Top = 68
      Width = 80
      Height = 22
      HelpContext = 193
      TabStop = False
      AutoSize = False
      Ctl3D = True
      DisplayFormat = '0.00;-0.00'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 6
      OnChange = DBEPaymentBalChange
    end
    object DBEPaymentAmount: TRxCalcEdit
      Left = 332
      Top = 96
      Width = 100
      Height = 24
      HelpContext = 192
      AutoSize = False
      ClickKey = 16451
      DisplayFormat = '0.00'
      NumGlyphs = 2
      TabOrder = 4
      OnEnter = DBEPaymentAmountEnter
      OnExit = DBEPaymentAmountExit
    end
    object CETotalDiscount: TCurrencyEdit
      Left = 332
      Top = 126
      Width = 80
      Height = 22
      HelpContext = 194
      TabStop = False
      AutoSize = False
      Ctl3D = True
      DisplayFormat = '0.00'
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 7
    end
    object DBCBBankCashAcc: TwwDBLookupCombo
      Left = 102
      Top = 12
      Width = 107
      Height = 24
      HelpContext = 190
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'NOMACC'#9'10'#9'Bank Ref.'
        'NOMNAME'#9'30'#9'Name')
      LookupTable = taCashBank
      LookupField = 'NOMACC'
      Options = [loColLines, loTitles]
      TabOrder = 0
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object EBankName: TwwDBEdit
      Left = 332
      Top = 12
      Width = 205
      Height = 24
      TabStop = False
      Ctl3D = True
      DataField = 'NOMNAME'
      DataSource = dsCashBank
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 8
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object DBCDlgDate: TDateEdit
      Left = 102
      Top = 68
      Width = 100
      Height = 24
      HelpContext = 180
      ClickKey = 16452
      NumGlyphs = 2
      CalendarStyle = csDialog
      YearDigits = dyFour
      TabOrder = 2
      OnButtonClick = DBCDlgDateButtonClick
      OnEnter = DBCDlgDateEnter
      OnExit = DBCDlgDateExit
    end
    object DBCDlgCustRef: TComboEdit
      Left = 102
      Top = 40
      Width = 107
      Height = 24
      HelpContext = 191
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      NumGlyphs = 1
      TabOrder = 1
      OnButtonClick = DBCDlgCustRefButtonClick
      OnEnter = DBCDlgCustRefEnter
      OnExit = DBCDlgCustRefExit
    end
    object DBEBalance: TCurrencyEdit
      Left = 606
      Top = 12
      Width = 80
      Height = 22
      TabStop = False
      AutoSize = False
      DisplayFormat = '0.00'
      ParentColor = True
      ReadOnly = True
      TabOrder = 9
    end
    object DBECurrent: TCurrencyEdit
      Left = 606
      Top = 34
      Width = 80
      Height = 22
      TabStop = False
      AutoSize = False
      DisplayFormat = '0.00'
      ParentColor = True
      ReadOnly = True
      TabOrder = 10
    end
    object DBE30Days: TCurrencyEdit
      Left = 606
      Top = 57
      Width = 80
      Height = 22
      TabStop = False
      AutoSize = False
      DisplayFormat = '0.00'
      ParentColor = True
      ReadOnly = True
      TabOrder = 11
    end
    object DBE60Days: TCurrencyEdit
      Left = 606
      Top = 79
      Width = 80
      Height = 22
      TabStop = False
      AutoSize = False
      DisplayFormat = '0.00'
      ParentColor = True
      ReadOnly = True
      TabOrder = 12
    end
    object DBE90Days: TCurrencyEdit
      Left = 606
      Top = 102
      Width = 80
      Height = 22
      TabStop = False
      AutoSize = False
      DisplayFormat = '0.00'
      ParentColor = True
      ReadOnly = True
      TabOrder = 13
    end
    object DBEOlder: TCurrencyEdit
      Left = 606
      Top = 124
      Width = 80
      Height = 22
      TabStop = False
      AutoSize = False
      DisplayFormat = '0.00'
      ParentColor = True
      ReadOnly = True
      TabOrder = 14
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 210
    Width = 698
    Height = 222
    Align = alClient
    Caption = 'Panel5'
    TabOrder = 1
    object wwDBGrid1: TwwDBGrid
      Left = 1
      Top = 1
      Width = 696
      Height = 220
      Selected.Strings = (
        'TRANSTYPE'#9'12'#9'Type'#9'T'
        'TRANSDATE'#9'10'#9'Date'#9'T'
        'INVREF'#9'10'#9'Trans~Reference'#9'T'
        'DETAILS'#9'29'#9'Details'#9'T'
        'TOTAL'#9'10'#9'Total'#9'T'
        'PAYMENT'#9'10'#9'Payment'#9'No'
        'Balance'#9'10'#9'Balance'#9'Yes')
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      EditControlOptions = [ecoSearchOwnerForm, ecoDisableDateTimePicker]
      Align = alClient
      Ctl3D = True
      DataSource = dsTempPayment
      KeyOptions = [dgEnterToTab]
      Options = [dgEditing, dgTitles, dgIndicator, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      ParentCtl3D = False
      PopupMenu = RCLinePopup
      TabOrder = 0
      TitleAlignment = taCenter
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      TitleLines = 2
      TitleButtons = True
      UseTFields = False
      OnCalcCellColors = wwDBGrid1CalcCellColors
      OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
      OnEnter = wwDBGrid1Enter
      OnExit = wwDBGrid1Exit
      OnKeyDown = wwDBGrid1KeyDown
      IndicatorColor = icBlack
      OnTopRowChanged = wwDBGrid1TopRowChanged
    end
  end
  object SpeedBar: TSpeedBar
    Left = 0
    Top = 0
    Width = 698
    Height = 49
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [sbFlatBtns, sbGrayedBtns, sbTransparentBtns]
    BtnOffsetHorz = 3
    BtnOffsetVert = 3
    BtnWidth = 75
    BtnHeight = 43
    TabOrder = 2
    InternalVer = 1
    object SpeedbarSection1: TSpeedbarSection
      Caption = 'Payment'
    end
    object BtnSave: TSpeedItem
      BtnCaption = '&Save'
      Caption = 'Save the payment'
      Enabled = False
      Hint = 'Save the payment|'
      Spacing = 1
      Left = 3
      Top = 3
      Visible = True
      OnClick = BtnSaveClick
      SectionName = 'Payment'
    end
    object BtnAbandon: TSpeedItem
      BtnCaption = '&Abandon'
      Caption = 'Abandon the payment'
      Enabled = False
      Hint = 'Abandon the payment|'
      Spacing = 1
      Left = 78
      Top = 3
      Visible = True
      OnClick = BtnAbandonClick
      SectionName = 'Payment'
    end
    object BtnFull: TSpeedItem
      BtnCaption = '&Full'
      Caption = 'Fully pay this transaction'
      Enabled = False
      Hint = 'Fully pay this transaction'
      Spacing = 1
      Left = 153
      Top = 3
      Visible = True
      OnClick = BtnFullClick
      SectionName = 'Payment'
    end
    object BtnDiscount: TSpeedItem
      BtnCaption = '&Discount'
      Caption = 'Discount an amount on this transaction'
      Enabled = False
      Hint = 'Discount an amount on this transaction'
      Spacing = 1
      Left = 228
      Top = 3
      Visible = True
      OnClick = BtnDiscountClick
      SectionName = 'Payment'
    end
    object BtnUndo: TSpeedItem
      BtnCaption = '&Undo'
      Caption = 'Undo the allocation on this transaction'
      Enabled = False
      Hint = 'Undo the allocation on this transaction'
      Spacing = 1
      Left = 303
      Top = 3
      Visible = True
      OnClick = BtnUndoClick
      SectionName = 'Payment'
    end
    object BtnAuto: TSpeedItem
      BtnCaption = 'Au&to'
      Caption = 'Allocate payment automatically'
      Enabled = False
      Hint = 'Allocate payment automatically'
      Spacing = 1
      Left = 378
      Top = 3
      Visible = True
      OnClick = BtnAutoClick
      SectionName = 'Payment'
    end
    object BtnUndoAll: TSpeedItem
      BtnCaption = 'U&ndo All'
      Caption = 'Undo allocations for all transactions|'
      Enabled = False
      Hint = 'Undo refunds on all transactions|'
      Spacing = 1
      Left = 453
      Top = 3
      Visible = True
      OnClick = BtnUndoAllClick
      SectionName = 'Payment'
    end
    object BtnCheque: TSpeedItem
      BtnCaption = 'Che&que'
      Caption = 'Write Cheque'
      Hint = 'Write Cheque|'
      Spacing = 1
      Left = 528
      Top = 3
      OnClick = BtnChequeClick
      SectionName = 'Payment'
    end
    object BtnClose: TSpeedItem
      BtnCaption = '&Close'
      Caption = 'Close this window'
      Spacing = 1
      Left = 603
      Top = 3
      Visible = True
      OnClick = BtnCloseClick
      SectionName = 'Payment'
    end
    object btnHelp: TSpeedItem
      BtnCaption = '&Help'
      Caption = 'Full help on this window'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
        888888888E6648888888888888E6688888888888888888888888888888446888
        8888888886664888888888888E664888888888888E6664888888888888E66648
        88888888888E6664888888844888E6664888886664888E66488888E666444666
        4888888E6666666668888888EE6666668888888888EEEEE88888}
      Spacing = 1
      Left = 528
      Top = 3
      Visible = True
      OnClick = btnHelpClick
      SectionName = 'Payment'
    end
  end
  object dsTempPayment: TwwDataSource
    DataSet = taTempPayment
    OnStateChange = dsTempPaymentStateChange
    Left = 172
    Top = 315
  end
  object taTempPayment: TwwTable
    BeforeScroll = taTempPaymentBeforeScroll
    AfterScroll = taTempPaymentAfterScroll
    OnCalcFields = taTempPaymentCalcFields
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 176
    Top = 251
    object taTempPaymentTRANSNO: TFloatField
      FieldName = 'TRANSNO'
      Visible = False
    end
    object taTempPaymentTRANSTYPE: TStringField
      DisplayLabel = 'Type'
      DisplayWidth = 12
      FieldName = 'TRANSTYPE'
      Size = 8
    end
    object taTempPaymentTRANSDATE: TDateField
      FieldName = 'TRANSDATE'
    end
    object taTempPaymentINVREF: TStringField
      DisplayLabel = 'Invoice~Reference'
      DisplayWidth = 12
      FieldName = 'INVREF'
      Size = 10
    end
    object taTempPaymentDETAILS: TStringField
      DisplayLabel = 'Details'
      DisplayWidth = 28
      FieldName = 'DETAILS'
      Size = 30
    end
    object taTempPaymentTOTAL: TFloatField
      DisplayLabel = 'Total'
      DisplayWidth = 10
      FieldName = 'TOTAL'
      DisplayFormat = '0.00'
    end
    object taTempPaymentPAYMENT: TFloatField
      DisplayLabel = 'Payment'
      DisplayWidth = 10
      FieldName = 'PAYMENT'
      DisplayFormat = '0.00'
    end
    object taTempPaymentDISCOUNT: TFloatField
      FieldName = 'DISCOUNT'
      Visible = False
      DisplayFormat = '0.00'
    end
    object taTempPaymentONQUERY: TBooleanField
      FieldName = 'ONQUERY'
      Visible = False
    end
    object taTempPaymentTERMS: TFloatField
      FieldName = 'TERMS'
    end
    object taTempPaymentBalance: TFloatField
      DisplayWidth = 10
      FieldName = 'Balance'
      DisplayFormat = '0.00'
      Calculated = True
    end
  end
  object taInsertTrans: TwwTable
    AfterInsert = taInsertTransAfterInsert
    AfterPost = taInsertTransAfterPost
    DatabaseName = 'EmpireBuilder'
    TableName = 'Trans.DBF'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 613
    Top = 254
    object taInsertTransTRANSNO: TFloatField
      FieldName = 'TRANSNO'
    end
    object taInsertTransACCREF: TStringField
      FieldName = 'ACCREF'
      Size = 10
    end
    object taInsertTransTRANSTYPE: TStringField
      FieldName = 'TRANSTYPE'
      Size = 8
    end
    object taInsertTransTRANSDATE: TDateField
      FieldName = 'TRANSDATE'
    end
    object taInsertTransINVREF: TStringField
      FieldName = 'INVREF'
      Size = 10
    end
    object taInsertTransDETAILS: TStringField
      FieldName = 'DETAILS'
      Size = 30
    end
    object taInsertTransNETVALUE: TFloatField
      FieldName = 'NETVALUE'
    end
    object taInsertTransVATVALUE: TFloatField
      FieldName = 'VATVALUE'
    end
    object taInsertTransTOTAL: TFloatField
      FieldName = 'TOTAL'
    end
    object taInsertTransPAYMENT: TFloatField
      FieldName = 'PAYMENT'
    end
    object taInsertTransBALANCE: TFloatField
      FieldName = 'BALANCE'
    end
    object taInsertTransQUERY: TBooleanField
      FieldName = 'QUERY'
    end
    object taInsertTransMODULE: TStringField
      FieldName = 'MODULE'
      Size = 1
    end
    object taInsertTransQUERYMEMO: TMemoField
      FieldName = 'QUERYMEMO'
      BlobType = ftMemo
      Size = 1
    end
    object taInsertTransTRANLINK: TFloatField
      FieldName = 'TRANLINK'
    end
    object taInsertTransTERMS: TSmallintField
      FieldName = 'TERMS'
    end
  end
  object taCashBank: TwwTable
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 32
    Top = 254
  end
  object dsCashBank: TwwDataSource
    DataSet = taCashBank
    Left = 28
    Top = 314
  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 = True
    Left = 480
    Top = 137
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      706)
    OriginalFormHeight = (
      459)
    OriginalFormLeft = (
      64)
    OriginalFormTop = (
      108)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      698)
    OriginalClientHeight = (
      432)
  end
  object RCLinePopup: TRxPopupMenu
    OnPopup = RCLinePopupPopup
    Style = msOwnerDraw
    ShowCheckMarks = False
    OnGetItemParams = RCLinePopupGetItemParams
    Left = 613
    Top = 308
    object pmSave: TMenuItem
      Caption = 'Save'
      OnClick = BtnSaveClick
    end
    object pmAbandon: TMenuItem
      Caption = 'Abandon'
      OnClick = BtnAbandonClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object pmFull: TMenuItem
      Caption = 'Full'
      OnClick = BtnFullClick
    end
    object pmDiscount: TMenuItem
      Caption = 'Discount'
      OnClick = BtnDiscountClick
    end
    object pmUndo: TMenuItem
      Caption = 'Undo'
      OnClick = BtnUndoClick
    end
    object pmAuto: TMenuItem
      Caption = 'Auto'
      OnClick = BtnAutoClick
    end
    object pmUndoAll: TMenuItem
      Caption = 'Undo All'
      OnClick = BtnUndoAllClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object pmChangeGridColour: TMenuItem
      Caption = 'Change Grid Colour'
      OnClick = pmChangeGridColourClick
    end
  end
  object qyTempTrans: TwwQuery
    DatabaseName = 'EmpireBuilder'
    RequestLive = True
    SQL.Strings = (
      'SELECT Trans.TRANSNO, Trans.ACCREF, Trans.TRANSTYPE,'
      '         Trans.TRANSDATE, Trans.INVREF, Trans.DETAILS,'
      '         Trans.NETVALUE, Trans.VATVALUE, Trans.TOTAL,'
      '         Trans.PAYMENT, Trans.BALANCE, Trans.QUERY,'
      '         Trans."MODULE", Trans.QUERYMEMO, Trans.TRANLINK'
      '    FROM Trans'
      '   WHERE (((Trans.ACCREF =:Accref)'
      '     AND (Trans.TRANSTYPE <> '#39'DISCOUNT'#39')'
      '     AND (Trans.PAYMENT < Trans.TOTAL)'
      '     AND (Trans."MODULE" =:Module)))')
    Params.Data = {
      01000200064163637265660001020030000000064D6F64756C65000102003000
      0000}
    ValidateWithMask = True
    Left = 496
    Top = 254
    object qyTempTransTRANSNO: TFloatField
      FieldName = 'TRANSNO'
      Origin = '"Trans.DBF".TRANSNO'
    end
    object qyTempTransACCREF: TStringField
      FieldName = 'ACCREF'
      Origin = '"Trans.DBF".ACCREF'
      Size = 10
    end
    object qyTempTransTRANSTYPE: TStringField
      FieldName = 'TRANSTYPE'
      Origin = '"Trans.DBF".TRANSTYPE'
      Size = 8
    end
    object qyTempTransTRANSDATE: TDateField
      FieldName = 'TRANSDATE'
      Origin = '"Trans.DBF".TRANSDATE'
    end
    object qyTempTransINVREF: TStringField
      FieldName = 'INVREF'
      Origin = '"Trans.DBF".INVREF'
      Size = 10
    end
    object qyTempTransDETAILS: TStringField
      FieldName = 'DETAILS'
      Origin = '"Trans.DBF".DETAILS'
      Size = 30
    end
    object qyTempTransNETVALUE: TFloatField
      FieldName = 'NETVALUE'
      Origin = '"Trans.DBF".NETVALUE'
    end
    object qyTempTransVATVALUE: TFloatField
      FieldName = 'VATVALUE'
      Origin = '"Trans.DBF".VATVALUE'
    end
    object qyTempTransTOTAL: TFloatField
      FieldName = 'TOTAL'
      Origin = '"Trans.DBF".TOTAL'
    end
    object qyTempTransPAYMENT: TFloatField
      FieldName = 'PAYMENT'
      Origin = '"Trans.DBF".PAYMENT'
    end
    object qyTempTransBALANCE: TFloatField
      FieldName = 'BALANCE'
      Origin = '"Trans.DBF".BALANCE'
    end
    object qyTempTransQUERY: TBooleanField
      FieldName = 'QUERY'
      Origin = '"Trans.DBF".QUERY'
    end
    object qyTempTransMODULE: TStringField
      FieldName = 'MODULE'
      Origin = '"Trans.DBF".MODULE'
      Size = 1
    end
    object qyTempTransQUERYMEMO: TMemoField
      FieldName = 'QUERYMEMO'
      Origin = '"Trans.DBF".QUERYMEMO'
      BlobType = ftMemo
      Size = 1
    end
    object qyTempTransTRANLINK: TFloatField
      FieldName = 'TRANLINK'
      Origin = '"Trans.DBF".TRANLINK'
    end
  end
end