object fmCustDetails: TfmCustDetails Left = 65 Top = 108 HelpContext = 67 AutoScroll = False Caption = 'New Customer' 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 Panel2: TPanel Left = 0 Top = 49 Width = 698 Height = 383 Align = alClient TabOrder = 0 object PageControl1: TPageControl Left = 1 Top = 1 Width = 696 Height = 381 ActivePage = TabDetails Align = alClient TabOrder = 1 TabStop = False OnChange = PageControl1Change object TabDetails: TTabSheet Caption = 'D&etails' object Panel4: TPanel Left = 348 Top = 0 Width = 340 Height = 349 BevelInner = bvLowered TabOrder = 0 object Bevel5: TBevel Left = 8 Top = 192 Width = 325 Height = 101 Shape = bsFrame end object Bevel4: TBevel Left = 8 Top = 8 Width = 325 Height = 177 Shape = bsFrame end object Label12: TLabel Left = 16 Top = 20 Width = 66 Height = 16 Caption = 'Credit Limit' end object Label13: TLabel Left = 200 Top = 20 Width = 36 Height = 16 Caption = 'Terms' end object Label15: TLabel Left = 16 Top = 236 Width = 59 Height = 16 Caption = 'VAT Code' end object Label16: TLabel Left = 16 Top = 204 Width = 41 Height = 16 Caption = 'VAT ID' end object Label17: TLabel Left = 180 Top = 232 Width = 67 Height = 16 Caption = 'EC Country' end object Label18: TLabel Left = 16 Top = 52 Width = 62 Height = 16 Caption = 'Sett. Days' end object Label19: TLabel Left = 16 Top = 124 Width = 48 Height = 16 Caption = 'Account' end object Label21: TLabel Left = 200 Top = 52 Width = 58 Height = 16 Caption = 'Sett. Disc' end object Label22: TLabel Left = 200 Top = 124 Width = 51 Height = 16 Caption = 'Discount' end object Label14: TLabel Left = 200 Top = 88 Width = 64 Height = 16 Caption = 'Price Code' end object DBCheckBox2: TDBCheckBox Left = 16 Top = 88 Width = 93 Height = 17 HelpContext = 76 Alignment = taLeftJustify Caption = 'On Stop' DataField = 'ONSTOP' DataSource = DM1.dsCustomer TabOrder = 4 ValueChecked = 'True' ValueUnchecked = 'False' end object wwDBEdit12: TwwDBEdit Left = 96 Top = 16 Width = 80 Height = 24 HelpContext = 72 DataField = 'CREITLMT' DataSource = DM1.dsCustomer TabOrder = 0 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBSpinEdit1: TwwDBSpinEdit Left = 276 Top = 16 Width = 50 Height = 24 HelpContext = 73 Increment = 1.000000000000000000 MaxValue = 999.000000000000000000 DataField = 'TERMS' DataSource = DM1.dsCustomer TabOrder = 1 UnboundDataType = wwDefault end object wwDBSpinEdit2: TwwDBSpinEdit Left = 276 Top = 84 Width = 30 Height = 24 HelpContext = 77 Increment = 1.000000000000000000 MaxValue = 3.000000000000000000 MinValue = 1.000000000000000000 Value = 1.000000000000000000 DataField = 'PRICECODE' DataSource = DM1.dsCustomer TabOrder = 5 UnboundDataType = wwDefault end object wwDBEdit13: TwwDBEdit Left = 96 Top = 200 Width = 120 Height = 24 HelpContext = 81 DataField = 'VATID' DataSource = DM1.dsCustomer TabOrder = 9 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object DBSVatCode: TwwDBSpinEdit Left = 96 Top = 232 Width = 30 Height = 24 HelpContext = 83 Increment = 1.000000000000000000 MaxValue = 9.000000000000000000 Value = 1.000000000000000000 DataField = 'VATCODE' DataSource = DM1.dsCustomer TabOrder = 10 UnboundDataType = wwDefault end object wwDBSpinEdit4: TwwDBSpinEdit Left = 96 Top = 48 Width = 50 Height = 24 HelpContext = 74 Increment = 1.000000000000000000 MaxValue = 999.000000000000000000 DataField = 'SETTDAYS' DataSource = DM1.dsCustomer TabOrder = 2 UnboundDataType = wwDefault end object wwDBEdit15: TwwDBEdit Left = 276 Top = 48 Width = 50 Height = 24 HelpContext = 75 DataField = 'SETTDISC' DataSource = DM1.dsCustomer TabOrder = 3 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit17: TwwDBEdit Left = 276 Top = 120 Width = 50 Height = 24 HelpContext = 80 DataField = 'DISCOUNT' DataSource = DM1.dsCustomer TabOrder = 7 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object DBCheckBox1: TDBCheckBox Left = 16 Top = 268 Width = 309 Height = 17 HelpContext = 82 Alignment = taLeftJustify Caption = 'Use this VAT Code in ALL Transactions' DataField = 'ORVATCODE' DataSource = DM1.dsCustomer TabOrder = 12 ValueChecked = 'True' ValueUnchecked = 'False' end object DBCheckBox4: TDBCheckBox Left = 16 Top = 159 Width = 309 Height = 17 HelpContext = 79 Alignment = taLeftJustify Caption = 'Use this Financial Account In ALL transactions' DataField = 'ORNOMACC' DataSource = DM1.dsCustomer TabOrder = 8 ValueChecked = 'True' ValueUnchecked = 'False' end object DBLCECCountry: TwwDBLookupCombo Left = 264 Top = 228 Width = 61 Height = 24 HelpContext = 84 CharCase = ecUpperCase DropDownAlignment = taRightJustify Selected.Strings = ( 'CODE'#9'2'#9'EC Code' 'COUNTRY'#9'15'#9'EC Country') DataField = 'ECCODE' DataSource = DM1.dsCustomer LookupTable = DM1.taCountry LookupField = 'CODE' Options = [loColLines, loRowLines, loTitles] DropDownCount = 5 DropDownWidth = 300 TabOrder = 11 AutoDropDown = False ShowButton = True UseTFields = False AllowClearKey = False end object wwDBCDlgNomRef: TRxDBComboEdit Left = 96 Top = 120 Width = 100 Height = 24 HelpContext = 78 ButtonHint = 'Find' CharCase = ecUpperCase ClickKey = 16467 DataField = 'NOMACC' DataSource = DM1.dsCustomer ButtonWidth = 24 NumGlyphs = 1 TabOrder = 6 OnButtonClick = wwDBCDlgNomRefButtonClick OnExit = wwDBCDlgNomRefExit end end end object TabBalance: TTabSheet Caption = '&Balance' object Panel5: TPanel Left = 348 Top = 0 Width = 340 Height = 349 BevelInner = bvLowered TabOrder = 0 object Bevel7: TBevel Left = 8 Top = 4 Width = 321 Height = 153 Shape = bsFrame end object Label20: TLabel Left = 20 Top = 12 Width = 47 Height = 16 Caption = 'Balance' end object Label23: TLabel Left = 20 Top = 35 Width = 42 Height = 16 Caption = 'Current' end object Label24: TLabel Left = 20 Top = 59 Width = 48 Height = 16 Caption = '30 Days' end object Label25: TLabel Left = 20 Top = 83 Width = 48 Height = 16 Caption = '60 Days' end object Label26: TLabel Left = 20 Top = 107 Width = 48 Height = 16 Caption = '90 Days' end object Label27: TLabel Left = 20 Top = 131 Width = 31 Height = 16 Caption = 'Older' end object Bevel8: TBevel Left = 8 Top = 160 Width = 321 Height = 183 Shape = bsFrame end object Label28: TLabel Left = 20 Top = 171 Width = 134 Height = 16 Caption = 'Current Month Turnover' end object Label29: TLabel Left = 20 Top = 195 Width = 125 Height = 16 Caption = 'Current Year Turnover' end object Label30: TLabel Left = 20 Top = 220 Width = 112 Height = 16 Caption = 'Last Payment Date' end object Label31: TLabel Left = 20 Top = 245 Width = 93 Height = 16 Caption = 'Last Sales Date' end object Label32: TLabel Left = 20 Top = 294 Width = 146 Height = 16 Caption = 'Amount Due for Payment' end object Label33: TLabel Left = 20 Top = 319 Width = 134 Height = 16 Caption = 'Total Amount on Query' end object Label34: TLabel Left = 20 Top = 270 Width = 75 Height = 16 Caption = 'Amount Paid' end object wwDBEdit18: TwwDBEdit Left = 236 Top = 8 Width = 80 Height = 24 HelpContext = 85 Ctl3D = True DataField = 'BALANCE' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 0 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit19: TwwDBEdit Left = 236 Top = 80 Width = 80 Height = 24 HelpContext = 88 Ctl3D = True DataField = 'PERBAL2' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 3 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit20: TwwDBEdit Left = 236 Top = 32 Width = 80 Height = 24 HelpContext = 86 Ctl3D = True DataField = 'CURRENT' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 1 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit21: TwwDBEdit Left = 236 Top = 104 Width = 80 Height = 24 HelpContext = 89 Ctl3D = True DataField = 'PERBAL3' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 4 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit22: TwwDBEdit Left = 236 Top = 56 Width = 80 Height = 24 HelpContext = 87 Ctl3D = True DataField = 'PERBAL1' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 2 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit23: TwwDBEdit Left = 236 Top = 128 Width = 80 Height = 24 HelpContext = 90 Ctl3D = True DataField = 'PERBAL4' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 5 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit1: TwwDBEdit Left = 236 Top = 217 Width = 80 Height = 24 HelpContext = 93 Ctl3D = True DataField = 'LPAYDATE' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 8 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit14: TwwDBEdit Left = 236 Top = 242 Width = 80 Height = 24 HelpContext = 94 Ctl3D = True DataField = 'LSALEDATE' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 9 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit16: TwwDBEdit Left = 236 Top = 266 Width = 80 Height = 24 HelpContext = 95 Ctl3D = True DataField = 'AMTPAID' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 10 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit24: TwwDBEdit Left = 236 Top = 291 Width = 80 Height = 24 HelpContext = 96 Ctl3D = True DataField = 'PAYDUE' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 11 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object wwDBEdit25: TwwDBEdit Left = 236 Top = 316 Width = 80 Height = 24 HelpContext = 97 Ctl3D = True DataField = 'AMTQUERY' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 12 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object ECurYTurnover: TwwDBEdit Left = 236 Top = 192 Width = 80 Height = 24 HelpContext = 92 Ctl3D = True DataField = 'YTOVER' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 7 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object ECurMTurnover: TwwDBEdit Left = 236 Top = 167 Width = 80 Height = 24 HelpContext = 91 Ctl3D = True DataField = 'MTOVER' DataSource = DM1.dsCustomer ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 6 UnboundDataType = wwDefault WantReturns = False WordWrap = False end end end object TabNotepad: TTabSheet Caption = 'N&otepad' object Panel6: TPanel Left = 348 Top = 0 Width = 340 Height = 349 BevelInner = bvLowered TabOrder = 0 object DBMemo1: TDBMemo Left = 2 Top = 2 Width = 336 Height = 345 Align = alClient DataField = 'NOTEPAD' DataSource = DM1.dsCustomer TabOrder = 0 OnEnter = DBMemo1Enter OnExit = DBMemo1Exit end end end end object Panel3: TPanel Left = 8 Top = 28 Width = 337 Height = 353 BevelInner = bvLowered TabOrder = 0 object Bevel2: TBevel Left = 8 Top = 72 Width = 321 Height = 121 Shape = bsFrame end object Bevel3: TBevel Left = 8 Top = 196 Width = 321 Height = 149 Shape = bsFrame end object Bevel1: TBevel Left = 8 Top = 4 Width = 321 Height = 65 Shape = bsFrame end object Label1: TLabel Left = 16 Top = 16 Width = 83 Height = 16 Caption = 'Customer Ref.' end object Label2: TLabel Left = 16 Top = 44 Width = 34 Height = 16 Caption = 'Name' end object Label3: TLabel Left = 16 Top = 80 Width = 48 Height = 16 Caption = 'Address' end object Label4: TLabel Left = 16 Top = 112 Width = 47 Height = 16 Caption = ' " " "' end object Label5: TLabel Left = 16 Top = 136 Width = 47 Height = 16 Caption = ' " " "' end object Label6: TLabel Left = 16 Top = 160 Width = 61 Height = 16 Caption = 'Post Code' end object Label7: TLabel Left = 16 Top = 208 Width = 41 Height = 16 Caption = 'Tel No.' end object Label8: TLabel Left = 12 Top = 236 Width = 47 Height = 16 Caption = ' " " "' end object Label9: TLabel Left = 16 Top = 264 Width = 46 Height = 16 Caption = 'Fax No.' end object Label10: TLabel Left = 16 Top = 292 Width = 33 Height = 16 Caption = 'Email' end object Label11: TLabel Left = 16 Top = 320 Width = 83 Height = 16 Caption = 'Contact Name' end object lbNew: TLabel Left = 264 Top = 16 Width = 5 Height = 19 Alignment = taCenter Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clNavy Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object ipdbeName: TwwDBEdit Left = 112 Top = 40 Width = 210 Height = 24 HelpContext = 68 DataField = 'NAME' DataSource = DM1.dsCustomer TabOrder = 1 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object ipdbeAddress1: TwwDBEdit Left = 112 Top = 76 Width = 209 Height = 24 HelpContext = 68 DataField = 'ADDRESS1' DataSource = DM1.dsCustomer TabOrder = 2 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object ipdbeAddress2: TwwDBEdit Left = 112 Top = 104 Width = 209 Height = 24 HelpContext = 68 DataField = 'ADDRESS2' DataSource = DM1.dsCustomer TabOrder = 3 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object ipdbeAddress3: TwwDBEdit Left = 112 Top = 132 Width = 209 Height = 24 HelpContext = 68 DataField = 'ADDRESS3' DataSource = DM1.dsCustomer TabOrder = 4 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object ipdbePostCode: TwwDBEdit Left = 112 Top = 160 Width = 90 Height = 24 HelpContext = 68 CharCase = ecUpperCase DataField = 'POSTCODE' DataSource = DM1.dsCustomer TabOrder = 5 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object ipdbeTelNo: TwwDBEdit Left = 112 Top = 204 Width = 120 Height = 24 HelpContext = 69 DataField = 'TELNO1' DataSource = DM1.dsCustomer TabOrder = 6 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object ipdbeTelNo2: TwwDBEdit Left = 112 Top = 232 Width = 120 Height = 24 HelpContext = 69 DataField = 'TELNO2' DataSource = DM1.dsCustomer TabOrder = 7 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object ipdbeFaxNo: TwwDBEdit Left = 112 Top = 260 Width = 120 Height = 24 HelpContext = 69 DataField = 'FAXNO' DataSource = DM1.dsCustomer TabOrder = 8 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object ipdbeEmail: TwwDBEdit Left = 112 Top = 288 Width = 209 Height = 24 HelpContext = 70 DataField = 'EMAIL' DataSource = DM1.dsCustomer TabOrder = 9 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object ipdbeContact: TwwDBEdit Left = 112 Top = 316 Width = 180 Height = 24 HelpContext = 71 DataField = 'CONTACT' DataSource = DM1.dsCustomer TabOrder = 10 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object DBCDlgCustRef: TComboEdit Left = 112 Top = 12 Width = 150 Height = 24 CharCase = ecUpperCase ClickKey = 16467 ButtonWidth = 24 MaxLength = 10 NumGlyphs = 1 TabOrder = 0 OnButtonClick = DBCDlgCustRefButtonClick OnEnter = DBCDlgCustRefEnter OnExit = DBCDlgCustRefExit 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 = [sbFlatBtns, sbGrayedBtns, sbTransparentBtns] BtnOffsetHorz = 3 BtnOffsetVert = 3 BtnWidth = 75 BtnHeight = 43 TabOrder = 1 InternalVer = 1 object SpeedbarSection1: TSpeedbarSection Caption = 'Main' end object BtnNew: TSpeedItem BtnCaption = 'Ne&w' Caption = 'Add New Customer' Hint = 'Add New Customer|' Spacing = 1 Left = 3 Top = 3 Visible = True OnClick = BtnNewClick SectionName = 'Main' end object BtnSave: TSpeedItem BtnCaption = '&Save' Caption = 'Save Customer Details' Enabled = False Hint = 'Save Customer Details|' Spacing = 1 Left = 78 Top = 3 Visible = True OnClick = BtnSaveClick SectionName = 'Main' end object BtnAbandon: TSpeedItem BtnCaption = '&Abandon' Caption = 'Abandon Customer Details' Enabled = False Hint = 'Abandon Customer Details|' Spacing = 1 Left = 153 Top = 3 Visible = True OnClick = BtnAbandonClick SectionName = 'Main' end object BtnDelete: TSpeedItem BtnCaption = '&Delete' Caption = 'Delete Record' Hint = 'Delete Record|' Spacing = 1 Left = 228 Top = 3 Visible = True OnClick = BtnDeleteClick SectionName = 'Main' end object BtnPrevious: TSpeedItem BtnCaption = '&Previous' Caption = 'Previous Customer' Hint = 'Previous Customer|' Spacing = 1 Left = 303 Top = 3 Visible = True OnClick = BtnPreviousClick SectionName = 'Main' end object BtnNext: TSpeedItem BtnCaption = '&Next' Caption = 'Next Customer' Hint = 'Next Customer|' Spacing = 1 Left = 378 Top = 3 Visible = True OnClick = BtnNextClick SectionName = 'Main' end object BtnClose: TSpeedItem BtnCaption = '&Close' Caption = 'Close' Hint = 'Close|' Spacing = 1 Left = 603 Top = 3 Visible = True OnClick = BtnCloseClick SectionName = 'Main' end object BtnEmail: TSpeedItem BtnCaption = 'E&mail' Caption = 'Email Customer' Hint = 'Email Customer|' Spacing = 1 Left = 453 Top = 3 Visible = True OnClick = BtnEmailClick SectionName = 'Main' end object btnHelp: TSpeedItem BtnCaption = '&Help' Caption = 'Help' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888 888888888E6648888888888888E6688888888888888888888888888888446888 8888888886664888888888888E664888888888888E6664888888888888E66648 88888888888E6664888888844888E6664888886664888E66488888E666444666 4888888E6666666668888888EE6666668888888888EEEEE88888} Hint = 'Help|' Spacing = 1 Left = 528 Top = 3 Visible = True OnClick = btnHelpClick SectionName = 'Main' end 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 = 657 Top = 372 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 706) OriginalFormHeight = ( 459) OriginalFormLeft = ( 65) OriginalFormTop = ( 108) OriginalFormPPI = ( 120) OriginalClientWidth = ( 698) OriginalClientHeight = ( 432) end end