object fmRefund: TfmRefund Left = 58 Top = 81 AutoScroll = False Caption = 'Refund' 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 OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object Panel3: TPanel Left = 0 Top = 49 Width = 698 Height = 161 Align = alTop TabOrder = 0 object Bevel3: TBevel Left = 544 Top = 4 Width = 149 Height = 149 Shape = bsFrame end object Bevel2: TBevel Left = 4 Top = 4 Width = 209 Height = 149 Shape = bsFrame end object Bevel1: TBevel Left = 216 Top = 4 Width = 325 Height = 149 Shape = bsFrame end object Label1: TLabel Left = 8 Top = 16 Width = 87 Height = 16 Caption = 'Bank/Cash Ref' end object lbCustRef: TLabel Left = 8 Top = 52 Width = 79 Height = 16 Caption = 'Customer Ref' end object Label3: TLabel Left = 8 Top = 90 Width = 71 Height = 16 Caption = 'Refund Date' end object Label4: TLabel Left = 8 Top = 128 Width = 63 Height = 16 Caption = 'Refund Ref' end object Label5: TLabel Left = 220 Top = 16 Width = 102 Height = 16 Caption = 'Bank/Cash Name' end object lbCustName: TLabel Left = 220 Top = 52 Width = 94 Height = 16 Caption = 'Customer Name' end object Label7: TLabel Left = 220 Top = 128 Width = 89 Height = 16 Caption = 'Refund Amount' end object Label8: TLabel Left = 220 Top = 90 Width = 91 Height = 16 Caption = 'Refund Balance' end object Label10: TLabel Left = 552 Top = 11 Width = 47 Height = 16 Caption = 'Balance' end object Label11: TLabel Left = 552 Top = 35 Width = 42 Height = 16 Caption = 'Current' end object Label12: TLabel Left = 552 Top = 59 Width = 48 Height = 16 Caption = '30 Days' end object Label14: TLabel Left = 552 Top = 107 Width = 48 Height = 16 Caption = '90 Days' end object Label13: TLabel Left = 552 Top = 83 Width = 48 Height = 16 Caption = '60 Days' end object Label15: TLabel Left = 552 Top = 131 Width = 31 Height = 16 Caption = 'Older' end object EPayRef: TEdit Left = 100 Top = 124 Width = 109 Height = 24 HelpContext = 178 TabOrder = 3 end object ECustName: TEdit Left = 332 Top = 48 Width = 205 Height = 24 TabStop = False Ctl3D = True ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 5 end object DBEPaymentBal: TCurrencyEdit Left = 332 Top = 86 Width = 80 Height = 22 HelpContext = 489 TabStop = False AutoSize = False Ctl3D = True DisplayFormat = '0.00;-0.00' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentColor = True ParentCtl3D = False ParentFont = False ReadOnly = True TabOrder = 6 OnChange = DBEPaymentBalChange end object DBEPaymentAmount: TRxCalcEdit Left = 332 Top = 124 Width = 100 Height = 24 HelpContext = 205 AutoSize = False ClickKey = 16451 DisplayFormat = '0.00' NumGlyphs = 2 TabOrder = 4 OnEnter = DBEPaymentAmountEnter OnExit = DBEPaymentAmountExit end object DBCBBankCashAcc: TwwDBLookupCombo Left = 100 Top = 12 Width = 109 Height = 24 HelpContext = 203 DropDownAlignment = taLeftJustify Selected.Strings = ( 'NOMACC'#9'10'#9'Bank Ref.' 'NOMNAME'#9'30'#9'Name') LookupTable = taCashBank LookupField = 'NOMACC' TabOrder = 0 AutoDropDown = False ShowButton = True AllowClearKey = False end object EBankName: TwwDBEdit Left = 332 Top = 12 Width = 205 Height = 24 TabStop = False Ctl3D = True DataField = 'NOMNAME' DataSource = dsCashBank ParentColor = True ParentCtl3D = False ReadOnly = True TabOrder = 7 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object DBCDlgDate: TDateEdit Left = 100 Top = 86 Width = 100 Height = 24 HelpContext = 180 ClickKey = 16452 NumGlyphs = 2 CalendarStyle = csDialog YearDigits = dyFour TabOrder = 2 OnButtonClick = DBCDlgDateButtonClick OnEnter = DBCDlgDateEnter OnExit = DBCDlgDateExit end object DBCDlgCustRef: TComboEdit Left = 100 Top = 48 Width = 109 Height = 24 HelpContext = 204 CharCase = ecUpperCase ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 TabOrder = 1 OnButtonClick = DBCDlgCustRefButtonClick OnEnter = DBCDlgCustRefEnter OnExit = DBCDlgCustRefExit end object DBEBalance: TCurrencyEdit Left = 606 Top = 12 Width = 80 Height = 22 TabStop = False AutoSize = False DisplayFormat = '0.00' ParentColor = True ReadOnly = True TabOrder = 8 end object DBECurrent: TCurrencyEdit Left = 606 Top = 34 Width = 80 Height = 22 TabStop = False AutoSize = False DisplayFormat = '0.00' ParentColor = True ReadOnly = True TabOrder = 9 end object DBE30Days: TCurrencyEdit Left = 606 Top = 57 Width = 80 Height = 22 TabStop = False AutoSize = False DisplayFormat = '0.00' ParentColor = True ReadOnly = True TabOrder = 10 end object DBE60Days: TCurrencyEdit Left = 606 Top = 79 Width = 80 Height = 22 TabStop = False AutoSize = False DisplayFormat = '0.00' ParentColor = True ReadOnly = True TabOrder = 11 end object DBE90Days: TCurrencyEdit Left = 606 Top = 102 Width = 80 Height = 22 TabStop = False AutoSize = False DisplayFormat = '0.00' ParentColor = True ReadOnly = True TabOrder = 12 end object DBEOlder: TCurrencyEdit Left = 606 Top = 124 Width = 80 Height = 22 TabStop = False AutoSize = False DisplayFormat = '0.00' ParentColor = True ReadOnly = True TabOrder = 13 end end object Panel5: TPanel Left = 0 Top = 210 Width = 698 Height = 222 Align = alClient Caption = 'Panel5' TabOrder = 1 object wwDBGrid1: TwwDBGrid Left = 1 Top = 1 Width = 696 Height = 220 Selected.Strings = ( 'TRANSTYPE'#9'12'#9'Type' 'TRANSDATE'#9'10'#9'Date'#9'F' 'INVREF'#9'10'#9'Trans~Reference'#9'F' 'DETAILS'#9'27'#9'Details'#9'No' 'TOTAL'#9'10'#9'Total~Paid'#9'No' 'PAYMENT'#9'10'#9'Refund'#9'No' 'Balance'#9'10'#9'Balance'#9'Yes') TitleColor = clBtnFace FixedCols = 0 ShowHorzScrollBar = True EditControlOptions = [ecoSearchOwnerForm, ecoDisableDateTimePicker] Align = alClient Ctl3D = True DataSource = dsTempPayment KeyOptions = [dgEnterToTab] Options = [dgEditing, dgTitles, dgIndicator, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap] ParentCtl3D = False TabOrder = 0 TitleAlignment = taCenter TitleFont.Charset = ANSI_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'Arial' TitleFont.Style = [] TitleLines = 2 TitleButtons = True UseTFields = False OnCalcCellColors = wwDBGrid1CalcCellColors OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes OnEnter = wwDBGrid1Enter OnExit = wwDBGrid1Exit OnKeyDown = wwDBGrid1KeyDown IndicatorColor = icBlack OnTopRowChanged = wwDBGrid1TopRowChanged 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 = [] Options = [sbFlatBtns, sbGrayedBtns, sbTransparentBtns] BtnOffsetHorz = 3 BtnOffsetVert = 3 BtnWidth = 75 BtnHeight = 43 TabOrder = 2 InternalVer = 1 object SpeedbarSection1: TSpeedbarSection Caption = 'Payment' end object BtnSave: TSpeedItem BtnCaption = '&Save' Caption = 'Save the refund' Enabled = False Hint = 'Save the refund|' Spacing = 1 Left = 3 Top = 3 Visible = True OnClick = BtnSaveClick SectionName = 'Payment' end object BtnAbandon: TSpeedItem BtnCaption = '&Abandon' Caption = 'Abandon the refund' Enabled = False Hint = 'Abandon the refund|' Spacing = 1 Left = 78 Top = 3 Visible = True OnClick = BtnAbandonClick SectionName = 'Payment' end object BtnFull: TSpeedItem BtnCaption = '&Full' Caption = 'Fully refund this transaction' Enabled = False Hint = 'Fully refund this transaction|' Spacing = 1 Left = 153 Top = 3 Visible = True OnClick = BtnFullClick SectionName = 'Payment' end object BtnUndo: TSpeedItem BtnCaption = '&Undo' Caption = 'Undo the refund on this transaction' Enabled = False Hint = 'Undo the refund on this transaction|' Spacing = 1 Left = 228 Top = 3 Visible = True OnClick = BtnUndoClick SectionName = 'Payment' end object BtnAuto: TSpeedItem BtnCaption = 'Au&to' Caption = 'Refund transactions automatically' Enabled = False Hint = 'Refund transactions automatically|' Spacing = 1 Left = 303 Top = 3 Visible = True OnClick = BtnAutoClick SectionName = 'Payment' end object BtnUndoAll: TSpeedItem BtnCaption = 'U&ndo All' Caption = 'Undo refunds on all transactions' Enabled = False Hint = 'Undo refunds on all transactions|' Spacing = 1 Left = 378 Top = 3 Visible = True OnClick = BtnUndoAllClick SectionName = 'Payment' end object BtnCheque: TSpeedItem BtnCaption = 'Cheque' Caption = 'Write Cheque' Hint = 'Write Cheque|' Spacing = 1 Left = 453 Top = 3 OnClick = BtnChequeClick SectionName = 'Payment' end object BtnClose: TSpeedItem BtnCaption = '&Close' Caption = 'Close the refund window' Hint = 'Close the refund window|' Spacing = 1 Left = 528 Top = 3 Visible = True OnClick = BtnCloseClick SectionName = 'Payment' end object btnHelp: TSpeedItem BtnCaption = '&Help' Caption = 'View full help on this window' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888 888888888E6648888888888888E6688888888888888888888888888888446888 8888888886664888888888888E664888888888888E6664888888888888E66648 88888888888E6664888888844888E6664888886664888E66488888E666444666 4888888E6666666668888888EE6666668888888888EEEEE88888} Hint = 'View full help on this window|' Spacing = 1 Left = 453 Top = 3 Visible = True OnClick = btnHelpClick SectionName = 'Payment' end end object dsTempPayment: TwwDataSource DataSet = taTempPayment Left = 148 Top = 335 end object taTempPayment: TwwTable BeforeScroll = taTempPaymentBeforeScroll AfterScroll = taTempPaymentAfterScroll OnCalcFields = taTempPaymentCalcFields SyncSQLByRange = True NarrowSearch = False ValidateWithMask = True Left = 142 Top = 271 object taTempPaymentTRANSNO: TFloatField FieldName = 'TRANSNO' Visible = False end object taTempPaymentTRANSTYPE: TStringField DisplayLabel = 'Type' DisplayWidth = 12 FieldName = 'TRANSTYPE' Size = 8 end object taTempPaymentTRANSDATE: TDateField FieldName = 'TRANSDATE' end object taTempPaymentINVREF: TStringField DisplayLabel = 'Invoice~Refrence' DisplayWidth = 12 FieldName = 'INVREF' Size = 10 end object taTempPaymentDETAILS: TStringField DisplayLabel = 'Details' DisplayWidth = 28 FieldName = 'DETAILS' Size = 30 end object taTempPaymentTOTAL: TFloatField DisplayLabel = 'Total' DisplayWidth = 10 FieldName = 'TOTAL' DisplayFormat = '0.00' end object taTempPaymentPAYMENT: TFloatField DisplayLabel = 'Payment' DisplayWidth = 10 FieldName = 'PAYMENT' DisplayFormat = '0.00' end object taTempPaymentONQUERY: TBooleanField FieldName = 'ONQUERY' Visible = False end object taTempPaymentBalance: TFloatField DisplayWidth = 10 FieldName = 'Balance' DisplayFormat = '0.00' Calculated = True end end object taTempTrans: TwwTable DatabaseName = 'EmpireBuilder' IndexName = 'TRANSNO' TableName = 'Trans.DBF' SyncSQLByRange = True NarrowSearch = False ValidateWithMask = True Left = 308 Top = 270 object taTempTransTRANSNO: TFloatField FieldName = 'TRANSNO' end object taTempTransACCREF: TStringField FieldName = 'ACCREF' Size = 10 end object taTempTransTRANSTYPE: TStringField FieldName = 'TRANSTYPE' Size = 8 end object taTempTransTRANSDATE: TDateField FieldName = 'TRANSDATE' end object taTempTransINVREF: TStringField FieldName = 'INVREF' Size = 10 end object taTempTransDETAILS: TStringField FieldName = 'DETAILS' Size = 30 end object taTempTransNETVALUE: TFloatField DisplayLabel = 'Nett' DisplayWidth = 10 FieldName = 'NETVALUE' DisplayFormat = '0.00' Precision = 2 end object taTempTransVATVALUE: TFloatField DisplayLabel = 'VAT' DisplayWidth = 10 FieldName = 'VATVALUE' DisplayFormat = '0.00' Precision = 2 end object taTempTransTOTAL: TFloatField DisplayLabel = 'Total' DisplayWidth = 10 FieldName = 'TOTAL' DisplayFormat = '0.00' Precision = 2 end object taTempTransPAYMENT: TFloatField FieldName = 'PAYMENT' end object taTempTransBALANCE: TFloatField DisplayLabel = 'Balance' DisplayWidth = 10 FieldName = 'BALANCE' DisplayFormat = '0.00' Precision = 2 end object taTempTransQUERY: TBooleanField FieldName = 'QUERY' end object taTempTransMODULE: TStringField FieldName = 'MODULE' Size = 1 end object taTempTransQUERYMEMO: TMemoField FieldName = 'QUERYMEMO' BlobType = ftMemo Size = 1 end object taTempTransREFUND: TFloatField FieldName = 'REFUND' end end object taCashBank: TwwTable SyncSQLByRange = True NarrowSearch = False ValidateWithMask = True Left = 28 Top = 278 end object dsCashBank: TwwDataSource DataSet = taCashBank Left = 28 Top = 342 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 = 496 Top = 157 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 706) OriginalFormHeight = ( 459) OriginalFormLeft = ( 58) OriginalFormTop = ( 81) OriginalFormPPI = ( 120) OriginalClientWidth = ( 698) OriginalClientHeight = ( 432) end end