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

Text File | 1999-06-21 | 12KB | 500 lines

object fmCopyInvoice: TfmCopyInvoice
  Left = 290
  Top = 150
  BorderStyle = bsSingle
  Caption = 'Copy Invoice'
  ClientHeight = 268
  ClientWidth = 321
  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 = 0
    Width = 321
    Height = 224
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Bevel1: TBevel
      Left = 4
      Top = 4
      Width = 313
      Height = 125
      Shape = bsFrame
    end
    object Label1: TLabel
      Left = 12
      Top = 16
      Width = 143
      Height = 16
      Caption = 'Transaction No. To Copy'
    end
    object Label2: TLabel
      Left = 12
      Top = 44
      Width = 83
      Height = 16
      Caption = 'Customer Ref.'
    end
    object Label3: TLabel
      Left = 12
      Top = 72
      Width = 127
      Height = 16
      Caption = 'New Transaction Date'
    end
    object Label4: TLabel
      Left = 12
      Top = 100
      Width = 116
      Height = 16
      Caption = 'Customer Order No.'
    end
    object ECustOrderNo: TEdit
      Left = 188
      Top = 92
      Width = 121
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 481
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
    end
    object DBCDlgDate: TDateEdit
      Left = 188
      Top = 64
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 480
      ClickKey = 16452
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 2
      OnEnter = DBCDlgDateEnter
      OnExit = DBCDlgDateExit
    end
    object DBCDlgInvNo: TComboEdit
      Left = 188
      Top = 8
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 478
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnButtonClick = DBCDlgInvNoButtonClick
      OnEnter = DBCDlgInvNoEnter
      OnExit = DBCDlgInvNoExit
    end
    object DBCDlgCustRef: TComboEdit
      Left = 188
      Top = 36
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 479
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnButtonClick = DBCDlgCustRefButtonClick
      OnEnter = DBCDlgCustRefEnter
      OnExit = DBCDlgCustRefExit
    end
    object GroupBox1: TGroupBox
      Left = 4
      Top = 136
      Width = 313
      Height = 85
      Caption = 'New Transaction Type'
      TabOrder = 4
      object RBInvoice: TRadioButton
        Left = 12
        Top = 24
        Width = 113
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 482
        Alignment = taLeftJustify
        Caption = 'Invoice'
        Checked = True
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        TabStop = True
        OnClick = RBInvoiceClick
      end
      object RBCreditNote: TRadioButton
        Left = 12
        Top = 52
        Width = 113
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 482
        Alignment = taLeftJustify
        Caption = 'Credit Note'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = RBCreditNoteClick
      end
      object RBProforma: TRadioButton
        Left = 180
        Top = 24
        Width = 113
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 482
        Alignment = taLeftJustify
        Caption = 'Proforma'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = RBProformaClick
      end
      object RBQuotation: TRadioButton
        Left = 180
        Top = 56
        Width = 113
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 482
        Alignment = taLeftJustify
        Caption = 'Quotation'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = RBQuotationClick
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 224
    Width = 321
    Height = 44
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object BtnCopy: TBitBtn
      Left = 8
      Top = 7
      Width = 75
      Height = 30
      Hint = 'Create transaction and copy details'
      Caption = 'C&opy'
      Default = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BtnCopyClick
    end
    object BtnCancel: TBitBtn
      Left = 88
      Top = 7
      Width = 75
      Height = 30
      Cancel = True
      Caption = '&Cancel'
      ModalResult = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      NumGlyphs = 2
    end
    object btnHelp: TButton
      Left = 237
      Top = 7
      Width = 75
      Height = 30
      Caption = '&Help'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = btnHelpClick
    end
  end
  object taTempInvoice1: TwwTable
    DatabaseName = 'EmpireBuilder'
    TableName = 'Invoice.DBF'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 221
    Top = 122
    object taTempInvoice1INVNO: TFloatField
      FieldName = 'INVNO'
    end
    object taTempInvoice1INVTYPE: TStringField
      FieldName = 'INVTYPE'
      Size = 11
    end
    object taTempInvoice1PAYTYPE: TStringField
      FieldName = 'PAYTYPE'
      Size = 8
    end
    object taTempInvoice1BANK: TStringField
      FieldName = 'BANK'
      Size = 10
    end
    object taTempInvoice1PAYAMOUNT: TFloatField
      FieldName = 'PAYAMOUNT'
    end
    object taTempInvoice1INVDATE: TDateField
      FieldName = 'INVDATE'
    end
    object taTempInvoice1ACREF: TStringField
      FieldName = 'ACREF'
      Size = 10
    end
    object taTempInvoice1NAME: TStringField
      FieldName = 'NAME'
      Size = 30
    end
    object taTempInvoice1ADDRESS1: TStringField
      FieldName = 'ADDRESS1'
      Size = 30
    end
    object taTempInvoice1ADDRESS2: TStringField
      FieldName = 'ADDRESS2'
      Size = 30
    end
    object taTempInvoice1ADDRESS3: TStringField
      FieldName = 'ADDRESS3'
      Size = 30
    end
    object taTempInvoice1ADDRESS4: TStringField
      FieldName = 'ADDRESS4'
      Size = 30
    end
    object taTempInvoice1TELNO: TStringField
      FieldName = 'TELNO'
      Size = 15
    end
    object taTempInvoice1DELNAME: TStringField
      FieldName = 'DELNAME'
      Size = 30
    end
    object taTempInvoice1DELADD1: TStringField
      FieldName = 'DELADD1'
      Size = 30
    end
    object taTempInvoice1DELADD2: TStringField
      FieldName = 'DELADD2'
      Size = 30
    end
    object taTempInvoice1DELADD3: TStringField
      FieldName = 'DELADD3'
      Size = 30
    end
    object taTempInvoice1DELADD4: TStringField
      FieldName = 'DELADD4'
      Size = 30
    end
    object taTempInvoice1DELTELNO: TStringField
      FieldName = 'DELTELNO'
      Size = 15
    end
    object taTempInvoice1CORDER: TStringField
      FieldName = 'CORDER'
      Size = 15
    end
    object taTempInvoice1NOTES: TMemoField
      FieldName = 'NOTES'
      BlobType = ftMemo
      Size = 1
    end
    object taTempInvoice1SETTDAYS: TSmallintField
      FieldName = 'SETTDAYS'
    end
    object taTempInvoice1SETTDISC: TFloatField
      FieldName = 'SETTDISC'
    end
    object taTempInvoice1ITEMSNETT: TFloatField
      FieldName = 'ITEMSNETT'
    end
    object taTempInvoice1ITEMSDISC: TFloatField
      FieldName = 'ITEMSDISC'
    end
    object taTempInvoice1ITEMSSUB: TFloatField
      FieldName = 'ITEMSSUB'
    end
    object taTempInvoice1ITEMSTAX: TFloatField
      FieldName = 'ITEMSTAX'
    end
    object taTempInvoice1ITEMSTOTAL: TFloatField
      FieldName = 'ITEMSTOTAL'
    end
    object taTempInvoice1CARRIAGE: TFloatField
      FieldName = 'CARRIAGE'
    end
    object taTempInvoice1CARTAXCODE: TStringField
      FieldName = 'CARTAXCODE'
      Size = 1
    end
    object taTempInvoice1CARTAX: TFloatField
      FieldName = 'CARTAX'
    end
    object taTempInvoice1CARNOMINAL: TStringField
      FieldName = 'CARNOMINAL'
      Size = 10
    end
    object taTempInvoice1CARGROSS: TFloatField
      FieldName = 'CARGROSS'
    end
    object taTempInvoice1TOTALNETT: TFloatField
      FieldName = 'TOTALNETT'
    end
    object taTempInvoice1TOTALDISC: TFloatField
      FieldName = 'TOTALDISC'
    end
    object taTempInvoice1TOTALSUB: TFloatField
      FieldName = 'TOTALSUB'
    end
    object taTempInvoice1TOTALTAX: TFloatField
      FieldName = 'TOTALTAX'
    end
    object taTempInvoice1INVTOTAL: TFloatField
      FieldName = 'INVTOTAL'
    end
    object taTempInvoice1SDTOPAY: TFloatField
      FieldName = 'SDTOPAY'
    end
    object taTempInvoice1POSTED: TBooleanField
      FieldName = 'POSTED'
    end
    object taTempInvoice1PRINTED: TBooleanField
      FieldName = 'PRINTED'
    end
    object taTempInvoice1PROFIT: TFloatField
      FieldName = 'PROFIT'
    end
    object taTempInvoice1MARGIN: TFloatField
      FieldName = 'MARGIN'
    end
  end
  object taTempInvoice2: TwwTable
    DatabaseName = 'EmpireBuilder'
    TableName = 'Invoice2.DBF'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 248
    Top = 122
    object taTempInvoice2INVNO: TFloatField
      FieldName = 'INVNO'
    end
    object taTempInvoice2STOCKCODE: TStringField
      FieldName = 'STOCKCODE'
      Size = 16
    end
    object taTempInvoice2DESC: TMemoField
      FieldName = 'DESC'
      BlobType = ftMemo
      Size = 1
    end
    object taTempInvoice2QUAN: TFloatField
      FieldName = 'QUAN'
    end
    object taTempInvoice2PRICE: TFloatField
      FieldName = 'PRICE'
    end
    object taTempInvoice2DISC: TFloatField
      FieldName = 'DISC'
    end
    object taTempInvoice2TAXCODE: TStringField
      FieldName = 'TAXCODE'
      Size = 1
    end
    object taTempInvoice2NOMINAL: TStringField
      FieldName = 'NOMINAL'
      Size = 10
    end
    object taTempInvoice2COSTPRICE: TFloatField
      FieldName = 'COSTPRICE'
    end
    object taTempInvoice2PROFIT: TFloatField
      FieldName = 'PROFIT'
    end
    object taTempInvoice2MARGIN: TFloatField
      FieldName = 'MARGIN'
    end
    object taTempInvoice2NETT: TFloatField
      FieldName = 'NETT'
    end
    object taTempInvoice2DISCOUNT: TFloatField
      FieldName = 'DISCOUNT'
    end
    object taTempInvoice2SUBTOTAL: TFloatField
      FieldName = 'SUBTOTAL'
    end
    object taTempInvoice2TAX: TFloatField
      FieldName = 'TAX'
    end
    object taTempInvoice2TOTAL: TFloatField
      FieldName = 'TOTAL'
    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 = True
    Left = 280
    Top = 122
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      329)
    OriginalFormHeight = (
      295)
    OriginalFormLeft = (
      290)
    OriginalFormTop = (
      150)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      321)
    OriginalClientHeight = (
      268)
  end
end