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

Text File | 1999-06-21 | 9KB | 405 lines

object fmConvertInvoice: TfmConvertInvoice
  Left = 291
  Top = 96
  HelpContext = 470
  AutoScroll = False
  Caption = 'Invoice Conversion'
  ClientHeight = 409
  ClientWidth = 341
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 364
    Width = 341
    Height = 45
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object BtnOk: TBitBtn
      Left = 8
      Top = 7
      Width = 75
      Height = 30
      Hint = 'Confirm conversion to create new invoice'
      Caption = 'C&onvert'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BtnOkClick
      NumGlyphs = 2
    end
    object BtnCancel: TBitBtn
      Left = 100
      Top = 7
      Width = 75
      Height = 30
      Cancel = True
      Caption = '&Cancel'
      ModalResult = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BtnCancelClick
      NumGlyphs = 2
    end
    object btnHelp: TButton
      Left = 260
      Top = 7
      Width = 75
      Height = 30
      Caption = '&Help'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = btnHelpClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 341
    Height = 364
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Bevel1: TBevel
      Left = 4
      Top = 4
      Width = 333
      Height = 125
      Shape = bsFrame
    end
    object Label1: TLabel
      Left = 12
      Top = 16
      Width = 190
      Height = 16
      Caption = 'Transaction No. To Convert From'
    end
    object Label2: TLabel
      Left = 12
      Top = 44
      Width = 146
      Height = 16
      Caption = 'Invoice No. To Convert To'
    end
    object Label3: TLabel
      Left = 12
      Top = 72
      Width = 99
      Height = 16
      Caption = 'New Invoice Date'
    end
    object Label4: TLabel
      Left = 12
      Top = 100
      Width = 116
      Height = 16
      Caption = 'Customer Order No.'
    end
    object GroupBox1: TGroupBox
      Left = 4
      Top = 136
      Width = 333
      Height = 165
      Caption = 'Payment'
      TabOrder = 4
      object Label5: TLabel
        Left = 8
        Top = 48
        Width = 99
        Height = 16
        Caption = 'Payment Method'
      end
      object Label6: TLabel
        Left = 8
        Top = 136
        Width = 101
        Height = 16
        Caption = 'Payment Amount'
      end
      object Label51: TLabel
        Left = 8
        Top = 77
        Width = 57
        Height = 16
        Caption = 'Bank Ref.'
      end
      object Label9: TLabel
        Left = 8
        Top = 106
        Width = 71
        Height = 16
        Caption = 'Invoice Total'
      end
      object CBPayNow: TCheckBox
        Left = 8
        Top = 20
        Width = 213
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 474
        Alignment = taLeftJustify
        Caption = '&Pay Invoice Now'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = CBPayNowClick
      end
      object DBCBPayMethod: TwwDBComboBox
        Left = 208
        Top = 44
        Width = 100
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 475
        ShowButton = True
        Style = csDropDown
        MapList = False
        AllowClearKey = False
        DropDownCount = 8
        Enabled = False
        ItemHeight = 0
        Items.Strings = (
          'Account'
          'Cash'
          'Bank')
        ParentShowHint = False
        ShowHint = True
        Sorted = False
        TabOrder = 1
        UnboundDataType = wwDefault
        OnChange = DBCBPayMethodChange
        OnExit = DBCBPayMethodExit
      end
      object DBCBBankCashAcc: TwwDBLookupCombo
        Left = 208
        Top = 73
        Width = 100
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 440
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'NOMACC'#9'10'#9'Bank Ref.'
          'NOMNAME'#9'30'#9'Bank Name')
        LookupTable = taCashBank
        LookupField = 'NOMACC'
        Options = [loColLines, loTitles]
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        AutoDropDown = False
        ShowButton = True
        AllowClearKey = False
        OnChange = DBCBBankCashAccChange
        OnExit = DBCBBankCashAccExit
        OnNotInList = DBCBBankCashAccNotInList
      end
      object CEInvoiceTotal: TCurrencyEdit
        Left = 208
        Top = 102
        Width = 100
        Height = 24
        TabStop = False
        AutoSize = False
        Ctl3D = True
        DisplayFormat = '0.00'
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 3
      end
      object EPayAmount: TRxCalcEdit
        Left = 208
        Top = 132
        Width = 100
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 441
        AutoSize = False
        ClickKey = 16451
        DisplayFormat = '0.00'
        Enabled = False
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnChange = EPayAmountChange
        OnExit = EPayAmountExit
      end
    end
    object ECustOrdNo: TEdit
      Left = 212
      Top = 96
      Width = 121
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 473
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
    end
    object EConvTo: TCurrencyEdit
      Left = 212
      Top = 40
      Width = 100
      Height = 24
      TabStop = False
      AutoSize = False
      Ctl3D = True
      DisplayFormat = '0'
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 1
    end
    object DBCDlgDate: TDateEdit
      Left = 212
      Top = 68
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 472
      ClickKey = 16452
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 2
      OnChange = DBCDlgDateChange
      OnExit = DBCDlgDateExit
    end
    object DBCDlgConvFrom: TComboEdit
      Left = 212
      Top = 12
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 471
      ClickKey = 16467
      ButtonWidth = 24
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnButtonClick = DBCDlgConvFromButtonClick
      OnChange = DBCDlgConvFromChange
      OnEnter = DBCDlgConvFromEnter
      OnExit = DBCDlgConvFromExit
    end
    object Panel3: TPanel
      Left = 2
      Top = 304
      Width = 337
      Height = 58
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 5
      object Label7: TLabel
        Left = 8
        Top = 26
        Width = 312
        Height = 12
        Caption = 'If you need to make changes to the new invoice do not select to'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -10
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 8
        Top = 38
        Width = 57
        Height = 12
        Caption = 'post it now.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -10
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object CBPostNow: TCheckBox
        Left = 8
        Top = 9
        Width = 213
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 476
        Alignment = taLeftJustify
        Caption = 'P&ost Now'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
    end
  end
  object taCashBank: TwwTable
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 148
    Top = 190
  end
  object dsCashBank: TwwDataSource
    DataSet = taCashBank
    Left = 136
    Top = 222
  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 = 116
    Top = 188
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      349)
    OriginalFormHeight = (
      436)
    OriginalFormLeft = (
      291)
    OriginalFormTop = (
      96)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      341)
    OriginalClientHeight = (
      409)
  end
end