object fmInvoice: TfmInvoice Left = 65 Top = 89 HelpContext = 6 AutoScroll = False Caption = 'Invoice' ClientHeight = 432 ClientWidth = 698 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 = 698 Height = 199 Align = alClient TabOrder = 0 object wwDBGrid1: TwwDBGrid Left = 1 Top = 1 Width = 696 Height = 197 Selected.Strings = ( 'INVNO'#9'9'#9'Invoice No' 'INVTYPE'#9'13'#9'Type' 'INVDATE'#9'10'#9'Date' 'NAME'#9'26'#9'Customer Name' 'CORDER'#9'10'#9'Order No ' 'INVTOTAL'#9'9'#9'Total' 'PostedIndex'#9'6'#9'Posted'#9'F' 'PrintedIndex'#9'6'#9'Printed'#9'F' 'ACREF'#9'10'#9'Cust. Ref'#9'F' 'ADDRESS1'#9'30'#9'Address 1'#9'F' 'ADDRESS2'#9'30'#9'Address 2'#9'F' 'ADDRESS3'#9'30'#9'Address 3'#9'F' 'ADDRESS4'#9'30'#9'Post Code'#9'F' 'TELNO'#9'15'#9'Tel. No'#9'F' 'BANK'#9'10'#9'Bank Ref'#9'F' 'CARGROSS'#9'10'#9'Car. Gross'#9'F' 'CARNOMINAL'#9'10'#9'Car. Account'#9'F' 'CARRIAGE'#9'10'#9'Carriage'#9'F' 'CARTAX'#9'10'#9'Car. VAT'#9'F' 'CARTAXCODE'#9'1'#9'Car. VC'#9'F' 'DELADD1'#9'30'#9'Del. Address 1'#9'F' 'DELADD2'#9'30'#9'Del. Address 2'#9'F' 'DELADD3'#9'30'#9'Del. Address 3'#9'F' 'DELADD4'#9'30'#9'Del. Post Code'#9'F' 'DELNAME'#9'30'#9'Del. Name'#9'F' 'DELTELNO'#9'15'#9'Del. Tel No'#9'F' 'ITEMSDISC'#9'10'#9'Discount'#9'F' 'ITEMSNETT'#9'10'#9'Goods Value'#9'F' 'ITEMSSUB'#9'10'#9'Goods Nett'#9'F' 'ITEMSTAX'#9'10'#9'Goods VAT'#9'F' 'ITEMSTOTAL'#9'10'#9'Goods Total'#9'F' 'MARGIN'#9'10'#9'Margin'#9'F' 'NOTES'#9'40'#9'Notes'#9'F' 'PAYAMOUNT'#9'10'#9'Pay Amount'#9'F' 'PAYTYPE'#9'8'#9'Pay Type'#9'F' 'PROFIT'#9'10'#9'Profit'#9'F' 'SDTOPAY'#9'10'#9'Early Sett.'#9'F' 'SETTDAYS'#9'10'#9'Sett. Days'#9'F' 'SETTDISC'#9'10'#9'Sett. Disc'#9'F' 'TOTALDISC'#9'10'#9'Total Disc'#9'F' 'TOTALNETT'#9'10'#9'Total Nett'#9'F' 'TOTALSUB'#9'10'#9'Total Sub'#9'F' 'TOTALTAX'#9'10'#9'Total VAT'#9'F') MemoAttributes = [mSizeable, mWordWrap, mGridShow] TitleColor = clBtnFace FixedCols = 1 ShowHorzScrollBar = True Align = alClient DataSource = DM1.dsMainInvoice KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert] Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap] PopupMenu = RCPopup TabOrder = 0 TitleAlignment = taLeftJustify TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'Arial' TitleFont.Style = [] TitleLines = 1 TitleButtons = True UseTFields = False OnCalcCellColors = wwDBGrid1CalcCellColors OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes OnTitleButtonClick = wwDBGrid1TitleButtonClick OnDblClick = wwDBGrid1DblClick IndicatorColor = icBlack OnTopRowChanged = wwDBGrid1TopRowChanged OnCalcTitleImage = wwDBGrid1CalcTitleImage ImageList = ImagesDM.GenralBM TitleImageList = ImagesDM.GenralBM end end object Panel2: TPanel Left = 0 Top = 248 Width = 698 Height = 184 Align = alBottom TabOrder = 1 object PageControl1: TPageControl Left = 1 Top = 1 Width = 696 Height = 182 ActivePage = HeaderSheet Align = alClient TabOrder = 0 object HeaderSheet: TTabSheet Caption = 'Customer' object Bevel1: TBevel Left = 4 Top = 4 Width = 681 Height = 125 Shape = bsFrame end object Label1: TLabel Left = 387 Top = 16 Width = 83 Height = 16 Caption = 'Customer Ref.' end object Label2: TLabel Left = 12 Top = 16 Width = 108 Height = 16 Caption = 'Customer Address' end object Label3: TLabel Left = 12 Top = 44 Width = 100 Height = 16 Caption = ' .. .. .. ..' end object Label4: TLabel Left = 12 Top = 72 Width = 100 Height = 16 Caption = ' .. .. .. ..' end object Label6: TLabel Left = 16 Top = 104 Width = 61 Height = 16 Caption = 'Post Code' end object Label12: TLabel Left = 387 Top = 44 Width = 27 Height = 16 Caption = 'Date' end object Label13: TLabel Left = 387 Top = 72 Width = 116 Height = 16 Caption = 'Customer Order No.' end object Label19: TLabel Left = 387 Top = 104 Width = 99 Height = 16 Caption = 'Transaction Type' end object wwDBEdit1: TwwDBEdit Left = 516 Top = 12 Width = 120 Height = 24 Ctl3D = True DataField = 'ACREF' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 0 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit2: TwwDBEdit Left = 516 Top = 68 Width = 150 Height = 24 Ctl3D = True DataField = 'CORDER' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 1 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit3: TwwDBEdit Left = 516 Top = 41 Width = 95 Height = 24 Ctl3D = True DataField = 'INVDATE' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 2 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit5: TwwDBEdit Left = 134 Top = 12 Width = 230 Height = 24 Ctl3D = True DataField = 'ADDRESS1' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 3 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit6: TwwDBEdit Left = 134 Top = 41 Width = 230 Height = 24 Ctl3D = True DataField = 'ADDRESS2' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 4 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit7: TwwDBEdit Left = 134 Top = 68 Width = 230 Height = 24 Ctl3D = True DataField = 'ADDRESS3' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 5 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit8: TwwDBEdit Left = 134 Top = 97 Width = 121 Height = 24 Ctl3D = True DataField = 'ADDRESS4' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 6 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit11: TwwDBEdit Left = 516 Top = 97 Width = 150 Height = 24 Ctl3D = True DataField = 'INVTYPE' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 7 UnboundDataType = wwDefault WantReturns = False WordWrap = False end end object ItemsSheet: TTabSheet Caption = 'Items' object wwDBGrid2: TwwDBGrid Left = 0 Top = 0 Width = 688 Height = 151 Selected.Strings = ( 'STOCKCODE'#9'16'#9'Stock Code' 'DESC'#9'28'#9'Description' 'QUAN'#9'8'#9'Qty' 'PRICE'#9'10'#9'Price' 'DISC'#9'6'#9'Disc % ' 'SUBTOTAL'#9'10'#9'Value'#9'F' 'TOTAL'#9'10'#9'Total' 'TAX'#9'10'#9'VAT'#9'F' 'MARGIN'#9'6'#9'Margin%'#9'F' 'PROFIT'#9'10'#9'Profit'#9'F') MemoAttributes = [mSizeable, mWordWrap, mGridShow] TitleColor = clBtnFace FixedCols = 0 ShowHorzScrollBar = True Align = alClient DataSource = DM1.dsLineInvoice Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap] PopupMenu = RCLinePopup TabOrder = 0 TitleAlignment = taLeftJustify TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'Arial' TitleFont.Style = [] TitleLines = 1 TitleButtons = True UseTFields = False OnCalcCellColors = wwDBGrid2CalcCellColors OnCalcTitleAttributes = wwDBGrid2CalcTitleAttributes IndicatorColor = icBlack OnTopRowChanged = wwDBGrid2TopRowChanged end end object TabSheet3: TTabSheet Caption = 'Foo&ter' object Bevel2: TBevel Left = 4 Top = 2 Width = 677 Height = 149 Shape = bsFrame end object Label5: TLabel Left = 182 Top = 125 Width = 12 Height = 16 Caption = '%' end object Label7: TLabel Left = 212 Top = 12 Width = 99 Height = 16 Caption = 'Payment Method' end object Label8: TLabel Left = 484 Top = 10 Width = 65 Height = 16 Caption = 'Total Value' end object Label9: TLabel Left = 484 Top = 39 Width = 83 Height = 16 Caption = 'Total Discount' end object Label10: TLabel Left = 484 Top = 68 Width = 56 Height = 16 Caption = 'Total Nett' end object Label11: TLabel Left = 484 Top = 96 Width = 57 Height = 16 Caption = 'Total VAT' end object Label14: TLabel Left = 484 Top = 125 Width = 71 Height = 16 Caption = 'Invoice Total' end object Label20: TLabel Left = 212 Top = 42 Width = 101 Height = 16 Caption = 'Payment Amount' end object Label21: TLabel Left = 12 Top = 41 Width = 25 Height = 16 Caption = 'VAT' end object Label16: TLabel Left = 12 Top = 11 Width = 48 Height = 16 Caption = 'Carriage' end object Label15: TLabel Left = 212 Top = 125 Width = 97 Height = 16 Caption = 'Early Settlement' end object Label22: TLabel Left = 12 Top = 71 Width = 28 Height = 16 Caption = 'Total' end object Label17: TLabel Left = 12 Top = 99 Width = 83 Height = 16 Caption = 'Settlmnt Days' end object Label18: TLabel Left = 12 Top = 125 Width = 83 Height = 16 Caption = 'Settlmnt Disc.' end object wwDBEdit15: TwwDBEdit Left = 92 Top = 9 Width = 90 Height = 24 Ctl3D = True DataField = 'CARRIAGE' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 0 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit16: TwwDBEdit Left = 92 Top = 36 Width = 90 Height = 24 Ctl3D = True DataField = 'CARTAX' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 1 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit17: TwwDBEdit Left = 92 Top = 66 Width = 90 Height = 24 Ctl3D = True DataField = 'CARGROSS' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 2 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit18: TwwDBEdit Left = 120 Top = 94 Width = 62 Height = 24 Ctl3D = True DataField = 'SETTDAYS' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 3 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit19: TwwDBEdit Left = 120 Top = 121 Width = 62 Height = 24 Ctl3D = True DataField = 'SETTDISC' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 4 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit25: TwwDBEdit Left = 581 Top = 7 Width = 90 Height = 24 Ctl3D = True DataField = 'TOTALNETT' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 5 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit26: TwwDBEdit Left = 581 Top = 35 Width = 90 Height = 24 Ctl3D = True DataField = 'TOTALDISC' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 6 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit27: TwwDBEdit Left = 581 Top = 63 Width = 90 Height = 24 Ctl3D = True DataField = 'TOTALSUB' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 7 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit28: TwwDBEdit Left = 581 Top = 91 Width = 90 Height = 24 Ctl3D = True DataField = 'TOTALTAX' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 8 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit29: TwwDBEdit Left = 581 Top = 121 Width = 90 Height = 24 Ctl3D = True DataField = 'INVTOTAL' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 9 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit4: TwwDBEdit Left = 321 Top = 8 Width = 129 Height = 24 Ctl3D = True DataField = 'PAYTYPE' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 10 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit9: TwwDBEdit Left = 360 Top = 38 Width = 90 Height = 24 Ctl3D = True DataField = 'PAYAMOUNT' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 11 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit10: TwwDBEdit Left = 360 Top = 121 Width = 90 Height = 24 Ctl3D = True DataField = 'SDTOPAY' DataSource = DM1.dsMainInvoice ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 12 UnboundDataType = wwDefault WantReturns = False WordWrap = False end end 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 = [] Position = bpCustom Options = [sbAllowResize, sbFlatBtns, sbGrayedBtns, sbTransparentBtns] BtnOffsetHorz = 3 BtnOffsetVert = 3 BtnWidth = 64 BtnHeight = 43 TabOrder = 2 InternalVer = 1 object SpeedbarSection1: TSpeedbarSection Caption = 'Main' end object BtnNew: TSpeedItem BtnCaption = 'New' Caption = 'Create New Invoice ' Hint = 'Create New Invoice |' Spacing = 1 Left = 3 Top = 3 Visible = True OnClick = BtnNewClick SectionName = 'Main' end object BtnEdit: TSpeedItem BtnCaption = 'Edit' Caption = 'Edit Invoice Details' Hint = 'Edit Invoice Details|' Spacing = 1 Left = 67 Top = 3 Visible = True OnClick = BtnEditClick SectionName = 'Main' end object BtnSearch: TSpeedItem BtnCaption = 'Search' Caption = 'Search for an Invoice' Hint = 'Search for an Invoice|' Spacing = 1 Left = 123 Top = 3 Visible = True OnClick = BtnSearchClick SectionName = 'Main' end object BtnPrint: TSpeedItem BtnCaption = 'Print' Caption = 'Print Invoices' Hint = 'Print Invoices|' Spacing = 1 Left = 187 Top = 3 Visible = True OnClick = BtnPrintClick SectionName = 'Main' end object BtnPost: TSpeedItem BtnCaption = 'Post' Caption = 'Post Invoice' Hint = 'Post Invoice|' Spacing = 1 Left = 243 Top = 3 Visible = True OnClick = BtnPostClick SectionName = 'Main' end object BtnConvert: TSpeedItem BtnCaption = 'Convert' Caption = 'Convert quotation or proforma to invoice|' Hint = 'Convert quotation or proforma to invoice|' Spacing = 1 Left = 307 Top = 3 Visible = True OnClick = BtnConvertClick SectionName = 'Main' end object BtnCopy: TSpeedItem BtnCaption = 'Copy' Caption = 'Make a Copy' Hint = 'Make a Copy|' Spacing = 1 Left = 371 Top = 3 Visible = True OnClick = BtnCopyClick SectionName = 'Main' end object BtnDelete: TSpeedItem BtnCaption = 'Delete' Caption = 'Delete Transaction' Hint = 'Delete Transaction|' Spacing = 1 Left = 435 Top = 3 Visible = True OnClick = BtnDeleteClick SectionName = 'Main' end object BtnFilter: TSpeedItem BtnCaption = 'Filter' Caption = 'Filter' Hint = 'Filter|' Spacing = 1 Left = 563 Top = 3 Visible = True OnClick = BtnFilterClick SectionName = 'Main' end object BtnReports: TSpeedItem BtnCaption = 'Reports' Caption = 'Reports' DropDownMenu = ReportsPopup Hint = 'Reports|' Spacing = 1 Left = 499 Top = 3 Visible = True SectionName = 'Main' end object BtnClose: TSpeedItem BtnCaption = 'Close' Caption = 'Close' Hint = 'Close|' Spacing = 1 Left = 627 Top = 3 Visible = True OnClick = BtnCloseClick SectionName = 'Main' end end object ReportsPopup: TRxPopupMenu Alignment = paRight LeftMargin = 30 Style = msOwnerDraw OnDrawMargin = ReportsPopupDrawMargin Left = 392 Top = 140 object Daybook1: TMenuItem Caption = 'Daybook' OnClick = Daybook1Click end object TakingsSummary1: TMenuItem Caption = 'Takings Summary' OnClick = TakingsSummary1Click end object CustomerHistory1: TMenuItem Caption = 'Customer History' OnClick = CustomerHistory1Click end object ProductHistory1: TMenuItem Caption = 'Product History' OnClick = ProductHistory1Click end end object Sizer1: TSizer Enabled = True ExceptionAction = eaIgnoreControl GridColumnSizing = gcSizeAllColumns GridRowSizing = grSizeByDefaults MinimumSize = True NavigateOnEnter = False OverrideParentFont = True PerformAssertions = True ShowAssertionFailures = False StretchFonts = True StretchImages = True StretchOnResize = True ThreadProcessing = False Left = 464 Top = 117 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 706) OriginalFormHeight = ( 459) OriginalFormLeft = ( 65) OriginalFormTop = ( 89) OriginalFormPPI = ( 120) OriginalClientWidth = ( 698) OriginalClientHeight = ( 432) end object RCPopup: TRxPopupMenu Style = msOwnerDraw ShowCheckMarks = False OnGetItemParams = RCPopupGetItemParams Left = 284 Top = 137 object pmNew: TMenuItem Caption = 'New' OnClick = BtnNewClick end object pmEdit: TMenuItem Caption = 'Edit' OnClick = BtnEditClick end object N1: TMenuItem Caption = '-' end object pmPrint: TMenuItem Caption = 'Print' OnClick = BtnPrintClick end object pmPost: TMenuItem Caption = 'Post' OnClick = BtnPostClick end object pmConvert: TMenuItem Caption = 'Convert' OnClick = BtnConvertClick end object pmCopy: TMenuItem Caption = 'Copy' OnClick = BtnCopyClick end object pmDelete: TMenuItem Caption = 'Delete' OnClick = BtnDeleteClick end object N2: TMenuItem Caption = '-' end object pmChangeGridColour: TMenuItem Caption = 'Change Grid Colour' OnClick = pmChangeGridColourClick end end object RCLinePopup: TRxPopupMenu OnPopup = RCLinePopupPopup Style = msOwnerDraw ShowCheckMarks = False OnGetItemParams = RCLinePopupGetItemParams Left = 349 Top = 140 object pmStockAdjustment: TMenuItem Caption = 'Stock Adjustment' OnClick = pmStockAdjustmentClick end object pmStockItemPicture: TMenuItem Caption = 'Stock Item Picture' OnClick = pmStockItemPictureClick end object N3: TMenuItem Caption = '-' end object pmLineGridColour: TMenuItem Caption = 'Change Grid Colour' OnClick = pmLineGridColourClick end end end