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

Text File | 1999-06-21 | 62KB | 2,262 lines

object fmMainInvoice: TfmMainInvoice
  Left = 29
  Top = 88
  AutoScroll = False
  Caption = 'Invoice'
  ClientHeight = 432
  ClientWidth = 695
  Font.Charset = DEFAULT_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 = 49
    Width = 695
    Height = 383
    Align = alClient
    TabOrder = 0
    object PageControl: TPageControl
      Left = 1
      Top = 1
      Width = 693
      Height = 381
      ActivePage = FooterDetTab
      Align = alClient
      HotTrack = True
      TabOrder = 0
      TabStop = False
      object CustDetailsTab: TTabSheet
        Caption = '&Customer Details'
        OnEnter = CustDetailsTabEnter
        object Bevel13: TBevel
          Left = 284
          Top = 4
          Width = 381
          Height = 177
          Shape = bsFrame
        end
        object Bevel1: TBevel
          Left = 12
          Top = 4
          Width = 261
          Height = 125
          Shape = bsFrame
        end
        object Label1: TLabel
          Left = 20
          Top = 15
          Width = 63
          Height = 16
          Caption = 'Invoice No.'
        end
        object Label2: TLabel
          Left = 20
          Top = 44
          Width = 83
          Height = 16
          Caption = 'Customer Ref.'
        end
        object Label3: TLabel
          Left = 20
          Top = 72
          Width = 27
          Height = 16
          Caption = 'Date'
        end
        object Label4: TLabel
          Left = 20
          Top = 100
          Width = 116
          Height = 16
          Caption = 'Customer Order No.'
        end
        object Bevel4: TBevel
          Left = 12
          Top = 224
          Width = 185
          Height = 93
          Shape = bsFrame
        end
        object Label10: TLabel
          Left = 20
          Top = 235
          Width = 47
          Height = 16
          Caption = 'Balance'
        end
        object Label16: TLabel
          Left = 20
          Top = 263
          Width = 66
          Height = 16
          Caption = 'Credit Limit'
        end
        object Label17: TLabel
          Left = 20
          Top = 291
          Width = 47
          Height = 16
          Caption = 'Overdue'
        end
        object Bevel2: TBevel
          Left = 284
          Top = 184
          Width = 381
          Height = 165
          Shape = bsFrame
        end
        object Label5: TLabel
          Left = 296
          Top = 16
          Width = 94
          Height = 16
          Caption = 'Customer Name'
        end
        object Label6: TLabel
          Left = 296
          Top = 44
          Width = 48
          Height = 16
          Caption = 'Address'
        end
        object Label7: TLabel
          Left = 296
          Top = 72
          Width = 48
          Height = 16
          Caption = '..   ..   ..'
        end
        object Label8: TLabel
          Left = 296
          Top = 100
          Width = 48
          Height = 16
          Caption = '..   ..   ..'
        end
        object Label9: TLabel
          Left = 296
          Top = 128
          Width = 61
          Height = 16
          Caption = 'Post Code'
        end
        object Label11: TLabel
          Left = 296
          Top = 196
          Width = 83
          Height = 16
          Caption = 'Delivery Name'
        end
        object Label12: TLabel
          Left = 296
          Top = 220
          Width = 48
          Height = 16
          Caption = 'Address'
        end
        object Label13: TLabel
          Left = 296
          Top = 244
          Width = 48
          Height = 16
          Caption = '..   ..   ..'
        end
        object Label14: TLabel
          Left = 296
          Top = 268
          Width = 48
          Height = 16
          Caption = '..   ..   ..'
        end
        object Label15: TLabel
          Left = 296
          Top = 292
          Width = 61
          Height = 16
          Caption = 'Post Code'
        end
        object Label47: TLabel
          Left = 296
          Top = 320
          Width = 83
          Height = 16
          Caption = 'Telephone No.'
        end
        object Label50: TLabel
          Left = 296
          Top = 156
          Width = 83
          Height = 16
          Caption = 'Telephone No.'
        end
        object DBECustOrdNo: TwwDBEdit
          Left = 140
          Top = 96
          Width = 121
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 416
          DataField = 'CORDER'
          DataSource = dsTempMainInvoice
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object DBEDelName: TwwDBEdit
          Left = 412
          Top = 192
          Width = 241
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 419
          DataField = 'DELNAME'
          DataSource = dsTempMainInvoice
          MaxLength = 40
          ParentShowHint = False
          ShowHint = True
          TabOrder = 10
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object DBEDelAddress1: TwwDBEdit
          Left = 412
          Top = 216
          Width = 190
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 419
          DataField = 'DELADD1'
          DataSource = dsTempMainInvoice
          ParentShowHint = False
          ShowHint = True
          TabOrder = 11
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object DBEDelAddress2: TwwDBEdit
          Left = 412
          Top = 240
          Width = 190
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 419
          DataField = 'DELADD2'
          DataSource = dsTempMainInvoice
          ParentShowHint = False
          ShowHint = True
          TabOrder = 12
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object DBEDelAddress3: TwwDBEdit
          Left = 412
          Top = 264
          Width = 190
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 419
          DataField = 'DELADD3'
          DataSource = dsTempMainInvoice
          ParentShowHint = False
          ShowHint = True
          TabOrder = 13
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object DBEDelPostCode: TwwDBEdit
          Left = 412
          Top = 288
          Width = 100
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 419
          DataField = 'DELADD4'
          DataSource = dsTempMainInvoice
          MaxLength = 10
          ParentShowHint = False
          ShowHint = True
          TabOrder = 14
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object DBEDTelephone: TwwDBEdit
          Left = 412
          Top = 316
          Width = 130
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 419
          DataField = 'DELTELNO'
          DataSource = dsTempMainInvoice
          ParentShowHint = False
          ShowHint = True
          TabOrder = 15
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
          OnExit = DBEDTelephoneExit
        end
        object EBalance: TCurrencyEdit
          Left = 100
          Top = 232
          Width = 89
          Height = 24
          TabStop = False
          AutoSize = False
          Ctl3D = True
          DisplayFormat = '0.00'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 10
          MaxValue = 9999999.990000000000000000
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 16
        end
        object ECreditLimit: TCurrencyEdit
          Left = 100
          Top = 260
          Width = 89
          Height = 24
          TabStop = False
          AutoSize = False
          Ctl3D = True
          DisplayFormat = '0.00'
          ParentColor = True
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 17
        end
        object EOverdue: TCurrencyEdit
          Left = 100
          Top = 288
          Width = 89
          Height = 24
          TabStop = False
          AutoSize = False
          Ctl3D = True
          DisplayFormat = '0.00'
          ParentColor = True
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 18
        end
        object DBEInvNo: TCurrencyEdit
          Left = 140
          Top = 13
          Width = 80
          Height = 24
          TabStop = False
          AutoSize = False
          Ctl3D = True
          DecimalPlaces = 0
          DisplayFormat = '0'
          ParentColor = True
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 19
        end
        object DBCDlgCustRef: TRxDBComboEdit
          Left = 140
          Top = 40
          Width = 120
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 415
          CharCase = ecUpperCase
          ClickKey = 16467
          DataField = 'ACREF'
          DataSource = dsTempMainInvoice
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777000000000000000088888888880088808777777770EC7780877777770EC0
            778087777770EC0777808770003F30777780878FFF200777778083FFFFF27777
            77808FFFFFFF077777808FFFFFFF0777778083FFFFFF77777780888888808888
            8880800333000080880080000000000000003333333333333330}
          ButtonWidth = 24
          NumGlyphs = 1
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnButtonClick = DBCDlgCustRefButtonClick
          OnEnter = DBCDlgCustRefEnter
          OnExit = DBCDlgCustRefExit
        end
        object DBCDlgDate: TDBDateEdit
          Left = 140
          Top = 68
          Width = 100
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 180
          DataField = 'INVDATE'
          DataSource = dsTempMainInvoice
          ClickKey = 16452
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          CalendarStyle = csDialog
          TabOrder = 1
          Weekends = [Sun, Sat]
          YearDigits = dyFour
          OnButtonClick = DBCDlgDateButtonClick
          OnEnter = DBCDlgDateEnter
          OnExit = DBCDlgDateExit
        end
        object DBRGInvType: TDBRadioGroup
          Left = 12
          Top = 132
          Width = 261
          Height = 85
          Hint = 'Press F1 for help'
          HelpContext = 417
          Caption = 'Invoice Type'
          Columns = 2
          DataField = 'INVTYPE'
          DataSource = dsTempMainInvoice
          Items.Strings = (
            'Invoice'
            'Credit Note'
            'Proforma'
            'Quotation')
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          Values.Strings = (
            'INVOICE'
            'CREDIT NOTE'
            'PROFORMA'
            'QUOTATION')
          OnClick = DBRGInvTypeClick
        end
        object DBECustAddress1: TwwDBEdit
          Left = 412
          Top = 40
          Width = 190
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 418
          DataField = 'ADDRESS1'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 5
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object DBECustAddress2: TwwDBEdit
          Left = 412
          Top = 68
          Width = 190
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 418
          DataField = 'ADDRESS2'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 6
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object DBECustAddress3: TwwDBEdit
          Left = 412
          Top = 96
          Width = 190
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 418
          DataField = 'ADDRESS3'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 7
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object DBECustPostCode: TwwDBEdit
          Left = 412
          Top = 124
          Width = 100
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 418
          DataField = 'ADDRESS4'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 8
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object DBETelephone: TwwDBEdit
          Left = 412
          Top = 152
          Width = 130
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 418
          DataField = 'TELNO'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 9
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object DBECustName: TwwDBEdit
          Left = 412
          Top = 12
          Width = 240
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 418
          DataField = 'NAME'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 4
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
      end
      object ItemsDetailsTab: TTabSheet
        Caption = '&Items Details'
        OnEnter = ItemsDetailsTabEnter
        OnExit = ItemsDetailsTabExit
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 0
          Height = 165
          Align = alTop
          TabOrder = 0
          object Bevel12: TBevel
            Left = 4
            Top = 124
            Width = 677
            Height = 37
            Shape = bsFrame
          end
          object Bevel6: TBevel
            Left = 296
            Top = 4
            Width = 385
            Height = 117
            Shape = bsFrame
          end
          object Bevel5: TBevel
            Left = 4
            Top = 4
            Width = 289
            Height = 117
            Shape = bsFrame
          end
          object Label21: TLabel
            Left = 8
            Top = 11
            Width = 58
            Height = 16
            Caption = 'Cust. Ref.'
          end
          object Label22: TLabel
            Left = 8
            Top = 39
            Width = 69
            Height = 16
            Caption = 'Cust. Name'
          end
          object lbTransNo: TLabel
            Left = 8
            Top = 67
            Width = 59
            Height = 16
            Caption = 'Invoice No'
          end
          object Label24: TLabel
            Left = 8
            Top = 95
            Width = 59
            Height = 16
            Caption = 'Telephone'
          end
          object Label27: TLabel
            Left = 312
            Top = 67
            Width = 78
            Height = 16
            Caption = 'Reorder Level'
          end
          object Label26: TLabel
            Left = 312
            Top = 15
            Width = 48
            Height = 16
            Caption = 'In Stock'
          end
          object Label28: TLabel
            Left = 500
            Top = 15
            Width = 43
            Height = 16
            Caption = 'Price A'
          end
          object Label29: TLabel
            Left = 500
            Top = 43
            Width = 43
            Height = 16
            Caption = 'Price B'
          end
          object Label30: TLabel
            Left = 500
            Top = 71
            Width = 43
            Height = 16
            Caption = 'Price C'
          end
          object Label18: TLabel
            Left = 12
            Top = 135
            Width = 65
            Height = 16
            Caption = 'Description'
          end
          object Label19: TLabel
            Left = 312
            Top = 41
            Width = 53
            Height = 16
            Caption = 'On Order'
          end
          object Label52: TLabel
            Left = 500
            Top = 94
            Width = 61
            Height = 16
            Caption = 'Cost Price'
          end
          object Label54: TLabel
            Left = 312
            Top = 93
            Width = 59
            Height = 16
            Caption = 'Markup %'
          end
          object DBEItemTelNo: TwwDBEdit
            Left = 92
            Top = 92
            Width = 121
            Height = 24
            TabStop = False
            Ctl3D = True
            DataField = 'TELNO'
            DataSource = dsTempMainInvoice
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 0
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object DBEPrice1: TwwDBEdit
            Left = 568
            Top = 12
            Width = 80
            Height = 24
            TabStop = False
            Ctl3D = True
            DataField = 'Price1'
            DataSource = dsTempLineInvoice
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 1
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object DBEPrice2: TwwDBEdit
            Left = 568
            Top = 38
            Width = 80
            Height = 24
            TabStop = False
            Ctl3D = True
            DataField = 'Price2'
            DataSource = dsTempLineInvoice
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 2
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object DBEPrice3: TwwDBEdit
            Left = 568
            Top = 64
            Width = 80
            Height = 24
            TabStop = False
            Ctl3D = True
            DataField = 'Price3'
            DataSource = dsTempLineInvoice
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 3
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object DBEInStock: TwwDBEdit
            Left = 400
            Top = 12
            Width = 80
            Height = 24
            TabStop = False
            Color = clBtnFace
            Ctl3D = True
            DataField = 'InStock'
            DataSource = dsTempLineInvoice
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'Arial'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 4
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
            OnChange = DBEInStockChange
          end
          object DBEReOrderLevel: TwwDBEdit
            Left = 400
            Top = 64
            Width = 80
            Height = 24
            TabStop = False
            Ctl3D = True
            DataField = 'ReorderLev'
            DataSource = dsTempLineInvoice
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 5
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
            OnChange = DBEReOrderLevelChange
          end
          object DBEOnOrder: TwwDBEdit
            Left = 400
            Top = 38
            Width = 80
            Height = 24
            TabStop = False
            Ctl3D = True
            DataField = 'OnOrder'
            DataSource = dsTempLineInvoice
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 6
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object DBCPrice: TwwDBComboBox
            Left = 216
            Top = 8
            Width = 21
            Height = 24
            ShowButton = True
            Style = csDropDown
            MapList = False
            AllowClearKey = False
            DataField = 'PRICE'
            DataSource = dsTempLineInvoice
            DropDownCount = 8
            ItemHeight = 0
            MaxLength = 10
            Sorted = False
            TabOrder = 7
            UnboundDataType = wwDefault
            OnDropDown = DBCPriceDropDown
            OnEnter = DBCPriceEnter
          end
          object DBCDisc: TwwDBComboBox
            Left = 244
            Top = 8
            Width = 21
            Height = 24
            ShowButton = True
            Style = csDropDown
            MapList = False
            AllowClearKey = False
            DataField = 'DISC'
            DataSource = dsTempLineInvoice
            DropDownCount = 8
            ItemHeight = 0
            Sorted = False
            TabOrder = 8
            UnboundDataType = wwDefault
            OnDropDown = DBCDiscDropDown
            OnEnter = DBCDiscEnter
          end
          object DBCDlgFindStock: TwwDBComboDlg
            Left = 224
            Top = 92
            Width = 17
            Height = 24
            OnCustomDlg = DBCDlgFindStockCustomDlg
            ShowButton = True
            Style = csDropDown
            CharCase = ecUpperCase
            DataField = 'STOCKCODE'
            DataSource = dsTempLineInvoice
            TabOrder = 9
            UnboundDataType = wwDefault
            OnKeyDown = DBCDlgFindStockKeyDown
            OnKeyUp = DBCDlgFindStockKeyUp
          end
          object DBCFindNominal: TwwDBComboDlg
            Left = 224
            Top = 64
            Width = 17
            Height = 24
            OnCustomDlg = DBCFindNominalCustomDlg
            ShowButton = True
            Style = csDropDown
            CharCase = ecUpperCase
            DataField = 'NOMACC'
            DataSource = dsTempLineInvoice
            TabOrder = 10
            UnboundDataType = wwDefault
            OnExit = DBCFindNominalExit
            OnKeyUp = DBCFindNominalKeyUp
          end
          object DBSEVatCode: TwwDBSpinEdit
            Left = 252
            Top = 80
            Width = 17
            Height = 24
            Increment = 1.000000000000000000
            MaxValue = 9.000000000000000000
            DataField = 'VATCODE'
            DataSource = dsTempLineInvoice
            TabOrder = 11
            UnboundDataType = wwDefault
            OnEnter = DBSEVatCodeEnter
          end
          object DBEItemCustRef: TEdit
            Left = 92
            Top = 8
            Width = 80
            Height = 24
            TabStop = False
            Ctl3D = True
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 12
          end
          object DBEMarkup: TwwDBEdit
            Left = 400
            Top = 90
            Width = 80
            Height = 24
            TabStop = False
            Ctl3D = True
            DataField = 'Markup'
            DataSource = dsTempLineInvoice
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 13
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
            OnChange = DBEMarkupChange
          end
          object DBEItemsInvNo: TCurrencyEdit
            Left = 92
            Top = 63
            Width = 80
            Height = 24
            TabStop = False
            AutoSize = False
            Ctl3D = True
            DecimalPlaces = 0
            DisplayFormat = '0'
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 14
          end
          object DBMemo1: TDBMemo
            Left = 92
            Top = 132
            Width = 581
            Height = 24
            TabStop = False
            DataField = 'FREETEXT'
            DataSource = dsTempLineInvoice
            ParentColor = True
            ReadOnly = True
            TabOrder = 15
          end
          object ECCostPrice: TRxDBCalcEdit
            Left = 568
            Top = 92
            Width = 106
            Height = 24
            Hint = 'Press F1 for help'
            HelpContext = 428
            DataField = 'CostPrice'
            DataSource = dsTempLineInvoice
            ReadOnly = True
            DisplayFormat = '0.00'
            NumGlyphs = 2
            ParentColor = True
            ParentShowHint = False
            ShowHint = True
            TabOrder = 16
            OnButtonClick = ECCostPriceButtonClick
            OnEnter = ECCostPriceEnter
            OnExit = ECCostPriceExit
          end
          object DBEItemCustName: TwwDBEdit
            Left = 92
            Top = 36
            Width = 190
            Height = 24
            TabStop = False
            DataField = 'NAME'
            DataSource = dsTempMainInvoice
            ParentColor = True
            ReadOnly = True
            TabOrder = 17
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
        end
        object Panel4: TPanel
          Left = 0
          Top = 165
          Width = 685
          Height = 185
          Align = alClient
          TabOrder = 1
          object DBGMainInvoice: TwwDBGrid
            Left = 1
            Top = 1
            Width = 683
            Height = 143
            Hint = 'Press F1 for help'
            Selected.Strings = (
              'STOCKCODE'#9'14'#9'Stock Code'
              'FREETEXT'#9'20'#9'Description'
              'QUANTITY'#9'9'#9'Qty'
              'PRICE'#9'10'#9'Price'
              'DISC'#9'10'#9'Disc %'
              'NOMACC'#9'10'#9'Nom. A/C'
              'VATCODE'#9'4'#9'VC '
              'LINESUB'#9'10'#9'Sub Total'#9'T')
            MemoAttributes = [mSizeable, mWordWrap, mGridShow, mDisableDialog]
            TitleColor = clBtnFace
            FixedCols = 0
            ShowHorzScrollBar = True
            Align = alClient
            DataSource = dsTempLineInvoice
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'Arial'
            Font.Style = []
            KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
            Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
            ParentFont = False
            ParentShowHint = False
            PopupMenu = RCLinePopup
            ShowHint = True
            TabOrder = 0
            TitleAlignment = taLeftJustify
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -13
            TitleFont.Name = 'Arial'
            TitleFont.Style = []
            TitleLines = 1
            TitleButtons = False
            UseTFields = False
            OnCalcCellColors = DBGMainInvoiceCalcCellColors
            OnColEnter = DBGMainInvoiceColEnter
            OnColExit = DBGMainInvoiceColExit
            OnDblClick = DBGMainInvoiceDblClick
            IndicatorColor = icBlack
            OnTopRowChanged = DBGMainInvoiceTopRowChanged
            object DBGMainInvoiceIButton: TwwIButton
              Left = 0
              Top = 0
              Width = 13
              Height = 25
              AllowAllUp = True
            end
          end
          object Panel3: TPanel
            Left = 1
            Top = 144
            Width = 683
            Height = 40
            Align = alBottom
            TabOrder = 1
            object Label20: TLabel
              Left = 100
              Top = 12
              Width = 91
              Height = 16
              Caption = 'Items Sub Total'
            end
            object Label55: TLabel
              Left = 312
              Top = 12
              Width = 61
              Height = 16
              Caption = 'Items VAT'
            end
            object Label56: TLabel
              Left = 508
              Top = 12
              Width = 64
              Height = 16
              Caption = 'Items Total'
            end
            object ETotalValue: TwwDBEdit
              Left = 208
              Top = 8
              Width = 80
              Height = 24
              DataField = 'ITEMSSUB'
              DataSource = dsTempMainInvoice
              ParentColor = True
              ReadOnly = True
              TabOrder = 0
              UnboundDataType = wwDefault
              WantReturns = False
              WordWrap = False
            end
            object ETotalVAT: TwwDBEdit
              Left = 396
              Top = 8
              Width = 80
              Height = 24
              DataField = 'ITEMSTAX'
              DataSource = dsTempMainInvoice
              ParentColor = True
              ReadOnly = True
              TabOrder = 1
              UnboundDataType = wwDefault
              WantReturns = False
              WordWrap = False
            end
            object EInvoiceTotal: TwwDBEdit
              Left = 584
              Top = 8
              Width = 80
              Height = 24
              DataField = 'ITEMSTOTAL'
              DataSource = dsTempMainInvoice
              ParentColor = True
              ReadOnly = True
              TabOrder = 2
              UnboundDataType = wwDefault
              WantReturns = False
              WordWrap = False
              OnChange = EInvoiceTotalChange
            end
          end
        end
      end
      object FooterDetTab: TTabSheet
        Caption = '&Footer Details'
        OnEnter = FooterDetTabEnter
        object Bevel7: TBevel
          Left = 12
          Top = 10
          Width = 237
          Height = 157
          Shape = bsFrame
        end
        object Label25: TLabel
          Left = 20
          Top = 24
          Width = 48
          Height = 16
          Caption = 'Carriage'
        end
        object Label31: TLabel
          Left = 20
          Top = 52
          Width = 59
          Height = 16
          Caption = 'VAT Code'
        end
        object Label32: TLabel
          Left = 20
          Top = 80
          Width = 48
          Height = 16
          Caption = 'Account'
        end
        object Label33: TLabel
          Left = 20
          Top = 107
          Width = 25
          Height = 16
          Caption = 'VAT'
        end
        object Label34: TLabel
          Left = 20
          Top = 135
          Width = 28
          Height = 16
          Caption = 'Total'
        end
        object Bevel8: TBevel
          Left = 488
          Top = 8
          Width = 193
          Height = 141
          Shape = bsFrame
        end
        object Bevel9: TBevel
          Left = 488
          Top = 156
          Width = 193
          Height = 141
          Shape = bsFrame
        end
        object Label35: TLabel
          Left = 496
          Top = 19
          Width = 75
          Height = 16
          Caption = 'Goods Value'
        end
        object Label36: TLabel
          Left = 496
          Top = 45
          Width = 51
          Height = 16
          Caption = 'Discount'
        end
        object Label37: TLabel
          Left = 496
          Top = 71
          Width = 66
          Height = 16
          Caption = 'Goods Nett'
        end
        object Label38: TLabel
          Left = 496
          Top = 97
          Width = 74
          Height = 16
          Caption = 'VAT Amount'
        end
        object Label39: TLabel
          Left = 496
          Top = 123
          Width = 70
          Height = 16
          Caption = 'Goods Total'
        end
        object Label40: TLabel
          Left = 496
          Top = 167
          Width = 65
          Height = 16
          Caption = 'Total Value'
        end
        object Label41: TLabel
          Left = 496
          Top = 193
          Width = 83
          Height = 16
          Caption = 'Total Discount'
        end
        object Label42: TLabel
          Left = 496
          Top = 219
          Width = 56
          Height = 16
          Caption = 'Total Nett'
        end
        object Label43: TLabel
          Left = 496
          Top = 245
          Width = 57
          Height = 16
          Caption = 'Total VAT'
        end
        object Label44: TLabel
          Left = 496
          Top = 271
          Width = 71
          Height = 16
          Caption = 'Total Invoice'
        end
        object Bevel10: TBevel
          Left = 12
          Top = 176
          Width = 237
          Height = 85
          Shape = bsFrame
        end
        object Label46: TLabel
          Left = 24
          Top = 228
          Width = 109
          Height = 16
          Caption = 'Settlement Disc %'
        end
        object Label45: TLabel
          Left = 24
          Top = 192
          Width = 90
          Height = 16
          Caption = 'Settlment Days'
        end
        object Bevel11: TBevel
          Left = 260
          Top = 176
          Width = 221
          Height = 149
          Shape = bsFrame
        end
        object Label48: TLabel
          Left = 268
          Top = 224
          Width = 99
          Height = 16
          Caption = 'Payment Method'
        end
        object Label49: TLabel
          Left = 268
          Top = 289
          Width = 101
          Height = 16
          Caption = 'Payment Amount'
        end
        object Label51: TLabel
          Left = 268
          Top = 256
          Width = 57
          Height = 16
          Caption = 'Bank Ref.'
        end
        object Label53: TLabel
          Left = 496
          Top = 315
          Width = 62
          Height = 16
          Caption = 'Early Sett.'
        end
        object Bevel14: TBevel
          Left = 12
          Top = 268
          Width = 237
          Height = 37
          Shape = bsFrame
        end
        object Bevel15: TBevel
          Left = 488
          Top = 304
          Width = 193
          Height = 37
          Shape = bsFrame
        end
        object DBSVatCode: TwwDBSpinEdit
          Left = 104
          Top = 48
          Width = 33
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 430
          Increment = 1.000000000000000000
          MaxValue = 9.000000000000000000
          DataField = 'CARTAXCODE'
          DataSource = dsTempMainInvoice
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          UnboundDataType = wwDefault
          OnChange = DBSVatCodeChange
        end
        object GroupBox1: TGroupBox
          Left = 260
          Top = 4
          Width = 221
          Height = 165
          HelpContext = 432
          Caption = 'Notepad'
          TabOrder = 3
          TabStop = True
          object Notepad: TDBMemo
            Left = 12
            Top = 20
            Width = 197
            Height = 133
            Hint = 'Press F1 for help'
            DataField = 'NOTES'
            DataSource = dsTempMainInvoice
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnEnter = NotepadEnter
            OnExit = NotepadExit
          end
        end
        object CBPayNow: TCheckBox
          Left = 268
          Top = 191
          Width = 125
          Height = 17
          Hint = 'Press F1 for help'
          HelpContext = 436
          Alignment = taLeftJustify
          Caption = 'Pay Now'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          OnClick = CBPayNowClick
        end
        object DBCPayMethod: TwwDBComboBox
          Left = 380
          Top = 220
          Width = 90
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 437
          ShowButton = True
          Style = csDropDown
          MapList = False
          AllowClearKey = False
          DataField = 'PAYTYPE'
          DataSource = dsTempMainInvoice
          DropDownCount = 8
          ItemHeight = 0
          Items.Strings = (
            'Cash'
            'Bank')
          ParentShowHint = False
          ShowHint = True
          Sorted = False
          TabOrder = 7
          UnboundDataType = wwDefault
          OnChange = DBCPayMethodChange
        end
        object CESettDays: TwwDBSpinEdit
          Left = 148
          Top = 188
          Width = 50
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 434
          Increment = 1.000000000000000000
          MaxValue = 365.000000000000000000
          DataField = 'SETTDAYS'
          DataSource = dsTempMainInvoice
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          UnboundDataType = wwDefault
        end
        object DBCBBankCashAcc: TwwDBLookupCombo
          Left = 380
          Top = 252
          Width = 90
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 438
          DropDownAlignment = taLeftJustify
          Selected.Strings = (
            'NOMACC'#9'10'#9'Bank Ref.'
            'NOMNAME'#9'30'#9'Bank Name')
          DataField = 'BANK'
          DataSource = dsTempMainInvoice
          LookupTable = taCashBank
          LookupField = 'NOMACC'
          Options = [loColLines, loTitles]
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 8
          AutoDropDown = False
          ShowButton = True
          AllowClearKey = False
        end
        object wwDBCDlgDelNomAcc: TRxDBComboEdit
          Left = 104
          Top = 76
          Width = 100
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 431
          CharCase = ecUpperCase
          ClickKey = 16467
          DataField = 'CARNOMINAL'
          DataSource = dsTempMainInvoice
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777000000000000000088888888880088808777777770EC7780877777770EC0
            778087777770EC0777808770003F30777780878FFF200777778083FFFFF27777
            77808FFFFFFF077777808FFFFFFF0777778083FFFFFF77777780888888808888
            8880800333000080880080000000000000003333333333333330}
          ButtonWidth = 24
          NumGlyphs = 1
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          OnButtonClick = wwDBCDlgDelNomAccButtonClick
          OnExit = wwDBCDlgDelNomAccExit
        end
        object EDelVATAmount: TwwDBEdit
          Left = 104
          Top = 104
          Width = 80
          Height = 24
          TabStop = False
          DataField = 'CARTAX'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 11
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object EDelTotal: TwwDBEdit
          Left = 104
          Top = 132
          Width = 80
          Height = 24
          TabStop = False
          DataField = 'CarGross'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 12
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object EGoodsValue: TwwDBEdit
          Left = 592
          Top = 16
          Width = 80
          Height = 24
          TabStop = False
          DataField = 'ITEMSNETT'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 13
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object EDiscValue: TwwDBEdit
          Left = 592
          Top = 42
          Width = 80
          Height = 24
          TabStop = False
          DataField = 'ITEMSDISC'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 14
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object EGoodsNett: TwwDBEdit
          Left = 592
          Top = 68
          Width = 80
          Height = 24
          TabStop = False
          DataField = 'ITEMSSUB'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 15
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object EGoodsVAT: TwwDBEdit
          Left = 592
          Top = 94
          Width = 80
          Height = 24
          TabStop = False
          DataField = 'ITEMSTAX'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 16
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object EGoodsTotal: TwwDBEdit
          Left = 592
          Top = 120
          Width = 80
          Height = 24
          TabStop = False
          DataField = 'ITEMSTOTAL'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 17
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object EFooterTotalValue: TwwDBEdit
          Left = 592
          Top = 164
          Width = 80
          Height = 24
          TabStop = False
          DataField = 'TotalNett'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 18
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object EFooterTotalDisc: TwwDBEdit
          Left = 592
          Top = 190
          Width = 80
          Height = 24
          TabStop = False
          DataField = 'TotalDisc'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 19
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object EFooterTotalNett: TwwDBEdit
          Left = 592
          Top = 216
          Width = 80
          Height = 24
          TabStop = False
          DataField = 'TotalSub'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 20
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object EFooterTotalVAT: TwwDBEdit
          Left = 592
          Top = 242
          Width = 80
          Height = 24
          TabStop = False
          DataField = 'TotalTax'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 21
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object EFooterTotalInv: TwwDBEdit
          Left = 592
          Top = 268
          Width = 80
          Height = 24
          TabStop = False
          DataField = 'InvTotal'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 22
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object CEEarlySett: TwwDBEdit
          Left = 592
          Top = 312
          Width = 80
          Height = 24
          HelpContext = 441
          TabStop = False
          DataField = 'SDTOPAY'
          DataSource = dsTempMainInvoice
          ParentColor = True
          ReadOnly = True
          TabOrder = 23
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object CESettDisc: TRxDBCalcEdit
          Left = 148
          Top = 224
          Width = 85
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 435
          DataField = 'SETTDISC'
          DataSource = dsTempMainInvoice
          ClickKey = 16451
          DisplayFormat = '0.00'
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          ZeroEmpty = False
          OnButtonClick = CESettDiscButtonClick
          OnEnter = CESettDiscEnter
          OnExit = CESettDiscExit
        end
        object CBPostNow: TCheckBox
          Left = 24
          Top = 276
          Width = 137
          Height = 17
          Hint = 'Press F1 for help'
          HelpContext = 440
          Alignment = taLeftJustify
          Caption = 'Post Now'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 10
          OnClick = CBPostNowClick
        end
        object EPayAmount: TRxDBCalcEdit
          Left = 380
          Top = 284
          Width = 90
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 439
          DataField = 'PAYAMOUNT'
          DataSource = dsTempMainInvoice
          ClickKey = 16451
          DisplayFormat = '0.00'
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          TabOrder = 9
        end
        object EDelCharge: TRxDBCalcEdit
          Left = 104
          Top = 20
          Width = 100
          Height = 24
          Hint = 'Press F1 for help'
          HelpContext = 429
          DataField = 'CARRIAGE'
          DataSource = dsTempMainInvoice
          ClickKey = 16451
          DisplayFormat = '0.00'
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnButtonClick = EDelChargeButtonClick
          OnEnter = EDelChargeEnter
          OnExit = EDelChargeExit
        end
      end
    end
  end
  object SpeedBar: TSpeedBar
    Left = 0
    Top = 0
    Width = 695
    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 = 74
    BtnHeight = 43
    TabOrder = 1
    InternalVer = 1
    object SpeedbarSection1: TSpeedbarSection
      Caption = 'Payment'
    end
    object BtnNew: TSpeedItem
      BtnCaption = '&New'
      Caption = 'Create a new transaction'
      Hint = 'Create a new transaction'
      Spacing = 1
      Left = 3
      Top = 3
      Visible = True
      OnClick = BtnNewClick
      SectionName = 'Payment'
    end
    object BtnSave: TSpeedItem
      BtnCaption = '&Save'
      Caption = 'Save The Transaction'
      Enabled = False
      Spacing = 1
      Left = 77
      Top = 3
      Visible = True
      OnClick = BtnSaveClick
      SectionName = 'Payment'
    end
    object BtnAbandon: TSpeedItem
      BtnCaption = '&Abandon'
      Caption = 'Abandon The Transaction'
      Enabled = False
      Spacing = 1
      Left = 151
      Top = 3
      Visible = True
      OnClick = BtnAbandonClick
      SectionName = 'Payment'
    end
    object BtnRemove: TSpeedItem
      BtnCaption = 'Re&move'
      Caption = 'Remove This Line'
      Enabled = False
      Spacing = 1
      Left = 225
      Top = 3
      Visible = True
      OnClick = BtnRemoveClick
      SectionName = 'Payment'
    end
    object BtnPrint: TSpeedItem
      BtnCaption = '&Print'
      Caption = 'Print/preview this transaction'
      Hint = 'Print/preview this transaction'
      Spacing = 1
      Left = 373
      Top = 3
      Visible = True
      OnClick = BtnPrintClick
      SectionName = 'Payment'
    end
    object BtnVatRev: TSpeedItem
      BtnCaption = '&VAT Reverse'
      Caption = 'Reverse VAT'
      Enabled = False
      Spacing = 1
      Left = 299
      Top = 3
      Visible = True
      OnClick = BtnVatRevClick
      SectionName = 'Payment'
    end
    object BtnClose: TSpeedItem
      BtnCaption = '&Close'
      Caption = 'Close The  Form'
      Spacing = 1
      Left = 521
      Top = 3
      Visible = True
      OnClick = BtnCloseClick
      SectionName = 'Payment'
    end
    object BtnHelp: TSpeedItem
      BtnCaption = '&Help'
      Caption = 'Help'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
        888888888E6648888888888888E6688888888888888888888888888888446888
        8888888886664888888888888E664888888888888E6664888888888888E66648
        88888888888E6664888888844888E6664888886664888E66488888E666444666
        4888888E6666666668888888EE6666668888888888EEEEE88888}
      Spacing = 1
      Left = 447
      Top = 3
      Visible = True
      OnClick = BtnHelpClick
      SectionName = 'Payment'
    end
  end
  object taTempLineInvoice: TwwTable
    OnCalcFields = taTempLineInvoiceCalcFields
    OnNewRecord = taTempLineInvoiceNewRecord
    ControlType.Strings = (
      'STOCKCODE;CustomEdit;DBCDlgFindStock'
      'NOMACC;CustomEdit;DBCFindNominal'
      'VATCODE;CustomEdit;DBSEVatCode'
      'PRICE;CustomEdit;DBCPrice'
      'DISC;CustomEdit;DBCDisc')
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 384
    Top = 338
    object taTempLineInvoiceSTOCKCODE: TStringField
      FieldName = 'STOCKCODE'
      Size = 16
    end
    object taTempLineInvoiceFREETEXT: TMemoField
      FieldName = 'FREETEXT'
      BlobType = ftMemo
      Size = 1
    end
    object taTempLineInvoiceQUANTITY: TFloatField
      FieldName = 'QUANTITY'
      OnChange = taTempLineInvoiceQUANTITYChange
    end
    object taTempLineInvoicePRICE: TFloatField
      FieldName = 'PRICE'
      OnChange = taTempLineInvoicePRICEChange
      Precision = 5
    end
    object taTempLineInvoiceDISC: TFloatField
      FieldName = 'DISC'
      OnChange = taTempLineInvoicePRICEChange
      DisplayFormat = '0.00'
    end
    object taTempLineInvoiceVATCODE: TStringField
      FieldName = 'VATCODE'
      OnChange = taTempLineInvoicePRICEChange
      Size = 1
    end
    object taTempLineInvoiceNOMACC: TStringField
      FieldName = 'NOMACC'
      Size = 10
    end
    object taTempLineInvoiceLINESUB: TFloatField
      FieldName = 'LINESUB'
      DisplayFormat = '0.00'
    end
    object taTempLineInvoiceLINENETT: TFloatField
      FieldName = 'LINENETT'
      DisplayFormat = '0.00'
    end
    object taTempLineInvoiceLINEDISC: TFloatField
      FieldName = 'LINEDISC'
      DisplayFormat = '0.00'
    end
    object taTempLineInvoiceLINETOTAL: TFloatField
      FieldName = 'LINETOTAL'
      DisplayFormat = '0.00'
    end
    object taTempLineInvoiceLINEVAT: TFloatField
      FieldName = 'LINEVAT'
      DisplayFormat = '0.00'
    end
    object taTempLineInvoiceCOSTPRICE: TFloatField
      FieldName = 'COSTPRICE'
      DisplayFormat = '0.00'
    end
    object taTempLineInvoiceMarkup: TFloatField
      FieldName = 'Markup'
      DisplayFormat = '0.00'
      Calculated = True
    end
    object taTempLineInvoiceReorderLevel: TFloatField
      FieldName = 'ReorderLev'
      LookupDataSet = DM1.taStock
      LookupKeyFields = 'STOCKCODE'
      LookupResultField = 'REORDLEV'
      KeyFields = 'STOCKCODE'
      Visible = False
      Lookup = True
    end
    object taTempLineInvoiceOnOrder: TFloatField
      FieldName = 'OnOrder'
      LookupDataSet = DM1.taStock
      LookupKeyFields = 'STOCKCODE'
      LookupResultField = 'ONORDER'
      KeyFields = 'STOCKCODE'
      Visible = False
      Lookup = True
    end
    object taTempLineInvoiceInStock: TFloatField
      FieldName = 'InStock'
      LookupDataSet = DM1.taStock
      LookupKeyFields = 'STOCKCODE'
      LookupResultField = 'INSTOCK'
      KeyFields = 'STOCKCODE'
      Visible = False
      Lookup = True
    end
    object taTempLineInvoicePrice3: TFloatField
      FieldName = 'Price3'
      LookupDataSet = DM1.taStock
      LookupKeyFields = 'STOCKCODE'
      LookupResultField = 'SALEPRICE3'
      KeyFields = 'STOCKCODE'
      Visible = False
      Lookup = True
    end
    object taTempLineInvoicePrice2: TFloatField
      FieldName = 'Price2'
      LookupDataSet = DM1.taStock
      LookupKeyFields = 'STOCKCODE'
      LookupResultField = 'SALEPRICE2'
      KeyFields = 'STOCKCODE'
      Visible = False
      Lookup = True
    end
    object taTempLineInvoicePrice1: TFloatField
      FieldName = 'Price1'
      LookupDataSet = DM1.taStock
      LookupKeyFields = 'STOCKCODE'
      LookupResultField = 'SALEPRICE1'
      KeyFields = 'STOCKCODE'
      Visible = False
      Lookup = True
    end
  end
  object dsTempLineInvoice: TwwDataSource
    DataSet = taTempLineInvoice
    OnStateChange = dsTempLineInvoiceStateChange
    OnDataChange = dsTempLineInvoiceDataChange
    Left = 200
    Top = 294
  end
  object FreeTextDlg: TwwMemoDialog
    DataSource = dsTempLineInvoice
    DataField = 'FREETEXT'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Caption = 'Free Text'
    DlgLeft = 0
    DlgTop = 0
    DlgWidth = 470
    DlgHeight = 300
    OnCloseDialog = FreeTextDlgCloseDialog
    Left = 664
    Top = 3
  end
  object taCashBank: TwwTable
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 28
    Top = 294
  end
  object dsCashBank: TwwDataSource
    DataSet = taCashBank
    Left = 116
    Top = 294
  end
  object Sizer1: TSizer
    Enabled = True
    ExceptionAction = eaIgnoreControl
    GridColumnSizing = gcSizeAllColumns
    GridRowSizing = grSizeByDefaults
    MinimumSize = True
    NavigateOnEnter = True
    OverrideParentFont = True
    PerformAssertions = False
    ShowAssertionFailures = False
    StretchFonts = True
    StretchImages = True
    StretchOnResize = True
    ThreadProcessing = True
    Left = 636
    Top = 4
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      703)
    OriginalFormHeight = (
      459)
    OriginalFormLeft = (
      29)
    OriginalFormTop = (
      88)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      695)
    OriginalClientHeight = (
      432)
  end
  object taTempMainInvoice: TwwTable
    OnCalcFields = taTempMainInvoiceCalcFields
    OnNewRecord = taTempMainInvoiceNewRecord
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 213
    Top = 341
    object taTempMainInvoiceINVTYPE: TStringField
      FieldName = 'INVTYPE'
      Size = 11
    end
    object taTempMainInvoicePAYTYPE: TStringField
      FieldName = 'PAYTYPE'
      Size = 8
    end
    object taTempMainInvoiceBANK: TStringField
      FieldName = 'BANK'
      Size = 10
    end
    object taTempMainInvoicePAYAMOUNT: TFloatField
      FieldName = 'PAYAMOUNT'
      DisplayFormat = '0.00'
    end
    object taTempMainInvoiceINVDATE: TDateField
      FieldName = 'INVDATE'
    end
    object taTempMainInvoiceACREF: TStringField
      FieldName = 'ACREF'
      Size = 10
    end
    object taTempMainInvoiceNAME: TStringField
      FieldName = 'NAME'
      Size = 30
    end
    object taTempMainInvoiceADDRESS1: TStringField
      FieldName = 'ADDRESS1'
      Size = 30
    end
    object taTempMainInvoiceADDRESS2: TStringField
      FieldName = 'ADDRESS2'
      Size = 30
    end
    object taTempMainInvoiceADDRESS3: TStringField
      FieldName = 'ADDRESS3'
      Size = 30
    end
    object taTempMainInvoiceADDRESS4: TStringField
      FieldName = 'ADDRESS4'
      Size = 30
    end
    object taTempMainInvoiceTELNO: TStringField
      FieldName = 'TELNO'
      Size = 15
    end
    object taTempMainInvoiceDELNAME: TStringField
      FieldName = 'DELNAME'
      Size = 30
    end
    object taTempMainInvoiceDELADD1: TStringField
      FieldName = 'DELADD1'
      Size = 30
    end
    object taTempMainInvoiceDELADD2: TStringField
      FieldName = 'DELADD2'
      Size = 30
    end
    object taTempMainInvoiceDELADD3: TStringField
      FieldName = 'DELADD3'
      Size = 30
    end
    object taTempMainInvoiceDELADD4: TStringField
      FieldName = 'DELADD4'
      Size = 30
    end
    object taTempMainInvoiceDELTELNO: TStringField
      FieldName = 'DELTELNO'
      Size = 15
    end
    object taTempMainInvoiceCORDER: TStringField
      FieldName = 'CORDER'
      Size = 15
    end
    object taTempMainInvoiceNOTES: TMemoField
      FieldName = 'NOTES'
      BlobType = ftMemo
      Size = 1
    end
    object taTempMainInvoiceSETTDAYS: TFloatField
      FieldName = 'SETTDAYS'
    end
    object taTempMainInvoiceSETTDISC: TFloatField
      FieldName = 'SETTDISC'
    end
    object taTempMainInvoiceITEMSNETT: TFloatField
      FieldName = 'ITEMSNETT'
      DisplayFormat = '0.00'
    end
    object taTempMainInvoiceITEMSDISC: TFloatField
      FieldName = 'ITEMSDISC'
      DisplayFormat = '0.00'
    end
    object taTempMainInvoiceITEMSSUB: TFloatField
      FieldName = 'ITEMSSUB'
      DisplayFormat = '0.00'
    end
    object taTempMainInvoiceITEMSTAX: TFloatField
      FieldName = 'ITEMSTAX'
      DisplayFormat = '0.00'
    end
    object taTempMainInvoiceITEMSTOTAL: TFloatField
      FieldName = 'ITEMSTOTAL'
      DisplayFormat = '0.00'
    end
    object taTempMainInvoiceCARRIAGE: TFloatField
      FieldName = 'CARRIAGE'
      DisplayFormat = '0.00'
    end
    object taTempMainInvoiceCARTAXCODE: TStringField
      FieldName = 'CARTAXCODE'
      Size = 1
    end
    object taTempMainInvoiceCARTAX: TFloatField
      FieldName = 'CARTAX'
      DisplayFormat = '0.00'
    end
    object taTempMainInvoiceCARNOMINAL: TStringField
      FieldName = 'CARNOMINAL'
      Size = 10
    end
    object taTempMainInvoiceSDTOPAY: TFloatField
      FieldName = 'SDTOPAY'
      DisplayFormat = '0.00'
    end
    object taTempMainInvoiceCarGross: TFloatField
      FieldName = 'CarGross'
      DisplayFormat = '0.00'
      Calculated = True
    end
    object taTempMainInvoiceTotalNett: TFloatField
      FieldName = 'TotalNett'
      DisplayFormat = '0.00'
      Calculated = True
    end
    object taTempMainInvoiceTotalDisc: TFloatField
      FieldName = 'TotalDisc'
      DisplayFormat = '0.00'
      Calculated = True
    end
    object taTempMainInvoiceTotalSub: TFloatField
      FieldName = 'TotalSub'
      DisplayFormat = '0.00'
      Calculated = True
    end
    object taTempMainInvoiceTotalTax: TFloatField
      FieldName = 'TotalTax'
      DisplayFormat = '0.00'
      Calculated = True
    end
    object taTempMainInvoiceInvTotal: TFloatField
      FieldName = 'InvTotal'
      DisplayFormat = '0.00'
      Calculated = True
    end
  end
  object dsTempMainInvoice: TwwDataSource
    DataSet = taTempMainInvoice
    OnStateChange = dsTempMainInvoiceStateChange
    Left = 52
    Top = 344
  end
  object RCLinePopup: TRxPopupMenu
    OnPopup = RCLinePopupPopup
    Style = msOwnerDraw
    ShowCheckMarks = False
    OnGetItemParams = RCLinePopupGetItemParams
    Left = 297
    Top = 296
    object pmStockAdjustment: TMenuItem
      Caption = 'Stock Adjustment'
      OnClick = pmStockAdjustmentClick
    end
    object pmStockItemPicture: TMenuItem
      Caption = 'Stock Item Picture'
      OnClick = pmStockItemPictureClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object pmChangeGridColour: TMenuItem
      Caption = 'Change Grid Colour'
      OnClick = pmChangeGridColourClick
    end
  end
end