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

Text File | 1999-06-21 | 17KB | 714 lines

object fmRefund: TfmRefund
  Left = 58
  Top = 81
  AutoScroll = False
  Caption = 'Refund'
  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
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  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 = 52
      Width = 79
      Height = 16
      Caption = 'Customer Ref'
    end
    object Label3: TLabel
      Left = 8
      Top = 90
      Width = 71
      Height = 16
      Caption = 'Refund Date'
    end
    object Label4: TLabel
      Left = 8
      Top = 128
      Width = 63
      Height = 16
      Caption = 'Refund Ref'
    end
    object Label5: TLabel
      Left = 220
      Top = 16
      Width = 102
      Height = 16
      Caption = 'Bank/Cash Name'
    end
    object lbCustName: TLabel
      Left = 220
      Top = 52
      Width = 94
      Height = 16
      Caption = 'Customer Name'
    end
    object Label7: TLabel
      Left = 220
      Top = 128
      Width = 89
      Height = 16
      Caption = 'Refund Amount'
    end
    object Label8: TLabel
      Left = 220
      Top = 90
      Width = 91
      Height = 16
      Caption = 'Refund Balance'
    end
    object Label10: TLabel
      Left = 552
      Top = 11
      Width = 47
      Height = 16
      Caption = 'Balance'
    end
    object Label11: TLabel
      Left = 552
      Top = 35
      Width = 42
      Height = 16
      Caption = 'Current'
    end
    object Label12: TLabel
      Left = 552
      Top = 59
      Width = 48
      Height = 16
      Caption = '30 Days'
    end
    object Label14: TLabel
      Left = 552
      Top = 107
      Width = 48
      Height = 16
      Caption = '90 Days'
    end
    object Label13: TLabel
      Left = 552
      Top = 83
      Width = 48
      Height = 16
      Caption = '60 Days'
    end
    object Label15: TLabel
      Left = 552
      Top = 131
      Width = 31
      Height = 16
      Caption = 'Older'
    end
    object EPayRef: TEdit
      Left = 100
      Top = 124
      Width = 109
      Height = 24
      HelpContext = 178
      TabOrder = 3
    end
    object ECustName: TEdit
      Left = 332
      Top = 48
      Width = 205
      Height = 24
      TabStop = False
      Ctl3D = True
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 5
    end
    object DBEPaymentBal: TCurrencyEdit
      Left = 332
      Top = 86
      Width = 80
      Height = 22
      HelpContext = 489
      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 = 124
      Width = 100
      Height = 24
      HelpContext = 205
      AutoSize = False
      ClickKey = 16451
      DisplayFormat = '0.00'
      NumGlyphs = 2
      TabOrder = 4
      OnEnter = DBEPaymentAmountEnter
      OnExit = DBEPaymentAmountExit
    end
    object DBCBBankCashAcc: TwwDBLookupCombo
      Left = 100
      Top = 12
      Width = 109
      Height = 24
      HelpContext = 203
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'NOMACC'#9'10'#9'Bank Ref.'
        'NOMNAME'#9'30'#9'Name')
      LookupTable = taCashBank
      LookupField = 'NOMACC'
      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 = 7
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object DBCDlgDate: TDateEdit
      Left = 100
      Top = 86
      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 = 100
      Top = 48
      Width = 109
      Height = 24
      HelpContext = 204
      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 = 8
    end
    object DBECurrent: TCurrencyEdit
      Left = 606
      Top = 34
      Width = 80
      Height = 22
      TabStop = False
      AutoSize = False
      DisplayFormat = '0.00'
      ParentColor = True
      ReadOnly = True
      TabOrder = 9
    end
    object DBE30Days: TCurrencyEdit
      Left = 606
      Top = 57
      Width = 80
      Height = 22
      TabStop = False
      AutoSize = False
      DisplayFormat = '0.00'
      ParentColor = True
      ReadOnly = True
      TabOrder = 10
    end
    object DBE60Days: TCurrencyEdit
      Left = 606
      Top = 79
      Width = 80
      Height = 22
      TabStop = False
      AutoSize = False
      DisplayFormat = '0.00'
      ParentColor = True
      ReadOnly = True
      TabOrder = 11
    end
    object DBE90Days: TCurrencyEdit
      Left = 606
      Top = 102
      Width = 80
      Height = 22
      TabStop = False
      AutoSize = False
      DisplayFormat = '0.00'
      ParentColor = True
      ReadOnly = True
      TabOrder = 12
    end
    object DBEOlder: TCurrencyEdit
      Left = 606
      Top = 124
      Width = 80
      Height = 22
      TabStop = False
      AutoSize = False
      DisplayFormat = '0.00'
      ParentColor = True
      ReadOnly = True
      TabOrder = 13
    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'
        'TRANSDATE'#9'10'#9'Date'#9'F'
        'INVREF'#9'10'#9'Trans~Reference'#9'F'
        'DETAILS'#9'27'#9'Details'#9'No'
        'TOTAL'#9'10'#9'Total~Paid'#9'No'
        'PAYMENT'#9'10'#9'Refund'#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
      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 refund'
      Enabled = False
      Hint = 'Save the refund|'
      Spacing = 1
      Left = 3
      Top = 3
      Visible = True
      OnClick = BtnSaveClick
      SectionName = 'Payment'
    end
    object BtnAbandon: TSpeedItem
      BtnCaption = '&Abandon'
      Caption = 'Abandon the refund'
      Enabled = False
      Hint = 'Abandon the refund|'
      Spacing = 1
      Left = 78
      Top = 3
      Visible = True
      OnClick = BtnAbandonClick
      SectionName = 'Payment'
    end
    object BtnFull: TSpeedItem
      BtnCaption = '&Full'
      Caption = 'Fully refund this transaction'
      Enabled = False
      Hint = 'Fully refund this transaction|'
      Spacing = 1
      Left = 153
      Top = 3
      Visible = True
      OnClick = BtnFullClick
      SectionName = 'Payment'
    end
    object BtnUndo: TSpeedItem
      BtnCaption = '&Undo'
      Caption = 'Undo the refund on this transaction'
      Enabled = False
      Hint = 'Undo the refund on this transaction|'
      Spacing = 1
      Left = 228
      Top = 3
      Visible = True
      OnClick = BtnUndoClick
      SectionName = 'Payment'
    end
    object BtnAuto: TSpeedItem
      BtnCaption = 'Au&to'
      Caption = 'Refund transactions automatically'
      Enabled = False
      Hint = 'Refund transactions automatically|'
      Spacing = 1
      Left = 303
      Top = 3
      Visible = True
      OnClick = BtnAutoClick
      SectionName = 'Payment'
    end
    object BtnUndoAll: TSpeedItem
      BtnCaption = 'U&ndo All'
      Caption = 'Undo refunds on all transactions'
      Enabled = False
      Hint = 'Undo refunds on all transactions|'
      Spacing = 1
      Left = 378
      Top = 3
      Visible = True
      OnClick = BtnUndoAllClick
      SectionName = 'Payment'
    end
    object BtnCheque: TSpeedItem
      BtnCaption = 'Cheque'
      Caption = 'Write Cheque'
      Hint = 'Write Cheque|'
      Spacing = 1
      Left = 453
      Top = 3
      OnClick = BtnChequeClick
      SectionName = 'Payment'
    end
    object BtnClose: TSpeedItem
      BtnCaption = '&Close'
      Caption = 'Close the refund window'
      Hint = 'Close the refund window|'
      Spacing = 1
      Left = 528
      Top = 3
      Visible = True
      OnClick = BtnCloseClick
      SectionName = 'Payment'
    end
    object btnHelp: TSpeedItem
      BtnCaption = '&Help'
      Caption = 'View full help on this window'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
        888888888E6648888888888888E6688888888888888888888888888888446888
        8888888886664888888888888E664888888888888E6664888888888888E66648
        88888888888E6664888888844888E6664888886664888E66488888E666444666
        4888888E6666666668888888EE6666668888888888EEEEE88888}
      Hint = 'View full help on this window|'
      Spacing = 1
      Left = 453
      Top = 3
      Visible = True
      OnClick = btnHelpClick
      SectionName = 'Payment'
    end
  end
  object dsTempPayment: TwwDataSource
    DataSet = taTempPayment
    Left = 148
    Top = 335
  end
  object taTempPayment: TwwTable
    BeforeScroll = taTempPaymentBeforeScroll
    AfterScroll = taTempPaymentAfterScroll
    OnCalcFields = taTempPaymentCalcFields
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 142
    Top = 271
    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~Refrence'
      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 taTempPaymentONQUERY: TBooleanField
      FieldName = 'ONQUERY'
      Visible = False
    end
    object taTempPaymentBalance: TFloatField
      DisplayWidth = 10
      FieldName = 'Balance'
      DisplayFormat = '0.00'
      Calculated = True
    end
  end
  object taTempTrans: TwwTable
    DatabaseName = 'EmpireBuilder'
    IndexName = 'TRANSNO'
    TableName = 'Trans.DBF'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 308
    Top = 270
    object taTempTransTRANSNO: TFloatField
      FieldName = 'TRANSNO'
    end
    object taTempTransACCREF: TStringField
      FieldName = 'ACCREF'
      Size = 10
    end
    object taTempTransTRANSTYPE: TStringField
      FieldName = 'TRANSTYPE'
      Size = 8
    end
    object taTempTransTRANSDATE: TDateField
      FieldName = 'TRANSDATE'
    end
    object taTempTransINVREF: TStringField
      FieldName = 'INVREF'
      Size = 10
    end
    object taTempTransDETAILS: TStringField
      FieldName = 'DETAILS'
      Size = 30
    end
    object taTempTransNETVALUE: TFloatField
      DisplayLabel = 'Nett'
      DisplayWidth = 10
      FieldName = 'NETVALUE'
      DisplayFormat = '0.00'
      Precision = 2
    end
    object taTempTransVATVALUE: TFloatField
      DisplayLabel = 'VAT'
      DisplayWidth = 10
      FieldName = 'VATVALUE'
      DisplayFormat = '0.00'
      Precision = 2
    end
    object taTempTransTOTAL: TFloatField
      DisplayLabel = 'Total'
      DisplayWidth = 10
      FieldName = 'TOTAL'
      DisplayFormat = '0.00'
      Precision = 2
    end
    object taTempTransPAYMENT: TFloatField
      FieldName = 'PAYMENT'
    end
    object taTempTransBALANCE: TFloatField
      DisplayLabel = 'Balance'
      DisplayWidth = 10
      FieldName = 'BALANCE'
      DisplayFormat = '0.00'
      Precision = 2
    end
    object taTempTransQUERY: TBooleanField
      FieldName = 'QUERY'
    end
    object taTempTransMODULE: TStringField
      FieldName = 'MODULE'
      Size = 1
    end
    object taTempTransQUERYMEMO: TMemoField
      FieldName = 'QUERYMEMO'
      BlobType = ftMemo
      Size = 1
    end
    object taTempTransREFUND: TFloatField
      FieldName = 'REFUND'
    end
  end
  object taCashBank: TwwTable
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 28
    Top = 278
  end
  object dsCashBank: TwwDataSource
    DataSet = taCashBank
    Left = 28
    Top = 342
  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 = 496
    Top = 157
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      706)
    OriginalFormHeight = (
      459)
    OriginalFormLeft = (
      58)
    OriginalFormTop = (
      81)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      698)
    OriginalClientHeight = (
      432)
  end
end