object fmTakingSumm: TfmTakingSumm Left = 70 Top = 84 HelpContext = 566 AutoScroll = False Caption = 'Takings Summary' ClientHeight = 432 ClientWidth = 698 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] FormStyle = fsMDIChild Position = poDefaultPosOnly Scaled = False Visible = True OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDeactivate = FormDeactivate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object PageControl1: TPageControl Left = 0 Top = 52 Width = 698 Height = 380 ActivePage = TSReport Align = alBottom TabOrder = 1 OnChange = PageControl1Change object TSReport: TTabSheet Caption = 'Report' object SpeedBar: TSpeedBar Left = 0 Top = 0 Width = 690 Height = 49 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns] BtnOffsetHorz = 3 BtnOffsetVert = 3 BtnWidth = 70 BtnHeight = 43 TabOrder = 0 InternalVer = 1 object SpeedbarSection1: TSpeedbarSection Caption = 'Untitled (0)' end object BtnRepPrint: TSpeedItem BtnCaption = 'Print' Caption = 'Print takings summary' Hint = 'Print takings summary' Spacing = 1 Left = 3 Top = 3 Visible = True OnClick = BtnRepPrintClick SectionName = 'Untitled (0)' end object BtnRepEmail: TSpeedItem BtnCaption = 'Email' Caption = 'Email takings summary' Hint = 'Email takings summary|' Spacing = 1 Left = 73 Top = 3 Visible = True OnClick = BtnRepEmailClick SectionName = 'Untitled (0)' end object BtnRepClose: TSpeedItem BtnCaption = 'Close' Caption = 'Close Report Form' Hint = 'Close report' Spacing = 1 Left = 213 Top = 3 Visible = True OnClick = BtnRepCloseClick SectionName = 'Untitled (0)' end object btnHelp: TSpeedItem BtnCaption = '&Help' Caption = 'View help' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888 888888888E6648888888888888E6688888888888888888888888888888446888 8888888886664888888888888E664888888888888E6664888888888888E66648 88888888888E6664888888844888E6664888886664888E66488888E666444666 4888888E6666666668888888EE6666668888888888EEEEE88888} Hint = 'View help|' Spacing = 1 Left = 143 Top = 3 Visible = True OnClick = btnHelpClick SectionName = 'Untitled (0)' end end object Panel2: TPanel Left = 0 Top = 49 Width = 690 Height = 300 Align = alClient Caption = 'Panel2' TabOrder = 1 object wwDBGrid1: TwwDBGrid Left = 1 Top = 1 Width = 688 Height = 298 Selected.Strings = ( 'ACCNAME'#9'30'#9'Account Name' 'ONACC'#9'15'#9'On Account' 'CASH'#9'15'#9'Cash' 'BANK1'#9'15'#9'Bank 1' 'BANK2'#9'15'#9'Bank 2' 'BANK3'#9'15'#9'BANK3' 'BANK4'#9'15'#9'BANK4' 'BANK5'#9'15'#9'BANK5' 'BANK6'#9'15'#9'BANK6' 'BANK7'#9'15'#9'BANK7' 'BANK8'#9'15'#9'BANK8' 'BANK9'#9'15'#9'BANK9' 'BANK10'#9'15'#9'BANK10' 'CTOTAL'#9'15'#9'Total'#9'F') TitleColor = clBtnFace FixedCols = 1 ShowHorzScrollBar = True Align = alClient DataSource = dsTSTemp KeyOptions = [dgAllowDelete] Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells] PopupMenu = pmRClick TabOrder = 0 TitleAlignment = taLeftJustify TitleFont.Charset = ANSI_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'Arial' TitleFont.Style = [] TitleLines = 2 TitleButtons = True OnCalcCellColors = wwDBGrid1CalcCellColors OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes IndicatorColor = icBlack OnTopRowChanged = wwDBGrid1TopRowChanged TitleImageList = ImagesDM.GenralBM FooterCellColor = clYellow FooterHeight = 25 end end end object TSGraph: TTabSheet Caption = 'Graph' object SpeedBar1: TSpeedBar Left = 0 Top = 0 Width = 0 Height = 49 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns] BtnOffsetHorz = 3 BtnOffsetVert = 3 BtnWidth = 70 BtnHeight = 43 TabOrder = 0 InternalVer = 1 object Label7: TLabel Left = 540 Top = 4 Width = 72 Height = 16 Caption = 'Graph Type' end object cbGraphType: TComboBox Left = 540 Top = 20 Width = 137 Height = 24 ItemHeight = 16 Items.Strings = ( 'Vertical Bar ' 'Horizontal Bar' 'Pie' 'Line' 'Fast Line' 'Point' 'Area') TabOrder = 1 Text = 'Vertical Bar' OnChange = cbGraphTypeChange end object cbMarks: TCheckBox Left = 399 Top = 20 Width = 125 Height = 17 HelpContext = 147 Alignment = taLeftJustify Caption = '&Toggle Marks' State = cbChecked TabOrder = 0 OnClick = cbMarksClick end object SpeedbarSection2: TSpeedbarSection Caption = 'Untitled (0)' end object BtnSaveGraph: TSpeedItem BtnCaption = 'Save' Caption = 'Save graph' DropDownMenu = SaveGraphMenu Hint = 'Save graph' NumGlyphs = 2 Spacing = 1 Left = 3 Top = 3 Visible = True SectionName = 'Untitled (0)' end object BtnPrintGraph: TSpeedItem BtnCaption = 'Print' Caption = 'Print takings summary graph' Hint = 'Print takings summary graph' Spacing = 1 Left = 73 Top = 3 Visible = True OnClick = BtnPrintGraphClick SectionName = 'Untitled (0)' end object BtnEmailGraph: TSpeedItem BtnCaption = 'Email' Caption = 'Email takings summary graph' Hint = 'Email takings summary graph' Spacing = 1 Left = 143 Top = 3 Visible = True OnClick = BtnEmailGraphClick SectionName = 'Untitled (0)' end object BtnCloseGraph: TSpeedItem BtnCaption = 'Close' Caption = 'Close' Hint = 'Close' Spacing = 1 Left = 283 Top = 3 Visible = True OnClick = BtnCloseGraphClick SectionName = 'Untitled (0)' end object btnHelpGraph: TSpeedItem BtnCaption = '&Help' Caption = 'View help' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888 888888888E6648888888888888E6688888888888888888888888888888446888 8888888886664888888888888E664888888888888E6664888888888888E66648 88888888888E6664888888844888E6664888886664888E66488888E666444666 4888888E6666666668888888EE6666668888888888EEEEE88888} Hint = 'View help|' Spacing = 1 Left = 213 Top = 3 Visible = True OnClick = btnHelpGraphClick SectionName = 'Untitled (0)' end end object Notebook1: TNotebook Left = 0 Top = 49 Width = 690 Height = 300 Align = alClient TabOrder = 1 object TPage Left = 0 Top = 0 Caption = 'nbpTotals' object TotalsChart: TChart Left = 0 Top = 0 Width = 690 Height = 300 BottomWall.Brush.Color = clBlue BottomWall.Color = clWhite Foot.Font.Charset = DEFAULT_CHARSET Foot.Font.Color = clRed Foot.Font.Height = -13 Foot.Font.Name = 'Arial' Foot.Font.Style = [fsItalic] Gradient.EndColor = 16744576 Gradient.Visible = True LeftWall.Brush.Color = clBlue LeftWall.Color = 16744448 LeftWall.Pen.Color = 8388863 Title.Font.Charset = ANSI_CHARSET Title.Font.Color = clBlue Title.Font.Height = -17 Title.Font.Name = 'Arial' Title.Font.Style = [] Title.Text.Strings = ( 'Taking Summary') BackColor = clWhite BottomAxis.LabelsFont.Charset = DEFAULT_CHARSET BottomAxis.LabelsFont.Color = clBlack BottomAxis.LabelsFont.Height = -10 BottomAxis.LabelsFont.Name = 'Arial' BottomAxis.LabelsFont.Style = [] BottomAxis.Title.Caption = 'Category' BottomAxis.Title.Font.Charset = ANSI_CHARSET BottomAxis.Title.Font.Color = clBlue BottomAxis.Title.Font.Height = -13 BottomAxis.Title.Font.Name = 'Arial Black' BottomAxis.Title.Font.Style = [] LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET LeftAxis.LabelsFont.Color = clBlack LeftAxis.LabelsFont.Height = -10 LeftAxis.LabelsFont.Name = 'Arial' LeftAxis.LabelsFont.Style = [] LeftAxis.Title.Caption = 'Amount' LeftAxis.Title.Font.Charset = ANSI_CHARSET LeftAxis.Title.Font.Color = clBlue LeftAxis.Title.Font.Height = -13 LeftAxis.Title.Font.Name = 'Arial Black' LeftAxis.Title.Font.Style = [] Legend.Color = 10738885 Legend.Font.Charset = DEFAULT_CHARSET Legend.Font.Color = clBlue Legend.Font.Height = -10 Legend.Font.Name = 'Arial' Legend.Font.Style = [] Legend.TextStyle = ltsLeftPercent Legend.ShadowColor = 10485760 Legend.ShadowSize = 2 MaxPointsPerPage = 12 Align = alClient BorderStyle = bsSingle Color = 8388863 TabOrder = 0 object BSAllCustomer: TBarSeries ColorEachPoint = True Marks.Arrow.Color = clBlue Marks.ArrowLength = 11 Marks.BackColor = 8454016 Marks.Style = smsValue Marks.Visible = True Title = 'Taking Summary' SeriesColor = clRed XValues.DateTime = False XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 XValues.Order = loAscending YValues.DateTime = False YValues.Name = 'Bar' YValues.Multiplier = 1.000000000000000000 YValues.Order = loNone end end end object TPage Left = 0 Top = 0 Caption = 'nbpByBank' object SelectedCategoryChart: TChart Left = 0 Top = 0 Width = 690 Height = 300 BottomWall.Color = clWhite Foot.Font.Charset = DEFAULT_CHARSET Foot.Font.Color = clRed Foot.Font.Height = -13 Foot.Font.Name = 'Arial' Foot.Font.Style = [fsItalic] Gradient.EndColor = 4227072 Gradient.Visible = True LeftWall.Color = 16744448 LeftWall.Pen.Color = 8388863 Title.Font.Charset = ANSI_CHARSET Title.Font.Color = clBlue Title.Font.Height = -17 Title.Font.Name = 'Arial' Title.Font.Style = [] Title.Text.Strings = ( 'Taking Summary') BackColor = clWhite BottomAxis.Title.Caption = 'Banks' BottomAxis.Title.Font.Charset = ANSI_CHARSET BottomAxis.Title.Font.Color = clBlue BottomAxis.Title.Font.Height = -13 BottomAxis.Title.Font.Name = 'Arial Black' BottomAxis.Title.Font.Style = [] LeftAxis.Title.Caption = 'Amount' LeftAxis.Title.Font.Charset = ANSI_CHARSET LeftAxis.Title.Font.Color = clBlue LeftAxis.Title.Font.Height = -13 LeftAxis.Title.Font.Name = 'Arial Black' LeftAxis.Title.Font.Style = [] Legend.TextStyle = ltsRightValue MaxPointsPerPage = 4 Align = alClient BorderStyle = bsSingle Color = 8388863 TabOrder = 0 object BSSelectedCustomer: TBarSeries ColorEachPoint = True Marks.Arrow.Color = clBlue Marks.ArrowLength = 11 Marks.BackColor = 8454016 Marks.Style = smsValue Marks.Visible = True Title = 'AgedDebtor' SeriesColor = clRed XValues.DateTime = False XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 XValues.Order = loAscending YValues.DateTime = False YValues.Name = 'Bar' YValues.Multiplier = 1.000000000000000000 YValues.Order = loNone end end end end end end object Panel1: TPanel Left = 0 Top = 0 Width = 698 Height = 52 Align = alClient TabOrder = 0 object Label1: TLabel Left = 24 Top = 4 Width = 88 Height = 16 Caption = 'Start Customer' end object Label2: TLabel Left = 152 Top = 4 Width = 95 Height = 16 Caption = 'Finish Customer' end object Label5: TLabel Left = 408 Top = 4 Width = 66 Height = 16 Caption = 'Finish Date' end object Label6: TLabel Left = 292 Top = 4 Width = 59 Height = 16 Caption = 'Start Date' end object DBCDlgStCustRef: TComboEdit Left = 8 Top = 20 Width = 120 Height = 24 Hint = 'Press F1 for help' HelpContext = 617 ButtonHint = 'Search' CharCase = ecUpperCase ClickKey = 16467 ButtonWidth = 24 MaxLength = 16 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 0 OnButtonClick = DBCDlgStCustReCustomDlg OnEnter = DBCDlgStCustRefEnter OnExit = DBCDlgStCustRefExit end object DBCDlgFiCustRef: TComboEdit Left = 140 Top = 20 Width = 120 Height = 24 Hint = 'Press F1 for help' HelpContext = 618 ButtonHint = 'Search' CharCase = ecUpperCase ClickKey = 16467 ButtonWidth = 24 MaxLength = 16 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 1 OnButtonClick = DBCDlgFiCustReCustomDlg OnEnter = DBCDlgFiCustRefEnter OnExit = DBCDlgFiCustRefExit end object DEStartDate: TDateEdit Left = 276 Top = 20 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 619 ButtonHint = 'Calendar' NumGlyphs = 2 ParentShowHint = False ShowHint = True CalendarStyle = csDialog Weekends = [Sun, Sat] YearDigits = dyFour TabOrder = 2 OnAcceptDate = DEStartDateAcceptDate OnEnter = DEStartDateEnter OnExit = DEStartDateExit end object DEFinDate: TDateEdit Left = 392 Top = 20 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 620 ButtonHint = 'Calendar' NumGlyphs = 2 ParentShowHint = False ShowHint = True CalendarStyle = csDialog Weekends = [Sun, Sat] YearDigits = dyFour TabOrder = 3 OnAcceptDate = DEFinDateAcceptDate OnEnter = DEFinDateEnter OnExit = DEFinDateExit end object cbIncVAT: TCheckBox Left = 512 Top = 24 Width = 173 Height = 17 Hint = 'Press F1 for help' HelpContext = 622 Alignment = taLeftJustify Caption = 'Include VAT Amounts' ParentShowHint = False ShowHint = True State = cbChecked TabOrder = 4 OnClick = cbIncVATClick 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 = 660 Top = 313 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 706) OriginalFormHeight = ( 459) OriginalFormLeft = ( 70) OriginalFormTop = ( 84) OriginalFormPPI = ( 120) OriginalClientWidth = ( 698) OriginalClientHeight = ( 432) end object SaveGraphMenu: TRxPopupMenu LeftMargin = 30 Style = msOwnerDraw ShowCheckMarks = False OnDrawMargin = SaveGraphMenuDrawMargin Left = 474 Top = 354 object pmSaveAsBitmap: TMenuItem Caption = 'Save As &Bitmap' OnClick = pmSaveAsBitmapClick end object pmSaveAsMetafile: TMenuItem Caption = 'Save As &Metafile' OnClick = pmSaveAsMetafileClick end object pmCopyToClipboard: TMenuItem Caption = 'Copy To &Clipboard' OnClick = pmCopyToClipboardClick end end object taTSTemp: TwwTable SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True OnFilter = taTSTempFilter Left = 576 Top = 295 object taTSTempACCNAME: TStringField DisplayLabel = 'Account Name' DisplayWidth = 30 FieldName = 'ACCNAME' Size = 30 end object taTSTempONACC: TFloatField DisplayLabel = 'On Account' DisplayWidth = 15 FieldName = 'ONACC' DisplayFormat = '0.00' end object taTSTempCASH: TFloatField DisplayLabel = 'Cash' DisplayWidth = 15 FieldName = 'CASH' DisplayFormat = '0.00' end object taTSTempBANK1: TFloatField DisplayLabel = 'Bank 1' DisplayWidth = 15 FieldName = 'BANK1' DisplayFormat = '0.00' end object taTSTempBANK2: TFloatField DisplayLabel = 'Bank 2' DisplayWidth = 15 FieldName = 'BANK2' DisplayFormat = '0.00' end object taTSTempBANK3: TFloatField DisplayWidth = 15 FieldName = 'BANK3' DisplayFormat = '0.00' end object taTSTempBANK4: TFloatField DisplayWidth = 15 FieldName = 'BANK4' DisplayFormat = '0.00' end object taTSTempBANK5: TFloatField DisplayWidth = 15 FieldName = 'BANK5' DisplayFormat = '0.00' end object taTSTempBANK6: TFloatField DisplayWidth = 15 FieldName = 'BANK6' DisplayFormat = '0.00' end object taTSTempBANK7: TFloatField DisplayWidth = 15 FieldName = 'BANK7' DisplayFormat = '0.00' end object taTSTempBANK8: TFloatField DisplayWidth = 15 FieldName = 'BANK8' DisplayFormat = '0.00' end object taTSTempBANK9: TFloatField DisplayWidth = 15 FieldName = 'BANK9' DisplayFormat = '0.00' end object taTSTempBANK10: TFloatField DisplayWidth = 15 FieldName = 'BANK10' DisplayFormat = '0.00' end object taTSTempCTOTAL: TFloatField DisplayLabel = 'Total' DisplayWidth = 15 FieldName = 'CTOTAL' DisplayFormat = '0.00' end object taTSTempACREF: TStringField DisplayLabel = 'Account' DisplayWidth = 10 FieldName = 'ACREF' Visible = False Size = 10 end end object dsTSTemp: TwwDataSource DataSet = taTSTemp Left = 496 Top = 291 end object wwDataSource1: TwwDataSource Left = 492 Top = 148 end object taMainInvoice: TwwTable DatabaseName = 'EmpireBuilder' IndexName = 'INVNO' TableName = 'Invoice.DBF' SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 576 Top = 168 object taMainInvoiceINVNO: TFloatField FieldName = 'INVNO' end object taMainInvoiceINVTYPE: TStringField FieldName = 'INVTYPE' Size = 11 end object taMainInvoicePAYTYPE: TStringField FieldName = 'PAYTYPE' Size = 8 end object taMainInvoiceBANK: TStringField FieldName = 'BANK' Size = 10 end object taMainInvoicePAYAMOUNT: TFloatField FieldName = 'PAYAMOUNT' end object taMainInvoiceINVDATE: TDateField FieldName = 'INVDATE' end object taMainInvoiceACREF: TStringField FieldName = 'ACREF' Size = 10 end object taMainInvoiceNAME: TStringField FieldName = 'NAME' Size = 30 end object taMainInvoiceADDRESS1: TStringField FieldName = 'ADDRESS1' Size = 30 end object taMainInvoiceADDRESS2: TStringField FieldName = 'ADDRESS2' Size = 30 end object taMainInvoiceADDRESS3: TStringField FieldName = 'ADDRESS3' Size = 30 end object taMainInvoiceADDRESS4: TStringField FieldName = 'ADDRESS4' Size = 30 end object taMainInvoiceTELNO: TStringField FieldName = 'TELNO' Size = 15 end object taMainInvoiceDELNAME: TStringField FieldName = 'DELNAME' Size = 30 end object taMainInvoiceDELADD1: TStringField FieldName = 'DELADD1' Size = 30 end object taMainInvoiceDELADD2: TStringField FieldName = 'DELADD2' Size = 30 end object taMainInvoiceDELADD3: TStringField FieldName = 'DELADD3' Size = 30 end object taMainInvoiceDELADD4: TStringField FieldName = 'DELADD4' Size = 30 end object taMainInvoiceDELTELNO: TStringField FieldName = 'DELTELNO' Size = 15 end object taMainInvoiceCORDER: TStringField FieldName = 'CORDER' Size = 15 end object taMainInvoiceNOTES: TMemoField FieldName = 'NOTES' BlobType = ftMemo Size = 1 end object taMainInvoiceSETTDAYS: TSmallintField FieldName = 'SETTDAYS' end object taMainInvoiceSETTDISC: TFloatField FieldName = 'SETTDISC' end object taMainInvoiceITEMSNETT: TFloatField FieldName = 'ITEMSNETT' end object taMainInvoiceITEMSDISC: TFloatField FieldName = 'ITEMSDISC' end object taMainInvoiceITEMSSUB: TFloatField FieldName = 'ITEMSSUB' end object taMainInvoiceITEMSTAX: TFloatField FieldName = 'ITEMSTAX' end object taMainInvoiceITEMSTOTAL: TFloatField FieldName = 'ITEMSTOTAL' end object taMainInvoiceCARRIAGE: TFloatField FieldName = 'CARRIAGE' end object taMainInvoiceCARTAXCODE: TStringField FieldName = 'CARTAXCODE' Size = 1 end object taMainInvoiceCARTAX: TFloatField FieldName = 'CARTAX' end object taMainInvoiceCARNOMINAL: TStringField FieldName = 'CARNOMINAL' Size = 10 end object taMainInvoiceCARGROSS: TFloatField FieldName = 'CARGROSS' end object taMainInvoiceTOTALNETT: TFloatField FieldName = 'TOTALNETT' end object taMainInvoiceTOTALDISC: TFloatField FieldName = 'TOTALDISC' end object taMainInvoiceTOTALSUB: TFloatField FieldName = 'TOTALSUB' end object taMainInvoiceTOTALTAX: TFloatField FieldName = 'TOTALTAX' end object taMainInvoiceINVTOTAL: TFloatField FieldName = 'INVTOTAL' end object taMainInvoiceSDTOPAY: TFloatField FieldName = 'SDTOPAY' end object taMainInvoicePOSTED: TBooleanField FieldName = 'POSTED' end object taMainInvoicePRINTED: TBooleanField FieldName = 'PRINTED' end object taMainInvoicePROFIT: TFloatField FieldName = 'PROFIT' end object taMainInvoiceMARGIN: TFloatField FieldName = 'MARGIN' end object taMainInvoiceTAG1: TBooleanField FieldName = 'TAG1' end object taMainInvoiceINVFORM: TStringField FieldName = 'INVFORM' Size = 1 end end object wwDataSource2: TwwDataSource Left = 492 Top = 240 end object taLineInvoice: TwwTable DatabaseName = 'EmpireBuilder' IndexName = 'INVNO' TableName = 'Invoice2.DBF' SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 588 Top = 232 object taLineInvoiceINVNO: TFloatField FieldName = 'INVNO' end object taLineInvoiceSTOCKCODE: TStringField FieldName = 'STOCKCODE' Size = 16 end object taLineInvoiceDESC: TMemoField FieldName = 'DESC' BlobType = ftMemo Size = 1 end object taLineInvoiceQUAN: TFloatField FieldName = 'QUAN' end object taLineInvoicePRICE: TFloatField FieldName = 'PRICE' end object taLineInvoiceDISC: TFloatField FieldName = 'DISC' end object taLineInvoiceTAXCODE: TStringField FieldName = 'TAXCODE' Size = 1 end object taLineInvoiceNOMINAL: TStringField FieldName = 'NOMINAL' Size = 10 end object taLineInvoiceCOSTPRICE: TFloatField FieldName = 'COSTPRICE' end object taLineInvoicePROFIT: TFloatField FieldName = 'PROFIT' end object taLineInvoiceMARGIN: TFloatField FieldName = 'MARGIN' end object taLineInvoiceNETT: TFloatField FieldName = 'NETT' end object taLineInvoiceDISCOUNT: TFloatField FieldName = 'DISCOUNT' end object taLineInvoiceSUBTOTAL: TFloatField FieldName = 'SUBTOTAL' end object taLineInvoiceTAX: TFloatField FieldName = 'TAX' end object taLineInvoiceTOTAL: TFloatField FieldName = 'TOTAL' end end object pmRClick: TRxPopupMenu Style = msOwnerDraw ShowCheckMarks = False OnGetItemParams = pmRClickGetItemParams Left = 436 Top = 209 object pmPrint: TMenuItem Caption = 'Print' OnClick = BtnRepPrintClick end object pmEmail: TMenuItem Caption = 'Email' OnClick = BtnRepEmailClick end object N4: TMenuItem Caption = '-' end object pmiGridColor: TMenuItem Caption = 'Change Grid Colour' OnClick = pmiGridColorClick end end end