object fmZoomPay: TfmZoomPay Left = 276 Top = 133 HelpContext = 110 ActiveControl = BtnClose AutoScroll = False Caption = 'Payment Allocations' ClientHeight = 308 ClientWidth = 383 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Scaled = False Visible = True OnClose = FormClose OnCloseQuery = FormCloseQuery OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object Panel2: TPanel Left = 0 Top = 263 Width = 383 Height = 45 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object BtnClose: TButton Left = 88 Top = 8 Width = 75 Height = 30 Caption = '&Close' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = BtnCloseClick end object BtnDetails: TButton Left = 8 Top = 8 Width = 75 Height = 30 Hint = 'View the details of the selected transactions' Caption = '&Details' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = BtnDetailsClick end object btnHelp: TButton Left = 300 Top = 8 Width = 75 Height = 30 Caption = '&Help' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = btnHelpClick end end object Panel1: TPanel Left = 0 Top = 69 Width = 383 Height = 194 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Panel1' TabOrder = 1 object dbgPADist: TwwDBGrid Left = 2 Top = 2 Width = 379 Height = 190 Selected.Strings = ( 'TRANSTYPE'#9'15'#9'Transaction' 'DATE'#9'10'#9'Date' 'REF'#9'10'#9'Reference' 'PAID'#9'10'#9'Payment') TitleColor = clBtnFace FixedCols = 0 ShowHorzScrollBar = True Align = alClient DataSource = dsAPTemp Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells] ReadOnly = True TabOrder = 0 TitleAlignment = taLeftJustify TitleFont.Charset = ANSI_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'Arial' TitleFont.Style = [] TitleLines = 1 TitleButtons = False OnCalcCellColors = dbgPADistCalcCellColors OnCalcTitleAttributes = dbgPADistCalcTitleAttributes IndicatorColor = icBlack OnTopRowChanged = dbgPADistTopRowChanged FooterCellColor = clYellow FooterHeight = 25 end end object Panel3: TPanel Left = 0 Top = 0 Width = 383 Height = 69 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 2 object lblRef: TLabel Left = 8 Top = 12 Width = 58 Height = 16 Caption = 'Reference' end object Label2: TLabel Left = 8 Top = 40 Width = 27 Height = 16 Caption = 'Date' end object Label3: TLabel Left = 188 Top = 12 Width = 64 Height = 16 Caption = 'Trans Total' end object Label4: TLabel Left = 188 Top = 40 Width = 70 Height = 16 Caption = 'Outstanding' end object dbeRef: TwwDBEdit Left = 80 Top = 8 Width = 101 Height = 24 DataField = 'INVREF' DataSource = dsTrans ParentColor = True ReadOnly = True TabOrder = 0 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object dbeDate: TwwDBEdit Left = 80 Top = 36 Width = 101 Height = 24 DataField = 'TRANSDATE' DataSource = dsTrans ParentColor = True ReadOnly = True TabOrder = 1 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object dbeTotal: TwwDBEdit Left = 275 Top = 8 Width = 100 Height = 24 DataField = 'TOTAL' DataSource = dsTrans ParentColor = True ReadOnly = True TabOrder = 2 UnboundDataType = wwDefault WantReturns = False WordWrap = False end object CEOutstanding: TCurrencyEdit Left = 275 Top = 36 Width = 100 Height = 24 AutoSize = False DisplayFormat = '0.00' ParentColor = True ReadOnly = True TabOrder = 3 end end object dsAllocPay: TwwDataSource Left = 8 Top = 160 end object taAllocPay: TwwTable DatabaseName = 'EmpireBuilder' IndexName = 'INVTRANSNO' TableName = 'AllocPay.DBF' SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 168 Top = 144 object taAllocPayACCREF: TStringField FieldName = 'ACCREF' Size = 10 end object taAllocPayINVTRANSNO: TFloatField FieldName = 'INVTRANSNO' end object taAllocPayPAYTRANSNO: TFloatField FieldName = 'PAYTRANSNO' end object taAllocPayPAYMENT: TFloatField FieldName = 'PAYMENT' end end object dsAPTemp: TwwDataSource DataSet = taAPTemp Left = 56 Top = 188 end object taAPTemp: TwwTable SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 88 Top = 128 object taAPTempTRANSTYPE: TStringField DisplayLabel = 'Transaction' DisplayWidth = 15 FieldName = 'TRANSTYPE' Size = 15 end object taAPTempDATE: TDateField DisplayLabel = 'Date' DisplayWidth = 10 FieldName = 'DATE' end object taAPTempREF: TStringField DisplayLabel = 'Reference' DisplayWidth = 10 FieldName = 'REF' Size = 10 end object taAPTempPAID: TFloatField DisplayLabel = 'Payment' DisplayWidth = 10 FieldName = 'PAID' DisplayFormat = '0.00' end object taAPTempNOMREF: TStringField DisplayLabel = 'Bank/Cash' DisplayWidth = 10 FieldName = 'NOMREF' Visible = False Size = 10 end object taAPTempTRANSNO: TFloatField DisplayWidth = 10 FieldName = 'TRANSNO' Visible = False end end object taTrans: TwwTable DatabaseName = 'EmpireBuilder' IndexName = 'TRANSNO' TableName = 'Trans.DBF' SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 168 Top = 188 object taTransTRANSNO: TFloatField FieldName = 'TRANSNO' end object taTransACCREF: TStringField FieldName = 'ACCREF' Size = 10 end object taTransTRANSTYPE: TStringField FieldName = 'TRANSTYPE' Size = 8 end object taTransTRANSDATE: TDateField FieldName = 'TRANSDATE' end object taTransINVREF: TStringField FieldName = 'INVREF' Size = 10 end object taTransDETAILS: TStringField FieldName = 'DETAILS' Size = 30 end object taTransNETVALUE: TFloatField FieldName = 'NETVALUE' end object taTransVATVALUE: TFloatField FieldName = 'VATVALUE' end object taTransTOTAL: TFloatField FieldName = 'TOTAL' DisplayFormat = '0.00' end object taTransPAYMENT: TFloatField FieldName = 'PAYMENT' end object taTransBALANCE: TFloatField FieldName = 'BALANCE' end object taTransQUERY: TBooleanField FieldName = 'QUERY' end object taTransMODULE: TStringField FieldName = 'MODULE' Size = 1 end object taTransQUERYMEMO: TMemoField FieldName = 'QUERYMEMO' BlobType = ftMemo Size = 1 end object taTransTRANLINK: TFloatField FieldName = 'TRANLINK' end object taTransTERMS: TSmallintField FieldName = 'TERMS' end end object dsTrans: TwwDataSource DataSet = taTrans Left = 100 Top = 188 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 = False Left = 12 Top = 104 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 391) OriginalFormHeight = ( 335) OriginalFormLeft = ( 276) OriginalFormTop = ( 133) OriginalFormPPI = ( 120) OriginalClientWidth = ( 383) OriginalClientHeight = ( 308) end end